20170411 供应商保证金维护视图

对于自建表修改字段(主键/普通),可以尝试不重新生成SM30, 手动更改field.

PROCESS BEFORE OUTPUT.
 MODULE LISTE_INITIALISIEREN.
 LOOP AT EXTRACT WITH CONTROL
  TCTRL_ZV_ZTFI003 CURSOR NEXTLINE.
   MODULE LISTE_SHOW_LISTE.
 ENDLOOP.
*
PROCESS AFTER INPUT.
 MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.
 MODULE LISTE_BEFORE_LOOP.
 LOOP AT EXTRACT.
   MODULE LISTE_INIT_WORKAREA.
   CHAIN.
    FIELD ZV_ZTFI003-BUKRS .
    FIELD ZV_ZTFI003-QSSKZ .
    FIELD ZV_ZTFI003-QSBEZ .
    FIELD ZV_ZTFI003-WTGES .
    FIELD ZV_ZTFI003-WAERS .
    FIELD ZV_ZTFI003-DATUM .
    FIELD ZV_ZTFI003-UZEIT .
    FIELD ZV_ZTFI003-USNAM .
    MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.
    MODULE COMPLETE_ZV_ZTFI003 ON CHAIN-REQUEST.
*&->add by cx on 20170411
    MODULE GET_RECORD.      
      
   ENDCHAIN.
   FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.
   CHAIN.
    FIELD ZV_ZTFI003-BUKRS .
    FIELD ZV_ZTFI003-QSSKZ .
    MODULE LISTE_UPDATE_LISTE.
   ENDCHAIN.
 ENDLOOP.
 MODULE LISTE_AFTER_LOOP.

*----------------------------------------------------------------------*
***INCLUDE LZFG_FI_TABMAINTAI01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  GET_RECORD  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module GET_RECORD input.

IF ZV_ZTFI003-BUKRS NE SPACE AND ZV_ZTFI003-QSSKZ NE SPACE .

    ZV_ZTFI003-DATUM SY-DATUM .
    ZV_ZTFI003-UZEIT SY-UZEIT.
    ZV_ZTFI003-USNAM SY-UNAME.

ENDIF.
endmodule.                 " GET_RECORD  INPUT

!维护视图创建步骤

1.Ztable 中设定好检查表(为后续View做join)

 


2.SE11 创建ZV_xx维护视图,注意视图-Main.Status

 


3.通过表关系获得文本表,

 

系统自动生成表连接,

4.选择表中需要选择的字段,

5.可以通过Slection conditions 加入显示数据筛选条件:

 

得到:

 

原文地址:https://www.cnblogs.com/rainysblog/p/6696526.html