topic Re: scripts in Application Development and Automation Discussions

scripts

Former Member — Thu, 24 May 2007 07:38:20 GMT

hi,

how to convert the currency usd to inr in scripts? i need urgent?

conversion in driver program r script?

Re: scripts

Former Member — Thu, 24 May 2007 07:43:05 GMT

Hello,

Check this code:


REPORT ZV_CONVERT_CURR .
DATA : L_NETWR TYPE VBAP-NETWR.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
     EXPORTING
          DATE             = SY-DATUM
          FOREIGN_AMOUNT   = '10.00'
          FOREIGN_CURRENCY = 'USD'
          LOCAL_CURRENCY   = 'INR'
     IMPORTING
          LOCAL_AMOUNT     = L_NETWR
     EXCEPTIONS
          NO_RATE_FOUND    = 1
          OVERFLOW         = 2
          NO_FACTORS_FOUND = 3
          NO_SPREAD_FOUND  = 4
          DERIVED_2_TIMES  = 5
          OTHERS           = 6.


WRITE: L_NETWR.
" Pass this above variable to Script

Regards,

VAsanth

Re: scripts

sreeramkumar_madisetty — Thu, 24 May 2007 07:45:18 GMT

Use the FM:

<b>'CONVERT_TO_LOCAL_CURRENCY'</b>

Regards,

Sreeram

Re: scripts

Former Member — Thu, 24 May 2007 07:49:20 GMT

hi,

Go through the following Code

Use the following F.M's

CONVERT_TO_FOREIGN_CURRENCY Convert local currency to foreign currency.

CONVERT_TO_LOCAL_CURRENCY Convert from foreign currency to local currency

Check the following Code

PARAMETERS: P_UKURS LIKE TCURR-UKURS.

DATA: BEGIN OF GI_TAB OCCURS 0,

KONWA LIKE KONP-KONWA,

STPRS LIKE MBEW-STPRS,

WAERS LIKE T001-WAERS,

END OF GI_TAB.

DATA: L_STPRS LIKE MBEW-STPRS,

L_RATE LIKE TCURR-UKURS.

IF P_UKURS IS INITIAL.

CLEAR L_RATE.

ELSE.

L_RATE = P_UKURS / 100.

ENDIF.

CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'

EXPORTING

DATE = SY-DATUM

FOREIGN_CURRENCY = GI_TAB-KONWA

LOCAL_AMOUNT = GI_TAB-STPRS

LOCAL_CURRENCY = GI_TAB-WAERS

RATE = L_RATE

IMPORTING

FOREIGN_AMOUNT = L_STPRS

EXCEPTIONS

NO_RATE_FOUND = 1

OVERFLOW = 2

NO_FACTORS_FOUND = 3

NO_SPREAD_FOUND = 4

DERIVED_2_TIMES = 5

OTHERS = 6.

CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'

EXPORTING

DATE = SY-DATUM

FOREIGN_AMOUNT = L_BELOEB

FOREIGN_CURRENCY = 'USD'

LOCAL_CURRENCY = 'DKK'

RATE = L_RATE

TYPE_OF_RATE = 'M'

IMPORTING

EXCHANGE_RATE = L_RATE

FOREIGN_FACTOR =

LOCAL_AMOUNT = L_BELOEB

LOCAL_FACTOR =
EXCHANGE_RATEX =
FIXED_RATE =
DERIVED_RATE_TYPE =

EXCEPTIONS

NO_RATE_FOUND = 1

OVERFLOW = 2

NO_FACTORS_FOUND = 3

NO_SPREAD_FOUND = 4

DERIVED_2_TIMES = 5

OTHERS = 6.

pls give reward if it helpful

Thanks

vana

Re: scripts

Former Member — Thu, 24 May 2007 07:51:21 GMT

if you have missed that INFORMATION:

you need to add this in your driver program

Re: scripts

former_member196280 — Thu, 24 May 2007 08:23:04 GMT

Use Fm "HR_CONVERT_AMOUNT"

Reward points if useful.

Regards,

SaiRam