20170411 F110初始界面-建议清单

Posted 2020-09-09 Rainystuday

 

功能块代码              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.