SAP 订单状态跟踪

*&---------------------------------------------------------------------
*& 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

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