首页 > 代码库 > 20170411 供应商保证金维护视图
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 加入显示数据筛选条件:
得到:
20170411 供应商保证金维护视图