VL01N/VL02N/VL03N项目的屏幕增强详解编程语言

VL01N/VL02N/VL03N项目的屏幕增强

步骤:

1.在表lips中加入附加结构并激活:

2.SE80新建功能组ZFG_DELIVERY_ENHC:

　　(1)创建功能模块ZSET_DELIVERY_ITEM_SCRN_VAL以获取主程序数据:

FUNCTION ZSET_DELIVERY_ITEM_SCRN_VAL. 
*"---------------------------------------------------------------------- 
*"*"本地接口： 
*"  IMPORTING 
*"     REFERENCE(I_LIPS) TYPE  LIPS 
*"---------------------------------------------------------------------- 
 
  gv_prueflos = i_lips-prueflos. 
  gv_vcode    = i_lips-vcode. 
 
  si_lips = i_lips. 
 
ENDFUNCTION.

　　(2)创建功能模块ZGET_DELIVERY_ITEM_SCRN_VAL将数据输出给主程序:

FUNCTION ZGET_DELIVERY_ITEM_SCRN_VAL. 
*"---------------------------------------------------------------------- 
*"*"本地接口： 
*"  EXPORTING 
*"     REFERENCE(E_LIPS) TYPE  LIPS 
*"---------------------------------------------------------------------- 
 
  e_lips-prueflos = gv_prueflos. 
  e_lips-vcode    = gv_vcode. 
 
  so_lips = e_lips. 
 
ENDFUNCTION.

　　(3)创建屏幕1001

*----------------------------------------------------------------------* 
***INCLUDE LZFG_DELIVERY_ENHCO01. 
*----------------------------------------------------------------------* 
*&---------------------------------------------------------------------* 
*&      Module  GET_ITEM  OUTPUT 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
MODULE GET_ITEM OUTPUT. 
  DATA scr_vbeln TYPE lips-vbeln. 
  DATA scr_posnr TYPE char6. 
 
*  取使用决策描述 
  DATA vcodetxt  TYPE qpct-kurztext. 
  DATA ls_qals   TYPE qals. 
  DATA ls_qave   TYPE qave. 
  DATA ls_qpac   TYPE qpac. 
  DATA ls_qpct   TYPE qpct. 
*  BREAK ybin. 
 
* ----- 屏幕vbeln 
  scr_vbeln = si_lips-vbeln. 
 
* ----- 屏幕posnr 
  scr_posnr = si_lips-posnr. 
 
* ----- 屏幕prueflos 
  lips-prueflos = si_lips-prueflos. 
 
* ----- 屏幕vcode 
  lips-vcode    = si_lips-vcode. 
 
* ----- 屏幕使用决策描述:vcodetxt 
  CLEAR: ls_qals, ls_qave, ls_qpac, ls_qpct. 
*  取qals 
  SELECT SINGLE * 
    INTO CORRESPONDING FIELDS OF ls_qals 
    FROM qals 
    WHERE prueflos = lips-prueflos 
      AND art      = 'Z03' 
      AND herkunft = '10'. 
 
*  取qave 
  IF ls_qals IS NOT INITIAL. 
    SELECT SINGLE * 
      INTO CORRESPONDING FIELDS OF ls_qave 
      FROM qave 
      WHERE prueflos = ls_qals-prueflos 
        AND kzart = 'L'. 
 
*    取qpac 
    IF ls_qave IS NOT INITIAL. 
      SELECT SINGLE * 
        INTO CORRESPONDING FIELDS OF ls_qpac 
        FROM qpac 
        WHERE katalogart = ls_qave-vkatart 
          AND werks      = ls_qave-vwerks 
          AND auswahlmge = ls_qave-vauswahlmg 
          AND codegruppe = ls_qave-vcodegrp 
          AND code       = ls_qave-vcode 
          AND versionam  = ls_qave-versionam. 
 
*      取qpct 
      IF ls_qpac IS NOT INITIAL. 
        SELECT SINGLE * 
          INTO CORRESPONDING FIELDS OF ls_qpct 
          FROM qpct 
          WHERE katalogart = ls_qpac-katalogart 
            AND codegruppe = ls_qpac-codegruppe 
            AND code       = ls_qpac-code 
            AND version    = ls_qpac-versionam 
            AND sprache    = 1. 
 
        IF ls_qpct IS NOT INITIAL. 
          vcodetxt = ls_qpct-kurztext. 
        ENDIF. 
      ENDIF. 
    ENDIF. 
  ENDIF. 
 
ENDMODULE.

3.SE18:

　　BADI name: LE_SHP_TAB_CUST_ITEM –> Display

4.继续创建实现类ZCL_IM_IMPL_LE_SHP_TAB_IT:

方法 IF_EX_LE_SHP_TAB_CUST_ITEM~ACTIVATE_TAB_PAGE:

  method IF_EX_LE_SHP_TAB_CUST_ITEM~ACTIVATE_TAB_PAGE. 
    ef_caption = '检验结果'. 
    ef_position = '11'. 
    ef_program = 'SAPLZFG_DELIVERY_ENHC'. 
    ef_dynpro = '1001'. 
    cs_v50agl_cust = 'X'. 
  endmethod.

方法 IF_EX_LE_SHP_TAB_CUST_ITEM~TRANSFER_DATA_TO_SUBSCREEN:

  method IF_EX_LE_SHP_TAB_CUST_ITEM~TRANSFER_DATA_TO_SUBSCREEN. 
*    BREAK ybin. 
    CALL FUNCTION 'ZSET_DELIVERY_ITEM_SCRN_VAL' 
      EXPORTING 
        i_lips = is_lips. 
  endmethod.

方法 IF_EX_LE_SHP_TAB_CUST_ITEM~TRANSFER_DATA_FROM_SUBSCREEN:

  method IF_EX_LE_SHP_TAB_CUST_ITEM~TRANSFER_DATA_FROM_SUBSCREEN. 
*    BREAK ybin. 
    CALL FUNCTION 'ZGET_DELIVERY_ITEM_SCRN_VAL' 
      IMPORTING 
        e_lips = cs_lips. 
  endmethod.

5.QA32 –> 使用决策 –> QA11: