ZXKKEU03 delivers wrong values in company code currency

Question

Hello,
it is requested to transfer the value of a SD-condition (tables A004 + KONP) to a COPA value field with the help of the exit ZXKKEU03. Although the SD condition value is already in company code currency the system converts the value from operating concern currency into company code currency. An attempt to revert the conversion within ZXKKEU03 fails due to less decimal places (2) in ZXKKEU03 than in the SAP standard programs.
Does anybody have an idea how to solve this problem?
Many thanks in advance,
regards,
Martin

Answer 1

Hi Eric,
my message refers to that part of the source code within ZXKKEU03:
SELECT SINGLE * FROM VBKD INTO W_VBKD
                   WHERE VBELN = LINE_ITEM_7000-KAUFN
                     AND POSNR = '000000'.
                       Z_DATUM = W_VBKD-PRSDT.
     SELECT * FROM A912                          "Price acc. Price list
           WHERE  KAPPL       =   'V'
           AND    KSCHL       =   'PR00'       "Gross turnover
           AND    VKORG       =   LINE_ITEM_7000-VKORG
           AND    VTWEG       =   LINE_ITEM_7000-VTWEG
           AND    SPART       =   LINE_ITEM_7000-WWVSP
           AND    MATNR       =   LINE_ITEM_7000-ARTNR
           AND    DATBI      >=   Z_DATUM
           AND    DATAB      <=   Z_DATUM.
    IF SY-SUBRC  =  0.
      SELECT * FROM KONP INTO W_KONP
               WHERE  KNUMH    =  A912-KNUMH
               AND    KAPPL    =  A912-KAPPL
               AND    LOEVM_KO =   ' '
               AND    KSCHL    =  A912-KSCHL.
               EXIT.
      ENDSELECT.
      IF SY-SUBRC  =  0.
          LINE_ITEM_7000-VV104 = W_KONP-KBETR * LINE_ITEM_7000-VV005 /
                                 W_KONP-KPEIN.
      ENDIF.
    ENDIF.
    ENDSELECT.
    IF LINE_ITEM_7000-VV104 = ' '.
    SELECT * FROM A004                           "Price acc..Price list
           WHERE  KAPPL       =   'V'
           AND    KSCHL       =   'PR00'          "Gross turnover
           AND    VKORG       =   LINE_ITEM_7000-VKORG
           AND    VTWEG       =   LINE_ITEM_7000-VTWEG
           AND    MATNR       =   LINE_ITEM_7000-ARTNR
           AND    DATBI      >=   Z_DATUM
           AND    DATAB      <=   Z_DATUM.
    IF SY-SUBRC  =  0.
      SELECT * FROM KONP INTO W_KONP
               WHERE  KNUMH    =  A004-KNUMH
               AND    KAPPL    =  A004-KAPPL
               AND    LOEVM_KO =   ' '
               AND    KSCHL    =  A004-KSCHL.
               EXIT.
      ENDSELECT.
      IF SY-SUBRC  =  0.
          LINE_ITEM_7000-VV104 = W_KONP-KBETR * LINE_ITEM_7000-VV005 /
                                 W_KONP-KPEIN.
      ENDIF.
    ENDIF.
    ENDSELECT.
    ENDIF.
    IF LINE_ITEM_7000-FRWAE NE 'EUR'.
    IF SY-SUBRC = 0.
    SELECT * FROM TCURR INTO CORRESPONDING FIELDS OF TABLE I_TCURR
           WHERE KURST      = 'M'
           AND   FCURR      = LINE_ITEM_7000-FRWAE
           AND   TCURR      = 'EUR'.
    IF SY-SUBRC = 0.
      SORT I_TCURR ASCENDING BY GDATU.
      LOOP AT I_TCURR INTO W_TCURR.
           Z_UKURS = W_TCURR-UKURS.
           LINE_ITEM_7000-VV104 = LINE_ITEM_7000-VV104 * Z_UKURS.
           EXIT.
      ENDLOOP.
    ENDIF.
    ENDIF.
    ENDIF.
Regards,
Martin