一、功能业务逻辑
二、功能代码
二、机制代码
*&---------------------------------------------------------------------*
*& 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.<