SD 送货清单报表

text symbol

002 总览 4 4
003 明细 4 4

 

selection text

 

P_BUKRS ?...
P_WERKS ?...
S_ERDAT 创建日期
S_ERNAM 制单人
S_FKSTK 开票状态
S_KUNAG 售达方
S_KUNNR 送达方
S_LFART 交货类型
S_MATKL 物料组
S_REGIO 区域
S_VBELN 发货单号
S_VKBUR 销售办公室
S_VKORG 销售组织
S_WADAT 实际发货日期
S_WBSTK 过帐状态

 

source code

*& 修改日期：2010.06.13
*& 修 改 人：zhouxu V1.1
*& 修改原因：1 显示ZK07和ZK05的折扣原因
*& 修改日期：2010.08.23
*& 修 改 人：zhouxu V1.2
*& 修改原因：1 销售办事处BUG处理。
REPORT  ysdr0017bak MESSAGE-ID ysd
        LINE-COUNT 65(14)
        LINE-SIZE  154
        NO STANDARD PAGE HEADING.

INCLUDE ysdalv.

TABLES: vbak,                        "销售订单抬头
        vbap,                        "销售订单项目
        likp,                        "交货单抬头
        lips,                        "交货单项目
        vbfa,                        "单据流
        vbpa,                        "合作伙伴
        mara,                        "物料主数据
        makt,                        "物料描述
        t001l,                       "仓库描述
        t001w,                       "工厂描述
        tvkot,                       "分公司描述
        kna1,                        "客户描述
        ekko,                        "采购订单抬头
        ekpo,                        "采购订单项目
        konv,                        "条件（事务数据）
        marm,                        "物料的计量单位
        tvakt,                       "销售凭证类型 ： 文本
        adrp,                        "个人（办公地址管理）
        usr21,
        vbuk,
        vbep,
        vbrp,
        knvv,
        t171t,
        tvkbt,
        knvk,
        vbkd."销售凭证 ： 业务数据

*****定义抬头数据内表
DATA: BEGIN OF i_title_data OCCURS 0,
          vbeln LIKE likp-vbeln,    "交货单号码
          vbelv LIKE vbak-vbeln,    "销售订单
          vdatu LIKE vbak-vdatu,    "请求交货日期kaijunli
          erdat LIKE likp-erdat,    "发货单创建日期
          wadat_ist  LIKE likp-wadat_ist,   "计划货物移动日期
          erdat1 LIKE likp-erdat,   "订单日期
          lfart LIKE likp-lfart,    "单据类别
          kunnr LIKE likp-kunnr,    "送达方
          kunag LIKE likp-kunag,    "售达方kaijunli
          adrnr LIKE kna1-adrnr,    "地址编号
          telfx LIKE kna1-telfx,    "传真号码
          vkorg LIKE likp-vkorg,    "销售组织"即产业1010电工产业1020照明产业add by LKj 2008/10/20
          changye(10) TYPE c,       "产业
          str_suppl1 LIKE adrc-str_suppl1,  "送货地址
          name1(60) TYPE c,         "商家名称售达方
          name5(60) TYPE c,         "送达方kaijunli
          sedto(80) TYPE c,         "收货单位
          addrs(80) TYPE c,         "收货地址
          pannr(20) TYPE c,         "联系人
          auart LIKE vbak-auart,    "订单类型
          bezei LIKE tvakt-bezei,   "订单类型描述
          fkstk LIKE vbuk-fkstk,    "开票状态
          fkstt(12),
          wbstk LIKE vbuk-wbstk,    "发货过账状态
          cmgst LIKE vbuk-cmgst,    "交货单信贷支票的总状态"A表示通过"其它不通过add by LKj 2008/11/27
          cmgstx(100) TYPE c,
          wbstt(12),

          lifnr LIKE knvp-lifnr,    "货运站的名称
          text1 LIKE lfa1-telf1,    "货运站电话
          text3 LIKE lfa1-name1,    "货运站名称
          text5 LIKE lfa1-stras,    "货运站地址

          telef(20) TYPE c,         "联系电话
          text2(60),                "付运费方式
          text4(60),                "备注
          page TYPE i,              "页数
          ernam LIKE likp-ernam,    "创建对象的人员名称
          name2(10) TYPE c,                "制单人
          netwr TYPE p DECIMALS 2,  "结算金额
          regio LIKE  kna1-regio,   "地区
          spart LIKE knvv-spart,    "产品组
          vtweg LIKE knvv-vtweg,    "分销渠道
          vkbur LIKE  knvv-vkbur,   "办事处
          bezeii LIKE tvkbt-bezei,  "办事处描述
          bzirk  LIKE knvv-bzirk,   "销售地区
          bztxt  LIKE t171t-bztxt,"销售地区描述
          kpein LIKE vbap-kpein," 价格单位数  add by kevin 2009/06/22
         waers LIKE konv-waers,        "订单币别
         kbetr19 LIKE konv-kbetr,       "订单本位金额
         kbetr20 LIKE konv-kbetr,       "订单总计金额
         zhekoo LIKE konv-kbetr,"物价金额
         waers2(3) TYPE c,                "本位币别

         bstkd LIKE vbkd-bstkd, "销售订单文本
         bezei1 LIKE tvm1t-bezei,     "物料定价组--品牌
         kwmeng  LIKE vbap-kwmeng,  "以销售单位计的订单数量
         kwmengx LIKE vbap-kwmeng,"以基本单位计的订单数量
         kbetr LIKE konv-kbetr,
         lgmng LIKE lips-lgmng,
             kvgr5 LIKE vbak-kvgr5,                         " V1.1 折扣原因
      yyms TYPE string,                                     "V1.1 原因描述

      END OF i_title_data.

*****定义行数据内表
DATA: BEGIN OF i_item_data OCCURS 0,
         vbeln LIKE likp-vbeln,     "交货单
         posnr LIKE lips-posnr,     "项目号
         erdat LIKE likp-erdat,     "发货单创建日期
         erdat1 LIKE likp-erdat,
         wadat_ist LIKE likp-wadat_ist,    "实际发货日期lkj所属时期
         wadat_ist2(6) TYPE c,                              "所属日期6位lkj
         vkorg LIKE likp-vkorg,     "销售组织"即产业1010电工产业1020照明产业add by LKj 2008/10/20
         changye(10) TYPE c,        "产业
         cmgst LIKE vbuk-cmgst,     "交货单信贷支票的总状态 add by LKj 2008/11/27
         cmgstx(100) TYPE c,        "交货单信贷支票的总状态,文本
         mvgr1 LIKE mvke-mvgr1,     "品牌add by LKj 2008/10/20
         bezei1 LIKE tvm1t-bezei,   "品牌的中文显示add by LKj 2008/10/20
         kunnr LIKE likp-kunnr,     "送达方
         kunag LIKE likp-kunag,     "售达方kaijunli
         knprs LIKE konv-knprs,     "条件定价单位
         kumza LIKE konv-kumza,     "从条件单位到基准单位转换的分子
         umvkz LIKE vbap-umvkz,
         umziz LIKE vbap-umziz,
         umzin LIKE vbap-umzin,
         name1(60) TYPE c,          "商家名称售达方
         name5(60) TYPE c,          "送达方kaijunli
         matnr LIKE mara-matnr,     "物料号码
         bismt LIKE mara-bismt,
         maktx LIKE makt-maktx,     "物料描述
         matkl LIKE lips-matkl,     "物料组
         brgew LIKE lips-brgew,     "毛重kaijunli
         gewei LIKE lips-gewei,     "重量单位kaijunli
         volum LIKE lips-volum,     "业务量kaijunli
         voleh LIKE lips-voleh,     "体积单位kaijunli
         kwmeng  LIKE vbap-kwmeng,  "以销售单位计的订单数量
         kwmengx LIKE vbap-kwmeng,"以基本单位计的订单数量
         wgbez LIKE t023t-wgbez,
         spart LIKE tspat-spart,
         vtext LIKE tspat-vtext,
         meins LIKE lips-meins,     "单位
         kbetr  TYPE p DECIMALS 7,  "单价
         kzwi1 LIKE vbap-kzwi1,     "项目小计
         kbetr1 LIKE konv-kbetr,    "折扣1
         kbetr2 LIKE konv-kbetr,    "折扣2
         netwr2 TYPE p DECIMALS 2,  "折扣金额1/2  add by LKJ 2009/02/24
         netwr3 TYPE p DECIMALS 2,  "折扣金额1/2  add by LKJ 2009/02/24
         kbetr9 LIKE konv-kbetr,    "折扣金额ZK09  add by FOK 2009/12/15
         kbetr4 LIKE konv-kbetr,    "ZK04-ZK07-ZK08
         kbetr5 LIKE konv-kbetr,                            "ZK05-ZK06
         netwr9 TYPE p DECIMALS 2,  "折扣金额ZK09  add by FOK 2009/12/15
         netwr4 TYPE p DECIMALS 2,  "折扣金额4/7  add by LKJ 2009/02/24
         netwr5 TYPE p DECIMALS 2,  "退货折点金额 3  add by kevin 2009/06/23
         lfimg TYPE p DECIMALS 2,   "交货件数
         vgbel LIKE  lips-vgbel,    "订单号码
         auart LIKE vbak-auart,     "订单类型
         vdatu LIKE vbak-vdatu,     "请求交货日期kaijunli
         edatu LIKE vbep-edatu,   "销售订单的计划行日期，即首个交货日期 add by lkj 2008/12/19
         bezei LIKE tvakt-bezei,    "订单类型描述
         vgpos LIKE  lips-vgpos,    "参考凭证项目号
         cmpre  TYPE p DECIMALS 7,  "净价值
         lgmng TYPE p DECIMALS 2,
         lgmngx TYPE p DECIMALS 2,
         netwr TYPE p DECIMALS 2,   "结算金额
         vrkme LIKE lips-vrkme,     "销售单位
         netwr1 TYPE p DECIMALS 2,
         name2(10) TYPE c,                 "制单人
         rebate1(8),                                        "回扣1
         rebate2(8),                                        "回扣2
         rebate4(8),                                        "回扣ZK04-ZK07
         zheko9(8),
         zheko(8),
         zheko4(8),
         zheko5(8),
         zhekoo LIKE konv-kbetr,"物价金额
         vtweg LIKE knvv-vtweg,"分销渠道 add v1.2
         regio LIKE  kna1-regio,       "地区
         vkbur LIKE  knvv-vkbur,       "办事处
         bezeii LIKE tvkbt-bezei,      "办事处描述
         bzirk  LIKE knvv-bzirk,   "销售地区
         bztxt  LIKE t171t-bztxt,"销售地区描述

         lifnr LIKE knvp-lifnr,    "货运站的名称
         text1 LIKE lfa1-telf1,    "货运站电话
         text3 LIKE lfa1-name1,    "货运站名称
         text5 LIKE lfa1-stras,    "货运站地址
         pannr(20) TYPE c,         "联系人
         kpein LIKE vbap-kpein," 价格单位数  add by kevin 2009/06/22
*         waers like konv-waers,        "订单币别
         kbetr19 LIKE konv-kbetr,       "订单本位金额
         kbetr20 LIKE konv-kbetr,       "订单总计金额
         waers2(3) TYPE c,                "本位币别

         bstkd LIKE vbkd-bstkd, "销售订单文本
         waerk LIKE vbak-waerk,        "订单币别
         bbezei LIKE tvm1t-bezei,     "物料定价组--品牌
                     kvgr5 LIKE vbak-kvgr5,                 " V1.1 折扣原因
      yyms TYPE string,                                     "V1.1 原因描述
      END OF i_item_data.

DATA:BEGIN OF i_con OCCURS 0,
        vbeln LIKE vbak-vbeln,            "订单号码
        posnr LIKE vbap-posnr,            "订单项目号码
        knumv LIKE vbak-knumv,            "定价条件号码
        netpr TYPE p DECIMALS 7,          "净价值
      END OF i_con.

DATA: wadat_ist1(6) TYPE c,               "所属日期中间变量
      volumx TYPE p DECIMALS 3,           "体积换算
      total2 TYPE p DECIMALS 7,           "交货件数合计
      total3 TYPE p DECIMALS 7,           "交货数量合计
      total4 TYPE p DECIMALS 4.           "金额合计

DATA: g_lfimg TYPE i,                     "交货数量合计
      g_page TYPE i,                      "页数
      g_page01 TYPE p DECIMALS 7,         "页数(计算)
      g_line TYPE i ,                     "项目数
      total(50),
      total1 TYPE p DECIMALS 7.

DATA: g_lines_had TYPE i VALUE 0,        "计算有数据的行数
      index TYPE i VALUE 0.              "序号

DATA: g_lines_empty TYPE i VALUE 0.      "要打印的空行数

DATA: kbetr LIKE konv-kbetr,
      p_change LIKE konv-kbetr.

DATA: netwr(10).

DATA:netwr1 TYPE p DECIMALS 7,
     netwr2 TYPE p DECIMALS 7,
     netwr3 TYPE p DECIMALS 7.

DATA: name1(12).                         "制单人
DATA: params LIKE pri_params.
DATA: valid TYPE c.
DATA: datum LIKE sy-datum.

*****selection-screen***************************************************
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE tt1.
SELECT-OPTIONS: s_vkorg FOR likp-vkorg,                    "销售组织
s_regio FOR kna1-regio,
s_vkbur FOR knvv-vkbur,
                s_vbeln FOR likp-vbeln,"OBLIGATORY,        "交货单号码
                s_lfart FOR likp-lfart,
                s_kunag FOR likp-kunag,                    "售达方
                s_kunnr FOR likp-kunnr,                    "送达方kaijuli
                        s_kunnr1 FOR likp-kunnr NO-DISPLAY, "ADD V1.2
                s_erdat FOR likp-wadat_ist ,               "计划货物移动日期,实际发货过账日期
                s_wadat FOR likp-wadat_ist,
*                p_spart FOR vbrp-spart,
                s_ernam FOR usr21-bname,                   "创建者
                s_fkstk FOR vbuk-fkstk,                    "开票状态
                s_wbstk FOR vbuk-wbstk,                    "过帐状