标签：table   line   record   upd   ***   blog   lag   nbsp   roc   

对于自建表修改字段（主键/普通），可以尝试不重新生成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 加入显示数据筛选条件：

得到：

20170411 供应商保证金维护视图

标签：table   line   record   upd   ***   blog   lag   nbsp   roc   

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