Retro billing process is used to create price differences documents (credit / debit memo) after price changes in SAP.
For further : https://blogs.sap.com/2013/05/07/retro-billing-sd-vfrb/
OEM suppliers benefit from this program but some of them need some developments on it. In our client, standard program SDREBI02 is modified to add credit/debit line manually .
1- May i add manuel credit/debit line ? Because, OEM calculates different total amount but they balance this items with debit/credit lines.
Enhancement :
SDREBI02 is modified to add credit/debit line manually.
Form 'create documents' create debit/credit memo that's why enhancement is located start of this form.
How to use this new design ! When program start credit/debit memo , a pop-up ask to user 'Do you want to add credit/debit line ?' If yes, user has to fill out credit/debit memo request.
Implementation :
Run program (F8) .
Select line/s and click retroactive billing.
A pop-up will be asking for additional lines depend on credit/debit memo ! Because, SAP standard provide that you can only credit or debit line in one document !
If you select 'Yes', a new pop-up will be asking for referance document. Else, program will be working like a standard behaviour.
Click 'OK' , program will be add a new line in invoicing document ! Also, you can report these lines.
Look at referance document !
Document flow !
Regards.
M.Ozgur Unal
For further : https://blogs.sap.com/2013/05/07/retro-billing-sd-vfrb/
OEM suppliers benefit from this program but some of them need some developments on it. In our client, standard program SDREBI02 is modified to add credit/debit line manually .
1- May i add manuel credit/debit line ? Because, OEM calculates different total amount but they balance this items with debit/credit lines.
Enhancement :
SDREBI02 is modified to add credit/debit line manually.
Form 'create documents' create debit/credit memo that's why enhancement is located start of this form.
*&---------------------------------------------------------------------*
*& Form CREATE_DOCUMENTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM create_documents.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form CREATE_DOCUMENTS, Start A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1 ZSDREBI02. "active version
*BREAK OUNAL.
DATA: popup_return TYPE C,
ivals TYPE TABLE OF sval,
xvals TYPE sval,
lv_netwr TYPE netwr.
IF sy-tcode = 'ZVFRB'.
READ TABLE xkomfkgn_gs INDEX 1. "Credit check
IF sy-subrc IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'ADD CREDIT ITEM'
text_question = 'Will you add credit line?'
text_button_1 = 'Yes'
text_button_2 = 'No'
default_button = '2'
* display_cancel_button = 'X'
IMPORTING
answer = popup_return
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
CASE popup_return.
WHEN '1'.
*/ Fill out referance document number
xvals-tabname = 'VBRP'.
xvals-fieldname = 'VGBEL'.
APPEND xvals TO ivals.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = 'Referance Order Document Number ?'
TABLES
fields = ivals
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
READ TABLE ivals INTO xvals INDEX 1.
CONDENSE xvals-value.
IF sy-subrc = 0 and xvals-value ne ''.
*/ Check order status !
SELECT SINGLE * FROM vbak
INTO @DATA(wa_vbak)
WHERE vbeln = @xvals-value.
IF sy-subrc IS INITIAL.
SELECT SINGLE * FROM vbuk
INTO @DATA(wa_vbuk)
WHERE vbeln = @xvals-value.
ENDIF.
IF sy-subrc = 0 AND
( wa_vbak-faksk NE space OR "Block status
wa_vbak-auart NE 'ZCR' OR "Order type
wa_vbuk-fksak EQ 'C' OR "Invoicing
wa_vbuk-abstk EQ 'C' OR "Order canceled
wa_vbuk-uvals NE 'C' ). "Incompleteness
MESSAGE 'Check order, you can not invoice this referance'
TYPE 'E'.
ELSE.
*/ Add credit line !
CLEAR xkomfkgn_gs.
xkomfkgn_gs-mandt = sy-mandt.
xkomfkgn_gs-vgtyp = 'C'.
xkomfkgn_gs-vgbel = xvals-value.
xkomfkgn_gs-vgpos = '000010'.
xkomfkgn_gs-augru = augru_gs.
xkomfkgn_gs-shkzg = 'H'.
APPEND XKOMFKGN_GS.
CLEAR xkomfkko_gs.
xkomfkko_gs-mandt = sy-mandt.
xkomfkko_gs-knumv = xvals-value.
xkomfkko_gs-kposn = '000010'.
xkomfkko_gs-kschl = 'PDIF'.
SELECT SINGLE netwr
FROM VBAK
INTO lv_netwr
WHERE vbeln = xvals-value.
IF sy-subrc IS INITIAL AND lv_netwr GT 0.
xkomfkko_gs-kbetr = lv_netwr.
ENDIF.
APPEND xkomfkko_gs.
ENDIF.
ENDIF.
WHEN '2' OR 'A'.
ENDCASE.
ENDIF.
READ TABLE xkomfkgn_ls INDEX 1. "Debit check
IF sy-subrc IS INITIAL.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'ADD DEBIT ITEM'
text_question = 'Will you add debit line?'
text_button_1 = 'Yes'
text_button_2 = 'No'
default_button = '2'
* display_cancel_button = 'X'
IMPORTING
answer = popup_return
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
CASE popup_return.
WHEN '1'.
*/ Fill out referance document number
CLEAR : xvals.
REFRESH : ivals.
xvals-tabname = 'VBRP'.
xvals-fieldname = 'VGBEL'.
APPEND xvals TO ivals.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
popup_title = 'Referance Order Document Number ?'
TABLES
fields = ivals
EXCEPTIONS
error_in_fields = 1
OTHERS = 2.
READ TABLE ivals INTO xvals INDEX 1.
CONDENSE xvals-value.
IF sy-subrc = 0 and xvals-value ne ''.
*/ Check order status !
SELECT SINGLE * FROM vbak
INTO @DATA(wa_vbak2)
WHERE vbeln = @xvals-value.
IF sy-subrc IS INITIAL.
SELECT SINGLE * FROM vbuk
INTO @DATA(wa_vbuk2)
WHERE vbeln = @xvals-value.
ENDIF.
IF sy-subrc = 0 AND
( wa_vbak2-faksk NE space OR "Block status
wa_vbak2-auart NE 'ZDB1' OR "Order type
wa_vbuk2-fksak EQ 'C' OR "Invoicing
wa_vbuk2-abstk EQ 'C' OR "Order canceled
wa_vbuk2-uvals NE 'C' ). "Incompleteness
MESSAGE 'Check order, you can not invoice this referance'
TYPE 'E'.
ELSE.
*/ Add debit line
"Siparişi check et.
CLEAR xkomfkgn_ls..
xkomfkgn_ls-mandt = sy-mandt.
xkomfkgn_ls-vgtyp = 'C'.
xkomfkgn_ls-vgbel = xvals-value.
xkomfkgn_ls-vgpos = '000010'.
xkomfkgn_ls-augru = augru_ls.
xkomfkgn_ls-shkzg = 'S'.
APPEND xkomfkgn_ls.
CLEAR xkomfkko_ls.
xkomfkko_ls-mandt = sy-mandt.
xkomfkko_ls-knumv = xvals-value.
xkomfkko_ls-kposn = '000010'.
xkomfkko_ls-kschl = 'PDIF'.
SELECT SINGLE netwr
FROM VBAK
INTO lv_netwr
WHERE vbeln = xvals-value.
IF sy-subrc IS INITIAL AND lv_netwr GT 0.
xkomfkko_ls-kbetr = lv_netwr.
ENDIF.
APPEND xkomfkko_ls.
ENDIF.
ENDIF.
WHEN '2' OR 'A'.
ENDCASE.
ENDIF.
ENDIF.
ENDENHANCEMENT.
*$*$-End: (1)---------------------------------------------------------------------------------$*$*
READ TABLE xkomfkgn_gs INDEX 1.
IF sy-subrc EQ 0.
PERFORM belege_erzeugen TABLES xkomfkgn_gs
xkomfkko_gs
USING zposting
fkart_gs.
vbsk_vbnum_c = vbsk_vbnum_c + vbsk-vbnum.
vbsk_ernum_c = vbsk_ernum_c + vbsk-ernum.
ENDIF.
READ TABLE xkomfkgn_ls INDEX 1.
IF sy-subrc EQ 0.
PERFORM belege_erzeugen TABLES xkomfkgn_ls
xkomfkko_ls
USING zposting
fkart_ls.
vbsk_vbnum_d = vbsk_vbnum_d + vbsk-vbnum.
vbsk_ernum_d = vbsk_ernum_d + vbsk-ernum.
ENDIF.
* SIMULATION = 'H'
IF zposting = 'B'.
COMMIT WORK.
ENDIF.
ENDFORM. " CREATE_DOCUMENTSHow to use this new design ! When program start credit/debit memo , a pop-up ask to user 'Do you want to add credit/debit line ?' If yes, user has to fill out credit/debit memo request.
Implementation :
Run program (F8) .
Select line/s and click retroactive billing.
A pop-up will be asking for additional lines depend on credit/debit memo ! Because, SAP standard provide that you can only credit or debit line in one document !
If you select 'Yes', a new pop-up will be asking for referance document. Else, program will be working like a standard behaviour.
Click 'OK' , program will be add a new line in invoicing document ! Also, you can report these lines.
Look at referance document !
Document flow !
Regards.
M.Ozgur Unal
- SAP Managed Tags:
7 Comments
