ABAP 承运路单

*&---------------------------------------------------------------------*
*& Report  ZSDR010
*&
*&---------------------------------------------------------------------*
*&程序名称：承运路单
*&事物代码：ZSD030
*&导入模板：无
*&作者：
*&时间：2016/3/2
*&更新时间：2016/3/2
*&--------------------------------------------------------------------

REPORT zsdr010.
INCLUDE zsdr010_inc.

TYPE-POOLS: slis.
TABLES:likp, kna1, lips ,vttp ,vttk.


TYPES: BEGIN OF ty_all,
         tknum      LIKE  vttk-tknum, "运单号
         tplst      LIKE  vttk-tplst, "装运点
         tdlnr      LIKE  vttk-tdlnr, "物流公司
         erdat      LIKE  vttk-erdat, "装运日期
         route      LIKE  vttk-route, "路线
         distz      LIKE  vttk-distz, "里程
         add01      LIKE  vttk-add01, "车主、车号
         add02      LIKE  vttk-add02, "司机
         bfart      LIKE  vttk-bfart, "车型
         ernam      LIKE  vttk-ernam, "创建者
         shtyp      LIKE  vttk-shtyp, "装运类型
         btgew_sum  LIKE likp-btgew, "总重量

         tpnum      LIKE  vttp-tpnum, "项目号
         vbeln      LIKE  vttp-vbeln, "交货单号
         kunnr      LIKE  likp-kunnr, "客户代码
         name1      LIKE  kna1-name1, "客户名称
         btgew      LIKE  likp-btgew, "重量
         gewei      LIKE  likp-gewei, "重量单位
         volum      LIKE  likp-volum, "体积
         voleh      LIKE  likp-voleh, "体积单位


         beizhu(20) TYPE c , "备注
       END OF ty_all.

TYPES:BEGIN OF ty_header,
        tknum      LIKE  vttk-tknum, "运单号
        tplst      LIKE  vttk-tplst, "装运点
        tplst_text LIKE  ttdst-bezei,"装运点描述
        tdlnr      LIKE  vttk-tdlnr, "物流公司
        tdlnr_text LIKE  lfa1-name1, "物流公司描述
        erdat      LIKE  vttk-erdat, "装运日期
        route      LIKE  vttk-route, "路线
        route_text LIKE  tvrot-bezei,"路线描述
        distz      LIKE  vttk-distz, "里程
        add01      LIKE  vttk-add01, "车主、车号
        add02      LIKE  vttk-add02, "司机
        bfart      LIKE  vttk-bfart, "车型
        ernam      LIKE  vttk-ernam, "创建者
        shtyp      LIKE  vttk-shtyp, "装运类型
        btgew_sum  LIKE likp-btgew, "总重量
        beizhu(20) TYPE c , "备注
      END OF ty_header.

TYPES:BEGIN OF ty_items,
        tknum      LIKE  vttk-tknum, "运单号
        tpnum      LIKE  vttp-tpnum, "项目号
        vbeln      LIKE  vttp-vbeln, "交货单号
        kunnr      LIKE  likp-kunnr, "客户代码
        name1      LIKE  kna1-name1, "客户名称
        btgew      LIKE  likp-btgew, "重量
        gewei      LIKE  likp-gewei, "重量单位
        volum      LIKE  likp-volum, "体积
        voleh      LIKE  likp-voleh, "体积单位


        beizhu(20) TYPE c , "备注
      END OF ty_items

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