Retroactive Billing – VFRB Modification to add credit/debit line

Retro billing process is used to create price differences documents (credit / debit memo) after price changes in SAP.

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_DOCUMENTS

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 !