功能块代码 F110
开发类 FIBP
事务说明 自动付款参数
程序 SAPF110V
屏幕号码 200
权限对象 F_REGU_BUK
1.F110 标准界面记录
PROCESS BEFORE OUTPUT.
MODULE INIT_0200.
*
CALL SUBSCREEN SUBSCREEN_BODY INCLUDING ‘SAPF110V‘ TABSTRIP_DYNNR.
MODULE STATUS_0200.
PROCESS AFTER INPUT.
MODULE EXIT AT EXIT-COMMAND.
CALL SUBSCREEN SUBSCREEN_BODY.
CHAIN.
FIELD F110V-LAUFD.
FIELD F110V-LAUFI.
MODULE INPUT_0200.
ENDCHAIN.
PROCESS ON VALUE-REQUEST.
FIELD F110V-LAUFD MODULE F4_LAUFD_0200.
FIELD F110V-LAUFI MODULE F4_LAUFI_0200.
*&1.F4_LAUFD_0200
MODULE F4_LAUFD_0200.
REFRESH TLAUFK.
TLAUFK-LAUFK = SPACE.
TLAUFK-SIGN = ‘I‘.
APPEND TLAUFK.
CALL FUNCTION ‘F4_ZAHLLAUF‘
EXPORTING
F1TYP = ‘D‘
F2NME = ‘F110V-LAUFI‘
IMPORTING
LAUFD = F110V-LAUFD
LAUFI = F110V-LAUFI
NOTHING_SELECTED = xf4_c1
TABLES
LAUFK = TLAUFK.
IF xf4_c1 IS INITIAL.
LEAVE TO SCREEN 200.
ENDIF.
ENDMODULE. "f4_laufd_0200
*&2.FIELD F110V-LAUFI
MODULE F4_LAUFI_0200
MODULE F4_LAUFI_0200.
REFRESH TLAUFK.
TLAUFK-LAUFK = SPACE.
TLAUFK-SIGN = ‘I‘.
APPEND TLAUFK.
CALL FUNCTION ‘F4_ZAHLLAUF‘
EXPORTING
F1TYP = ‘I‘
F2NME = ‘F110V-LAUFD‘
IMPORTING
LAUFD = F110V-LAUFD
LAUFI = F110V-LAUFI
NOTHING_SELECTED = xf4_c1
TABLES
LAUFK = TLAUFK.
IF xf4_c1 IS INITIAL.
LEAVE TO SCREEN 200.
ENDIF.
ENDMODULE. "f4_laufi_0200
2.付款建议清单修改
F0082
报表 ZFIR_001 在这里不能用; 请改正
消息号
F0082
诊断
此报表不评估任何付款数据或付款建议数据。
步骤
请输入一个允许的报表名称。
SAPF110V
/ F110VFL0
FORM
/ LISTPROGRAMM_PRUEFEN
CALL FUNCTION ‘SELOPTS_AND_PARAMS‘
EXPORTING
program = f110v-lprog
TABLES
selpars = lt_selpars
EXCEPTIONS
program_non_existent = 1
subroutine_pool = 2
load_problems = 3
OTHERS = 4.
1.当：F110V-LPROG = ZFIR_001
检查选择条件：
READ TABLE lt_selpars WITH KEY name = ‘ZW_LAUFD‘.
IF sy-subrc eq 0.
READ TABLE lt_selpars WITH KEY name = ‘ZW_LAUFI‘.
ENDIF.
2.当：F110V-LPROG = RFZALI20
3.得到F110 调用建议清单标准信息：
SAPF110V / F110VFO0
FORM: OKCOD_STA
WHEN ‘VOLI‘
LISTTYP = OK-CODE.
PERFORM VARIANTEN_WINDOW.
SUBMIT (F110V-LPROG) AND RETURN USING SELECTION-SET F110V-VARL1
WITH ZW_LAUFD INCL F110V-LAUFD
WITH ZW_LAUFI INCL F110V-LAUFI
WITH ZW_XVORL INCL ‘X‘.
F110V-LAUFD = 2017.03.20
F110V-LAUFI = WX000
包括
F110VFL0
FORM listprogramm_pruefen using f110v-lprog like f110v-lprog
changing ld_error_message type c.
DATA lt_selpars LIKE TABLE OF rsel_paras WITH HEADER LINE.
SELECT SINGLE * FROM trdir WHERE name = f110v-lprog.
IF sy-subrc ne 0.
IF ld_error_message = ‘X‘.
MESSAGE e081 WITH f110v-lprog.
ENDIF.
ld_error_message = ‘X‘.
EXIT.
ENDIF.
IF trdir-ldbname ne ‘PYF‘.
CALL FUNCTION ‘SELOPTS_AND_PARAMS‘
EXPORTING
program = f110v-lprog
TABLES
selpars = lt_selpars
EXCEPTIONS
program_non_existent = 1
subroutine_pool = 2
load_problems = 3
OTHERS = 4.
IF sy-subrc ne 0.
IF ld_error_message = ‘X‘.
MESSAGE e081 WITH f110v-lprog.
ENDIF.
ld_error_message = ‘X‘.
EXIT.
ENDIF.
READ TABLE lt_selpars WITH KEY name = ‘ZW_LAUFD‘.
IF sy-subrc eq 0.
READ TABLE lt_selpars WITH KEY name = ‘ZW_LAUFI‘.
ENDIF.
IF sy-subrc ne 0.
IF ld_error_message = ‘X‘.
MESSAGE e082 WITH f110v-lprog.
ENDIF.
ld_error_message = ‘X‘.
EXIT.
ENDIF.
ENDIF.
ENDFORM.