Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8709

Re: Invoice correction request / pricing

$
0
0

Hi Eduardo Hinojosa ;

 

I checked note 24832 but i can not get VBAK structure in the user-exit.

 

I do not have any idea to solve this problem.

 

Sample code :

 

FORM USEREXIT_PRICING_COPY.

 

  DATA: LS_KONV LIKE KONV ,

        LV_ISKONTO TYPE P DECIMALS 2,

        LS_VBAK LIKE VBAK.

 

  IF VBTYP_NEW EQ 'K'.

    SELECT SINGLE * INTO LS_VBAK

FROM VBAK

WHERE KNUMV = DOCUMENT_NUMBER_FROM.

    IF SY-SUBRC EQ 0 AND

       LS_VBAK-AUART EQ 'ZRK'.

      IF KONV-KSCHL = 'ZFIY'.

        CLEAR: LS_KONV,

                      LS_VBAK.

 

        SELECT SINGLE * INTO LS_KONV

FROM KONV

WHERE KNUMV EQ DOCUMENT_NUMBER_FROM AND

KPOSN EQ ITEM_NUMBER_FROM     AND

KSCHL EQ 'ZI01'.

 

        IF SY-SUBRC EQ 0.

LV_ISKONTO = LS_KONV-KBETR / 10.

LV_ISKONTO = 10000 + LV_ISKONTO .

KONV-KBETR = KONV-KBETR * LV_ISKONTO / 10000.

KONV-KWERT = KONV-KAWRT * KONV-KBETR / 1000.

KONV-KMPRS = 'X'.

KONV-KHERK = 'C'.

KONV-KSTEU = 'C'.

 

        ENDIF.

      ENDIF.

      IF KONV-KSCHL EQ 'ZI01'.

        U15_SUBRC = 4 .

      ENDIF.

    ENDIF.

  ENDIF.

 

  ENDFORM.  


Regards.


M.Ozgur Unal               


Viewing all articles
Browse latest Browse all 8709

Trending Articles