*&---------------------------------------------------------------------
*& Program name:
*& T-Code:
*& Porgram Type: Report
*& Description: 订单状
*&----------------------------------------------------------------------
*& Modification Log:
*& Version Date Author DESCRIPTION CHANGE REQUEST
* 2016/3/31
REPORT zsdr017 NO STANDARD PAGE HEADING MESSAGE-ID oo.
*----------------------------------------------------------------------*
* INCLUDE *
*----------------------------------------------------------------------*
"TYPES:vbfa.
TYPE-POOLS: slis.
*----------------------------------------------------------------------*
* CONSTANTS *
*----------------------------------------------------------------------*
"CONSTANTS: c_s TYPE bapi_mtype VALUE 'S'.
*----------------------------------------------------------------------*
* TYPES *
*----------------------------------------------------------------------*
TYPES: BEGIN OF typ_vbap ,
erdat TYPE vbak-erdat,
vdatu TYPE vbak-vdatu , "交货日期
vbeln TYPE vbak-vbeln,
kunnr TYPE vbak-kunnr,
vkorg TYPE vbak-vkorg,
vtweg TYPE vbak-vtweg,
spart TYPE vbak-spart,
spart2 TYPE vbap-spart,
bzirk TYPE vbkd-bzirk, "销售部
"route LIKE vttk-route, "路线
vkgrp TYPE vbak-vkgrp,
vkbur TYPE vbak-vkbur,
bstnk TYPE vbak-bstnk,
erzet TYPE vbak-erzet,
posnr TYPE vbap-posnr,
pstyv TYPE vbap-pstyv, "
matnr TYPE vbap-matnr,
arktx TYPE vbap-arktx,
werks TYPE vbap-werks,
* lgort type vbap-lgort ,
kwmeng TYPE vbap-kwmeng,
vrkme TYPE vbap-vrkme,
netwr TYPE vbap-netwr,
mwsbp TYPE vbap-mwsbp,
umvkz TYPE vbap-umvkz,
umvkn TYPE vbap-umvkn,
meins TYPE vbap-meins,
klmeng TYPE vbap-klmeng,
kdmat TYPE vbap-kdmat, "客户物料编码
kdmat_quan TYPE vbap-kwmeng,
auart TYPE vbak-auart, "订单类型
matkl TYPE vbap-matkl, "物料组
ztext TYPE string, "行项目长文本
* ------20120312修改------
vstel TYPE vbap-vstel, "装运点
* 20120406修改
rise_text TYPE tdline, "抬头文本
so_text TYPE tdline, "抬头文本
eannr LIKE vbap-eannr,
knumv LIKE vbak-knumv,
END OF typ_vbap .
TYPES: BEGIN OF typ_output.
INCLUDE TYPE typ_vbap.
TYPES: zsel TYPE c, "选择标识
name1_kna1 TYPE kna1-name1, "客户名称
bzirk_txt TYPE tvkbt-bezei, "销售部描述
route_txt LIKE tvkbt-bezei,
pstyv_txt LIKE tvapt-vtext, "行项目类型描述
bezei_tvkbt TYPE tvkbt-bezei, "销售大区描述
bezei_tvgrt TYPE tvgrt-bezei, "销售办事处描述
kunnr_we TYPE vbpa-kunnr, " 送达方代码
name1_we TYPE adrc-name1, " 送达方名称
name1_t001w TYPE t001w-name1, "工厂名称
lgobe TYPE t001l-lgobe, "库存名称
zdj TYPE vbap-netwr, "含税单价--销售单位
zsl_base TYPE vbap-kwmeng, "基本单位数量
zdj_base TYPE vbap-netwr, "含税单价--基本单位
absta TYPE vbup-absta, "so项目状态
zabsta_des TYPE char10, "拒绝状态描述
kdgrp TYPE knvv-kdgrp, "客户组
ktext TYPE t151t-ktext, "客户组描述
dmbtr LIKE bseg-dmbtr, "新增金额字段
"PO采购订单信息
ebeln_po TYPE ekko-ebeln,
aedat_po TYPE ekko-aedat,