Convert currency to character in smartforms.

Hi Friends,
I need one solution.
I have 5 currency fields and i wanna print these currencies fields into character format in SMARTFORMS.
How can we do it.
Plz reply me as soon as possible.
Thanks & Regards,
Swapnika

hi swapnika,
u need to print amount in words. is this ur requiremnet?
if s then TAKE A LOOK OF following code.
DATA : W_AMOUNT TYPE PC207-BETRG ,
W_DUTY TYPE IN_WORDS.
MOVE reguh-rwbtr TO W_AMOUNT.
CALL FUNCTION 'HR_IN_CHG_INR_WRDS'
EXPORTING
amt_in_num = W_AMOUNT
IMPORTING
amt_in_words = W_DUTY.
REPLACE 'RUPEES' WITH '' INTO W_DUTY.
REPLACE 'ONLY' WITH '' INTO W_DUTY.
IF WANTMORE HELP LET M KNW..

Similar Messages

How can i convert an ascii character to a number?

where can I find the function?

A string will be converted to an array of U8.
Unless you convert a single character.
RayR
Message Edited by JoeLabView on 06-27-2008 05:39 PM
Attachments:
Str2Num.vi ‏7 KB
String2Number.PNG ‏7 KB

Error Converting Currency -- Load from SAP ECC / R/3 to BW / BI

Hi,
I have a custom extractor pulling data from ECC.
However, I am getting the following error.
'Error Converting Currency from USD4 to on 8/27/2008'
RSA3 works fine. PSA load fails and the above message can be seen in the application log in ECC.
Any ideas?
Points will be assigned.
Thanks,
Edited by: Rajen SAP BI on Aug 29, 2008 2:23 AM

I believe in the transfer rule info object 0currency should be assigned with field from transfer structure which contains Currency . Once the assignment is done , delete data from info cube and reload the data and this time it should give
corresponding currency along with Amount.
Once you are able to see the currencies along with amount second step would be to create Currency translation ( RRC1 ) Put description ( Fixed Currency USD )
Tab page exchange rate : Rate type M
Source currency : From Data record
Target currency : Fixed ( USD )
Time ref. Fixed time ref. (Current datE) ( varies per scenario )
Save it.
Or
Use this function module for converting currency from one format to another format...
CONVERT_TO_FOREIGN_CURRENCY...

How do I convert the ASCII character % which is 25h to a hex number. I've tried using the scan value VI but get a zero in the value field.

How do I convert the ASCII character % ,which is 25h, to a hex number 25h. I've tried using the scan value VI but I get a zero in the value field.

You can use String to Byte Array for this.

Converting Exponential to Character format

Hi all,
We r facing problem with convertion the break down tome duration.
In the cube, the break down time keyfigure values shows the exponential rather than figure, but in keyfigure maintainance we given data type as a FLOAT even we r facing same... plz help me out how to convert exponential to character
Thanks in adv
pinky reddy

hi pinky,
Why can't u write a tansformation rule (abap routine) for that field in the start routine in transformation by looping the source package.
Rgrds,
Kumar.

Quotes convert to junk character in Generic SQL

The filter on source (GENERIC SQL logical schema) uses <%=odiRef.getPop("I_POP")%> for Iterface Id. However, the quotes in <%=odiRef.getPop("I_POP")% is getting converted to junk character.
Any inputs greatly appreciated..
Thanks,

Hi,
Let me try to help...
Can you show me the generated code from Operator?
Cezar Santos
[www.odiexperts.com]

MP-00038: Could not convert to environment character set's handle

I wan't import an Oracle 10g database dump into Oracle Express:
source DB runs on Linux
NLS_LANG=AMERICAN_AMERICA.WE8DEC
destination
Windows:
NLS_LANG=AMERICAN_AMERICA.WE8MSWIN1252
X:\>imp system/manager file=edb.dmp full=y
Import: Release 10.2.0.1.0 - Production on Wed Nov 14 09:25:40 2007
Copyright (c) 1982, 2005, Oracle. All rights reserved.
Connected to: Oracle Database 10g Express Edition Release 10.2.0.1.0 - Productio
n
IMP-00038: Could not convert to environment character set's handle
IMP-00000: Import terminated unsuccessfully
What can I do ???

Hi sivaram,
how exactly did you export from 11g, and how did you try to import? (Commands with parameters would be great, probably also the first lines of each log file)
And which exact database release did you export from? Which character set does it use?
-Udo

Converting an english character to ASCII without files

I am working on an encryption project for school and can't find any code that will convert a single character to the ascii counterpart. There is the:
String p = System.getProperty("line.separator");
System.out.println(p);
But that only converts to the primary code of the computer used. There is also code that will convert like this, but writes to a file. I only need it to output the counterpart in ascii within the program, not a file. I know this is probably simple but I cannot find how to do so. I could build a class that will do it, but I am sure it's already out there. I just need to know the syntax. It could work like this:
convert(R); //will produce ASCII code for character 'R'
outputs: 82
If anyone can help email me or post a reply. Thanks for your time.

ok, someone correct me if I'm wrong, but - isn't there a direct map between the int value of the char and the char value of the int? That is, when I run this program...
public class CharConvert {
    public static void main(String[] args) {
        char charToConvert = '\uFEFC';
        int codeToConvert = 65276;
        System.out.println("Char converts to: " + (int)charToConvert);
        System.out.println("Code converts to: " + (char)codeToConvert);
}I get the output
$ java CharConvert
Char converts to: 65276
Code converts to: ?('cause my shell can't seem to spit out that arabic symbol tha tis unicode FEFC). So, can't we just cast to convert here? Or am I missing something?
What I'm saying is, can't RadiantProgrammer just say
char rChar = (char)rCode;?
Lee

LSMW: Convertion of special character turn into #

Hi all,
Ich am Ulpoading a file in the step 'READ DATA' in LSMW and when I check the result in the next step 'DISPLAY READ DATA' I see that the upload (i do not know if LSMW make an WS_UPLAOD or GUI_UPLOAD or another function) converts a special character that we use in Portugal
in the file:           Fabricação
in LSMW after Upload: Fabrica##o
The file was an Excel which I saved as txt (tab delimited)
Who can help??????
Thanks
Picasso

Hi Picasso,
LSMW is having 'GUI_UPLOAD' function module to upload data.
GUI_UPLOAD FM is having import parameter CODEPAGE.Whose functinality is to take care of such special character.
Include which is called for READ DATA step, you can very wel find out that the codepage is not suitable for your Portuguese language.
Do one thing write an BDC...Call GUI_UPLOAD FM and then Pass CODEPAGE number.
codepage number you will get from tcp00 table.
here is example to take care of special Japanese character:
CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename                = l_ws_path
      filetype                = 'ASC'
      has_field_separator     = '#'
      codepage                = '6300'
    TABLES
      data_tab                = i_aenr
    EXCEPTIONS
      file_open_error         = 1
      file_read_error         = 2
      no_batch                = 3
      gui_refuse_filetransfer = 4
      invalid_type            = 5
      no_authority            = 6
      unknown_error           = 7
      bad_data_format         = 8
      header_not_allowed      = 9
      separator_not_allowed   = 10
      header_too_long         = 11
      unknown_dp_error        = 12
      access_denied           = 13
      dp_out_of_memory        = 14
      disk_full               = 15
      dp_timeout              = 16
      OTHERS                  = 17.

Convert spool (which is for smartform output) to PDF?

how to Convert spool which is for smartform output to PDF?
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF' is not working for smartform output,
if i use this there will be error spool not contain list output?
than whats the function module or way to convert spool contain smartform output to pdg?
regards,

hi,
use this instead
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
      EXPORTING
        formname                 = 'ZNAK_SMARTFORM_CORRESPONDENCE'
VARIANT                  = ' '
DIRECT_CALL              = ' '
     IMPORTING
       fm_name                  = func_name
     EXCEPTIONS
       no_form                  = 1
       no_function_module       = 2
       OTHERS                   = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    printer-getotf = 'X'.
    printer-no_dialog = 'X'.
    CALL FUNCTION func_name
      EXPORTING
ARCHIVE_INDEX              =
ARCHIVE_INDEX_TAB          =
ARCHIVE_PARAMETERS         =
   control_parameters         = printer
MAIL_APPL_OBJ              =
MAIL_RECIPIENT             =
MAIL_SENDER                =
OUTPUT_OPTIONS             =
USER_SETTINGS              = 'X'
        validity                   = ls_smart-validity
        lifnr                      = ls_smart-lifnr
        name1                      = ls_smart-name1
        pstlz                      = ls_smart-pstlz
        regio                      = ls_smart-regio
        stras                      = ls_smart-stras
        smtp_addr                  = ls_smart-smtp_addr
IMPORTING
DOCUMENT_OUTPUT_INFO       =
   job_output_info            = printer1
JOB_OUTPUT_OPTIONS         =
     EXCEPTIONS
       formatting_error           = 1
       internal_error             = 2
       send_error                 = 3
       user_canceled              = 4
       OTHERS                     = 5
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    t_otf[] = printer1-otfdata.
DATA gt_tline like TABLE OF tline occurs 0 with header line.
    CALL FUNCTION 'CONVERT_OTF_2_PDF'
EXPORTING
    USE_OTF_MC_CMD               = 'X'
    ARCHIVE_INDEX                =
     IMPORTING
       bin_filesize                 = w_file
      TABLES
        otf                          = t_otf
        doctab_archive               = gt_docs
        lines                        = gt_tline
EXCEPTIONS
    ERR_CONV_NOT_POSSIBLE        = 1
    ERR_OTF_MC_NOENDMARKER       = 2
    OTHERS                       = 3
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.

How to Convert spool which is for smartform output to PDF?

how to Convert spool which is for smartform output to PDF?
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF' is not working for smartform output,
if i use this there will be error spool not contain list output?
than whats the function module or way to convert spool contain smartform output to pdg?
regards,

<b>Procedure</b>
     When we activate the Smartform the system generates a Function Module. The function module name we can get from Smartfrom screen from menubar
Environment => Function Module_Name . In a report we can get this Function module name by calling a Function Module standard SSF_FUNCTION_MODULE_NAME. This function module at runtime calls the FM generated by smartform, which in turn is then used to pass data from the report to Smartform. In the report given below the FM generated is /1BCDWB/SF00000152 . In this FM we can see CONTROL_PARAMETERS in import tab. This is of type SSFCTRLOP. We need to set the GETOTF of this to be X. Setting this field will activate the OTF field in smartform.
In export tab of the FM generated by smartform we can see a parameter JOB_OUTPUT_INFO which is of type SSFCRESCL. The SSFCRESCL is a structure of having one of fields as OTFDATA. OTFDATA in turn is a table of type ITCOO. ITCOO has two fields TDPRINTCOM and TDPRINTPAR. TDPRINTCOM represents command line of OTF format data and TDPRINTPAR contains command parameters of OTF format data.
In every Smartform output in OTF format, TDPRINTCOM begins and ends with //. EP represents the end-of-page value for TDPRINTCOM field.
In addition we need to set few fields at the place where we call this FM(generated by smartform) in our program. While calling this FM we should set control_parameters, output_options, user_settings and job_putput_info fields as shown in program.
Once these settings are done we can call Function Module CONVERT_OTF to convert the OTF data of smartfrom output to PDF data format. Once these are done we can call method cl_gui_fronted_services=>file_save_dialog to specify the directory path where we want to save the output PDF file. After this we can call Function Module GUI_DOWNLOAD to download the PDF file on our local system.
<b>Here is a sample code of program to perform the function.</b>
SAMPLE CODE
[code]*&---------------------------------------------------------------------*
*& Report ZAMIT_SMART_FORM_PDF                                        *
REPORT ZAMIT_SMART_FORM_PDF                    .
data: carr_id type sbook-carrid,
      cparam type ssfctrlop,
      outop type ssfcompop,
      fm_name type rs38l_fnam.
DATA: tab_otf_data TYPE ssfcrescl,
      pdf_tab LIKE tline OCCURS 0 WITH HEADER LINE,
      tab_otf_final TYPE itcoo OCCURS 0 WITH HEADER LINE,
      file_size TYPE i,
      bin_filesize TYPE i,
      FILE_NAME type string,
      File_path type string,
      FULL_PATH type string.
parameter:      p_custid type scustom-id default 1.
select-options: s_carrid for carr_id     default 'LH' to 'LH'.
parameter:      p_form   type tdsfname   default 'ZAMIT_SMART_FORM'.
data: customer    type scustom,
      bookings    type ty_bookings,
      connections type ty_connections.
start-of-selection.
***************** suppressing the dialog box for print preview****************************
outop-tddest = 'LP01'.
cparam-no_dialog = 'X'.
cparam-preview = SPACE.
cparam-getotf = 'X'.
select single * from scustom into customer where id = p_custid.
check sy-subrc = 0.
select * from sbook   into table bookings
           where customid = p_custid
           and   carrid in s_carrid
           order by primary key.
select * from spfli into table connections
           for all entries in bookings
           where carrid = bookings-carrid
           and   connid = bookings-connid
           order by primary key.
call function 'SSF_FUNCTION_MODULE_NAME'
       exporting formname           = p_form
*                 variant            = ' '
*                 direct_call        = ' '
       importing fm_name            = fm_name
       exceptions no_form            = 1
                  no_function_module = 2
                  others             = 3.
if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    exit.
endif.
* calling the generated function module
call function fm_name
       exporting
*                 archive_index        =
*                 archive_parameters   =
                 control_parameters   = cparam
*                 mail_appl_obj        =
*                 mail_recipient       =
*                 mail_sender          =
                 output_options       = outop
                 user_settings        = SPACE
                 bookings             = bookings
                  customer             = customer
                  connections          = connections
      importing
*                 document_output_info =
                 job_output_info      = tab_otf_data
*                 job_output_options   =
       exceptions formatting_error     = 1
                  internal_error       = 2
                  send_error           = 3
                  user_canceled        = 4
                  others               = 5.
if sy-subrc <> 0.
*   error handling
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
tab_otf_final[] = tab_otf_data-otfdata[].
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
   format                      = 'PDF'
   max_linewidth               = 132
*   ARCHIVE_INDEX               = ' '
*   COPYNUMBER                  = 0
*   ASCII_BIDI_VIS2LOG          = ' '
IMPORTING
   bin_filesize                = bin_filesize
*   BIN_FILE                    =
TABLES
    otf                         = tab_otf_final
    lines                       = pdf_tab
EXCEPTIONS
   err_max_linewidth           = 1
   err_format                  = 2
   err_conv_not_possible       = 3
   err_bad_otf                 = 4
   OTHERS                      = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD cl_gui_frontend_services=>file_save_dialog
* EXPORTING
*    WINDOW_TITLE         =
*    DEFAULT_EXTENSION    =
*    DEFAULT_FILE_NAME    =
*    FILE_FILTER          =
*    INITIAL_DIRECTORY    =
*    WITH_ENCODING        =
*    PROMPT_ON_OVERWRITE = 'X'
CHANGING
    filename             = FILE_NAME
    path                 = FILE_PATH
    fullpath             = FULL_PATH
*    USER_ACTION          =
*    FILE_ENCODING        =
* EXCEPTIONS
*    CNTL_ERROR           = 1
*    ERROR_NO_GUI         = 2
*    NOT_SUPPORTED_BY_GUI = 3
*    others               = 4
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*************downloading the converted PDF data to your local PC********
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
   bin_filesize                    = bin_filesize
   filename                        = FULL_PATH
   filetype                        = 'BIN'
*   APPEND                          = ' '
*   WRITE_FIELD_SEPARATOR           = ' '
*   HEADER                          = '00'
*   TRUNC_TRAILING_BLANKS           = ' '
*   WRITE_LF                        = 'X'
*   COL_SELECT                      = ' '
*   COL_SELECT_MASK                 = ' '
*   DAT_MODE                        = ' '
*   CONFIRM_OVERWRITE               = ' '
*   NO_AUTH_CHECK                   = ' '
*   CODEPAGE                        = ' '
*   IGNORE_CERR                     = ABAP_TRUE
*   REPLACEMENT                     = '#'
*   WRITE_BOM                       = ' '
*   TRUNC_TRAILING_BLANKS_EOL       = 'X'
IMPORTING
   filelength                      = file_size
TABLES
    data_tab                        = pdf_tab
*   FIELDNAMES                      =
EXCEPTIONS
   file_write_error                = 1
   no_batch                        = 2
   gui_refuse_filetransfer         = 3
   invalid_type                    = 4
   no_authority                    = 5
   unknown_error                   = 6
   header_not_allowed              = 7
   separator_not_allowed           = 8
   filesize_not_allowed            = 9
   header_too_long                 = 10
   dp_error_create                 = 11
   dp_error_send                   = 12
   dp_error_write                  = 13
   unknown_dp_error                = 14
   access_denied                   = 15
   dp_out_of_memory                = 16
   disk_full                       = 17
   dp_timeout                      = 18
   file_not_found                  = 19
   dataprovider_exception          = 20
   control_flush_error             = 21
   OTHERS                          = 22
IF sy-subrc <> 0.
ENDIF.
[/code]
Thanks and Regards,
Pavankumar

How to convert ascii to character

how to convert ascii to character is there any function module or any code.plz help me in finding this.

Hi,
please go through this
If I give input as 65 (ascill value) I want display 'A'.
Below logic is for convert from character to ascii value.
report Ascii_convert.
*Going from A to 65
data : c value 'A'.
field-symbols : <n> type x.
data : rn type i.
assign c to <n> casting.
move <n> to rn.
write rn.
*Going from 66 to B
data : i type i value 66.
data : x type x.
field-symbols : <fc> type c.
move i to x.
assign x to <fc> casting type c.
move <fc> to c.
write c.
i hope this will help you ,
Raja T

How to convert currency into other country currency?

how to convert currency into other country currency?

Hi,
You have to use, transaction CONVERT_TO_LOCAL_CURRENCY.
See this code for more detail.
DATA: l_toval   LIKE bseg-wrbtr,
      l_fromval LIKE bseg-wrbtr.
DATA: l_tocurr LIKE bkpf-waers,
      l_fromcurr LIKE bkpf-waers VALUE 'USD'.
DATA: l_exchrate      LIKE tcurr-ukurs.
*   get amount in other currency
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
     EXPORTING
          client           = sy-mandt
          date             = sy-datum
          foreign_amount   = l_fromval
          foreign_currency = l_tocurr
          local_currency   = l_fromcurr
     IMPORTING
          exchange_rate    = l_exchrate
          local_amount     = l_toval
     EXCEPTIONS
          no_rate_found    = 1
          overflow         = 2
          no_factors_found = 3
          no_spread_found = 4
          derived_2_times = 5
          OTHERS           = 6.
Let me know if you need any other information.
Regards,
RS

Convert currency to Words(font Vietnamness)

Hi all,
I create report as crystal report tool .but I canu2019t convert currency number to vietnamness.
I can only convert to English.
URL=http://imageshack.usIMGhttp://img518.imageshack.us/img518/931/phieuchiqn6.png[/IMG][/url]
URL=http://g.imageshack.us/img518/phieuchiqn6.png/1/IMGhttp://img518.imageshack.us/img518/phieuchiqn6.png/1/w793.png[/IMG][/url]
I can not convert from number to word u2018s VietNamness.
I used create Customer Function in Crystal report for event this convert.But, it donu2019t work .
I create this function in VB.NET ,it work very good.
This is picture that I used in VB.NET.
URL=http://imageshack.usIMGhttp://img254.imageshack.us/img254/1227/convertdd6.png[/IMG][/url] URL=http://g.imageshack.us/img254/convertdd6.png/1/IMGhttp://img254.imageshack.us/img254/convertdd6.png/1/w363.png[/IMG][/url]
Now, I want to add this function into crystal report ,What do me do?
This is code :
Module Module2
Function ConvertCurrencyToEnglish(ByVal MyNumber As String)
Dim Temp
Dim Dollars, Cents As String
Dim DecimalPlace, Count As Integer
Dim Place(9) As String
Place(2) = " Nghìn "
Place(3) = "Triệu "
Place(4) = " Tỉ "
Place(5) = "Trăm tỉ "
' Convert MyNumber to a string, trimming extra spaces.
MyNumber = Trim(MyNumber)
' Find decimal place.
DecimalPlace = InStr(MyNumber, ".")
' If we find decimal place...
If DecimalPlace > 0 Then
' Convert cents
Temp = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)
Cents = ConvertTens(Temp)
' Strip off cents from remainder to convert.
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
' Convert last 3 digits of MyNumber to English dollars.
Temp = ConvertHundreds(Right(MyNumber, 3))
If Temp "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
' Remove last 3 converted digits from MyNumber.
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
' Clean up dollars.
Select Case Dollars
Case ""
Dollars = "Không Đồng"
Case "One"
Dollars = "Một Đồng"
Case Else
Dollars = Dollars & " Đồng"
End Select
' Clean up cents.
Select Case Cents
Case ""
Cents = " Chẵn"
Case "One"
Cents = " Lẻ"
Case Else
Cents = " And " & Cents & " Cents"
End Select
ConvertCurrencyToEnglish = Dollars & Cents
End Function
Private Function ConvertHundreds(ByVal MyNumber)
Dim Result As String
' Exit if there is nothing to convert.
If Val(MyNumber) = 0 Then Exit Function
' Append leading zeros to number.
MyNumber = Right("000" & MyNumber, 3)
' Do we have a hundreds place digit to convert?
If Left(MyNumber, 1) "0" Then
Result = ConvertDigit(Left(MyNumber, 1)) & " Chăm "
End If
' Do we have a tens place digit to convert?
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & ConvertTens(Mid(MyNumber, 2))
Else
' If not, then convert the ones place digit.
Result = Result & ConvertDigit(Mid(MyNumber, 3))
End If
ConvertHundreds = Trim(Result)
End Function
Private Function ConvertTens(ByVal MyTens)
Dim Result As String
' Is value between 10 and 19?
If Val(Left(MyTens, 1)) = 1 Then
Select Case Val(MyTens)
Case 10 : Result = "Mười"
Case 11 : Result = "Mười Một"
Case 12 : Result = "Mười Hai"
Case 13 : Result = "Mười Ba"
Case 14 : Result = "Mười Bốn"
Case 15 : Result = "Mười Năm"
Case 16 : Result = "Mười Sáu"
Case 17 : Result = "Mười Bảy"
Case 18 : Result = "Mười Tám"
Case 19 : Result = "Mười Chín"
Case Else
End Select
Else
' .. otherwise it's between 20 and 99.
Select Case Val(Left(MyTens, 1))
Case 2 : Result = "Hai Mươi "
Case 3 : Result = "Ba Mươi "
Case 4 : Result = "Bốn Mươi "
Case 5 : Result = "Năm Mươi "
Case 6 : Result = "Sáu Mươi "
Case 7 : Result = "Bảy Mươi "
Case 8 : Result = "Tám Mươi "
Case 9 : Result = "Chín Mươi "
Case Else
End Select
' Convert ones place digit.
Result = Result & ConvertDigit(Right(MyTens, 1))
End If
ConvertTens = Result
End Function
Private Function ConvertDigit(ByVal MyDigit As Object)
Select Case Val(MyDigit)
Case 1 : ConvertDigit = "Một"
Case 2 : ConvertDigit = "Hai"
Case 3 : ConvertDigit = "Ba"
Case 4 : ConvertDigit = "Bốn"
Case 5 : ConvertDigit = "Năm"
Case 6 : ConvertDigit = "Sáu"
Case 7 : ConvertDigit = "Bảy"
Case 8 : ConvertDigit = "Tám"
Case 9 : ConvertDigit = "Chín"
Case Else : ConvertDigit = ""
End Select
End Function
End Module
Thank you ,

Hi,
Hope this help, http://www.slxdeveloper.com/page.aspx?action=viewarticle&articleid=103 .
You can search a topic User Function Libraries in Crystal Report for creating you own function
Regards,
Clint

How do I convert an ASCII character to an array of co-ordinates.

I need to convert and ASCII character to an array of X, Y co-ordinates. I also need to be-able to vary the size of the text (scale of graph i suppose) and position on the graph So i can desplay multiple characters on a graph. However it needs to be stored in an array (or set of arrays) so i can isue these co-ordinates to an instrument.

Maybe the attached VI can help. Using picture control functions, it get the
1bit bitmap of the character/text
on input in a 2D array of booleans.
Jean-Pierre Drolet
"m0mbaj0mba" a écrit dans le message news:
[email protected]..
> I am trying to find a simple way to convert a letter (ASCII character)
> into an array of X,Y co-ordinates. I am involved in two projects that
> involve spelling letters with lasers. At the moment we are plotting
> the points on a graph in excel, transferring the co-ordinates into a
> text file and then converting the content of these text files into a
> set on 1D arrays. As I am sure you can appreciate this is a very long
> winded process. Is there anyway of pl
otting points on an X,Y, graph
> and outputting those points to an array or set of arrays?
>
> Excel spreadshett is attached.
[Attachment GetTextBitmap.vi, see below]
LabVIEW, C'est LabVIEW
Attachments:
GetTextBitmap.vi ‏45 KB

Convert currency to character in smartforms.

Similar Messages

Maybe you are looking for