SAP MM采购订单推送OA分享

一、功能业务逻辑

二、功能代码

二、功能代码

*&---------------------------------------------------------------------*
*& Report ZRPMM0008
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zrpmm0038.
************************************************************************
*                  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                                       *
************************************************************************
INCLUDE zrpmm0038_top.

INCLUDE zrpmm0038_form.


************************************************************************
*                  S T A R T  O F  S E L E C T I O N                   *
************************************************************************
START-OF-SELECTION.
************************************************************************
***********************************耗时处理*****************************
************************************************************************

  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 1
      text       = '数据处理中，请等待...'.


  PERFORM frm_get_data.

  PERFORM frm_show_data.
************************************************************************
*                  E N D  O F  S E L E C T I O N                       *
************************************************************************

*&---------------------------------------------------------------------*
*& 包含               ZRPMM0008_TOP
*&---------------------------------------------------------------------*
************************************************************************
*                  T A B L E S                                         *
************************************************************************
TABLES: ekko,ekpo.
************************************************************************
*                  T Y P E S                                           *
************************************************************************
TYPES:
  BEGIN OF ty_itab,
    ckbox       TYPE c,            "勾选框
    light       TYPE c LENGTH 20,  "红绿灯
    zmes        TYPE string,       "消息
    ebeln       TYPE ekpo-ebeln  , "采购凭证编号
    ebelp       TYPE ekpo-ebelp  , "采购凭证的项目编号
    bsart       TYPE ekko-bsart  , "凭证类型
    bstyp       TYPE ekko-bstyp,
    batxt       TYPE t161t-batxt  , "凭证类型描述
    bukrs       TYPE ekko-bukrs  , "公司代码
    butxt       TYPE t001-butxt  , "公司名称
    ekorg       TYPE ekko-ekorg  , "采购组织
    ekotx       TYPE t024e-ekotx  , "采购组织描述
    ekgrp       TYPE ekko-ekgrp  , "采购组
    eknam       TYPE t024-eknam  , "采购组描述
    lifnr       TYPE ekko-lifnr  , "供应商
    zname       TYPE c LENGTH 80  , "全称
    bu_sort1    TYPE but000-bu_sort1  , "简称
    zterm       TYPE ekko-zterm  , "付款条件
    text1       TYPE t052u-text1  , "付款条件描述
    waers       TYPE ekko-waers  , "货币
    werks       TYPE ekpo-werks  , "工厂
    name1       TYPE t001w-name1  , "工厂名称
    knttp       TYPE ekpo-knttp  , "科目分配类别
    pstyp       TYPE t163y-pstyp  , "
    EPSTP       TYPE t163y-EPSTP  , "项目类别
    matnr       TYPE ekpo-matnr  , "物料编码
    txz01       TYPE ekpo-txz01  , "短文本
    zwlcwb      TYPE mara-zwlcwb  ,               "规格：物料长文本
    matkl       TYPE ekpo-matkl  , "物料组
    wgbez       TYPE t023t-wgbez  , "物料组描述
    menge       TYPE ekpo-menge  , "采购订单数量
    meins       TYPE ekpo-meins  , "采购订单计量单位
    eindt       TYPE eket-eindt  , "交货日期
    netpr       TYPE ekpo-netpr  , "净价
    peinh       TYPE ekpo-peinh,
    znetpr      TYPE zde_price1_15_6,
    netwr       TYPE ekpo-netpr  , "未税金额
    znew_price  TYPE zde_price1_15_6  , "最新有效价格
    zlast_price TYPE zde_price1_15_6  , "最后入库单价
    zjzj        TYPE zde_price1_15_6  ,  "基准价
    afnam       TYPE ekpo-afnam  , "申请人姓名
    bednr       TYPE ekpo-bednr  , "需求跟踪编号
    aedat       TYPE ekko-aedat  , "创建日期
    ernam       TYPE ekko-ernam  , "创建人
    bstmi       TYPE marc-bstmi  , "最小订单量MOQ
    bstrf       TYPE marc-bstrf  , "最小包装量MPQ
    lmein       TYPE ekpo-lmein  , "基本计量单位
    retpo       TYPE ekpo-retpo  , "退货项目
    zrequest_id TYPE ekpo-zrequest_id  , "OA流程唯一码
    zlcbh       TYPE ekpo-zlcbh  , "OA流程编号
    zcnjhrq     TYPE ekpo-zcnjhrq,  "承诺交付日期
    zoazt       TYPE C  , "推送OA状态

  END OF ty_itab.

TYPES:
  BEGIN OF ty_oa_data,
    gsdm      TYPE ekko-bukrs  ,               "公司代码
    cgzz      TYPE ekko-ekorg  ,               "采购组织
    cgz       TYPE ekko-ekgrp  ,               "采购组
    pzlx      TYPE ekko-bsart  ,               "凭证类型
    gys       TYPE ekko-lifnr  ,               "供应商
    fktj      TYPE ekko-zterm  ,               "付款条件
    hb        TYPE ekko-waers  ,               "货币
    cgpzdxmbh TYPE ekpo-ebelp  ,               "采购凭证的项目编号
    gc        TYPE ekpo-werks  ,               "工厂
    kmfplb    TYPE ekpo-knttp  ,                "科目分配类别
    xmlb      TYPE t163y-pstyp  ,               "项目类别
    wlbm      TYPE ekpo-matnr  ,               "物料编码
    wlmc      TYPE ekpo-txz01  ,               "短文本
    zwlcwb    TYPE mara-zwlcwb  ,               "规格：物料长文本
    wlz       TYPE ekpo-matkl  ,               "物料组
    cgddsl    TYPE ekpo-menge  ,               "采购订单数量
    cgddjldw  TYPE ekpo-meins  ,               "采购订单计量单位
    jhrq      TYPE eket-eindt  ,               "交货日期
    jj        TYPE ekpo-netpr  ,               "净价
    wsje      TYPE ekpo-netwr  ,               "未税金额
    zxyxjg    TYPE ekpo-netwr  ,               "最新有效价格
    zhrkdj    TYPE ekpo-netwr  ,                "最后入库单价
    jzj      TYPE ekpo-netwr  ,                "基准价
  END OF ty_oa_data.

  TYPES:BEGIN OF ty_jzj,
        matnr      TYPE mara-matnr,
        pstyp      TYPE char4,
        waers      TYPE mseg-waers,
        zjzj       TYPE p DECIMALS 6,
        budat_mkpf TYPE mseg-budat_mkpf,
      END OF ty_jzj.

************************************************************************
*           I N N E R  T A B L E  A N D  W O R K A R E A       *
************************************************************************
DATA: gt_itab TYPE STANDARD TABLE OF ty_itab WITH HEADER LINE,
      gs_itab TYPE ty_itab,
      gt_out  TYPE TABLE OF ty_itab.

DATA: gt_jzj TYPE TABLE OF ty_jzj,
      gs_jzj TYPE ty_jzj.

************************************************************************
*                  V A R I A B L E                                     *
************************************************************************
DATA: l_peinh TYPE peinh.
DATA lv_flag TYPE i.
DATA lv_dw TYPE marm-umrez.
lv_dw = 1.
DATA: lv_year         TYPE string,
      lv_year_num     TYPE mseg-mjahr,
      lv_lastyear_num TYPE mseg-mjahr.
DATA: lv_start_date_qn TYPE sy-datum,  " 上一年开始日期
      lv_end_date_qn   TYPE sy-datum,  " 上一年结束日期
      lv_start_date_jn TYPE sy-datum,  " 今年开始日期
      lv_end_date_jn   TYPE sy-datum.  " 今年结束日期
************************************************************************
*                  C O N S T A N T S                                   *
************************************************************************

************************************************************************
*                  S E L E C T I O N  S C R E E N                     *
************************************************************************
SELECTION-SCREEN: BEGIN OF BLOCK blk1 WITH FRAME TITLE TEXT-t01.

  SELECT-OPTIONS: s_ebeln FOR ekko-ebeln,
                  s_lifnr FOR ekko-lifnr,
                  s_bsart FOR ekko-bsart,
                  s_bukrs FOR ekko-bukrs,
                  s_ekorg FOR ekko-ekorg,
                  s_ekgrp FOR ekko-ekgrp,
                  s_aedat FOR ekko-aedat,
                  s_ernam FOR ekko-ernam.

SELECTION-SCREEN: END OF BLOCK blk1.