Code: Alles auswählen.
|
|
|
|
*&---------------------------------------------------------------------*
*& Form CLOSE_DUNNING_FORM
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM close_dunning_form USING i_fsabe LIKE fsabe
i_finaa LIKE finaa
i_itcpp LIKE itcpp
i_itcpo LIKE itcpo
i_langu LIKE sy-langu
i_lang2 LIKE sy-langu
i_paymo LIKE paymo
i_archive_index LIKE toa_dara
i_archive_params LIKE arc_params.
*********************** Hier Enhancen mit *********************************
CASE i_finaa-nacha.
WHEN '1'. "Printer
*=== Absprung in Z-Include ===*
PERFORM close_dunning_form_NEU(ZCLOSE_DUN) USING i_itcpo i_paymo i_lang2.
WHEN '2'. "Fax
PERFORM close_dunning_form_fax.
WHEN 'I'. "Internet
PERFORM close_dunning_form_net USING i_fsabe i_finaa i_itcpp
i_itcpo i_langu
i_archive_index
i_archive_params.
WHEN OTHERS.
EXIT. "<========= !!! wichtig
*********************** Enhancen ENDE *********************************
CASE i_finaa-nacha.
WHEN '1'. "Printer
PERFORM close_dunning_form_print USING i_itcpo i_paymo i_lang2.
WHEN '2'. "Fax
PERFORM close_dunning_form_fax.
WHEN 'I'. "Internet
PERFORM close_dunning_form_net USING i_fsabe i_finaa i_itcpp
i_itcpo i_langu
i_archive_index
i_archive_params.
WHEN OTHERS.
ENDCASE.
ENDFORM. " CLOSE_DUNNING_FORM
*&---------------------------------------------------------------------*
*& Form CLOSE_DUNNING_FORM_PRINT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM close_dunning_form_print USING i_itcpo LIKE itcpo
i_paymo LIKE paymo
i_lang2 like sy-langu.
* declaration
DATA: h_err LIKE sy-subrc.
DATA t_fimsg LIKE fimsg OCCURS 0 WITH HEADER LINE.
DATA h_line LIKE sy-tabix.
* end the dunning print form
CALL FUNCTION 'END_FORM'
EXCEPTIONS
unopened = 1
OTHERS = 2.
h_err = sy-subrc.
* print the payment form
CALL FUNCTION 'PAYMENT_MEDIUM_PRINT'
EXPORTING
i_paymo = i_paymo
i_itcpo = i_itcpo
I_LANGUAGE = i_lang2
TABLES
t_fimsg = t_fimsg
EXCEPTIONS
OTHERS = 0.
DESCRIBE TABLE t_fimsg LINES h_line.
IF h_line <> 0.
LOOP AT t_fimsg.
CALL FUNCTION 'FI_MESSAGE_COLLECT'
EXPORTING
i_fimsg = t_fimsg
i_xappn = 'X'
EXCEPTIONS
msgid_missing = 1
msgno_missing = 2
msgty_missing = 3
OTHERS = 4.
ENDLOOP.
CLEAR t_fimsg[].
ENDIF.
IF h_err = 0.
CALL FUNCTION 'CLOSE_FORM'
EXCEPTIONS
unopened = 1
OTHERS = 2.
READ TABLE lsttab_paym WITH KEY t047e-listn.
IF sy-subrc = 0.
i_itcpo-tdnewid = space.
ELSE.
i_itcpo-tdnewid = 'X'.
lsttab_paym-listn = t047e-listn.
APPEND lsttab_paym.
ENDIF.
CALL FUNCTION 'PAYMENT_MEDIUM_PRINT'
EXPORTING
i_paymo = i_paymo
i_itcpo = i_itcpo
I_LANGUAGE = i_lang2
i_xopen = 'X'
EXCEPTIONS
OTHERS = 0.
DESCRIBE TABLE t_fimsg LINES h_line.
IF h_line <> 0.
LOOP AT t_fimsg.
CALL FUNCTION 'FI_MESSAGE_COLLECT'
EXPORTING
i_fimsg = t_fimsg
i_xappn = 'X'
EXCEPTIONS
msgid_missing = 1
msgno_missing = 2
msgty_missing = 3
OTHERS = 4.
ENDLOOP.
CLEAR t_fimsg[].
ENDIF.
ENDIF.
ENDFORM. " CLOSE_DUNNING_FORM_PRINT
|
|