Skip to Content
0
Former Member
Feb 16, 2009 at 10:01 AM

Update TCURR-UKURS field

755 Views

Dear Gurus ,

I wrote a programme that insert records in that TCURR table.My problem is that i can't pass the value of TCURR-UKURS with the '/' symbol.

For example look the record that i want to pass .

900 EURX AUD EUR 79919488 /1,63740 0 0

Can you give me a hint please ....

Look my code .



     DATA : POSO_1(9) TYPE C.
     DATA : POSO_2(12) TYPE C.
     DATA : AFT_DATE LIKE SY-DATUM.
     DATA : BEF_DATE(10) TYPE C.
        .........  
        .......
       LOOP AT T_UPLOAD INTO WA_UPLOAD.
       WRITE :/10 WA_UPLOAD-NOMISMA COLOR 7 INVERSE , 30 WA_UPLOAD-POSO
                                                       COLOR 7 INVERSE.
        MOVE 'EURX'             TO TCURR-KURST.
        MOVE  WA_UPLOAD-NOMISMA TO TCURR-FCURR.
        MOVE 'EUR'              TO TCURR-TCURR.

       CONCATENATE '/' WA_UPLOAD-POSO INTO POSO_2.

       CONCATENATE  SY-DATUM(4) SY-DATUM+4(2) SY-DATUM+6(2)
                                              INTO BEF_DATE.

        CALL FUNCTION 'CONVERSION_EXIT_SDATE_INPUT'
          EXPORTING
            INPUT  = BEF_DATE
          IMPORTING
            OUTPUT = AFT_DATE.

        TCURR-GDATU = 99999999 - BEF_DATE.

        MOVE '0' TO              TCURR-FFACT.
        MOVE '0' TO              TCURR-TFACT.


        INSERT TCURR.
        EXIT.
      ENDLOOP.