20170411 F110初始界面-建议清单

Posted Rainystuday

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了20170411 F110初始界面-建议清单相关的知识,希望对你有一定的参考价值。

 

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

以上是关于20170411 F110初始界面-建议清单的主要内容,如果未能解决你的问题,请参考以下文章

F110增强

20170421 F110 常见问题

20170413 F110学习

F110操作手册-自动付款

20170411oracle常用命令

20170411 debug窗口执行文件