ZVT003出闸纸列印

最新推荐文章于 2024-09-03 08:56:09 发布

yong325

最新推荐文章于 2024-09-03 08:56:09 发布

阅读量221

点赞数

分类专栏： SD模块 SAP 文章标签： SD

本文链接：https://blog.csdn.net/yong325/article/details/8736389

版权

SAP 同时被 2 个专栏收录

433 篇文章 4 订阅

订阅专栏

SD模块

47 篇文章 0 订阅

订阅专栏

恐怕很多了都很陌生吧。啥东西叫做出闸纸咯。咳！其实它为公司指示货柜堆场将吉柜（即空柜）交与本单持有人的书面凭证，重柜与吉柜进出码头均受到海关监控，出CY的柜须有“出闸放行条”（有人称“出闸纸”）。简单点引申为：放行条。大家先看看效果。列印中用到scriptform.有不了解的童鞋可以参考我之前的教程： SAP ScriptForms 教程系列 http://blog.csdn.net/jiali765/article/details/7041900 。最终的效果为：

现在接着来看看代码：

[plain] view plain copy print ?

*&---------------------------------------------------------------------*
*& Report ZVT003
*&---------------------------------------------------------------------*
* Author : Jasson.Lee

*&---------------------------------------------------------------------*
*& Report  ZVT003
*&---------------------------------------------------------------------*
* Author  : Jasson.Lee

[plain] view plain copy print ?

Date 2011.07.29
* Purpose :
* Modi Log: 2011.07.29 Gavin Create
* Modi Log: 2011.08.23 Gavin 出货数改为整数
* Modi Log: 2011.08.24 Gavin 出货数改为字符型，以便于报关修正
* Modi Log: 2011.08.25 Gavin 增加备注
* Modi Log: 2012.02.04 Gavin 增加名称栏位宽度
*----------------------------------------------------------------------
REPORT ZVT003.
TABLES: VTTK,VTTP,VEKP,VEPO.
TYPE-POOLS: SLIS.
*--------------------------------
* Selection Screen
*--------------------------------
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
P_TKNUM LIKE VTTK-TKNUM OBLIGATORY . "SHIPMETN NO.
SELECTION-SCREEN END OF BLOCK B1.
* For Line Items
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS:
P_CHK AS CHECKBOX DEFAULT '',
P1 TYPE I DEFAULT 0,
P2(50) TYPE C.
SELECTION-SCREEN END OF BLOCK B2.
*****************************************************************************
DATA: G_STATUS TYPE SLIS_FORMNAME VALUE 'STANDARD_02'. "加工具栏
DATA:
I_FIELDCAT_ALV TYPE SLIS_T_FIELDCAT_ALV,
I_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
I_LAYOUT TYPE SLIS_LAYOUT_ALV,
I_EVENTS TYPE SLIS_T_EVENT,
W_EVENTS LIKE LINE OF I_EVENTS,
I_LIST_COMMENTS TYPE SLIS_T_LISTHEADER,
W_LIST_COMMENTS LIKE LINE OF I_LIST_COMMENTS,
W_REPID LIKE SY-REPID.
DATA:
W_LOOP TYPE SY-TABIX,
L_PROD_NUM1 TYPE CO_PSMNG,
L_PROD_NUM2 TYPE CO_PSMNG.
DATA: BEGIN OF I_TAB0 OCCURS 0,
TKNUM LIKE VTTK-TKNUM,
ERDAT LIKE VTTK-ERDAT,
EXTI1 LIKE VTTK-EXTI1,
EXTI2 LIKE VTTK-EXTI2,
END OF I_TAB0.
DATA: BEGIN OF I_TAB1 OCCURS 0,
TKNUM LIKE VTTP-TKNUM,
VBELN LIKE LIPS-VBELN,
MATNR LIKE LIPS-MATNR,
ARKTX LIKE LIPS-ARKTX,
LFIMG LIKE LIPS-LFIMG,
VPOBJKEY LIKE VEKP-VPOBJKEY,
END OF I_TAB1.
DATA: BEGIN OF I_TAB2 OCCURS 0,
VENUM LIKE VEKP-VENUM,
VPOBJKEY LIKE VEKP-VPOBJKEY,
BRGEW LIKE VEKP-BRGEW,
VBELN LIKE VEPO-VBELN,
POSNR LIKE VEPO-POSNR,
MATNR LIKE VEPO-MATNR,
VEMNG LIKE VEPO-VEMNG,
END OF I_TAB2.
DATA: BEGIN OF I_TAB3 OCCURS 0,
MATNR LIKE LIPS-MATNR,
BRGEW LIKE VEKP-BRGEW,
VEMNG LIKE VEPO-VEMNG,
END OF I_TAB3.
DATA: BEGIN OF I_TAB4 OCCURS 0,
TKNUM LIKE VTTP-TKNUM,
MATNR LIKE LIPS-MATNR,
ARKTX LIKE LIPS-ARKTX,
LFIMG TYPE I,"LIKE LIPS-LFIMG,
VEMNG TYPE I,"LIKE VEPO-VEMNG,
BRGEW TYPE I,"LIKE VEKP-BRGEW,
VEMNG1 TYPE I,"LIKE VEPO-VEMNG,
BRGEW1 TYPE I,"LIKE VEKP-BRGEW,
LFIMG1(10) TYPE C,"LIKE LIPS-LFIMG,
END OF I_TAB4.
DATA: BEGIN OF I_TAB5 OCCURS 0,
TKNUM LIKE VTTP-TKNUM,
MATNR LIKE LIPS-MATNR,
ARKTX LIKE LIPS-ARKTX,
LFIMG TYPE I,"LIKE LIPS-LFIMG,
VEMNG TYPE I,"LIKE VEPO-VEMNG,
BRGEW TYPE I,"LIKE VEKP-BRGEW,
VEMNG1 TYPE I,"LIKE VEPO-VEMNG,
BRGEW1 TYPE I,"LIKE VEKP-BRGEW,
END OF I_TAB5.
DATA :P_COCO LIKE KNB1-BUKRS.
DATA :W_TOTAL(10) TYPE C.
DATA :W_LOOP1 LIKE SY-TABIX.
DATA :W_LOOP2 LIKE SY-TABIX.
DATA :W_LOOP3 LIKE SY-TABIX.
DATA SCOUNT(8).
DATA :RCOUNT LIKE SY-TABIX.
DATA LSTR(20).
DATA LSTR1(40).
DATA LSTR2(40).
DATA LSTR3(100).
DATA LSTR4(40).
DATA LSTR5(40).
*--------------------------------
* Initialization
*--------------------------------
INITIALIZATION.
*--------------------------------
* At Selection Screen PBO
*--------------------------------
AT SELECTION-SCREEN OUTPUT.
*--------------------------------
* Start of Selection
*--------------------------------
START-OF-SELECTION.
PERFORM GET_DATA.
PERFORM PROCESS_DATA.
PERFORM CAL_DATA.
PERFORM EVENTS_BUILD.
PERFORM LAYOUT_BUILD.
PERFORM FIELDS_BUILD.
PERFORM DISPLAY_DATA.
END-OF-SELECTION.
*--------------------------------
* Top of Page
*--------------------------------
TOP-OF-PAGE.
*&---------------------------------------------------------------------*
*& Form get_data
*&---------------------------------------------------------------------*
FORM GET_DATA.
* 主档
SELECT K~TKNUM K~ERDAT K~EXTI1 K~EXTI2 INTO TABLE I_TAB0
FROM VTTK AS K
WHERE K~TKNUM = P_TKNUM.
*
SELECT T~TKNUM P~VBELN P~MATNR P~ARKTX P~LFIMG INTO TABLE I_TAB1
FROM VTTP AS T INNER JOIN LIPS AS P ON T~VBELN = P~VBELN
WHERE T~TKNUM = P_TKNUM
AND P~LFIMG > 0 AND P~POSNR >= '900001' .
L_PROD_NUM1 = 0.
LOOP AT I_TAB1.
W_LOOP = SY-TABIX.
L_PROD_NUM1 = L_PROD_NUM1 + I_TAB1-LFIMG.
I_TAB1-VPOBJKEY = I_TAB1-VBELN.
MODIFY I_TAB1 INDEX W_LOOP.
SY-TABIX = W_LOOP + 1.
ENDLOOP.
* 取得出包装箱数
SELECT K~VENUM K~VPOBJKEY K~BRGEW P~VBELN P~POSNR P~MATNR P~VEMNG
INTO TABLE I_TAB2
FROM VEKP AS K LEFT JOIN VEPO AS P ON K~VENUM = P~VENUM
FOR ALL ENTRIES IN I_TAB1
WHERE K~VPOBJKEY = I_TAB1-VPOBJKEY AND K~STATUS = '0020'.
L_PROD_NUM2 = 0.
LOOP AT I_TAB2.
L_PROD_NUM2 = L_PROD_NUM2 + I_TAB2-BRGEW.
ENDLOOP.
ENDFORM. "get_data
*&---------------------------------------------------------------------*
*& Form process_data
*&---------------------------------------------------------------------*
FORM PROCESS_DATA .
LOOP AT I_TAB2.
W_LOOP = SY-TABIX.
I_TAB3-MATNR = I_TAB2-MATNR.
I_TAB3-BRGEW = I_TAB2-BRGEW.
I_TAB3-VEMNG = I_TAB2-VEMNG.
COLLECT I_TAB3.
SY-TABIX = W_LOOP + 1.
ENDLOOP.
LOOP AT I_TAB1.
W_LOOP = SY-TABIX.
I_TAB4-TKNUM = I_TAB1-TKNUM.
I_TAB4-MATNR = I_TAB1-MATNR.
I_TAB4-ARKTX = I_TAB1-ARKTX.
I_TAB4-LFIMG = I_TAB1-LFIMG.
COLLECT I_TAB4.
SY-TABIX = W_LOOP + 1.
ENDLOOP.
SORT I_TAB3 BY MATNR.
* SORT I_TAB4 BY MATNR.
LOOP AT I_TAB4.
W_LOOP = SY-TABIX.
CLEAR I_TAB3.
READ TABLE I_TAB3 WITH KEY MATNR = I_TAB4-MATNR BINARY SEARCH.
IF SY-SUBRC = 0.
I_TAB4-BRGEW = I_TAB3-BRGEW.
I_TAB4-VEMNG = I_TAB3-VEMNG. "输入前值
I_TAB4-LFIMG = I_TAB3-VEMNG. "
I_TAB4-BRGEW1 = L_PROD_NUM2.
I_TAB4-VEMNG1 = L_PROD_NUM1.
ENDIF.
I_TAB4-LFIMG1 = I_TAB4-LFIMG. "数量转成字符
MODIFY I_TAB4 INDEX W_LOOP.
SY-TABIX = W_LOOP + 1.
ENDLOOP.
I_TAB4-TKNUM = ''.
I_TAB4-MATNR = ''.
I_TAB4-ARKTX = ''.
I_TAB4-BRGEW = 0.
I_TAB4-VEMNG = 0. "输入前值
I_TAB4-LFIMG1 = '0'. "
I_TAB4-LFIMG = 0. "
I_TAB4-BRGEW1 = 0.
I_TAB4-VEMNG1 = 0.
IF P_CHK = 'X'.
DO P1 TIMES.
APPEND I_TAB4.
ENDDO.
ENDIF.
ENDFORM. " process_data
*&---------------------------------------------------------------------*
*& Form Form_Open
*&---------------------------------------------------------------------*
FORM FORM_OPEN .
CALL FUNCTION 'OPEN_FORM'
EXPORTING
FORM = 'ZSHIPMENT_DOC2'
LANGUAGE = SY-LANGU
DIALOG = 'X'
* DEVICE = SCREEN
EXCEPTIONS
OTHERS = 1.
ENDFORM. " Form_Open
*&---------------------------------------------------------------------*
*& Form write_form
*&---------------------------------------------------------------------*
FORM WRITE_FORM USING ELEMENT
WINDOW
TYPE.
CALL FUNCTION 'WRITE_FORM'
EXPORTING
ELEMENT = ELEMENT
WINDOW = WINDOW
TYPE = TYPE.
ENDFORM. " write_form
*&---------------------------------------------------------------------*
*& Form FORM_CLOSE
*&---------------------------------------------------------------------*
FORM FORM_CLOSE.
CALL FUNCTION 'CLOSE_FORM'
EXCEPTIONS
OTHERS = 1.
ENDFORM. " FORM_CLOSE
*&---------------------------------------------------------------------*
*& Form CAL_DATA
*&---------------------------------------------------------------------*
FORM CAL_DATA .
DESCRIBE TABLE I_TAB4 LINES RCOUNT.
SCOUNT = RCOUNT.
CONCATENATE '符合条件的记录数：' SCOUNT INTO LSTR.
IF I_TAB4[] IS INITIAL .
MESSAGE I000(ZMSG) WITH '没找到对应的数据,请更改查询条件'.
LEAVE LIST-PROCESSING .
ENDIF.
ENDFORM. " CAL_DATA
*&---------------------------------------------------------------------*
*& Form EVENTS_BUILD
*&---------------------------------------------------------------------*
FORM EVENTS_BUILD .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = I_EVENTS.
* 页眉
READ TABLE I_EVENTS WITH KEY NAME = 'TOP_OF_PAGE' INTO W_EVENTS.
IF SY-SUBRC = 0.
MOVE 'ALV_TOP_OF_PAGE' TO W_EVENTS-FORM.
MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
ENDIF.
* 页尾
READ TABLE I_EVENTS WITH KEY NAME = 'END_OF_LIST' INTO W_EVENTS.
IF SY-SUBRC = 0.
MOVE 'ALV_END_OF_LIST' TO W_EVENTS-FORM.
MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
ENDIF.
* 页跳转
READ TABLE I_EVENTS WITH KEY NAME = 'USER_COMMAND' INTO W_EVENTS.
IF SY-SUBRC = 0.
MOVE 'USER_COMMAND' TO W_EVENTS-FORM.
MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
ENDIF.
ENDFORM. " EVENTS_BUILD
*&--------------------------------------------------------------------*
*& Form ALV_END_OF_LIST
*&--------------------------------------------------------------------*
FORM ALV_TOP_OF_PAGE.
CLEAR: I_LIST_COMMENTS.
W_LIST_COMMENTS-TYP = 'H'.
W_LIST_COMMENTS-KEY = ''.
W_LIST_COMMENTS-INFO = ' '.
APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
CLEAR W_LIST_COMMENTS.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = I_LIST_COMMENTS
I_END_OF_LIST_GRID = 'X'.
ENDFORM. "ALV_TOP_OF_PAGE
*&--------------------------------------------------------------------*
*& Form ALV_END_OF_LIST
*&--------------------------------------------------------------------*
FORM ALV_END_OF_LIST.
CLEAR: I_LIST_COMMENTS.
W_LIST_COMMENTS-TYP = 'H'.
W_LIST_COMMENTS-KEY = ''.
W_LIST_COMMENTS-INFO = LSTR.
APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
CLEAR W_LIST_COMMENTS.
W_LIST_COMMENTS-TYP = 'S'.
W_LIST_COMMENTS-KEY = ''.
W_LIST_COMMENTS-INFO = ' 报表开发者：IT部--Jasson 重新开发日期：2011/07/29'.
APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
CLEAR W_LIST_COMMENTS.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = I_LIST_COMMENTS
I_END_OF_LIST_GRID = 'X'.
ENDFORM. "ALV_END_OF_LIST
*&---------------------------------------------------------------------*
*& Form LAYOUT_BUILD
*&---------------------------------------------------------------------*
FORM LAYOUT_BUILD .
I_LAYOUT-ZEBRA = 'X' . " 显示界面成色带交替
I_LAYOUT-DETAIL_POPUP = 'X'. "弹出详细信息窗口
I_LAYOUT-INFO_FIELDNAME = 'COLOR'. "颜色值
* I_LAYOUT-COLWIDTH_OPTIMIZE = 'X'. "优化列宽选项
I_LAYOUT-DETAIL_INITIAL_LINES = 'X'.
I_LAYOUT-DETAIL_TITLEBAR = '出闸纸打印'.
I_LAYOUT-NO_COLHEAD =' '.
* I_LAYOUT-BOX_FIELDNAME = 'BOX' . " 指明复选框
W_REPID = SY-REPID.
ENDFORM. " LAYOUT_BUILD
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
FORM DISPLAY_DATA .
* CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
I_CALLBACK_USER_COMMAND = 'USER_COMMAND' "用户触发事件
I_CALLBACK_PF_STATUS_SET = G_STATUS "调用用户事件和按钮事件
I_CALLBACK_PROGRAM = W_REPID "当前程序
IS_LAYOUT = I_LAYOUT "子函数layout_build填充的格式定义
IT_FIELDCAT = I_FIELDCAT_ALV[] "子函数fields填充的各列
IT_EVENTS = I_EVENTS[]
I_SAVE = 'A' "保存变式
TABLES
T_OUTTAB = I_TAB4. "假设数据都在itab内表中
ENDFORM. " DISPLAY_DATA
*-----------------------------------------------------------------------
* FORM PF_STATUS_SET 加工具栏
*-----------------------------------------------------------------------
FORM STANDARD_02 USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STD' EXCLUDING EXTAB.
ENDFORM. "STANDARD_02
*&---------------------------------------------------------------------*
*& Form USER_COMMAND
*&---------------------------------------------------------------------*
FORM USER_COMMAND USING I_UCOMM LIKE SY-UCOMM
SELFIELD TYPE SLIS_SELFIELD.
CLEAR I_TAB5[].
IF P_CHK = ''.
LOOP AT I_TAB4 .
IF I_TAB4-TKNUM <> ''.
MOVE-CORRESPONDING I_TAB4 TO I_TAB5.
I_TAB5-LFIMG = I_TAB4-LFIMG1.
APPEND I_TAB5.
ENDIF.
ENDLOOP.
* I_TAB5[] = I_TAB4[].
ELSE.
L_PROD_NUM1 = 0.
L_PROD_NUM2 = 0.
LOOP AT I_TAB4.
I_TAB4-LFIMG = I_TAB4-LFIMG1.
L_PROD_NUM1 = L_PROD_NUM1 + I_TAB4-LFIMG.
L_PROD_NUM2 = L_PROD_NUM2 + I_TAB4-BRGEW.
ENDLOOP.
LOOP AT I_TAB4 .
IF I_TAB4-TKNUM <> ''.
I_TAB4-VEMNG = I_TAB4-LFIMG1.
I_TAB4-BRGEW1 = L_PROD_NUM2.
I_TAB4-VEMNG1 = L_PROD_NUM1.
MOVE-CORRESPONDING I_TAB4 TO I_TAB5.
I_TAB5-LFIMG = I_TAB4-LFIMG1.
APPEND I_TAB5.
ENDIF.
ENDLOOP.
ENDIF.
CASE I_UCOMM.
WHEN '&PRT'.
IF I_TAB5[] IS INITIAL.
MESSAGE I000(ZMSG) WITH '没有要打印的物料.'.
ELSE.
PERFORM FORM_OPEN.
IF SY-SUBRC = 0.
READ TABLE I_TAB0 INDEX 1.
PERFORM WRITE_FORM USING 'TITLE1' 'HEADER' 'BODY '.
PERFORM WRITE_FORM USING 'GENERAL_HEADER_DATA_TITLE' 'MAIN' 'BODY '.
* SORT I_TAB5 BY MATNR.
LOOP AT I_TAB5.
W_LOOP1 = SY-TABIX.
PERFORM WRITE_FORM USING 'DELIVERY_ITEM' 'MAIN' 'BODY '.
SY-TABIX = W_LOOP3.
ENDLOOP.
PERFORM WRITE_FORM USING 'SEGMENT_OVERVIEW_TITLE ' 'MAIN' 'BODY '.
PERFORM WRITE_FORM USING 'NEW' 'MAIN' 'BODY '.
PERFORM FORM_CLOSE.
ELSE.
PERFORM FORM_CLOSE.
ENDIF.
ENDIF.
WHEN OTHERS.
ENDCASE.
ENDFORM. "callback_ucomm
*&---------------------------------------------------------------------*
*& Form FIELDS_BUILD
*&---------------------------------------------------------------------*
FORM FIELDS_BUILD .
DATA TMP_POS TYPE I.
REFRESH I_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
TMP_POS = TMP_POS + 1.
I_FIELDCAT-COL_POS = TMP_POS.
I_FIELDCAT-FIELDNAME = 'TKNUM'.
I_FIELDCAT-SELTEXT_L = '装运单号'.
I_FIELDCAT-OUTPUTLEN = 10.
I_FIELDCAT-NO_ZERO = 'X'.
I_FIELDCAT-KEY = 'X'.
IF P_CHK = 'X'.
I_FIELDCAT-INPUT = 'X'.
ENDIF.
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
TMP_POS = TMP_POS + 1.
I_FIELDCAT-COL_POS = TMP_POS.
I_FIELDCAT-FIELDNAME = 'MATNR'.
I_FIELDCAT-SELTEXT_L = '物料编号'.
I_FIELDCAT-OUTPUTLEN = 18.
I_FIELDCAT-KEY = 'X'.
IF P_CHK = 'X'.
I_FIELDCAT-INPUT = 'X'.
ENDIF.
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
TMP_POS = TMP_POS + 1.
I_FIELDCAT-COL_POS = TMP_POS.
I_FIELDCAT-FIELDNAME = 'ARKTX'.
I_FIELDCAT-SELTEXT_L = '物料名称'.
I_FIELDCAT-OUTPUTLEN = 60.
IF P_CHK = 'X'.
I_FIELDCAT-INPUT = 'X'.
ENDIF.
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
TMP_POS = TMP_POS + 1.
I_FIELDCAT-COL_POS = TMP_POS.
I_FIELDCAT-FIELDNAME = 'LFIMG1'.
I_FIELDCAT-SELTEXT_L = '数量'.
I_FIELDCAT-OUTPUTLEN = 12.
I_FIELDCAT-NO_ZERO = 'X'.
IF P_CHK = 'X'.
I_FIELDCAT-INPUT = 'X'.
ENDIF.
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
*
* TMP_POS = TMP_POS + 1.
* I_FIELDCAT-COL_POS = TMP_POS.
* I_FIELDCAT-FIELDNAME = 'VEMNG'.
* I_FIELDCAT-SELTEXT_L = '实出数'.
* I_FIELDCAT-OUTPUTLEN = 9.
* I_FIELDCAT-NO_ZERO = 'X'.
* APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
* CLEAR I_FIELDCAT.
TMP_POS = TMP_POS + 1.
I_FIELDCAT-COL_POS = TMP_POS.
I_FIELDCAT-FIELDNAME = 'BRGEW'.
I_FIELDCAT-SELTEXT_L = '箱数'.
I_FIELDCAT-OUTPUTLEN = 9.
I_FIELDCAT-NO_ZERO = 'X'.
IF P_CHK = 'X'.
I_FIELDCAT-INPUT = 'X'.
ENDIF.
APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
CLEAR I_FIELDCAT.
ENDFORM. " FIELDS_BUILD

  Date 2011.07.29
* Purpose :
* Modi Log: 2011.07.29  Gavin Create
* Modi Log: 2011.08.23  Gavin 出货数改为整数
* Modi Log: 2011.08.24  Gavin 出货数改为字符型，以便于报关修正
* Modi Log: 2011.08.25  Gavin 增加备注
* Modi Log: 2012.02.04  Gavin 增加名称栏位宽度
*----------------------------------------------------------------------
REPORT  ZVT003.
TABLES: VTTK,VTTP,VEKP,VEPO.
TYPE-POOLS: SLIS.
*--------------------------------
* Selection Screen
*--------------------------------
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
  P_TKNUM LIKE VTTK-TKNUM OBLIGATORY  .  "SHIPMETN NO.
SELECTION-SCREEN END OF BLOCK B1.
* For Line Items
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETERS:
            P_CHK AS CHECKBOX DEFAULT '',
            P1 TYPE I DEFAULT 0,
            P2(50) TYPE C.
SELECTION-SCREEN END OF BLOCK B2.
*****************************************************************************
DATA: G_STATUS TYPE SLIS_FORMNAME VALUE 'STANDARD_02'.        "加工具栏

DATA:
      I_FIELDCAT_ALV    TYPE SLIS_T_FIELDCAT_ALV,
      I_FIELDCAT        TYPE SLIS_FIELDCAT_ALV,
      I_LAYOUT          TYPE SLIS_LAYOUT_ALV,
      I_EVENTS          TYPE SLIS_T_EVENT,
      W_EVENTS          LIKE LINE OF I_EVENTS,
      I_LIST_COMMENTS   TYPE SLIS_T_LISTHEADER,
      W_LIST_COMMENTS   LIKE LINE OF I_LIST_COMMENTS,
      W_REPID           LIKE SY-REPID.

DATA:
      W_LOOP        TYPE SY-TABIX,
L_PROD_NUM1   TYPE CO_PSMNG,
L_PROD_NUM2   TYPE  CO_PSMNG.
DATA: BEGIN OF I_TAB0 OCCURS 0,
        TKNUM    LIKE VTTK-TKNUM,
        ERDAT    LIKE VTTK-ERDAT,
        EXTI1    LIKE VTTK-EXTI1,
        EXTI2    LIKE VTTK-EXTI2,
      END OF I_TAB0.

DATA: BEGIN OF I_TAB1 OCCURS 0,
        TKNUM    LIKE VTTP-TKNUM,
        VBELN    LIKE LIPS-VBELN,
        MATNR    LIKE LIPS-MATNR,
        ARKTX    LIKE LIPS-ARKTX,
        LFIMG    LIKE LIPS-LFIMG,
        VPOBJKEY LIKE VEKP-VPOBJKEY,
      END OF I_TAB1.
DATA: BEGIN OF I_TAB2 OCCURS 0,
        VENUM    LIKE VEKP-VENUM,
        VPOBJKEY LIKE VEKP-VPOBJKEY,
        BRGEW    LIKE VEKP-BRGEW,
        VBELN    LIKE VEPO-VBELN,
        POSNR    LIKE VEPO-POSNR,
        MATNR    LIKE VEPO-MATNR,
        VEMNG    LIKE VEPO-VEMNG,
      END OF I_TAB2.
DATA: BEGIN OF I_TAB3 OCCURS 0,
        MATNR    LIKE LIPS-MATNR,
        BRGEW    LIKE VEKP-BRGEW,
        VEMNG    LIKE VEPO-VEMNG,
      END OF I_TAB3.

DATA: BEGIN OF I_TAB4 OCCURS 0,
        TKNUM    LIKE VTTP-TKNUM,
        MATNR    LIKE LIPS-MATNR,
        ARKTX    LIKE LIPS-ARKTX,
        LFIMG    TYPE I,"LIKE LIPS-LFIMG,
        VEMNG    TYPE I,"LIKE VEPO-VEMNG,
        BRGEW    TYPE I,"LIKE VEKP-BRGEW,
        VEMNG1   TYPE I,"LIKE VEPO-VEMNG,
        BRGEW1   TYPE I,"LIKE VEKP-BRGEW,
        LFIMG1(10) TYPE C,"LIKE LIPS-LFIMG,
      END OF I_TAB4.

DATA: BEGIN OF I_TAB5 OCCURS 0,
        TKNUM    LIKE VTTP-TKNUM,
        MATNR    LIKE LIPS-MATNR,
        ARKTX    LIKE LIPS-ARKTX,
        LFIMG    TYPE I,"LIKE LIPS-LFIMG,
        VEMNG    TYPE I,"LIKE VEPO-VEMNG,
        BRGEW    TYPE I,"LIKE VEKP-BRGEW,
        VEMNG1   TYPE I,"LIKE VEPO-VEMNG,
        BRGEW1   TYPE I,"LIKE VEKP-BRGEW,
      END OF I_TAB5.

DATA :P_COCO LIKE KNB1-BUKRS.
DATA :W_TOTAL(10) TYPE C.
DATA :W_LOOP1 LIKE SY-TABIX.
DATA :W_LOOP2 LIKE SY-TABIX.
DATA :W_LOOP3 LIKE SY-TABIX.
DATA SCOUNT(8).
DATA :RCOUNT LIKE SY-TABIX.
DATA LSTR(20).
DATA LSTR1(40).
DATA LSTR2(40).
DATA LSTR3(100).
DATA LSTR4(40).
DATA LSTR5(40).
*--------------------------------
* Initialization
*--------------------------------
INITIALIZATION.
*--------------------------------
* At Selection Screen PBO
*--------------------------------
AT SELECTION-SCREEN OUTPUT.
*--------------------------------
* Start of Selection
*--------------------------------
START-OF-SELECTION.
  PERFORM GET_DATA.
  PERFORM PROCESS_DATA.
  PERFORM CAL_DATA.
  PERFORM EVENTS_BUILD.
  PERFORM LAYOUT_BUILD.
  PERFORM FIELDS_BUILD.
  PERFORM DISPLAY_DATA.

END-OF-SELECTION.
*--------------------------------
* Top of Page
*--------------------------------
TOP-OF-PAGE.
*&---------------------------------------------------------------------*
*&      Form  get_data
*&---------------------------------------------------------------------*
FORM GET_DATA.
*  主档
  SELECT K~TKNUM K~ERDAT K~EXTI1 K~EXTI2 INTO TABLE I_TAB0
     FROM VTTK AS K
     WHERE K~TKNUM = P_TKNUM.
*
  SELECT T~TKNUM P~VBELN P~MATNR P~ARKTX P~LFIMG INTO TABLE I_TAB1
    FROM VTTP AS T INNER JOIN LIPS AS P ON T~VBELN = P~VBELN
    WHERE T~TKNUM = P_TKNUM
    AND   P~LFIMG > 0 AND P~POSNR >= '900001' .

  L_PROD_NUM1 = 0.
  LOOP AT I_TAB1.
    W_LOOP = SY-TABIX.
    L_PROD_NUM1 = L_PROD_NUM1 + I_TAB1-LFIMG.
    I_TAB1-VPOBJKEY = I_TAB1-VBELN.
    MODIFY I_TAB1 INDEX W_LOOP.
    SY-TABIX = W_LOOP + 1.
  ENDLOOP.

* 取得出包装箱数
  SELECT K~VENUM K~VPOBJKEY K~BRGEW P~VBELN P~POSNR P~MATNR P~VEMNG
    INTO TABLE I_TAB2
    FROM VEKP AS K LEFT JOIN VEPO AS P ON K~VENUM = P~VENUM
    FOR ALL ENTRIES IN I_TAB1
    WHERE K~VPOBJKEY = I_TAB1-VPOBJKEY AND K~STATUS = '0020'.

  L_PROD_NUM2 = 0.
  LOOP AT I_TAB2.
    L_PROD_NUM2 = L_PROD_NUM2 + I_TAB2-BRGEW.
  ENDLOOP.

ENDFORM.                    "get_data
*&---------------------------------------------------------------------*
*&      Form  process_data
*&---------------------------------------------------------------------*
FORM PROCESS_DATA .
  LOOP AT I_TAB2.
    W_LOOP = SY-TABIX.
    I_TAB3-MATNR = I_TAB2-MATNR.
    I_TAB3-BRGEW = I_TAB2-BRGEW.
    I_TAB3-VEMNG = I_TAB2-VEMNG.
    COLLECT I_TAB3.
    SY-TABIX = W_LOOP + 1.
  ENDLOOP.

  LOOP AT I_TAB1.
    W_LOOP = SY-TABIX.
    I_TAB4-TKNUM = I_TAB1-TKNUM.
    I_TAB4-MATNR = I_TAB1-MATNR.
    I_TAB4-ARKTX = I_TAB1-ARKTX.
    I_TAB4-LFIMG = I_TAB1-LFIMG.
    COLLECT I_TAB4.
    SY-TABIX = W_LOOP + 1.
  ENDLOOP.
  SORT I_TAB3 BY MATNR.
*  SORT I_TAB4 BY MATNR.
  LOOP AT I_TAB4.
    W_LOOP = SY-TABIX.
    CLEAR I_TAB3.
    READ TABLE I_TAB3 WITH KEY MATNR = I_TAB4-MATNR BINARY SEARCH.
    IF SY-SUBRC = 0.
      I_TAB4-BRGEW  = I_TAB3-BRGEW.
      I_TAB4-VEMNG  = I_TAB3-VEMNG.              "输入前值
      I_TAB4-LFIMG  = I_TAB3-VEMNG.              "
      I_TAB4-BRGEW1 = L_PROD_NUM2.
      I_TAB4-VEMNG1 = L_PROD_NUM1.
    ENDIF.
    I_TAB4-LFIMG1  = I_TAB4-LFIMG.               "数量转成字符
    MODIFY I_TAB4 INDEX W_LOOP.
    SY-TABIX = W_LOOP + 1.
  ENDLOOP.
  I_TAB4-TKNUM = ''.
  I_TAB4-MATNR = ''.
  I_TAB4-ARKTX = ''.
  I_TAB4-BRGEW  = 0.
  I_TAB4-VEMNG  = 0.              "输入前值
  I_TAB4-LFIMG1 = '0'.              "
  I_TAB4-LFIMG  = 0.              "
  I_TAB4-BRGEW1 = 0.
  I_TAB4-VEMNG1 = 0.
  IF P_CHK = 'X'.
    DO P1 TIMES.
      APPEND I_TAB4.
    ENDDO.
  ENDIF.

ENDFORM.                    " process_data
*&---------------------------------------------------------------------*
*&      Form  Form_Open
*&---------------------------------------------------------------------*
FORM FORM_OPEN .
  CALL FUNCTION 'OPEN_FORM'
    EXPORTING
      FORM     = 'ZSHIPMENT_DOC2'
      LANGUAGE = SY-LANGU
      DIALOG   = 'X'
*      DEVICE   = SCREEN
    EXCEPTIONS
      OTHERS   = 1.

ENDFORM.                    " Form_Open
*&---------------------------------------------------------------------*
*&      Form  write_form
*&---------------------------------------------------------------------*
FORM WRITE_FORM USING    ELEMENT
                         WINDOW
                         TYPE.

  CALL FUNCTION 'WRITE_FORM'
    EXPORTING
      ELEMENT = ELEMENT
      WINDOW  = WINDOW
      TYPE    = TYPE.

ENDFORM.                    " write_form
*&---------------------------------------------------------------------*
*&      Form  FORM_CLOSE
*&---------------------------------------------------------------------*
FORM FORM_CLOSE.
  CALL FUNCTION 'CLOSE_FORM'
    EXCEPTIONS
      OTHERS = 1.
ENDFORM.                    " FORM_CLOSE

*&---------------------------------------------------------------------*
*&      Form  CAL_DATA
*&---------------------------------------------------------------------*
FORM CAL_DATA .
  DESCRIBE TABLE I_TAB4 LINES RCOUNT.
  SCOUNT = RCOUNT.
  CONCATENATE '符合条件的记录数：' SCOUNT INTO LSTR.

  IF I_TAB4[] IS INITIAL .
    MESSAGE I000(ZMSG) WITH '没找到对应的数据,请更改查询条件'.
    LEAVE LIST-PROCESSING .
  ENDIF.
ENDFORM.                    " CAL_DATA
*&---------------------------------------------------------------------*
*&      Form  EVENTS_BUILD
*&---------------------------------------------------------------------*
FORM EVENTS_BUILD .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = I_EVENTS.
* 页眉
  READ TABLE I_EVENTS  WITH KEY NAME = 'TOP_OF_PAGE'  INTO W_EVENTS.
  IF SY-SUBRC = 0.
    MOVE 'ALV_TOP_OF_PAGE' TO W_EVENTS-FORM.
    MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
  ENDIF.
* 页尾
  READ TABLE I_EVENTS  WITH KEY NAME = 'END_OF_LIST'  INTO W_EVENTS.
  IF SY-SUBRC = 0.
    MOVE 'ALV_END_OF_LIST' TO W_EVENTS-FORM.
    MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
  ENDIF.
* 页跳转
  READ TABLE I_EVENTS WITH KEY NAME = 'USER_COMMAND'   INTO W_EVENTS.
  IF SY-SUBRC = 0.
    MOVE 'USER_COMMAND' TO W_EVENTS-FORM.
    MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
  ENDIF.

ENDFORM.                    " EVENTS_BUILD
*&--------------------------------------------------------------------*
*&      Form  ALV_END_OF_LIST
*&--------------------------------------------------------------------*
FORM ALV_TOP_OF_PAGE.

  CLEAR: I_LIST_COMMENTS.
  W_LIST_COMMENTS-TYP = 'H'.
  W_LIST_COMMENTS-KEY = ''.
  W_LIST_COMMENTS-INFO = '  '.
  APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  CLEAR W_LIST_COMMENTS.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = I_LIST_COMMENTS
      I_END_OF_LIST_GRID = 'X'.
ENDFORM.                    "ALV_TOP_OF_PAGE
*&--------------------------------------------------------------------*
*&      Form  ALV_END_OF_LIST
*&--------------------------------------------------------------------*
FORM ALV_END_OF_LIST.
  CLEAR: I_LIST_COMMENTS.
  W_LIST_COMMENTS-TYP = 'H'.
  W_LIST_COMMENTS-KEY = ''.
  W_LIST_COMMENTS-INFO = LSTR.
  APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  CLEAR W_LIST_COMMENTS.

  W_LIST_COMMENTS-TYP = 'S'.
  W_LIST_COMMENTS-KEY = ''.
  W_LIST_COMMENTS-INFO = '    报表开发者：IT部--Jasson      重新开发日期：2011/07/29'.
  APPEND W_LIST_COMMENTS TO I_LIST_COMMENTS.
  CLEAR W_LIST_COMMENTS.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = I_LIST_COMMENTS
      I_END_OF_LIST_GRID = 'X'.
ENDFORM.                    "ALV_END_OF_LIST
*&---------------------------------------------------------------------*
*&      Form  LAYOUT_BUILD
*&---------------------------------------------------------------------*
FORM LAYOUT_BUILD .
  I_LAYOUT-ZEBRA                = 'X' .         " 显示界面成色带交替
  I_LAYOUT-DETAIL_POPUP         = 'X'.          "弹出详细信息窗口
  I_LAYOUT-INFO_FIELDNAME       = 'COLOR'.      "颜色值
*  I_LAYOUT-COLWIDTH_OPTIMIZE   = 'X'.          "优化列宽选项
  I_LAYOUT-DETAIL_INITIAL_LINES = 'X'.
  I_LAYOUT-DETAIL_TITLEBAR      = '出闸纸打印'.
  I_LAYOUT-NO_COLHEAD           =' '.
*  I_LAYOUT-BOX_FIELDNAME       = 'BOX' .       " 指明复选框
  W_REPID = SY-REPID.
ENDFORM.                    " LAYOUT_BUILD
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_DATA
*&---------------------------------------------------------------------*
FORM DISPLAY_DATA .
*  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'           "用户触发事件
      I_CALLBACK_PF_STATUS_SET = G_STATUS                          "调用用户事件和按钮事件
      I_CALLBACK_PROGRAM       = W_REPID                  "当前程序
      IS_LAYOUT                = I_LAYOUT                 "子函数layout_build填充的格式定义
      IT_FIELDCAT              = I_FIELDCAT_ALV[]         "子函数fields填充的各列
      IT_EVENTS                = I_EVENTS[]
      I_SAVE                   = 'A'                      "保存变式
    TABLES
      T_OUTTAB                 = I_TAB4.                  "假设数据都在itab内表中

ENDFORM.                    " DISPLAY_DATA
*-----------------------------------------------------------------------
*    FORM PF_STATUS_SET   加工具栏
*-----------------------------------------------------------------------
FORM STANDARD_02 USING  EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'STD' EXCLUDING EXTAB.
ENDFORM.                    "STANDARD_02
*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
FORM USER_COMMAND  USING I_UCOMM LIKE SY-UCOMM
                         SELFIELD TYPE SLIS_SELFIELD.
  CLEAR I_TAB5[].
  IF P_CHK = ''.
    LOOP AT I_TAB4 .
      IF I_TAB4-TKNUM <> ''.
        MOVE-CORRESPONDING I_TAB4 TO I_TAB5.
        I_TAB5-LFIMG = I_TAB4-LFIMG1.
        APPEND I_TAB5.
      ENDIF.
    ENDLOOP.
*    I_TAB5[] = I_TAB4[].
  ELSE.
    L_PROD_NUM1 = 0.
    L_PROD_NUM2 = 0.
    LOOP AT I_TAB4.
      I_TAB4-LFIMG = I_TAB4-LFIMG1.
      L_PROD_NUM1 = L_PROD_NUM1 + I_TAB4-LFIMG.
      L_PROD_NUM2 = L_PROD_NUM2 + I_TAB4-BRGEW.
    ENDLOOP.
    LOOP AT I_TAB4 .
      IF I_TAB4-TKNUM <> ''.
        I_TAB4-VEMNG = I_TAB4-LFIMG1.
        I_TAB4-BRGEW1 = L_PROD_NUM2.
        I_TAB4-VEMNG1 = L_PROD_NUM1.
        MOVE-CORRESPONDING I_TAB4 TO I_TAB5.
        I_TAB5-LFIMG = I_TAB4-LFIMG1.
        APPEND I_TAB5.
      ENDIF.
    ENDLOOP.
  ENDIF.
  CASE I_UCOMM.
    WHEN '&PRT'.
      IF I_TAB5[] IS INITIAL.
        MESSAGE I000(ZMSG) WITH '没有要打印的物料.'.
      ELSE.
        PERFORM FORM_OPEN.
        IF SY-SUBRC = 0.
          READ TABLE I_TAB0 INDEX 1.
          PERFORM WRITE_FORM USING 'TITLE1' 'HEADER' 'BODY '.
          PERFORM WRITE_FORM USING 'GENERAL_HEADER_DATA_TITLE'  'MAIN' 'BODY '.
*          SORT I_TAB5 BY MATNR.
          LOOP AT I_TAB5.
            W_LOOP1 = SY-TABIX.
            PERFORM WRITE_FORM USING 'DELIVERY_ITEM'  'MAIN' 'BODY '.
            SY-TABIX = W_LOOP3.
          ENDLOOP.
          PERFORM WRITE_FORM USING 'SEGMENT_OVERVIEW_TITLE '  'MAIN' 'BODY '.
          PERFORM WRITE_FORM USING 'NEW'  'MAIN' 'BODY '.
          PERFORM FORM_CLOSE.
        ELSE.
          PERFORM FORM_CLOSE.
        ENDIF.
      ENDIF.
    WHEN OTHERS.
  ENDCASE.
ENDFORM.                    "callback_ucomm
*&---------------------------------------------------------------------*
*&      Form  FIELDS_BUILD
*&---------------------------------------------------------------------*
FORM FIELDS_BUILD .

  DATA TMP_POS TYPE I.
  REFRESH I_FIELDCAT_ALV.
  CLEAR   I_FIELDCAT.

  TMP_POS = TMP_POS + 1.
  I_FIELDCAT-COL_POS = TMP_POS.
  I_FIELDCAT-FIELDNAME = 'TKNUM'.
  I_FIELDCAT-SELTEXT_L = '装运单号'.
  I_FIELDCAT-OUTPUTLEN = 10.
  I_FIELDCAT-NO_ZERO   = 'X'.
  I_FIELDCAT-KEY       = 'X'.
  IF P_CHK = 'X'.
    I_FIELDCAT-INPUT = 'X'.
  ENDIF.
  APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
  CLEAR I_FIELDCAT.

  TMP_POS = TMP_POS + 1.
  I_FIELDCAT-COL_POS = TMP_POS.
  I_FIELDCAT-FIELDNAME = 'MATNR'.
  I_FIELDCAT-SELTEXT_L = '物料编号'.
  I_FIELDCAT-OUTPUTLEN = 18.
  I_FIELDCAT-KEY       = 'X'.
  IF P_CHK = 'X'.
    I_FIELDCAT-INPUT = 'X'.
  ENDIF.
  APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
  CLEAR I_FIELDCAT.

  TMP_POS = TMP_POS + 1.
  I_FIELDCAT-COL_POS = TMP_POS.
  I_FIELDCAT-FIELDNAME = 'ARKTX'.
  I_FIELDCAT-SELTEXT_L = '物料名称'.
  I_FIELDCAT-OUTPUTLEN = 60.
  IF P_CHK = 'X'.
    I_FIELDCAT-INPUT = 'X'.
  ENDIF.
  APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
  CLEAR I_FIELDCAT.

  TMP_POS = TMP_POS + 1.
  I_FIELDCAT-COL_POS = TMP_POS.
  I_FIELDCAT-FIELDNAME = 'LFIMG1'.
  I_FIELDCAT-SELTEXT_L = '数量'.
  I_FIELDCAT-OUTPUTLEN = 12.
  I_FIELDCAT-NO_ZERO   = 'X'.
  IF P_CHK = 'X'.
    I_FIELDCAT-INPUT = 'X'.
  ENDIF.
  APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
  CLEAR I_FIELDCAT.
*
*  TMP_POS = TMP_POS + 1.
*  I_FIELDCAT-COL_POS = TMP_POS.
*  I_FIELDCAT-FIELDNAME = 'VEMNG'.
*  I_FIELDCAT-SELTEXT_L = '实出数'.
*  I_FIELDCAT-OUTPUTLEN = 9.
*  I_FIELDCAT-NO_ZERO   = 'X'.
*  APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
*  CLEAR I_FIELDCAT.

  TMP_POS = TMP_POS + 1.
  I_FIELDCAT-COL_POS = TMP_POS.
  I_FIELDCAT-FIELDNAME = 'BRGEW'.
  I_FIELDCAT-SELTEXT_L = '箱数'.
  I_FIELDCAT-OUTPUTLEN = 9.
  I_FIELDCAT-NO_ZERO   = 'X'.
  IF P_CHK = 'X'.
    I_FIELDCAT-INPUT = 'X'.
  ENDIF.
  APPEND I_FIELDCAT TO I_FIELDCAT_ALV.
  CLEAR I_FIELDCAT.

ENDFORM.                    " FIELDS_BUILD

接着我们再来回顾一下se41.本程式用到的如下：