CMOD:PCSD0002
1.创建:CI_STPO结构并维护客户字段:字段参考数据元素
2.CMOD: 创建项目并分配 PCSD0002
EXIT_SAPLCSDI_002
*&---------------------------------------------------------------------*
*& 包含 ZXCSAU02
*&---------------------------------------------------------------------*
MOVE-CORRESPONDING userdata TO ci_stpo.
IF ctrldata-aktyp = 'A'.
gv_edit = abap_true.
ELSE.
gv_edit = ''.
ENDIF.
EXIT_SAPLCSDI_003
*&---------------------------------------------------------------------*
*& 包含 ZXCSAU03
*&---------------------------------------------------------------------*
MOVE-CORRESPONDING ci_stpo TO userdata.
ZXCSATOP: 维护全局变量
*&---------------------------------------------------------------------*
*& 包含 ZXCSATOP
*&---------------------------------------------------------------------*
TABLES: ci_stpo.
DATA gv_edit(1).
3.创建屏幕:屏幕类型:子屏幕


*----------------------------------------------------------------------*
***INCLUDE ZXCSAO01.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_1000 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE status_1000 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
IF gv_edit = abap_true.
LOOP AT SCREEN.
screen-input = '0'.
MODIFY SCREEN.
ENDLOOP.
ENDIF.
ENDMODULE.
BAPI
CSAP_MAT_BOM_CREATE中的表参数 t_stpo 可直接维护 自定义字段;
实现效果

892

被折叠的 条评论
为什么被折叠?



