*&---------------------------------------------------------------------*

*& Report  Z_SD_CKD

*&

*&---------------------------------------------------------------------*

*&产品出库单

*&

*&---------------------------------------------------------------------*

REPORT ZSDF002.

INCLUDE ZSDF002_INC.

*INCLUDE Z_SD_CKD_INC.

TYPE-POOLS: slis.

TABLES:LIKP, KNA1, LIPS ,MKPF ,MSEG.

TYPES: BEGIN OF TY_ALL,

        VBELV        LIKE  VBFA-VBELV ,  "销售订单号

        VBELN_IM     LIKE  MSEG-VBELN_IM ,"交货单号

        NAME1        LIKE  KNA1-NAME1 ,"客户

        KUNNR        LIKE  MSEG-KUNNR ,"送达方

        STRAS        LIKE  KNA1-STRAS ,"客户地址

        BUDAT_MKPF   LIKE  MSEG-BUDAT_MKPF ,"出库时间

        TELFX        LIKE  KNA1-TELFX ,"电话

        USNAM_MKPF   LIKE  MSEG-USNAM_MKPF ,"经办人

        MATNR        LIKE  MSEG-MATNR ,"物料编码

        ARKTX        LIKE  LIPS-ARKTX ,"物料描述

        LGORT        LIKE  MSEG-LGORT ,"库存地点

        MENGE        LIKE  MSEG-MENGE ,"数量

        VRKME        LIKE  LIPS-VRKME ,"单位

        CHARG        LIKE  MSEG-CHARG ,"批次

        VBELP_IM     LIKE  MSEG-VBELP_IM ,"项目

        BOLNR        LIKE  LIKP-BOLNR ,"物流单号

        BRGEW        LIKE  LIPS-BRGEW,"单项目毛重

        BEIZHU(20)   TYPE C ,"备注

  END OF TY_ALL.

  TYPES:BEGIN OF TY_HEADER,

        VBELV        LIKE  VBFA-VBELV ,  "销售订单号

        VBELN_IM     LIKE  MSEG-VBELN_IM ,"交货单号

        NAME1        LIKE  KNA1-NAME1 ,"客户

        KUNNR        LIKE  MSEG-KUNNR ,"送达方

        STRAS        LIKE  KNA1-STRAS ,"客户地址

        BUDAT_MKPF   LIKE  MSEG-BUDAT_MKPF ,"出库时间

        TELFX        LIKE  KNA1-TELFX ,"电话

        USNAM_MKPF   LIKE  MSEG-USNAM_MKPF ,"经办人

       TOTAL_BRGEW   LIKE LIPS-BRGEW,"项目总毛重

       BOLNR         LIKE LIKP-BOLNR,"物流单号

    END OF TY_HEADER.

  TYPES:BEGIN OF TY_ITEMS,

        VBELN_IM     LIKE  MSEG-VBELN_IM ,"交货单号

       MATNR        LIKE  MSEG-MATNR ,"物料编码

        ARKTX        LIKE  LIPS-ARKTX ,"物料描述

        LGORT        LIKE  MSEG-LGORT ,"库存地点

        MENGE        LIKE  MSEG-MENGE ,"数量

        VRKME        LIKE  LIPS-VRKME ,"单位

        CHARG        LIKE  MSEG-CHARG ,"批次

        VBELP_IM     LIKE  MSEG-VBELP_IM ,"项目

        BRGEW        LIKE  LIPS-BRGEW,"单项目毛重

        BOLNR        LIKE  LIKP-BOLNR ,"物流单号

        BEIZHU(20)   TYPE C ,"备注

    END OF TY_ITEMS.

 DATA:WA_ALL TYPE TY_ALL,

      GT_ALL TYPE TY_ALL OCCURS 0.

 DATA:WA_HEADER TYPE TY_HEADER,

      GT_HEADER TYPE TY_HEADER OCCURS 0  .

 DATA:WA_ITEMS TYPE TY_ITEMS,

      GT_ITEMS TYPE TY_ITEMS OCCURS 0.

*定义传入到smartforms的变量开始

DATA:fm_name TYPE rs38l_fnam.

DATA:itemsname(32) TYPE c.