VL31N 内向交货单抬头屏幕增强

事务代码：VL31N、VL32N、VL33N

增强方式：

一代增强：程序：MV50AFZ1 子程序：USEREXIT_MOVE_FIELD_TO_LIKP
二代增强：增强：V50R0003 组件：EXIT_SAPLV50R_CREA_001
三代增强：典型业务加载项：LE_SHP_TAB_CUST_HEAD

前台实现步骤

1. LIKP增加增强结构

2. 新建函数组，定义增强子屏幕

交货单抬头屏幕回传数据

交货单抬头数据传到屏幕


创建交货单抬头增强屏幕



创建PBO module，设置是否可输入

3. 交货单抬头屏幕增强

编辑方法

添加页签：EF_PROGRAM是程序名，EF_DYNPRO是屏幕号

将交货单抬头数据传到屏幕

将交货单抬头屏幕回传数据

4.效果图

通过VL31N创建入库交货单

BAPI实现步骤

1.代码向内存传入参数

2. 通过内存获取数据

3.效果图

PS：行项目增强

1.往LIPS增加自定义字段

2. 函数组下新增行项目函数（LIKP换成LIPS）

3. 函数组下新增屏幕9200（画屏幕，创建PBO事件）

MODULE status_9200 OUTPUT.
  LOOP AT SCREEN.
    IF gs_lips-wbsta = 'C'.
      screen-input = '0'.

      IF gc_editor IS NOT INITIAL.
        gc_editor->set_readonly_mode( 1 ).
      ENDIF.
    ELSE.
      ASSIGN ('(SAPMV50A)T180-TRTYP') TO <fs_any>.
      IF <fs_any> IS ASSIGNED.
        IF <fs_any> = 'A'.
          screen-input = '0'.

          IF gc_editor IS NOT INITIAL.
            gc_editor->set_readonly_mode( 1 ).
          ENDIF.
        ELSE.
          screen-input = '1'.

          IF gc_editor IS NOT INITIAL.
            gc_editor->set_readonly_mode( 0 ).
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.

    MODIFY SCREEN.
  ENDLOOP.

ENDMODULE.

4. 交货单行项目屏幕增强BADI：LE_SHP_TAB_CUST_ITEM（同上编辑三个方法）（迁移至增强点）

5. BAPI代码

6. 一代增强：MV50AFZ1 子程序：USEREXIT_MOVE_FIELD_TO_LIPS

参考文档