Skip to Content
0
Jun 13, 2018 at 12:27 PM

Modification in Include LFIPIF00 - Form transaktion_beenden in Posting and Clearing open item

430 Views

Hello everybody,

I need your suggest, support for the following problem:

For a roll-out we need to copy some z program from one external SAP system to our Sap system environment. The z program in question is used for the lockboxprocessing.

The z program submit the standard program RFEBLB00, this standard program after different submit call the function module POSTING_INTERFACE_CLEARING where inside there is a form transaktion_beenden contained in the include LFIPIF00. Unfortunately, and this is the problem, the form has been modified adding the perform in attach modification.png

The subroutine create a batch input screen (FB05 ) in order to clear special case of payment in case of short/over pay.

Is like a workaround in order to avoid that the user has to made manually these extra operation.

Because the want to have this logic also in our system and we can't make modification like this on standard program, do you have any suggestion where can be this part placed in order to avoid to modify standard code?

Below an example of the code inside of the form:

data: l_tabix like sy-tabix.


  l_tabix = lines( ft ).
  read table ft index l_tabix.
  if ft-fnam = 'BDC_OKCODE'.
    ft-fval = '=PA'.
    modify ft index l_tabix.
  endif.
* residual screen with a single item and amount fr AVIR
  if p_avip-difhw is not initial.
    clear ft.
    ft-program  = 'SAPDF05X'.
    ft-dynpro   = '3100'.
    ft-dynbegin = 'X'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_CURSOR'.
    ft-fval     = 'DF05B-PSDIF(01)'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_OKCODE'.
    ft-fval     = '=OSU'.
    append ft.
*   search window
    ft-program  = 'SAPDF05X'.
    ft-dynpro   = '2000'.
    ft-dynbegin = 'X'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_CURSOR'.
    ft-fval     = 'RF05A-XPOS1(03)'.
    append ft.
    clear ft.
    ft-fnam     = 'RF05A-XPOS1(01)'.
    ft-fval     = ' '.
    append ft.
    clear ft.
    ft-fnam     = 'RF05A-XPOS1(03)'.
    ft-fval     = 'X'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_OKCODE'.
    ft-fval     = '=GO'.
    append ft.


    ft-program  = 'SAPDF05X'.
    ft-dynpro   = '0731'.
    ft-dynbegin = 'X'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_CURSOR'.
    ft-fval     = 'RF05A-SEL01(01)'.
    append ft.
    clear ft.
    ft-fnam     = 'RF05A-SEL01(01)'.
    ft-fval     = p_avip-xref1.
    SHIFT ft-fval LEFT DELETING LEADING ' '.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_OKCODE'.
    ft-fval     = '=GO'.
    append ft.


    ft-program  = 'SAPDF05X'.
    ft-dynpro   = '3100'.
    ft-dynbegin = 'X'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_CURSOR'.
    ft-fval     = 'DF05B-PSDIF(01)'.
    append ft.
    clear ft.
    ft-fnam     = 'DF05B-PSDIF(01)'.
    ft-fval     = p_avip-difhw.
    SHIFT ft-fval LEFT DELETING LEADING ' '.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_OKCODE'.
    ft-fval     = '/00'.
    append ft.


    ft-program  = 'SAPDF05X'.
    ft-dynpro   = '3100'.
    ft-dynbegin = 'X'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_CURSOR'.
    ft-fval     = 'DF05B-PSDIF(01)'.
    append ft.
    clear ft.
    ft-fnam     = 'RF05A-ABPOS'.
    ft-fval     = '1'.
    append ft.
    ft-fnam     = 'BDC_OKCODE'.
    ft-fval     = '=OSE'.
    append ft.
    clear ft.
    ft-program  = 'SAPDF05X'.
    ft-dynpro   = '3100'.
    ft-dynbegin = 'X'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_CURSOR'.
    ft-fval     = 'DF05B-PSDIF(01)'.
    append ft.
    clear ft.
    ft-fnam     = 'BDC_OKCODE'.
    ft-fval     = '=MAIN'.
    append ft.
  endif.
  clear ft.
  ft-program  = 'SAPDF05X'.
  ft-dynpro   = '3100'.
  ft-dynbegin = 'X'.
  append ft.
  clear ft.
  ft-fnam     = 'BDC_CURSOR'.
  ft-fval     = 'DF05B-PSSKT(01)'.
  append ft.
  clear ft.
  ft-fnam     = 'RF05A-ABPOS'.
  ft-fval     = '1'.
  append ft.
  clear ft.
  ft-fnam     = 'BDC_OKCODE'.
  ft-fval     = '=OMX'.
  append ft.
  clear ft.
  ft-program  = 'SAPDF05X'.
  ft-dynpro   = '3100'.
  ft-dynbegin = 'X'.
  append ft.
  clear ft.
  ft-fnam     = 'BDC_CURSOR'.
  ft-fval     = 'DF05B-PSSKT(01)'.
  append ft.
  clear ft.
  ft-fnam     = 'RF05A-ABPOS'.
  ft-fval     = '1'.
  append ft.
  clear ft.
  ft-fnam     = 'BDC_OKCODE'.
  ft-fval     = '=Z-S'.
  append ft.
  clear ft.
  ft-program  = 'SAPDF05X'.
  ft-dynpro   = '3100'.
  ft-dynbegin = 'X'.
  append ft.
  clear ft.
  ft-fnam     = 'BDC_CURSOR'.
  ft-fval     = 'DF05B-PSSKT(01)'.
  append ft.
  clear ft.
  ft-fnam     = 'RF05A-ABPOS'.
  ft-fval     = '1'.
  append ft.
  clear ft.
  ft-fnam     = 'BDC_OKCODE'.
  ft-fval     = '=BU'.
  append ft.

Attachments

modification.png (30.5 kB)