ABAP 出库单打印 产品 A搭A A搭B显示方式

*&---------------------------------------------------------------------*
*& Report  
*&
*&---------------------------------------------------------------------*
*&程序名称：
*&事物代码：
*&导入模板：无
*&作者：
*&时间：2016/5/18
*&--------------------------------------------------------------------

REPORT zsdr045.
INCLUDE zsdr045_inc.
*INCLUDE zsdr007_inc.

TYPE-POOLS: slis.
TABLES:likp, kna1, lips ,mkpf ,mseg ,vttp,vbak.


TYPES: BEGIN OF ty_all,

         vbelv      LIKE  vbfa-vbelv ,  "销售订单号
         tknum      LIKE  vttp-tknum, "装运单号
         auart      LIKE  vbak-auart, "销售订单类型
         auart_txt  LIKE  tvakt-bezei, "销售订单类型描述
         vkorg      LIKE  vbak-vkorg, "销售组织
         vtweg      LIKE  vbak-vtweg, "分销渠道
         lfart      LIKE  likp-lfart, "交货类型
         lfart_txt  LIKE  tvlkt-vtext, "交货类型描述
         vbeln_im   LIKE  lips-vbeln , "交货单号
         mblnr      LIKE  mseg-mblnr, "物料凭证
         shkzg      LIKE  mseg-shkzg, "借贷标识
         zeile      LIKE  mseg-zeile, "凭证项目
         smbln      LIKE  mseg-smbln, "参考物料凭证
         smblp      LIKE  mseg-smblp, "参考物料项目
         bwart      LIKE  mseg-bwart, "移动类型
         kunag      LIKE  likp-kunag , "客户
         kunag_txt  LIKE  kna1-name1, "客户名称
         kunnr      LIKE  likp-kunnr , "送达方
         kunnr_txt  LIKE  kna1-name1, "送达方名称
         stras      LIKE  kna1-stras , "客户地址
         budat_mkpf LIKE  mseg-budat_mkpf , "出库日期
         cputm_mkpf LIKE  mseg-cputm_mkpf , "输入时间
         telf1      LIKE  kna1-telf1 , "电话
         usnam_mkpf LIKE  mseg-usnam_mkpf , "经办人
         name_last  LIKE  adrp-name_last, "创建者姓
         name_first LIKE  adrp-name_first, "创建者名
         matnr      LIKE  lips-matnr , "物料编码
         arktx      LIKE  lips-arktx , "物料描述
         werks      LIKE  mseg-werks, "工厂
         lgort      LIKE  mseg-lgort , "库存地点
         menge      LIKE  mseg-menge , "数量
         vrkme      LIKE  lips-vrkme , "单位
         charg      LIKE  mseg-charg , "批次
         vbelp_im   LIKE  mseg-vbelp_im , "物料项目
         pstyv      LIKE  lips-pstyv, "行项目类别
         uecha      LIKE  lips-uecha, "上层项目号
         bolnr      LIKE  likp-bolnr , "物流单号
         brgew      LIKE  lips-brgew, "单项目毛重
         gewei      LIKE  lips-gewei, "单项目毛重单位
         "printed    TYPE c,"是否已打印
         count_prt  TYPE i, "记录此交货单打印次数
         beizhu(20) TYPE c , "备注
       END OF ty_all.

TYPES:BEGIN OF ty_header,
        vbelv       LIKE  vbfa-vbelv ,  "销售订单号
        "tknum      LIKE  vttp-tknum, "装运单号
        auart       LIKE  vbak-auart, "销售订单类型
        auart_txt   LIKE  tvakt-bezei, "销售订单类型描述
        vkorg       LIKE  vbak-vkorg, "销售组织
        vtweg       LIKE  vbak-vtweg, "分销渠道
        lfart       LIKE  likp-lfart, "交货类型
        lfart_txt   LIKE  tvlkt-vtext, "交货类型描述
        vbeln_im    LIKE  mseg-vbeln_im , "交货单号
        mblnr       LIKE  mseg-mblnr, "物料凭证

转载于:https://www.cnblogs.com/eagle-dtq/p/5514768.html