SAP SD销售订单执行跟踪报表分享
一、报表逻辑
二、报表代码
1）报表界面
2）报表代码
*&---------------------------------------------------------------------*
*& Report ZRPSD0011
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zrpsd0011.
************************************************************************
* A D M I N I S T R A T I O N *
************************************************************************
* DEV ID : WID0000
* Version : 0.00
* SAP Version : ECC6.0
* Program Name : ZFIR001
* Created by : wangtaojian@gmail.com
* Created on : 18.11.2013
* Description :
************************************************************************
************************************************************************
* C H A N G E H I S T O R Y *
************************************************************************
* CID Changed On Author Description
* 001 dd.mm.yyyy first.last Create.
* 002 dd.mm.yyyy first.last This is a DEMO description.
************************************************************************
************************************************************************
* I N C L U D E *
************************************************************************
************************************************************************
* T A B L E S *
************************************************************************
TABLES: vbak,vbap.
************************************************************************
* T Y P E S *
************************************************************************
TYPES:
BEGIN OF ty_out,
vbeln TYPE vbak-vbeln, "销售订单
posnr TYPE vbap-posnr, "销售订单项目
auart TYPE vbak-auart, "订单类型
zauart_text TYPE tvakt-bezei, "订单类型描述
audat TYPE vbak-audat, "凭证日期
kunnr TYPE vbak-kunnr, "售达方
zname TYPE ztsd018-zname, "售达方全称
zname_sort1 TYPE ztsd018-zname_sort1, "售达方简称
kunwe_ana TYPE vbap-kunwe_ana, "送达方
zsh_name TYPE ztsd018-zname, "送达方名称
zsh_name_jc TYPE ztsd018-zname_sort1, "送达方简称
bstkd TYPE ztsd018-bstkd, "客户采购订单
vkorg TYPE vbak-vkorg, "销售组织
zvkorg_text TYPE ztsd018-zvkorg_text, "销售组织描述
vtweg TYPE vbak-vtweg, "分销渠道
zvtweg_text TYPE ztsd018-zvtweg_text, "分销渠道描述
vkbur TYPE vbak-vkbur, "销售办公室
zvkbur_text TYPE ztsd018-zvkbur_text, "销售办公室描述
vkgrp TYPE vbak-vkgrp, "销售组
zvkgrp_text TYPE ztsd018-zvkgrp_text, "销售组描述
bzirk TYPE vbkd-bzirk, "销售区域
bztxt TYPE t171t-bztxt, "销售区域描述
waerk TYPE vbak-waerk, "币种
zterm TYPE vbkd-zterm, "付款条件
text1 TYPE t052u-text1, "付款条件描述
inco1 TYPE vbkd-inco1, "国际贸易条款
zinco1_text TYPE tinct-bezei, "国际贸易条款文本
erdat TYPE vbak-erdat, "创建日期
erzet TYPE vbak-erzet, "创建时间
augru TYPE vbak-augru, "订单原因
zaugru_text TYPE bezei30, "订单原因文本
gbstk TYPE vbak-gbstk, "订单完成状态
kvgr1 TYPE vbak-kvgr1, "责任单位
zkvgr1_text TYPE bezei30, "责任单位文本
kvgr2 TYPE vbak-kvgr2, "处理方式
zkvgr2_text TYPE bezei30, "处理方式文本
kvgr3 TYPE vbak-kvgr3, "审批状态
zkvgr3_text TYPE bezei30, "审批状态文本
zhead_text TYPE char200, "抬头备注
matnr TYPE vbap-matnr, "物料编码
arktx TYPE vbap-arktx, "物料描述
zwlcwb TYPE mara-zwlcwb, "物料完整描述
bismt TYPE mara-bismt, "旧物料号
zjxh TYPE mara-zjxh, "机型号
kdmat TYPE vbap-kdmat, "客户物料
zpostx TYPE vbap-zpostx, "客户物料描述
zcust_spec TYPE vbap-zcust_spec, "客户产品规格
werks TYPE vbap-werks, "工厂
zwerks_text TYPE ztsd018-zwerks_text, "工厂描述
kwmeng TYPE vbap-kwmeng, "订单数量
zmeng TYPE vbap-zmeng,
vrkme TYPE ztsd018-vrkme, "销售单位
meins TYPE mara-meins, "基本单位
etdat TYPE sy-datum, "客户交期
zpromised_date TYPE vbap-zpromised_date, "PMC回复交期
pltyp TYPE ztsd018-pltyp, "价格清单类型
prsdt TYPE sy-datum, "定价日期
zprice TYPE ztsd018-zprice, "含税单价
zprice_net TYPE ztsd018-zprice_net, "未税单价
zprice_md TYPE ztsd018-zprice_md, "价格主数据单价
zfirm_discount TYPE ztsd018-zfirm_discount, "返利折扣
zmwsbp TYPE ztsd018-zmwsbp, "税率%
ztax_account TYPE zssd_doc_price_o-ztax_account, "税额
netwr TYPE vbap-netwr, "未税金额
kzwi1 TYPE vbap-kzwi1, "含税金额
kursk TYPE vbkd-kursk, "汇率
pstyv TYPE vbap-pstyv, "项目类别
zpstyv_text TYPE bezei30, "项目类别描述
zendcustomer TYPE ztsd018-zendcustomer, "终端
zendcustomer_t TYPE ztsd018-zendcustomer_t, "终端描述
zcsperson TYPE vbak-zcsperson, "跟单员编号
zcsperson_t TYPE bezei30, "跟单员姓名
zsalesperson TYPE vbak-zsalesperson, "业务员工号
zsalesperson_t TYPE bezei30, "业务员姓名
zitem_text TYPE bezei30, "行项目备注
lfimg TYPE ztsd018-lfimg, "已发货数量
zunshipped_sales_quantity TYPE menge_d, "未发货数量
zunshipped_amount TYPE netpr, "未发货销售未税金额
zstock_quantity TYPE menge_d, "库存数量
lfgsa TYPE vbap-lfgsa, "总体交货状态
zlfgsa_text TYPE bezei30, "总体交货状态文本
zwayqjh TYPE char1, "未按预期交货
zwayqjh_text TYPE char5, "未按预期交货描述
zso_e10 TYPE vbap-zso_e10, "E10销售订单号
zitem_e10 TYPE vbap-zitem_e10, "E10销售订单行号
zold_so TYPE vbap-zold_so, "原销售订单号
zold_item TYPE vbap-zold_item, "原销售订单行号
znew_so TYPE vbap-znew_so, "补货销售订单号
znew_item TYPE vbap-znew_item, "补货销售订单行号
abgru TYPE vbap-abgru, "拒绝原因
zjjt1 TYPE tvagt-bezei, "拒绝原因描述
gbsta TYPE vbap-gbsta,
wbstk TYPE likp-wbstk,
spart TYPE vbap-spart,
zaufnr TYPE afko-aufnr, "最后一张生产订单
zaufnr_date TYPE sy-datum, "生产订单入库日期
zddbm TYPE vbak-zddbm, "自定义订单编码
prctr TYPE vbap-prctr, "利润中心
zprctr_text TYPE cepct-ktext, "利润中心描述
vsnmr_v TYPE vbak-vsnmr_v,
zprice_net_cny TYPE p LENGTH 15 DECIMALS 6, "人民币未税单价
zprice_cny TYPE p LENGTH 15 DECIMALS 6, "人民币含税单价
znetwr_cny TYPE p LENGTH 15 DECIMALS 2, "人民币未税金额
zkzwi1_cny TYPE p LENGTH 15 DECIMALS 2, "人民币含税金额
zgdhjsl TYPE afko-gamng, "工单合计数量
zwfhembwsje TYPE p LENGTH 15 DECIMALS 2,
zoardate TYPE vbap-zoardate1,
zoartime TYPE vbap-zoartime,
zoardate_alv(50) TYPE c,
budat TYPE mkpf-budat,
END OF ty_out.
TYPES: BEGIN OF ty_mseg_sum,
vbeln TYPE mseg-kdauf,
posnr TYPE mseg-kdpos,
erfmg TYPE mseg-erfmg,
END OF ty_mseg_sum.
************************************************************************
* I N N E R T A B L E A N D W O R K A R E A *
************************************************************************
DATA: gt_out TYPE TABLE OF ty_out,
gt_doc_price TYPE TABLE OF zssd_doc_price_o.
************************************************************************
* V A R I A B L E *
************************************************************************
DATA:gs_layout TYPE lvc_s_layo,
gv_setting TYPE lvc_s_glay,
gs_fieldcat TYPE lvc_s_fcat,
gt_fieldcat TYPE lvc_t_fcat.
DATA: lt_mseg_sum TYPE TABLE OF ty_mseg_sum,
lwa_mseg_sum TYPE ty_mseg_sum.
DATA: str1(25) TYPE c,
str2(25) TYPE c,
lr_auart TYPE RANGE OF vbak-auart.
lr_auart = VALUE #( BASE lr_auart[] ( sign = 'I' option = 'EQ' low