设为首页收藏本站站点任务
请登陆 注册有礼
二维码
网站快捷导航

订单满足率分析报表

Twilight发表于 2014-04-29 11:49Twilight 最后回复于 2014-04-29 11:49 [复制链接] 7823 0

一、需求描述：
新建事物代码、程序提供订单汇总报表
①界面
查询条件：
大区代码
区间值，加搜索帮助 BZIRK
事业部
区间值，加搜索帮助
产品层次
区间值，加搜索帮助  
采购订单凭证日期
区间值，加搜索帮助
交货日期
区间值，加搜索帮助
汇总纬度：单选

事业部

事业部+产品层次

大区

大区+事业部

畅销纬度: 单选

总部级别

DC级别

②处理逻辑
根据输入的大区代码BZIRK到表T001W里可获取对应的地点WERKS；品类编码（产品层次前5位）、产品层次编码到表mara可获取商品编码MATNR   
EKKO采购凭证抬头 EKPO采购凭证项目EKET计划协议计划行
凭证日期=EKKO-BEDAT；商品编码=EKPO-MATNR ；地点=EKPO-WERKS；交货日期=EKET-EINDT；EKPO-LOEKZ（采购凭证删除标识）等于空（未删除），EKPO-RETPO（退货项目）等于空（正向订单），EKET-EINDT不等于EKKO-BEDAT（交货日期不等于凭证日期），EKKO-FRGKE（批准标识：采购凭证）=2（审核完成）；EKKO-BSART（采购凭证类型）=NB、ZNB1、ZNB2（常规、特价、包销）；EKPO-ZZSERVG（标识：代销商品）等于空（经销订单）
当输入条件为空时，表示不限值，全部查询
根据以上逻辑能够确认出查询范围内的所有采购凭证号EBELN+行项目号

按照以下字段取值逻辑以汇总纬度汇总对应订单数据
  字段名称
取值逻辑
处理订单数据范围
汇总纬度+各自名称
采购商品金额
订单金额
  
为获取的所有订单数据
  
收货商品金额
EKBE-dmbtr*（1+rates）
收货凭证金额*（1+税率）
  
仍需交货金额
  		 EKPO-KZWI1/EKPO-MENGE*（EKPO-MENGE-EKET-WEMNG）
订单金额/订单数量*（订单数量-已交货数量）
订单满足率
收货商品金额/采购商品金额
总部畅销品采购金额EKPO-KZWI1 订单金额  
为商品为畅销的订单数据,仅当畅销纬度选总部级别时展示
  
总部畅销品订单占比
总部畅销品采购金额/采购商品金额
总部畅销品收货金额rece_goods_zb
EKBE-dmbtr*（1+rates）
收货凭证金额*（1+税率）
总部畅销品收货占比sales_re_zb
总部畅销品收货金额/收货商品金额
DC畅销品采购金额
EKPO-KZWI1   
订单金额
  
为商品、地点为DC畅销的订单数据，仅当畅销纬度选DC级别时展示
  
DC畅销品订单占比
总部畅销品采购金额/采购商品金额
DC畅销品收货金额
EKBE-dmbtr*（1+rates）
收货凭证金额*（1+税率）
DC畅销品收货占比
总部畅销品收货金额/收货商品金额

畅销品取值：如果畅销纬度选取的是总部KAPPL =M，KSCHL条件类型='ZXSL'  商品=订单的商品编码  有效期包括当前，到表a655取出对应的条件记录号，根据条件记录号到表konp取未删除的值LOEVM_KO，如果值为11，该订单行项目数据为总部畅销


如果畅销纬度选取的是DC，条件类型='ZXSL' 商品=订单的商品编码 地点=订单地点 有效期包括当前（如果订单地点不是D库，需要到表zput072，根据订单地点= zput072- WERKS，取出地点对应的D库），到表a729取出对应的条件记录号，根据条件记录号到表konp取未删除的值，如果有值为11，该订单行项目数据为DC畅销

税率取值：如果国家为非CN，根据国家，到MEK3的条件类型MWST中，找到对应的税，否则为0.17


二、选择屏幕及执行效果：
订单满足率分析报表选择屏幕.png

订单满足率分析报表.png
三、程序代码：
  1. REPORT zdqpu_136 MESSAGE-ID 00.

  3. *&---------------------------------------------------------------------*
  4. *& INCLUDE
  5. *&---------------------------------------------------------------------*
  6. INCLUDE zdqpu_136_top.                "Type/Data
  7. INCLUDE zdqpu_136_selscr.        "Selection screen
  8. INCLUDE zdqpu_136_form.                "Form

  10. *&---------------------------------------------------------------------*
  11. *& 初始化处理
  12. *&---------------------------------------------------------------------*
  13. INITIALIZATION.

  15. *&---------------------------------------------------------------------*
  16. *& 选择屏幕控制
  17. *&---------------------------------------------------------------------*
  18. AT SELECTION-SCREEN OUTPUT.

  20. *&---------------------------------------------------------------------*
  21. *& 参数输入检查
  22. *&---------------------------------------------------------------------*
  23. AT SELECTION-SCREEN.
  24.   PERFORM f_authority_check.
  25.   PERFORM f_screen_check.

  27. *&---------------------------------------------------------------------*
  28. *& 选择屏幕的F4帮助
  29. *&---------------------------------------------------------------------*
  30. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_stufe1-low.
  31.   PERFORM f_stufe_f4 USING s_stufe1-low '1'.

  33. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_stufe1-high.
  34.   PERFORM f_stufe_f4 USING s_stufe1-high '1'.

  36. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_stufe2-low.
  37.   PERFORM f_stufe_f4 USING s_stufe2-low '2'.

  39. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_stufe2-high.
  40.   PERFORM f_stufe_f4 USING s_stufe2-high '2'.

  42. *&---------------------------------------------------------------------*
  43. *& 程序开始处理
  44. *&---------------------------------------------------------------------*
  45. START-OF-SELECTION.
  46.   PERFORM f_get_data. "取数逻辑
  47.   PERFORM f_process_data.
  48.   PERFORM f_ALV_display.

  50. *&---------------------------------------------------------------------*
  51. *& 程序结束处理
  52. *&---------------------------------------------------------------------*
  53. END-OF-SELECTION.
  54. *  PERFORM xxxxxxx.
复制代码
INCLUDE zdqpu_136_top.                "Type/Data
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZDQPU_136_TOP
  3. *&---------------------------------------------------------------------*
  4. TABLES:t171t,t179,ekko,eket.
  5. RANGES r_bsart FOR ekko-bsart.
  6. r_bsart-sign   = 'I'.
  7. r_bsart-option = 'EQ'.
  8. r_bsart-low    = 'NB'.
  9. APPEND r_bsart.
  10. r_bsart-sign   = 'I'.
  11. r_bsart-option = 'EQ'.
  12. r_bsart-low    = 'ZNB1'.
  13. APPEND r_bsart.
  14. r_bsart-sign   = 'I'.
  15. r_bsart-option = 'EQ'.
  16. r_bsart-low    = 'ZNB2'.
  17. APPEND r_bsart.

  19. RANGES r_frgke FOR ekko-frgke.
  20. r_frgke-sign   = 'I'.
  21. r_frgke-option = 'EQ'.
  22. r_frgke-low    = '2'.
  23. APPEND r_frgke.
  24. r_frgke-sign   = 'I'.
  25. r_frgke-option = 'EQ'.
  26. r_frgke-low    = ' '.
  27. APPEND r_frgke.

  29. *-->为获取 采购凭证号+行项目号 定义的结构
  30. TYPES : BEGIN OF ty_t179,
  31.          prodh   TYPE t179-prodh,
  32.        END OF ty_t179.
  33. TYPES : BEGIN OF ty_t001w,
  34.          werks   TYPE t001w-werks,
  35.          bzirk   TYPE t001w-bzirk,
  36.        END OF ty_t001w.
  37. TYPES : BEGIN OF ty_t001w_land1,
  38.          werks   TYPE t001w-werks,
  39.          land1   TYPE t001w-land1,
  40.        END OF ty_t001w_land1.
  41. TYPES : BEGIN OF ty_mara,
  42.          matnr   TYPE mara-matnr,
  43.          prdha   TYPE mara-prdha,
  44.         END OF ty_mara.
  45. TYPES : BEGIN OF ty_ekko_ekpo,
  46.          ebeln   TYPE ekko-ebeln,
  47.          ebelp   TYPE ekpo-ebelp,
  48.          matnr   TYPE ekpo-matnr,
  49.          bedat   TYPE ekko-bedat,
  50.          kzwi1   TYPE ekpo-kzwi1,"订单金额
  51.          menge   TYPE ekpo-menge,"订单数量
  52.          werks   TYPE ekpo-werks,"地点
  53.          bukrs   TYPE ekpo-bukrs,"公司代码
  54.          elikz   TYPE ekpo-elikz,"交货已完成 标识
  55.        END OF ty_ekko_ekpo.
  56. TYPES : BEGIN OF ty_eket,
  57.          ebeln   TYPE eket-ebeln,
  58.          ebelp   TYPE eket-ebelp,
  59.          etenr   TYPE eket-etenr,"交货计划行计数器
  60.          eindt   TYPE eket-eindt,
  61.          wemng   TYPE eket-wemng,"已交货数量
  62.        END OF ty_eket.
  63. TYPES : BEGIN OF ty_result,
  64.          ebeln   TYPE ekpo-ebeln,
  65.          ebelp   TYPE ekpo-ebelp,
  66.         END OF ty_result.
  67. *-->获取数据定义的结构
  68. TYPES : BEGIN OF ty_ekbe,
  69.          ebeln   TYPE ekbe-ebeln,
  70.          ebelp   TYPE ekbe-ebelp,
  71.          zekkn   TYPE ekbe-zekkn,
  72.          vgabe   TYPE ekbe-vgabe,
  73.          gjahr   TYPE ekbe-gjahr,
  74.          belnr   TYPE ekbe-belnr,
  75.          buzei   TYPE ekbe-buzei,
  76.          dmbtr   TYPE ekbe-dmbtr,"收货凭证金额
  77.          shkzg   TYPE ekbe-shkzg,"S金额为正，H金额是负
  78.          werks   TYPE ekbe-werks,"地点
  79.         END OF ty_ekbe.
  80. TYPES : BEGIN OF ty_ekbe_sum,
  81.          ebeln   TYPE ekbe-ebeln,
  82.          ebelp   TYPE ekbe-ebelp,
  83.          dmbtr   TYPE ekbe-dmbtr,"收货凭证金额
  84.         END OF ty_ekbe_sum.
  85. TYPES : BEGIN OF ty_ekpo_data,
  86.          ebeln   TYPE ekpo-ebeln,
  87.          ebelp   TYPE ekpo-ebelp,
  88.          kzwi1   TYPE ekpo-kzwi1,"订单金额
  89.          menge   TYPE ekpo-menge,"订单数量
  90.          matnr   TYPE ekpo-matnr,"商品编码
  91.          werks   TYPE ekpo-werks,"地点
  92.          bukrs   TYPE ekpo-bukrs,"公司代码
  93.          elikz   TYPE ekpo-elikz,
  94.         END OF ty_ekpo_data.
  95. TYPES : BEGIN OF ty_eket_data,
  96.          ebeln   TYPE eket-ebeln,
  97.          ebelp   TYPE eket-ebelp,
  98.          wemng   TYPE eket-wemng,
  99.         END OF  ty_eket_data.
  100. TYPES: BEGIN OF ty_t171t_data,
  101.          bzirk   TYPE t171t-bzirk,"销售地区
  102.          bztxt   TYPE t171t-bztxt,"描述
  103.        END OF ty_t171t_data.
  104. TYPES: BEGIN OF ty_mara_data,
  105.          matnr   TYPE mara-matnr,
  106.          prdha   TYPE mara-prdha,
  107.        END OF ty_mara_data.
  108. TYPES: BEGIN OF ty_t179t_data,
  109.          prodh   TYPE t179t-prodh,
  110.          vtext   TYPE t179t-vtext,
  111.        END OF ty_t179t_data.
  112. TYPES: BEGIN OF ty_a655_data,
  113.         matnr   TYPE a655-matnr,
  114.         knumh   TYPE a655-knumh,"条件记录号
  115.        END OF ty_a655_data.
  116. TYPES: BEGIN OF ty_konp_data,
  117.         knumh    TYPE konp-knumh,"条件记录号
  118.         kbetr     TYPE konp-kbetr,"价格 (条件金额或百分数 ) 无等级存在
  119.        END OF ty_konp_data.
  120. TYPES: BEGIN OF ty_zput072_data,
  121.          werks    TYPE zput072-werks,"地点
  122.          dwerk    TYPE zput072-dwerk,"D库
  123.        END OF ty_zput072_data.
  124. *-->最终明细报表的结构
  125. TYPES : BEGIN OF ty_display_data,
  126.          ebeln   TYPE ekbe-ebeln,
  127.          ebelp   TYPE ekbe-ebelp,
  128.          bzirk   TYPE t001w-bzirk,"销售大区
  129.          bztxt   TYPE t171t-bztxt,"销售大区描述
  130.          stufe1  TYPE t179-prodh,"事业部
  131.          vtext1   TYPE t179t-vtext,"事业部 描述
  132.          stufe2  TYPE t179-prodh,"产品层次
  133.          vtext2   TYPE t179t-vtext,"产品层次 描述
  134.          dmbtr   TYPE ekbe-dmbtr,"收货凭证金额
  135.          kzwi1   TYPE ekpo-kzwi1,"订单金额
  136.          menge   TYPE ekpo-menge,"订单数量
  137.          matnr   TYPE ekpo-matnr,"商品编码
  138.          elikz   TYPE ekpo-elikz,
  139.          werks   TYPE ekpo-werks,"地点
  140.          bukrs   TYPE ekpo-bukrs,"公司代码
  141.          wemng   TYPE eket-wemng,"已交货数量
  142.          rates   TYPE rates,"税率
  143.          order_satis(10) TYPE c,"订单满足率
  144.          rece_goods TYPE ekpo-kzwi1,"收货商品金额
  145.          deli_goods TYPE ekpo-kzwi1,"仍需交货金额
  146.          dmbtr_zb   TYPE ekbe-dmbtr,"总部收货凭证金额
  147.          kzwi1_zb   TYPE ekpo-kzwi1,"总部订单金额
  148.          rece_goods_zb TYPE ekpo-kzwi1,"总部收货商品金额
  149.          dmbtr_dc   TYPE ekbe-dmbtr,"DC收货凭证金额
  150.          kzwi1_dc   TYPE ekpo-kzwi1,"DC订单金额
  151.          rece_goods_dc TYPE ekpo-kzwi1,"DC收货商品金额
  152.         END OF ty_display_data.
  153. *-->最终alv显示汇总报表的结构
  154. TYPES : BEGIN OF ty_display_sum,
  155.          bzirk   TYPE t001w-bzirk,"销售大区
  156.          bztxt   TYPE t171t-bztxt,"销售大区描述
  157.          stufe1  TYPE t179-prodh,"事业部
  158.          vtext1   TYPE t179t-vtext,"事业部描述
  159.          stufe2  TYPE t179-prodh,"产品层次
  160.          vtext2   TYPE t179t-vtext,"产品层次 描述
  161.          kzwi1_sum  TYPE ekpo-kzwi1,"采购商品金额
  162.          rece_goods TYPE ekpo-kzwi1,"收货商品金额
  163.          deli_goods TYPE ekpo-kzwi1,"仍需交货金额
  164.          order_satis(10) TYPE c,"订单满足率
  165.          dmbtr_zb   TYPE ekbe-dmbtr,"总部收货凭证金额
  166.          kzwi1_zb   TYPE ekpo-kzwi1,"总部订单金额
  167.          rece_goods_zb TYPE ekpo-kzwi1,"总部收货商品金额
  168.          sales_zb(10)   TYPE c,"总部畅销品订单占比
  169.          sales_re_zb(10) TYPE c,"总部畅销品收货占比
  170.          dmbtr_dc   TYPE ekbe-dmbtr,"DC收货凭证金额
  171.          kzwi1_dc   TYPE ekpo-kzwi1,"DC订单金额
  172.          rece_goods_dc TYPE ekpo-kzwi1,"DC收货商品金额
  173.          sales_dc(10)   TYPE c,"DC畅销品订单占比
  174.          sales_re_dc(10) TYPE c,"DC畅销品收货占比
  175.         END OF ty_display_sum.
  176. *-->最终collect汇总报表的结构
  177. TYPES : BEGIN OF ty_display_stufe1,"按事业部汇总
  178.          stufe1  TYPE t179-prodh,"事业部
  179.          vtext1   TYPE t179t-vtext,"事业部描述
  180.          kzwi1   TYPE ekpo-kzwi1,"订单金额
  181.          kzwi1_sum  TYPE ekpo-kzwi1,"采购商品金额
  182.          rece_goods TYPE ekpo-kzwi1,"收货商品金额
  183.          deli_goods TYPE ekpo-kzwi1,"仍需交货金额
  184.          dmbtr_zb   TYPE ekbe-dmbtr,"总部收货凭证金额
  185.          kzwi1_zb   TYPE ekpo-kzwi1,"总部订单金额
  186.          rece_goods_zb TYPE ekpo-kzwi1,"总部收货商品金额
  187.          dmbtr_dc   TYPE ekbe-dmbtr,"DC收货凭证金额
  188.          kzwi1_dc   TYPE ekpo-kzwi1,"DC订单金额
  189.          rece_goods_dc TYPE ekpo-kzwi1,"DC收货商品金额
  190.         END OF ty_display_stufe1.
  191. TYPES : BEGIN OF ty_display_stufe,"按事业部+产品层次汇总
  192.          stufe1  TYPE t179-prodh,"事业部
  193.          vtext1   TYPE t179t-vtext,"事业部描述
  194.          stufe2  TYPE t179-prodh,"产品层次
  195.          vtext2   TYPE t179t-vtext,"产品层次描述
  196.          kzwi1   TYPE ekpo-kzwi1,"订单金额
  197.          kzwi1_sum  TYPE ekpo-kzwi1,"采购商品金额
  198.          rece_goods TYPE ekpo-kzwi1,"收货商品金额
  199.          deli_goods TYPE ekpo-kzwi1,"仍需交货金额
  200.          dmbtr_zb   TYPE ekbe-dmbtr,"总部收货凭证金额
  201.          kzwi1_zb   TYPE ekpo-kzwi1,"总部订单金额
  202.          rece_goods_zb TYPE ekpo-kzwi1,"总部收货商品金额
  203.          dmbtr_dc   TYPE ekbe-dmbtr,"DC收货凭证金额
  204.          kzwi1_dc   TYPE ekpo-kzwi1,"DC订单金额
  205.          rece_goods_dc TYPE ekpo-kzwi1,"DC收货商品金额
  206.         END OF ty_display_stufe.
  207. TYPES : BEGIN OF ty_display_bzirk,"按销售大区汇总
  208.          bzirk  TYPE t001w-bzirk,"销售大区
  209.          bztxt   TYPE t171t-bztxt,"销售大区描述
  210.          kzwi1   TYPE ekpo-kzwi1,"订单金额
  211.          kzwi1_sum  TYPE ekpo-kzwi1,"采购商品金额
  212.          rece_goods TYPE ekpo-kzwi1,"收货商品金额
  213.          deli_goods TYPE ekpo-kzwi1,"仍需交货金额
  214.          dmbtr_zb   TYPE ekbe-dmbtr,"总部收货凭证金额
  215.          kzwi1_zb   TYPE ekpo-kzwi1,"总部订单金额
  216.          rece_goods_zb TYPE ekpo-kzwi1,"总部收货商品金额
  217.          dmbtr_dc   TYPE ekbe-dmbtr,"DC收货凭证金额
  218.          kzwi1_dc   TYPE ekpo-kzwi1,"DC订单金额
  219.          rece_goods_dc TYPE ekpo-kzwi1,"DC收货商品金额
  220.         END OF ty_display_bzirk.
  221. TYPES : BEGIN OF ty_display_bzirk_stufe1,"按销售大区+事业部汇总
  222.          bzirk  TYPE t001w-bzirk,"销售大区
  223.          bztxt   TYPE t171t-bztxt,"销售大区描述
  224.          stufe1  TYPE t179-prodh,"事业部
  225.          vtext1   TYPE t179t-vtext,"事业部 描述
  226.          kzwi1   TYPE ekpo-kzwi1,"订单金额
  227.          kzwi1_sum  TYPE ekpo-kzwi1,"采购商品金额
  228.          rece_goods TYPE ekpo-kzwi1,"收货商品金额
  229.          deli_goods TYPE ekpo-kzwi1,"仍需交货金额
  230.          dmbtr_zb   TYPE ekbe-dmbtr,"总部收货凭证金额
  231.          kzwi1_zb   TYPE ekpo-kzwi1,"总部订单金额
  232.          rece_goods_zb TYPE ekpo-kzwi1,"总部收货商品金额
  233.          dmbtr_dc   TYPE ekbe-dmbtr,"DC收货凭证金额
  234.          kzwi1_dc   TYPE ekpo-kzwi1,"DC订单金额
  235.          rece_goods_dc TYPE ekpo-kzwi1,"DC收货商品金额
  236.         END OF ty_display_bzirk_stufe1.
  237. *-->汇率
  238. TYPES: BEGIN OF ty_t005,
  239.          land1   TYPE t005-land1,
  240.          waers   TYPE t005-waers,
  241.        END OF ty_t005.

  243. DATA: gt_t001w TYPE TABLE OF ty_t001w WITH HEADER LINE.
  244. DATA: gt_t005 TYPE TABLE OF ty_t005 WITH HEADER LINE.
  245. DATA: gt_t001w_com TYPE TABLE OF ty_t001w WITH HEADER LINE.
  246. DATA: gt_t001w_land1 TYPE TABLE OF ty_t001w_land1 WITH HEADER LINE.
  247. DATA: gt_mara TYPE TABLE OF ty_mara WITH HEADER LINE.
  248. DATA: gt_ekko_ekpo TYPE TABLE OF ty_ekko_ekpo WITH HEADER LINE.
  249. DATA: gt_ekko_ekpo_temp TYPE TABLE OF ty_ekko_ekpo WITH HEADER LINE.
  250. DATA: gt_ekko_ekpo_temp_com TYPE TABLE OF ty_ekko_ekpo WITH HEADER LINE.
  251. DATA: gt_eket TYPE TABLE OF ty_eket WITH HEADER LINE.
  252. DATA: gt_result TYPE TABLE OF ty_result WITH HEADER LINE.
  253. DATA: gt_result_temp TYPE TABLE OF ty_result WITH HEADER LINE.
  254. DATA: gt_ekbe TYPE TABLE OF ty_ekbe WITH HEADER LINE.
  255. DATA: gt_ekbe_temp TYPE TABLE OF ty_ekbe WITH HEADER LINE.
  256. DATA: gt_ekbe_sum TYPE TABLE OF ty_ekbe_sum WITH HEADER LINE.
  257. DATA: gt_ekpo_data TYPE TABLE OF ty_ekpo_data WITH HEADER LINE.
  258. DATA: gt_ekpo_data_temp TYPE TABLE OF ty_ekpo_data WITH HEADER LINE.
  259. DATA: gt_eket_data TYPE TABLE OF ty_eket_data WITH HEADER LINE.
  260. DATA: gt_eket_data_temp TYPE TABLE OF ty_eket_data WITH HEADER LINE.
  261. DATA: gt_t171t_data TYPE TABLE OF ty_t171t_data WITH HEADER LINE.
  262. DATA: gt_t171t_data_temp TYPE TABLE OF ty_t171t_data WITH HEADER LINE.
  263. DATA: gt_t001w_data TYPE TABLE OF ty_t001w WITH HEADER LINE.
  264. DATA: gt_mara_data TYPE TABLE OF ty_mara_data WITH HEADER LINE.
  265. DATA: gt_t179t_data TYPE TABLE OF ty_t179t_data WITH HEADER LINE.
  266. DATA: gt_a655_data TYPE TABLE OF ty_a655_data WITH HEADER LINE.
  267. DATA: gt_a655_data_temp TYPE TABLE OF ty_a655_data WITH HEADER LINE.
  268. DATA: gt_a729_data TYPE TABLE OF ty_a655_data WITH HEADER LINE.
  269. DATA: gt_a729_data_temp TYPE TABLE OF ty_a655_data WITH HEADER LINE.
  270. DATA: gt_konp_data TYPE TABLE OF ty_konp_data WITH HEADER LINE.
  271. DATA: gt_zput072_data TYPE TABLE OF ty_zput072_data WITH HEADER LINE.
  272. DATA: gt_display_data TYPE TABLE OF ty_display_data WITH HEADER LINE.
  273. DATA: gt_display_data_temp TYPE TABLE OF ty_display_data WITH HEADER LINE.
  274. DATA: gt_display_sum TYPE TABLE OF ty_display_sum WITH HEADER LINE.
  275. DATA: gt_display_stufe1 TYPE TABLE OF ty_display_stufe1 WITH HEADER LINE.
  276. DATA: gt_display_stufe TYPE TABLE OF ty_display_stufe WITH HEADER LINE.
  277. DATA: gt_display_bzirk TYPE TABLE OF ty_display_bzirk WITH HEADER LINE.
  278. DATA: gt_display_bzirk_stufe1 TYPE TABLE OF ty_display_bzirk_stufe1 WITH HEADER LINE.

  280. DATA: gv_show_pec TYPE i.
  281. DATA: gv_show_pec_c(6).
  282. DATA: gv_show_str(200).
复制代码

INCLUDE zdqpu_136_selscr.        "Selection screen
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZDQPU_136_SELSCR
  3. *&---------------------------------------------------------------------*
  4. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
  5. SELECT-OPTIONS: s_bzirk  FOR t171t-bzirk,"销售地区
  6.                 s_stufe1 FOR t179-prodh,"事业部
  7.                 s_stufe2 FOR t179-prodh,"产品层次
  8.                 s_ekorg  FOR ekko-ekorg,"采购组织
  9.                 s_bedat  FOR ekko-bedat OBLIGATORY,"采购凭证日期
  10.                 s_eindt  FOR eket-eindt."项目交货日期
  11. SELECTION-SCREEN END OF BLOCK b1.

  13. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
  14. PARAMETERS: pr_1 RADIOBUTTON GROUP rad1 DEFAULT 'X', "事业部
  15.             pr_2 RADIOBUTTON GROUP rad1,"事业部+产品层次
  16.             pr_3 RADIOBUTTON GROUP rad1,"大区
  17.             pr_4 RADIOBUTTON GROUP rad1."大区+事业部
  18. SELECTION-SCREEN END OF BLOCK b2.

  20. SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
  21. PARAMETERS: pr_zb RADIOBUTTON GROUP rad2 DEFAULT 'X', "总部级别 订单数据
  22.             pr_dc RADIOBUTTON GROUP rad2."DC级别 订单数据
  23. SELECTION-SCREEN END OF BLOCK b3.

  25. SELECTION-SCREEN COMMENT /1(79) text-004.
  26. SELECTION-SCREEN COMMENT /1(79) text-005.
  27. SELECTION-SCREEN COMMENT /1(83) text-006.
  28. SELECTION-SCREEN COMMENT /1(79) text-007.
  29. SELECTION-SCREEN COMMENT /1(79) text-008.
  30. SELECTION-SCREEN COMMENT /1(79) text-009.
  31. SELECTION-SCREEN COMMENT /1(79) text-010.
  32. SELECTION-SCREEN COMMENT /1(79) text-011.
  33. SELECTION-SCREEN COMMENT /1(79) text-012.
复制代码

INCLUDE zdqpu_136_form.                "Form

  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZDQPU_136_FORM
  3. *&---------------------------------------------------------------------*
  4. *&---------------------------------------------------------------------*
  5. *&      Form  f_stufe1_f4
  6. *&---------------------------------------------------------------------*
  7. *       事业部和产品层次的F4帮助
  8. *----------------------------------------------------------------------*
  9. FORM f_stufe_f4 USING p_s_stufe TYPE t179-prodh
  10.                        l_where TYPE c.
  11.   DATA: lt_t179 TYPE TABLE OF ty_t179 WITH HEADER LINE.
  12.   DATA: lt_t179t TYPE TABLE OF ty_t179t_data.
  13.   DATA: lt_return_values TYPE TABLE OF ddshretval,          "#EC NEEDED
  14.         ls_return_values LIKE LINE OF lt_return_values.     "#EC NEEDED
  15.   CLEAR: p_s_stufe, ls_return_values.
  16.   REFRESH: lt_t179, lt_return_values.
  17.   SELECT prodh
  18.     INTO TABLE lt_t179
  19.     FROM t179
  20.     WHERE stufe = l_where.
  21.   IF lt_t179[] IS NOT INITIAL.
  22.     SORT lt_t179 BY prodh.
  23.     DELETE ADJACENT DUPLICATES FROM lt_t179 COMPARING prodh.
  24.     SELECT prodh
  25.            vtext
  26.     INTO TABLE lt_t179t
  27.     FROM t179t
  28.     FOR ALL ENTRIES IN lt_t179
  29.     WHERE prodh = lt_t179-prodh
  30.       AND spras = sy-langu.
  31.   ENDIF.

  33.   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  34.     EXPORTING
  35.       retfield        = 'PRODH'
  36.       value_org       = 'S'
  37.     TABLES
  38.       value_tab       = lt_t179t
  39.       return_tab      = lt_return_values
  40.     EXCEPTIONS
  41.       parameter_error = 1
  42.       no_values_found = 2
  43.       OTHERS          = 3.
  44.   IF sy-subrc <> 0.
  45.     MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
  46.             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  47.   ELSE.
  48.     READ TABLE lt_return_values INTO ls_return_values INDEX 1.
  49.     p_s_stufe = ls_return_values-fieldval.
  50.   ENDIF.
  51. ENDFORM.                    " f_stufe_f4

  53. *&---------------------------------------------------------------------*
  54. *&      Form  f_get_data
  55. *&---------------------------------------------------------------------*
  56. *       获取符合条件的采购凭证号+行项目号
  57. *----------------------------------------------------------------------*
  58. FORM f_get_data .
  59. *-->获取采购凭证号+行项目号
  60.   SELECT werks "地点
  61.          bzirk"销售地区
  62.   INTO TABLE gt_t001w
  63.   FROM t001w
  64.   WHERE bzirk IN s_bzirk.
  65.   gt_t001w_com[] = gt_t001w[].

  67.   gv_show_pec = 10.
  68.   MOVE : gv_show_pec TO gv_show_pec_c.
  69.   CONCATENATE '正在抽取符合条件单据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  70.   PERFORM f_show_clock USING gv_show_str gv_show_pec.

  72.   IF gt_t001w[] IS NOT INITIAL.
  73.     SORT gt_t001w BY werks.
  74.     DELETE ADJACENT DUPLICATES FROM gt_t001w[] COMPARING werks.
  75.     SELECT ekko~ebeln
  76.            ekpo~ebelp
  77.            ekpo~matnr
  78.            ekko~bedat
  79.            ekpo~kzwi1"订单金额
  80.            ekpo~menge"订单数量
  81.            ekpo~werks"地点
  82.            ekpo~bukrs"公司代码
  83.            ekpo~elikz""交货已完成" 标识
  84.     INTO TABLE gt_ekko_ekpo_temp
  85.     FROM ekko
  86.     INNER JOIN ekpo ON ekpo~ebeln = ekko~ebeln
  87.     FOR ALL entries IN gt_t001w
  88.     WHERE ekko~bsart IN r_bsart          "('NB','ZNB1','ZNB2')
  89.       AND ekko~bedat IN s_bedat          "凭证日期
  90.       AND ekko~ekorg IN s_ekorg
  91.       AND ekko~frgke IN r_frgke        "批准标识：采购凭证('2','SPACE')
  92.       AND ekpo~loekz = space             "采购凭证删除标识等于空
  93.       AND ekpo~werks = gt_t001w-werks
  94.       AND ekpo~retpo = space             "退货项目等于空（正向订单）
  95.       AND ekpo~zzservg = space.          "标识：代销商品等于空（经销订单）
  96.     gt_ekko_ekpo_temp_com[] = gt_ekko_ekpo_temp[].
  97.     REFRESH gt_t001w[].
  98.   ENDIF.

  100.   IF gt_ekko_ekpo_temp[] IS NOT INITIAL.
  101.     SORT gt_ekko_ekpo_temp BY ebeln ebelp.
  102.     DELETE ADJACENT DUPLICATES FROM gt_ekko_ekpo_temp COMPARING ebeln ebelp.
  103.     SELECT ebeln
  104.            ebelp
  105.            etenr"交货计划行计数器
  106.            eindt
  107.            wemng"已交货数量
  108.     INTO TABLE gt_eket
  109.     FROM eket
  110.     FOR ALL ENTRIES IN gt_ekko_ekpo_temp
  111.     WHERE ebeln = gt_ekko_ekpo_temp-ebeln
  112.       AND ebelp = gt_ekko_ekpo_temp-ebelp
  113.       AND eindt IN s_eindt.  "交货日期
  114.   ENDIF.

  116.   IF gt_ekko_ekpo_temp[] IS NOT INITIAL.
  117.     SORT gt_ekko_ekpo_temp BY ebeln ebelp.
  118.     DELETE ADJACENT DUPLICATES FROM gt_ekko_ekpo_temp[] COMPARING ebeln ebelp.
  119.     SELECT matnr
  120.            prdha
  121.     INTO TABLE gt_mara
  122.     FROM mara
  123.     FOR ALL ENTRIES IN gt_ekko_ekpo_temp
  124.     WHERE mara~matnr = gt_ekko_ekpo_temp-matnr
  125.       AND mara~prdha IN s_stufe2.
  126.   ENDIF.

  128.   SORT gt_eket BY ebeln ebelp eindt.
  129.   LOOP AT gt_ekko_ekpo_temp.
  130.     READ TABLE gt_eket WITH KEY ebeln = gt_ekko_ekpo_temp-ebeln
  131.                                 ebelp = gt_ekko_ekpo_temp-ebelp BINARY SEARCH.
  132.     IF sy-subrc = 0 AND gt_eket-eindt NE gt_ekko_ekpo_temp-bedat.
  133.       APPEND gt_ekko_ekpo_temp TO gt_ekko_ekpo.
  134.     ENDIF.
  135.   ENDLOOP.
  136.   REFRESH gt_ekko_ekpo_temp[].
  137.   CLEAR gt_ekko_ekpo_temp.
  138.   SORT gt_mara BY matnr.
  139.   LOOP AT gt_ekko_ekpo.
  140.     READ TABLE gt_mara WITH KEY matnr = gt_ekko_ekpo-matnr BINARY SEARCH.
  141.     IF sy-subrc = 0 AND gt_mara-prdha+0(5) IN s_stufe1.
  142.       MOVE-CORRESPONDING gt_ekko_ekpo TO gt_result.
  143.       APPEND gt_result.
  144.     ENDIF.
  145.   ENDLOOP.
  146.   gt_result_temp[] = gt_result[].
  147.   REFRESH: gt_mara[],gt_ekko_ekpo[].
  148.   CLEAR:gt_mara,gt_ekko_ekpo.
  149. ENDFORM.                    " f_get_data
  150. *&---------------------------------------------------------------------*
  151. *&      Form  f_process_data
  152. *&---------------------------------------------------------------------*
  153. *       根据采购凭证号+行项目号获取相关数据并计算
  154. *----------------------------------------------------------------------*
  155. FORM f_process_data .
  156.   IF gt_result[] IS NOT INITIAL.
  157.     gv_show_pec = 20.
  158.     MOVE : gv_show_pec TO gv_show_pec_c.
  159.     CONCATENATE '正在抽取订单金额和数量数据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  160.     PERFORM f_show_clock USING gv_show_str gv_show_pec.
  161.     PERFORM f_process_kzwil.          "获取符合条件的订单金额 订单数量

  163.     gv_show_pec = 30.
  164.     MOVE : gv_show_pec TO gv_show_pec_c.
  165.     CONCATENATE '正在抽取大区、产品层次和事业部数据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  166.     PERFORM f_show_clock USING gv_show_str gv_show_pec.
  167.     PERFORM f_process_bzirk_prdha."获取销售大区 大区文本描述 产品层次+事业部及文本 数据

  169.     gv_show_pec = 40.
  170.     MOVE : gv_show_pec TO gv_show_pec_c.
  171.     CONCATENATE '正在抽取已交货数量、收货凭证金额并计算，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  172.     PERFORM f_show_clock USING gv_show_str gv_show_pec.
  173.     PERFORM f_process_wemng_dmbtr.    "获取已交货数量 收货凭证金额

  175.     gv_show_pec = 50.
  176.     MOVE : gv_show_pec TO gv_show_pec_c.
  177.     CONCATENATE '正在合并抽取的各条数据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  178.     PERFORM f_show_clock USING gv_show_str gv_show_pec.
  179.     PERFORM f_concatenate_data.       "合并数据

  181.     gv_show_pec = 60.
  182.     MOVE : gv_show_pec TO gv_show_pec_c.
  183.     CONCATENATE '正在计算汇率，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  184.     PERFORM f_show_clock USING gv_show_str gv_show_pec.
  185.     PERFORM f_compute_ukurs.          "计算汇率

  187.     gv_show_pec = 70.
  188.     MOVE : gv_show_pec TO gv_show_pec_c.
  189.     CONCATENATE '正在计算相关金额的税率，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  190.     PERFORM f_show_clock USING gv_show_str gv_show_pec.
  191.     PERFORM f_compute_tax.            "计算税率

  193.     PERFORM f_pr_zb_dc.               "畅销纬度
  194.     PERFORM f_compute_sum.            "多维度汇总计算
  195.     DELETE gt_display_sum[] WHERE kzwi1_sum = '' AND rece_goods = '' AND deli_goods = '' AND rece_goods = ''.
  196.   ELSE.
  197.     MESSAGE s001(00) DISPLAY LIKE 'E' WITH '没有符和条件的数据！'.
  198.     LEAVE LIST-PROCESSING.
  199.   ENDIF.
  200. ENDFORM.                    " f_process_data

  202. *&---------------------------------------------------------------------*
  203. *&      Form  f_show_clock
  204. *&---------------------------------------------------------------------*
  205. *       进度条子过程
  206. *----------------------------------------------------------------------*
  207. *      -->P_SHOW_STR  提示的文字
  208. *      -->P_SHOW_PEC  显示的百分比
  209. *----------------------------------------------------------------------*
  210. FORM f_show_clock  USING    p_show_str TYPE char200
  211.                               p_show_pec TYPE i.
  212.   CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
  213.     EXPORTING
  214.       percentage = p_show_pec
  215.       text       = p_show_str.

  217. ENDFORM.                    " f_show_clock
  218. *&---------------------------------------------------------------------*
  219. *&      Form  f_authority_check
  220. *&---------------------------------------------------------------------*
  221. *       权限校验
  222. *----------------------------------------------------------------------*
  223. *  -->  p1        text
  224. *  <--  p2        text
  225. *----------------------------------------------------------------------*
  226. FORM f_authority_check .
  227.   TYPES: BEGIN OF ty_t171,
  228.           bzirk TYPE t171-bzirk,
  229.         END OF ty_t171.
  230.   DATA: lt_t171 TYPE TABLE OF ty_t171 WITH HEADER LINE.
  231.   DATA: lt_t171_check TYPE TABLE OF ty_t171 WITH HEADER LINE.
  232.   SELECT bzirk
  233.   INTO TABLE lt_t171
  234.   FROM t171
  235.   WHERE bzirk IN s_bzirk.
  236.   SORT lt_t171 BY bzirk.
  237.   LOOP AT lt_t171.
  238.     AUTHORITY-CHECK OBJECT 'Z_T171-BZI'
  239.              ID 'BZIRK' FIELD lt_t171-bzirk.
  240.     IF sy-subrc = 0.
  241.       lt_t171_check = lt_t171-bzirk.
  242.       APPEND lt_t171_check.
  243.     ENDIF.
  244.   ENDLOOP.
  245.   IF lt_t171_check[] IS INITIAL.
  246.     MESSAGE e001(00) WITH '你没有权限访问此大区!'.
  247.   ENDIF.

  249.   TYPES: BEGIN OF ty_mara,
  250.           prdha TYPE mara-prdha,
  251.         END OF ty_mara.
  252.   DATA: lt_mara TYPE TABLE OF ty_mara WITH HEADER LINE.
  253.   DATA: lt_mara_check TYPE TABLE OF ty_mara WITH HEADER LINE.
  254.   IF s_stufe2[] IS NOT INITIAL.
  255.     SELECT prdha
  256.     INTO TABLE lt_mara
  257.     FROM mara
  258.     WHERE prdha IN s_stufe2.
  259.   ELSE.
  260.     RANGES r_prdha FOR mara-prdha.
  261.     LOOP AT s_stufe1.
  262.       r_prdha-sign   = s_stufe1-sign.
  263.       IF s_stufe1-low NE space AND s_stufe1-high EQ space.
  264.         r_prdha-option = 'CP'.
  265.       ELSE.
  266.         r_prdha-option = 'BT'.
  267.       ENDIF.
  268.       CONCATENATE s_stufe1-low '*' INTO r_prdha-low.
  269.       CONCATENATE s_stufe1-high '*' INTO r_prdha-high.
  270.       APPEND r_prdha.
  271.     ENDLOOP.
  272.     SELECT prdha
  273.     INTO TABLE lt_mara
  274.     FROM mara
  275.     WHERE prdha IN r_prdha.
  276.   ENDIF.
  277.   SORT lt_mara BY prdha.
  278.   LOOP AT lt_mara.
  279.     AUTHORITY-CHECK OBJECT 'Z_MARA_PRD'
  280.              ID 'PRDHA' FIELD lt_mara-prdha.
  281.     IF sy-subrc = 0.
  282.       lt_mara_check = lt_mara-prdha.
  283.       APPEND lt_mara_check.
  284.     ENDIF.
  285.   ENDLOOP.
  286.   IF lt_mara_check[] IS INITIAL.
  287.     MESSAGE e001(00) WITH '你没有权限访问此产品层次或事业部!'.
  288.   ENDIF.
  289. ENDFORM.                    " f_authority_check
  290. *&---------------------------------------------------------------------*
  291. *&      Form  f_screen_check
  292. *&---------------------------------------------------------------------*
  293. *       选择屏幕的字段校验
  294. *----------------------------------------------------------------------*
  295. FORM f_screen_check .
  296.   CASE 'X'.
  297.     WHEN pr_1.
  298.       IF s_stufe1[] IS INITIAL.
  299.         MESSAGE e001(00) WITH '事业部不能为空！'.
  300.         STOP.
  301.       ENDIF.
  302.     WHEN pr_2.
  303.       IF s_stufe1[] IS INITIAL OR s_stufe2[] IS INITIAL.
  304.         MESSAGE e001(00) WITH '事业部和产品层次不能为空！'.
  305.         STOP.
  306.       ENDIF.
  307.     WHEN pr_3.
  308.       IF s_bzirk[] IS INITIAL.
  309.         MESSAGE e001(00) WITH '大区不能为空！'.
  310.         STOP.
  311.       ENDIF.
  312.     WHEN pr_4.
  313.       IF s_bzirk[] IS INITIAL OR s_stufe1[] IS INITIAL.
  314.         MESSAGE e001(00) WITH '大区和事业部不能为空！'.
  315.         STOP.
  316.       ENDIF.
  317.   ENDCASE.
  318. ENDFORM.                    " f_screen_check
  319. *&---------------------------------------------------------------------*
  320. *&      Form  f_process_kzwil
  321. *&---------------------------------------------------------------------*
  322. *       获取符合条件的订单金额 订单数量 数据
  323. *----------------------------------------------------------------------*
  324. *  -->  p1        text
  325. *  <--  p2        text
  326. *----------------------------------------------------------------------*
  327. FORM f_process_kzwil .
  328.   SORT gt_result BY ebeln ebelp.
  329.   LOOP AT gt_ekko_ekpo_temp_com.
  330.     READ TABLE gt_result WITH KEY ebeln = gt_ekko_ekpo_temp_com-ebeln
  331.                                   ebelp = gt_ekko_ekpo_temp_com-ebelp BINARY SEARCH.
  332.     IF sy-subrc = 0.
  333.       MOVE-CORRESPONDING gt_ekko_ekpo_temp_com TO gt_ekpo_data.
  334.       APPEND gt_ekpo_data.
  335.     ENDIF.
  336.   ENDLOOP.
  337.   gt_ekpo_data_temp[] = gt_ekpo_data[].
  338.   REFRESH gt_ekko_ekpo_temp_com[].
  339.   CLEAR gt_ekko_ekpo_temp_com.
  340. ENDFORM.                    " f_process_kzwil
  341. *&---------------------------------------------------------------------*
  342. *&      Form  f_process_bzirk_prdha
  343. *&---------------------------------------------------------------------*
  344. *       获取销售大区 大区文本描述 产品层次+事业部及文本 数据
  345. *----------------------------------------------------------------------*
  346. *  -->  p1        text
  347. *  <--  p2        text
  348. *----------------------------------------------------------------------*
  349. FORM f_process_bzirk_prdha .
  350. *-->获取销售大区数据
  351.   SORT gt_ekpo_data BY werks.
  352.   LOOP AT gt_t001w_com.
  353.     READ TABLE gt_ekpo_data WITH KEY werks = gt_t001w_com-werks BINARY SEARCH.
  354.     IF sy-subrc = 0.
  355.       MOVE-CORRESPONDING gt_t001w_com TO gt_t001w_data.
  356.       APPEND gt_t001w_data.
  357.     ENDIF.
  358.   ENDLOOP.
  359.   REFRESH gt_t001w_com[].
  360.   CLEAR gt_t001w_com.
  361. *-->获取销售大区文本描述数据
  362.   SELECT bzirk"销售地区
  363.          bztxt"销售地区文本
  364.     INTO TABLE gt_t171t_data_temp
  365.     FROM t171t
  366.     WHERE spras = sy-langu."当前语言

  368.   SORT gt_t171t_data_temp BY bzirk.
  369.   LOOP AT gt_t001w_data.
  370.     READ TABLE gt_t171t_data_temp WITH KEY bzirk = gt_t001w_data-bzirk BINARY SEARCH.
  371.     IF sy-subrc = 0.
  372.       MOVE-CORRESPONDING gt_t171t_data_temp TO gt_t171t_data.
  373.       APPEND gt_t171t_data.
  374.     ENDIF.
  375.   ENDLOOP.
  376.   REFRESH gt_t171t_data_temp[].
  377.   CLEAR gt_t171t_data_temp.
  378. *-->获取产品层次+事业部 数据
  379.   IF   gt_ekpo_data_temp[] IS NOT INITIAL.
  380.     SORT gt_ekpo_data_temp BY matnr.
  381.     DELETE ADJACENT DUPLICATES FROM gt_ekpo_data_temp COMPARING matnr.
  382.     SELECT matnr
  383.            prdha"产品层次+事业部
  384.       INTO TABLE gt_mara_data
  385.       FROM mara
  386.       FOR ALL ENTRIES IN gt_ekpo_data_temp
  387.       WHERE matnr = gt_ekpo_data_temp-matnr
  388.       AND mara~prdha IN s_stufe2.
  389.     REFRESH gt_ekpo_data_temp[].
  390.     CLEAR gt_ekpo_data_temp.
  391.   ENDIF.
  392. *-->获取产品层次+事业部 文本数据
  393.   SELECT prodh"产品层次+事业部
  394.          vtext
  395.     INTO TABLE gt_t179t_data
  396.     FROM t179t
  397.     WHERE spras = sy-langu."当前语言
  398. ENDFORM.                    " f_process_bzirk_prdha
  399. *&---------------------------------------------------------------------*
  400. *&      Form  f_process_wemng_dmbtr
  401. *&---------------------------------------------------------------------*
  402. *       获取已交货数量 收货凭证金额
  403. *----------------------------------------------------------------------*
  404. *  -->  p1        text
  405. *  <--  p2        text
  406. *----------------------------------------------------------------------*
  407. FORM f_process_wemng_dmbtr .
  408.   SORT gt_result BY ebeln ebelp.
  409.   LOOP AT gt_eket.
  410.     READ TABLE gt_result WITH KEY ebeln = gt_eket-ebeln ebelp = gt_eket-ebelp BINARY SEARCH.
  411.     IF sy-subrc = 0.
  412.       MOVE-CORRESPONDING gt_eket TO gt_eket_data_temp.
  413.       APPEND gt_eket_data_temp.
  414.     ENDIF.
  415.   ENDLOOP.
  416.   REFRESH: gt_eket[],gt_result[].
  417.   CLEAR:gt_eket,gt_result.
  418. *-->获取已交货数量
  419.   SORT gt_eket_data_temp[] BY ebeln ebelp.
  420.   LOOP AT gt_eket_data_temp.
  421.     COLLECT gt_eket_data_temp INTO gt_eket_data[].
  422.   ENDLOOP.
  423.   REFRESH gt_eket_data_temp[].
  424.   CLEAR gt_eket_data_temp.
  425. *-->获取ekbe-dmbtr收货凭证金额
  426.   IF gt_result_temp[] IS NOT INITIAL.
  427.     SORT gt_result_temp BY ebeln ebelp.
  428.     DELETE ADJACENT DUPLICATES FROM gt_result_temp COMPARING ebeln ebelp.
  429.     SELECT ebeln
  430.            ebelp
  431.            zekkn
  432.            vgabe
  433.            gjahr
  434.            belnr
  435.            buzei
  436.            dmbtr"收货凭证金额
  437.            shkzg"S金额为正，H金额是负
  438.            werks"地点
  439.     INTO TABLE gt_ekbe_temp
  440.     FROM ekbe
  441.     FOR ALL ENTRIES IN gt_result_temp
  442.     WHERE ebeln = gt_result_temp-ebeln
  443.       AND ebelp = gt_result_temp-ebelp
  444.       AND vgabe = 1.                                        "1 收货
  445.     REFRESH gt_result_temp[].
  446.     CLEAR gt_result_temp.
  447.   ENDIF.

  449. *-->累加dmbtr收货凭证金额
  450.   SORT gt_ekbe_temp[] BY ebeln ebelp.
  451.   LOOP AT gt_ekbe_temp.
  452.     COLLECT gt_ekbe_temp INTO gt_ekbe.
  453.   ENDLOOP.
  454.   SORT gt_ekbe[] BY ebeln ebelp.
  455.   LOOP AT gt_ekbe.
  456.     IF gt_ekbe-shkzg = 'H'.
  457.       gt_ekbe-dmbtr = gt_ekbe-dmbtr * -1.
  458.     ENDIF.
  459.     MOVE-CORRESPONDING gt_ekbe TO gt_ekbe_sum.
  460.     COLLECT gt_ekbe_sum INTO gt_ekbe_sum[].
  461.   ENDLOOP.
  462.   REFRESH: gt_ekbe[],gt_ekbe_temp[].
  463.   CLEAR: gt_ekbe,gt_ekbe_temp.
  464. ENDFORM.                    " f_process_wemng_dmbtr
  465. *&---------------------------------------------------------------------*
  466. *&      Form  f_concatenate_data
  467. *&---------------------------------------------------------------------*
  468. *       合并数据
  469. *----------------------------------------------------------------------*
  470. *  -->  p1        text
  471. *  <--  p2        text
  472. *----------------------------------------------------------------------*
  473. FORM f_concatenate_data .
  474.   SORT gt_ekpo_data BY ebeln ebelp.
  475.   SORT gt_eket_data BY ebeln ebelp.
  476.   SORT gt_ekbe_sum  BY ebeln ebelp.
  477.   SORT gt_mara_data BY matnr.
  478.   SORT gt_t001w_data BY werks.
  479.   SORT gt_t171t_data BY bzirk.
  480.   LOOP AT gt_ekpo_data.
  481.     READ TABLE gt_eket_data WITH KEY ebeln = gt_ekpo_data-ebeln ebelp = gt_ekpo_data-ebelp BINARY SEARCH.
  482.     IF sy-subrc = 0.
  483.       MOVE-CORRESPONDING gt_ekpo_data TO gt_display_data_temp.
  484.       gt_display_data_temp-wemng = gt_eket_data-wemng.
  485.       APPEND gt_display_data_temp.
  486.     ENDIF.
  487.   ENDLOOP.
  488.   IF gt_display_data_temp[] IS NOT INITIAL.
  489.     LOOP AT gt_display_data_temp.
  490.       READ TABLE gt_ekbe_sum  WITH KEY ebeln = gt_display_data_temp-ebeln
  491.                                        ebelp = gt_display_data_temp-ebelp BINARY SEARCH.
  492.       IF sy-subrc = 0.
  493.         gt_display_data_temp-dmbtr = gt_ekbe_sum-dmbtr.
  494.         MODIFY gt_display_data_temp TRANSPORTING dmbtr.
  495.       ENDIF.

  497.       READ TABLE gt_t001w_data  WITH KEY werks = gt_display_data_temp-werks BINARY SEARCH.
  498.       IF sy-subrc = 0.
  499.         gt_display_data_temp-bzirk = gt_t001w_data-bzirk.
  500.         MODIFY gt_display_data_temp TRANSPORTING bzirk.
  501.       ENDIF.
  502.       READ TABLE gt_t171t_data WITH KEY bzirk = gt_display_data_temp-bzirk BINARY SEARCH.
  503.       IF sy-subrc = 0.
  504.         gt_display_data_temp-bztxt = gt_t171t_data-bztxt.
  505.         MODIFY gt_display_data_temp TRANSPORTING bztxt.
  506.       ENDIF.
  507.       READ TABLE gt_mara_data WITH KEY matnr = gt_display_data_temp-matnr BINARY SEARCH.
  508.       IF sy-subrc = 0.
  509.         gt_display_data_temp-stufe2  = gt_mara_data-prdha."产品层次
  510.         gt_display_data_temp-stufe1  = gt_mara_data-prdha+0(5)."事业部
  511.         APPEND gt_display_data_temp TO gt_display_data.
  512.       ENDIF.
  513.     ENDLOOP.
  514.     REFRESH: gt_ekbe_sum[],gt_ekpo_data[],gt_eket_data[],gt_t001w_data[],gt_mara_data[],gt_display_data_temp[],gt_t171t_data[].
  515.     CLEAR: gt_ekbe_sum,gt_ekpo_data,gt_eket_data,gt_t001w_data,gt_mara_data,gt_display_data_temp,gt_t171t_data.
  516.   ELSE.
  517.     MESSAGE s001(00) DISPLAY LIKE 'E' WITH '没有符和条件的数据！'.
  518.     LEAVE LIST-PROCESSING.
  519.   ENDIF.
  520.   IF gt_display_data[] IS NOT INITIAL.
  521.     SORT gt_t179t_data BY prodh.
  522.     LOOP AT gt_display_data.
  523.       READ TABLE gt_t179t_data  WITH KEY prodh = gt_display_data-stufe1 BINARY SEARCH.
  524.       IF sy-subrc = 0.
  525.         gt_display_data-vtext1 = gt_t179t_data-vtext.
  526.         MODIFY gt_display_data TRANSPORTING vtext1."事业部
  527.       ENDIF.
  528.       READ TABLE gt_t179t_data  WITH KEY prodh = gt_display_data-stufe2 BINARY SEARCH.
  529.       IF sy-subrc = 0.
  530.         gt_display_data-vtext2 = gt_t179t_data-vtext.
  531.         MODIFY gt_display_data TRANSPORTING vtext2."产品层次
  532.       ENDIF.
  533.     ENDLOOP.
  534.     REFRESH gt_t179t_data[].
  535.     CLEAR gt_t179t_data.
  536.   ELSE.
  537.     MESSAGE s001(00) DISPLAY LIKE 'E' WITH '没有符和条件的数据！'.
  538.     LEAVE LIST-PROCESSING.
  539.   ENDIF.

  541. ENDFORM.                    " f_concatenate_data
  542. *&---------------------------------------------------------------------*
  543. *&      Form  f_compute_ukurs
  544. *&---------------------------------------------------------------------*
  545. *       计算汇率
  546. *----------------------------------------------------------------------*
  547. *  -->  p1        text
  548. *  <--  p2        text
  549. *----------------------------------------------------------------------*
  550. FORM f_compute_ukurs .
  551.   SELECT werks              "地点
  552.          land1              "国家代码
  553.   INTO TABLE gt_t001w_land1
  554.   FROM t001w                "地点/分支机构
  555.   WHERE land1 <> 'CN'.
  556.   SELECT  land1 "国家代码
  557.           waers "国家货币
  558.   INTO TABLE gt_t005
  559.   FROM t005."国家
  560.   SORT gt_t005 BY land1.
  561.   SORT gt_t001w_land1 BY werks.
  562.   LOOP AT gt_display_data.
  563.     READ TABLE gt_t001w_land1 WITH KEY werks = gt_display_data-werks BINARY SEARCH.
  564.     IF sy-subrc = 0.
  565.       READ TABLE gt_t005 WITH KEY land1 = gt_t001w_land1-land1 BINARY SEARCH.
  566.       IF sy-subrc = 0.
  567.         CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
  568.           EXPORTING
  569.             client                  = sy-mandt
  570.             date                    = sy-datum
  571.             foreign_amount          = gt_display_data-kzwi1
  572.             foreign_currency        = gt_t005-waers
  573.             local_currency          = 'CNY'
  574. *           RATE                    = 0
  575.             type_of_rate            = 'M'
  576.           IMPORTING
  577.             local_amount            = gt_display_data-kzwi1
  578.                   .
  579.         CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
  580.           EXPORTING
  581.             client                  = sy-mandt
  582.             date                    = sy-datum
  583.             foreign_amount          = gt_display_data-dmbtr
  584.             foreign_currency        = gt_t005-waers
  585.             local_currency          = 'CNY'
  586. *           RATE                    = 0
  587.             type_of_rate            = 'M'
  588.           IMPORTING
  589.             local_amount            = gt_display_data-dmbtr
  590.                   .
  591.         MODIFY gt_display_data TRANSPORTING kzwi1 dmbtr.
  592.       ENDIF.
  593.     ENDIF.
  594.   ENDLOOP.
  595.   REFRESH: gt_t005[] ,gt_t001w_land1[].
  596.   CLEAR: gt_t005,gt_t001w_land1.
  597. ENDFORM.                    " f_compute_ukurs
  598. *&---------------------------------------------------------------------*
  599. *&      Form  f_compute_tax
  600. *&---------------------------------------------------------------------*
  601. *       税率计算
  602. *----------------------------------------------------------------------*
  603. *  -->  p1        text
  604. *  <--  p2        text
  605. *----------------------------------------------------------------------*
  606. FORM f_compute_tax .
  607. *-->税率取值&计算每条订单的相关金额
  608.   LOOP AT gt_display_data.
  609.     CALL FUNCTION 'ZFM_GET_TAX'
  610.       EXPORTING
  611.         matnr = gt_display_data-matnr
  612.         werks = gt_display_data-werks
  613.       IMPORTING
  614.         rates = gt_display_data-rates.
  615.     gt_display_data-rece_goods = gt_display_data-dmbtr * ( 1 + gt_display_data-rates ).
  616.     IF gt_display_data-elikz = 'X'.
  617.       gt_display_data-deli_goods = 0.
  618.     ELSE.
  619.       gt_display_data-deli_goods = gt_display_data-kzwi1 / gt_display_data-menge *
  620.                                   ( gt_display_data-menge - gt_display_data-wemng ).
  621.     ENDIF.
  622.     MODIFY gt_display_data TRANSPORTING rece_goods deli_goods rates.
  623.     CLEAR gt_display_data.
  624.   ENDLOOP.
  625. ENDFORM.                    " f_compute_tax
  626. *&---------------------------------------------------------------------*
  627. *&      Form  f_pr_zb_dc
  628. *&---------------------------------------------------------------------*
  629. *       畅销纬度
  630. *----------------------------------------------------------------------*
  631. *  -->  p1        text
  632. *  <--  p2        text
  633. *----------------------------------------------------------------------*
  634. FORM f_pr_zb_dc .
  635.   CASE 'X'.
  636.     WHEN pr_zb.
  637.       gv_show_pec = 80.
  638.       MOVE : gv_show_pec TO gv_show_pec_c.
  639.       CONCATENATE '正在抽取总部取畅销品，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  640.       PERFORM f_show_clock USING gv_show_str gv_show_pec.
  641. *-->获总部取畅销品条件准备
  642.       IF gt_display_data[] IS NOT INITIAL.
  643.         SORT gt_display_data BY matnr.
  644.         SELECT matnr
  645.                knumh "条件记录号
  646.         INTO TABLE gt_a655_data_temp
  647.         FROM a655
  648.         FOR ALL ENTRIES IN gt_display_data
  649.         WHERE kappl = 'M'
  650.           AND kschl = 'ZXSL'
  651.           AND datbi >= sy-datum  "条件记录有效截止日期
  652.           AND datab <= sy-datum  "条件记录有效起始日
  653.           AND matnr = gt_display_data-matnr.
  654.       ENDIF.
  655.       SORT gt_a655_data_temp BY knumh.
  656.       IF gt_a655_data_temp[] IS NOT INITIAL.
  657.         SELECT knumh"条件记录号
  658.                kbetr"价格 (条件金额或百分数 ) 无等级存在
  659.         INTO TABLE gt_konp_data
  660.         FROM konp
  661.         FOR ALL ENTRIES IN gt_a655_data_temp
  662.         WHERE knumh = gt_a655_data_temp-knumh
  663.         AND loevm_ko = space.
  664.       ENDIF.
  665.       LOOP AT gt_konp_data WHERE kbetr = '11'.
  666.         READ TABLE gt_a655_data_temp WITH KEY knumh = gt_konp_data-knumh BINARY SEARCH.
  667.         IF sy-subrc = 0.
  668.           APPEND gt_a655_data_temp TO gt_a655_data.
  669.         ENDIF.
  670.       ENDLOOP.
  671.       REFRESH gt_a655_data_temp[].
  672.       CLEAR gt_a655_data_temp.
  673. *-->获总部取畅销品单号数据
  674.       IF gt_a655_data[] IS NOT INITIAL.
  675.         SORT gt_a655_data BY matnr.
  676.         LOOP AT gt_display_data.
  677.           READ TABLE gt_a655_data WITH KEY matnr = gt_display_data-matnr BINARY SEARCH.
  678.           IF sy-subrc = 0.
  679.             gt_display_data-kzwi1_zb = gt_display_data-kzwi1.
  680.             gt_display_data-dmbtr_zb = gt_display_data-dmbtr.
  681.             gt_display_data-rece_goods_zb = gt_display_data-dmbtr * ( 1 + gt_display_data-rates ).
  682.             MODIFY gt_display_data TRANSPORTING kzwi1_zb dmbtr_zb rece_goods_zb.
  683.             CLEAR: gt_display_data.
  684.           ENDIF.
  685.         ENDLOOP.
  686.         REFRESH gt_a655_data[].
  687.         CLEAR gt_a655_data.
  688.       ENDIF.
  689.     WHEN pr_dc.
  690.       gv_show_pec = 80.
  691.       MOVE : gv_show_pec TO gv_show_pec_c.
  692.       CONCATENATE '正在抽取DC取畅销品，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  693.       PERFORM f_show_clock USING gv_show_str gv_show_pec.
  694. *-->获取地点为DC畅销的订单数据
  695. *将非D库的转化成D库
  696.       IF gt_display_data[] IS NOT INITIAL.
  697.         SORT gt_display_data BY werks.
  698.         SELECT werks
  699.                dwerk
  700.         INTO TABLE gt_zput072_data
  701.         FROM zput072
  702.         FOR ALL ENTRIES IN gt_display_data
  703.         WHERE werks = gt_display_data-werks.
  704.       ENDIF.
  705.       SORT gt_zput072_data BY werks.
  706.       LOOP AT gt_display_data WHERE werks NA 'D'."NA:Contains Not Any
  707.         READ TABLE gt_zput072_data WITH KEY werks = gt_display_data-werks BINARY SEARCH.
  708.         IF sy-subrc = 0.
  709.           gt_display_data-werks = gt_zput072_data-dwerk.
  710.           MODIFY gt_display_data TRANSPORTING werks.
  711.         ENDIF.
  712.       ENDLOOP.
  713.       REFRESH gt_zput072_data[].
  714.       CLEAR gt_zput072_data.
  715. *获取DC取畅销品条件准备
  716.       IF gt_display_data[] IS NOT INITIAL.
  717.         SORT gt_display_data BY matnr werks.
  718.         SELECT matnr
  719.                knumh "条件记录号
  720.         INTO TABLE gt_a729_data_temp
  721.         FROM a729
  722.         FOR ALL ENTRIES IN gt_display_data
  723.         WHERE kappl = 'M'
  724.           AND kschl = 'ZXSL'
  725.           AND datbi >= sy-datum  "条件记录有效截止日期
  726.           AND datab <= sy-datum  "条件记录有效起始日
  727.           AND matnr = gt_display_data-matnr
  728.           AND werks = gt_display_data-werks.
  729.       ENDIF.
  730.       SORT gt_a729_data_temp BY knumh.
  731.       IF gt_a729_data_temp[] IS NOT INITIAL.
  732.         SELECT knumh"条件记录号
  733.                kbetr"价格 (条件金额或百分数 ) 无等级存在
  734.         INTO TABLE gt_konp_data
  735.         FROM konp
  736.         FOR ALL ENTRIES IN gt_a729_data_temp
  737.         WHERE knumh = gt_a729_data_temp-knumh
  738.         AND loevm_ko = space.
  739.       ENDIF.
  740.       LOOP AT gt_konp_data WHERE kbetr = '11'.
  741.         READ TABLE gt_a729_data_temp WITH KEY knumh = gt_konp_data-knumh BINARY SEARCH.
  742.         IF sy-subrc = 0.
  743.           APPEND gt_a729_data_temp TO gt_a729_data.
  744.         ENDIF.
  745.       ENDLOOP.
  746.       REFRESH: gt_a729_data_temp[],gt_konp_data[].
  747.       CLEAR: gt_a729_data_temp,gt_konp_data.
  748. *-->获取DC畅销品单号数据
  749.       IF gt_a729_data[] IS NOT INITIAL.
  750.         SORT gt_a729_data BY matnr.
  751.         LOOP AT gt_display_data.
  752.           READ TABLE gt_a729_data WITH KEY matnr = gt_display_data-matnr BINARY SEARCH.
  753.           IF sy-subrc = 0.
  754.             gt_display_data-kzwi1_dc = gt_display_data-kzwi1.
  755.             gt_display_data-dmbtr_dc = gt_display_data-dmbtr.
  756.             gt_display_data-rece_goods_dc = gt_display_data-dmbtr * ( 1 + gt_display_data-rates ).
  757.             MODIFY gt_display_data TRANSPORTING kzwi1_dc dmbtr_dc rece_goods_dc.
  758.             CLEAR: gt_display_data.
  759.           ENDIF.
  760.         ENDLOOP.
  761.         REFRESH gt_a729_data[].
  762.         CLEAR gt_a729_data.
  763.       ENDIF.
  764.   ENDCASE.
  765. ENDFORM.                    " f_pr_zb_dc
  766. *&---------------------------------------------------------------------*
  767. *&      Form  f_compute_sum
  768. *&---------------------------------------------------------------------*
  769. *       text
  770. *----------------------------------------------------------------------*
  771. *  -->  p1        text
  772. *  <--  p2        text
  773. *----------------------------------------------------------------------*
  774. FORM f_compute_sum .
  775. *------------------------------------------------------------------------------------*
  776. *-->计算收货商品金额 仍需交货金额 订单满足率。。。。
  777. *------------------------------------------------------------------------------------*
  778.   DATA:lv_precent TYPE p DECIMALS 4.
  779.   CASE 'X'.
  780.     WHEN pr_1.
  781.       gv_show_pec = 90.
  782.       MOVE : gv_show_pec TO gv_show_pec_c.
  783.       CONCATENATE '正在按照事业部汇总数据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  784.       PERFORM f_show_clock USING gv_show_str gv_show_pec.
  785.       SORT gt_display_data BY stufe1.
  786.       DELETE gt_display_data WHERE stufe1 EQ space.
  787.       IF gt_display_data[] IS NOT INITIAL.
  788.         LOOP AT gt_display_data.
  789.           MOVE-CORRESPONDING gt_display_data TO gt_display_stufe1.
  790.           COLLECT gt_display_stufe1 INTO gt_display_stufe1[].
  791.         ENDLOOP.
  792.         LOOP AT gt_display_stufe1.
  793.           CLEAR lv_precent.
  794.           gt_display_sum-stufe1 = gt_display_stufe1-stufe1.
  795.           gt_display_sum-vtext1 = gt_display_stufe1-vtext1.
  796.           gt_display_sum-kzwi1_sum = gt_display_stufe1-kzwi1."采购商品金额
  797.           gt_display_sum-rece_goods = gt_display_stufe1-rece_goods."总收货商品金额
  798.           gt_display_sum-deli_goods = gt_display_stufe1-deli_goods."总仍需交货金额
  799.           lv_precent = gt_display_sum-rece_goods / gt_display_sum-kzwi1_sum."订单满足率
  800.           gt_display_sum-order_satis = lv_precent * 100.
  801.           CONCATENATE gt_display_sum-order_satis '%' INTO gt_display_sum-order_satis.
  802.           CASE 'X'.
  803.             WHEN pr_zb.
  804.               CLEAR lv_precent.
  805.               gt_display_sum-kzwi1_zb = gt_display_stufe1-kzwi1_zb."总部畅销品采购金额
  806.               gt_display_sum-rece_goods_zb = gt_display_stufe1-rece_goods_zb."总部畅销品收货金额
  807.               lv_precent = gt_display_sum-kzwi1_zb / gt_display_sum-kzwi1_sum."总部畅销品订单占比
  808.               gt_display_sum-sales_zb = lv_precent * 100.
  809.               CONCATENATE gt_display_sum-sales_zb '%' INTO gt_display_sum-sales_zb.
  810.               CLEAR lv_precent.
  811.               lv_precent = gt_display_sum-rece_goods_zb / gt_display_sum-rece_goods."总部畅销品收货占比
  812.               gt_display_sum-sales_re_zb = lv_precent * 100.
  813.               CONCATENATE gt_display_sum-sales_re_zb '%' INTO gt_display_sum-sales_re_zb.
  814.             WHEN pr_dc.
  815.               CLEAR lv_precent.
  816.               gt_display_sum-kzwi1_dc = gt_display_stufe1-kzwi1_dc."DC畅销品采购金额
  817.               gt_display_sum-rece_goods_dc = gt_display_stufe1-rece_goods_dc."DC畅销品收货金额
  818.               lv_precent = gt_display_sum-kzwi1_dc / gt_display_sum-kzwi1_sum."DC畅销品订单占比
  819.               gt_display_sum-sales_dc = lv_precent * 100.
  820.               CONCATENATE gt_display_sum-sales_dc '%' INTO gt_display_sum-sales_dc.
  821.               CLEAR lv_precent.
  822.               lv_precent = gt_display_sum-rece_goods_dc / gt_display_sum-rece_goods."DC畅销品收货占比
  823.               gt_display_sum-sales_re_dc = lv_precent * 100.
  824.               CONCATENATE gt_display_sum-sales_re_dc '%' INTO gt_display_sum-sales_re_dc.
  825.           ENDCASE.
  826.           APPEND gt_display_sum.
  827.           CLEAR:gt_display_stufe1,gt_display_sum,lv_precent.
  828.         ENDLOOP.
  829.         REFRESH gt_display_stufe1[].
  830.         CLEAR gt_display_stufe1.
  831.       ELSE.
  832.         MESSAGE s001(00) DISPLAY LIKE 'E' WITH '没有符和条件的事业部数据！'.
  833.         LEAVE LIST-PROCESSING.
  834.       ENDIF.

  836.     WHEN pr_2.
  837.       gv_show_pec = 90.
  838.       MOVE : gv_show_pec TO gv_show_pec_c.
  839.       CONCATENATE '正在按照事业部和产品层次汇总数据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  840.       PERFORM f_show_clock USING gv_show_str gv_show_pec.
  841.       SORT gt_display_data BY stufe1 stufe2.
  842.       LOOP AT gt_display_data.
  843.         MOVE-CORRESPONDING gt_display_data TO gt_display_stufe.
  844.         COLLECT gt_display_stufe INTO gt_display_stufe[].
  845.       ENDLOOP.
  846.       SORT gt_display_stufe BY stufe1 stufe2.
  847.       LOOP AT gt_display_stufe.
  848.         gt_display_sum-stufe1 = gt_display_stufe-stufe1.
  849.         gt_display_sum-vtext1 = gt_display_stufe-vtext1.
  850.         gt_display_sum-stufe2 = gt_display_stufe-stufe2.
  851.         gt_display_sum-vtext2 = gt_display_stufe-vtext2.
  852.         gt_display_sum-kzwi1_sum = gt_display_stufe-kzwi1."采购商品金额
  853.         gt_display_sum-rece_goods = gt_display_stufe-rece_goods."总收货商品金额
  854.         gt_display_sum-deli_goods = gt_display_stufe-deli_goods."总仍需交货金额
  855.         lv_precent = gt_display_sum-rece_goods / gt_display_sum-kzwi1_sum."订单满足率
  856.         gt_display_sum-order_satis = lv_precent * 100.
  857.         CONCATENATE gt_display_sum-order_satis '%' INTO gt_display_sum-order_satis.
  858.         CASE 'X'.
  859.           WHEN pr_zb.
  860.             CLEAR lv_precent.
  861.             gt_display_sum-kzwi1_zb = gt_display_stufe-kzwi1_zb."总部畅销品采购金额
  862.             gt_display_sum-rece_goods_zb = gt_display_stufe-rece_goods_zb."总部畅销品收货金额
  863.             lv_precent = gt_display_sum-kzwi1_zb / gt_display_sum-kzwi1_sum."总部畅销品订单占比
  864.             gt_display_sum-sales_zb = lv_precent * 100.
  865.             CONCATENATE gt_display_sum-sales_zb '%' INTO gt_display_sum-sales_zb.
  866.             CLEAR lv_precent.
  867.             lv_precent = gt_display_sum-rece_goods_zb / gt_display_sum-rece_goods."总部畅销品收货占比
  868.             gt_display_sum-sales_re_zb = lv_precent * 100.
  869.             CONCATENATE gt_display_sum-sales_re_zb '%' INTO gt_display_sum-sales_re_zb.
  870.           WHEN pr_dc.
  871.             CLEAR lv_precent.
  872.             gt_display_sum-kzwi1_dc = gt_display_stufe-kzwi1_dc."DC畅销品采购金额
  873.             gt_display_sum-rece_goods_dc = gt_display_stufe-rece_goods_dc."DC畅销品收货金额
  874.             lv_precent = gt_display_sum-kzwi1_dc / gt_display_sum-kzwi1_sum."DC畅销品订单占比
  875.             gt_display_sum-sales_dc = lv_precent * 100.
  876.             CONCATENATE gt_display_sum-sales_dc '%' INTO gt_display_sum-sales_dc.
  877.             CLEAR lv_precent.
  878.             lv_precent = gt_display_sum-rece_goods_dc / gt_display_sum-rece_goods."DC畅销品收货占比
  879.             gt_display_sum-sales_re_dc = lv_precent * 100.
  880.             CONCATENATE gt_display_sum-sales_re_dc '%' INTO gt_display_sum-sales_re_dc.
  881.         ENDCASE.
  882.         APPEND gt_display_sum.
  883.         CLEAR:gt_display_stufe,gt_display_sum,lv_precent.
  884.       ENDLOOP.
  885.       REFRESH gt_display_stufe[].
  886.       CLEAR gt_display_stufe.
  887.     WHEN pr_3.
  888.       gv_show_pec = 90.
  889.       MOVE : gv_show_pec TO gv_show_pec_c.
  890.       CONCATENATE '正在按照大区汇总数据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  891.       PERFORM f_show_clock USING gv_show_str gv_show_pec.
  892.       SORT gt_display_data BY bzirk.
  893.       LOOP AT gt_display_data.
  894.         MOVE-CORRESPONDING gt_display_data TO gt_display_bzirk.
  895.         COLLECT gt_display_bzirk INTO gt_display_bzirk[].
  896.       ENDLOOP.
  897.       SORT gt_display_bzirk BY bzirk.
  898.       LOOP AT gt_display_bzirk.
  899.         gt_display_sum-bzirk = gt_display_bzirk-bzirk.
  900.         gt_display_sum-bztxt = gt_display_bzirk-bztxt.
  901.         gt_display_sum-kzwi1_sum = gt_display_bzirk-kzwi1."采购商品金额
  902.         gt_display_sum-rece_goods = gt_display_bzirk-rece_goods."总收货商品金额
  903.         gt_display_sum-deli_goods = gt_display_bzirk-deli_goods."总仍需交货金额
  904.         lv_precent = gt_display_sum-rece_goods / gt_display_sum-kzwi1_sum."订单满足率
  905.         gt_display_sum-order_satis = lv_precent * 100.
  906.         CONCATENATE gt_display_sum-order_satis '%' INTO gt_display_sum-order_satis.
  907.         CASE 'X'.
  908.           WHEN pr_zb.
  909.             CLEAR lv_precent.
  910.             gt_display_sum-kzwi1_zb = gt_display_bzirk-kzwi1_zb."总部畅销品采购金额
  911.             gt_display_sum-rece_goods_zb = gt_display_bzirk-rece_goods_zb."总部畅销品收货金额
  912.             lv_precent = gt_display_sum-kzwi1_zb / gt_display_sum-kzwi1_sum."总部畅销品订单占比
  913.             gt_display_sum-sales_zb = lv_precent * 100.
  914.             CONCATENATE gt_display_sum-sales_zb '%' INTO gt_display_sum-sales_zb.
  915.             CLEAR lv_precent.
  916.             lv_precent = gt_display_sum-rece_goods_zb / gt_display_sum-rece_goods."总部畅销品收货占比
  917.             gt_display_sum-sales_re_zb = lv_precent * 100.
  918.             CONCATENATE gt_display_sum-sales_re_zb '%' INTO gt_display_sum-sales_re_zb.
  919.           WHEN pr_dc.
  920.             CLEAR lv_precent.
  921.             gt_display_sum-kzwi1_dc = gt_display_bzirk-kzwi1_dc."DC畅销品采购金额
  922.             gt_display_sum-rece_goods_dc = gt_display_bzirk-rece_goods_dc."DC畅销品收货金额
  923.             lv_precent = gt_display_sum-kzwi1_dc / gt_display_sum-kzwi1_sum."DC畅销品订单占比
  924.             gt_display_sum-sales_dc = lv_precent * 100.
  925.             CONCATENATE gt_display_sum-sales_dc '%' INTO gt_display_sum-sales_dc.
  926.             CLEAR lv_precent.
  927.             lv_precent = gt_display_sum-rece_goods_dc / gt_display_sum-rece_goods."DC畅销品收货占比
  928.             gt_display_sum-sales_re_dc = lv_precent * 100.
  929.             CONCATENATE gt_display_sum-sales_re_dc '%' INTO gt_display_sum-sales_re_dc.
  930.         ENDCASE.
  931.         APPEND gt_display_sum.
  932.         CLEAR:gt_display_bzirk,gt_display_sum,lv_precent.
  933.       ENDLOOP.
  934.       REFRESH gt_display_bzirk[].
  935.       CLEAR gt_display_bzirk.
  936.     WHEN pr_4.
  937.       gv_show_pec = 90.
  938.       MOVE : gv_show_pec TO gv_show_pec_c.
  939.       CONCATENATE '正在按照大区和事业部汇总数据，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  940.       PERFORM f_show_clock USING gv_show_str gv_show_pec.
  941.       SORT gt_display_data BY stufe1.
  942.       DELETE gt_display_data WHERE stufe1 EQ space.
  943.       IF gt_display_data[] IS NOT INITIAL.
  944.         SORT gt_display_data BY bzirk stufe1.
  945.         LOOP AT gt_display_data.
  946.           MOVE-CORRESPONDING gt_display_data TO gt_display_bzirk_stufe1.
  947.           COLLECT gt_display_bzirk_stufe1 INTO gt_display_bzirk_stufe1[].
  948.         ENDLOOP.
  949.         REFRESH gt_display_data[].
  950.         CLEAR  gt_display_data.
  951.         SORT gt_display_bzirk_stufe1 BY bzirk stufe1.
  952.         LOOP AT gt_display_bzirk_stufe1.
  953.           gt_display_sum-bzirk = gt_display_bzirk_stufe1-bzirk.
  954.           gt_display_sum-bztxt = gt_display_bzirk_stufe1-bztxt.
  955.           gt_display_sum-stufe1 = gt_display_bzirk_stufe1-stufe1.
  956.           gt_display_sum-vtext1 = gt_display_bzirk_stufe1-vtext1.
  957.           gt_display_sum-kzwi1_sum = gt_display_bzirk_stufe1-kzwi1."采购商品金额
  958.           gt_display_sum-rece_goods = gt_display_bzirk_stufe1-rece_goods."总收货商品金额
  959.           gt_display_sum-deli_goods = gt_display_bzirk_stufe1-deli_goods."总仍需交货金额
  960.           lv_precent = gt_display_sum-rece_goods / gt_display_sum-kzwi1_sum."订单满足率
  961.           gt_display_sum-order_satis = lv_precent * 100.
  962.           CONCATENATE gt_display_sum-order_satis '%' INTO gt_display_sum-order_satis.
  963.           CASE 'X'.
  964.             WHEN pr_zb.
  965.               CLEAR lv_precent.
  966.               gt_display_sum-kzwi1_zb = gt_display_bzirk_stufe1-kzwi1_zb."总部畅销品采购金额
  967.               gt_display_sum-rece_goods_zb = gt_display_bzirk_stufe1-rece_goods_zb."总部畅销品收货金额
  968.               lv_precent = gt_display_sum-kzwi1_zb / gt_display_sum-kzwi1_sum."总部畅销品订单占比
  969.               gt_display_sum-sales_zb = lv_precent * 100.
  970.               CONCATENATE gt_display_sum-sales_zb '%' INTO gt_display_sum-sales_zb.
  971.               CLEAR lv_precent.
  972.               lv_precent = gt_display_sum-rece_goods_zb / gt_display_sum-rece_goods."总部畅销品收货占比
  973.               gt_display_sum-sales_re_zb = lv_precent * 100.
  974.               CONCATENATE gt_display_sum-sales_re_zb '%' INTO gt_display_sum-sales_re_zb.
  975.             WHEN pr_dc.
  976.               CLEAR lv_precent.
  977.               gt_display_sum-kzwi1_dc = gt_display_bzirk_stufe1-kzwi1_dc."DC畅销品采购金额
  978.               gt_display_sum-rece_goods_dc = gt_display_bzirk_stufe1-rece_goods_dc."DC畅销品收货金额
  979.               lv_precent = gt_display_sum-kzwi1_dc / gt_display_sum-kzwi1_sum."DC畅销品订单占比
  980.               gt_display_sum-sales_dc = lv_precent * 100.
  981.               CONCATENATE gt_display_sum-sales_dc '%' INTO gt_display_sum-sales_dc.
  982.               CLEAR lv_precent.
  983.               lv_precent = gt_display_sum-rece_goods_dc / gt_display_sum-rece_goods."DC畅销品收货占比
  984.               gt_display_sum-sales_re_dc = lv_precent * 100.
  985.               CONCATENATE gt_display_sum-sales_re_dc '%' INTO gt_display_sum-sales_re_dc.
  986.           ENDCASE.
  987.           APPEND gt_display_sum.
  988.           CLEAR:gt_display_bzirk_stufe1,gt_display_sum,lv_precent.
  989.         ENDLOOP.
  990.         REFRESH gt_display_bzirk_stufe1[].
  991.         CLEAR gt_display_bzirk_stufe1.
  992.       ELSE.
  993.         MESSAGE s001(00) DISPLAY LIKE 'E' WITH '没有符和条件的事业部数据！'.
  994.         LEAVE LIST-PROCESSING.
  995.       ENDIF.
  996.   ENDCASE.
  997. ENDFORM.                    " f_compute_sum
  998. *&---------------------------------------------------------------------*
  999. *&      Form  f_alv_display
  1000. *&---------------------------------------------------------------------*
  1001. *       ALV显示多维度汇总结果，共用4*2=8种效果
  1002. *----------------------------------------------------------------------*
  1003. FORM f_alv_display .
  1004.   gv_show_pec = 100.
  1005.   MOVE : gv_show_pec TO gv_show_pec_c.
  1006.   CONCATENATE '正在按照汇总维度展现报表，请等待....完成率 =' gv_show_pec_c '%' INTO gv_show_str.
  1007.   PERFORM f_show_clock USING gv_show_str gv_show_pec.
  1008.   DATA: lt_fieldcat_lvc TYPE lvc_t_fcat.
  1009.   DATA: ls_layout_lvc TYPE lvc_s_layo.
  1010.   ls_layout_lvc-cwidth_opt = 'X'.
  1011.   CASE 'X'.
  1012.     WHEN pr_1.
  1013.       CASE 'X'.
  1014.         WHEN pr_zb.
  1015.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'STUFE1' '事业部'.
  1016.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'VTEXT1' '事业部描述'.
  1017.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'KZWI1_SUM' '采购商品金额'.
  1018.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'RECE_GOODS' '收货商品金额'.
  1019.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'DELI_GOODS' '仍需交货金额'.
  1020.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'ORDER_SATIS' '订单满足率'.
  1021.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'KZWI1_ZB' '总部畅销品采购金额'.
  1022.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'SALES_ZB' '总部畅销品订单占比'.
  1023.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'RECE_GOODS_ZB' '总部畅销品收货金额'.
  1024.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_RE_ZB' '总部畅销品收货占比'.
  1025.         WHEN pr_dc.
  1026.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'STUFE1' '事业部'.
  1027.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'VTEXT1' '事业部描述'.
  1028.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'KZWI1_SUM' '采购商品金额'.
  1029.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'RECE_GOODS' '收货商品金额'.
  1030.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'DELI_GOODS' '仍需交货金额'.
  1031.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'ORDER_SATIS' '订单满足率'.
  1032.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'KZWI1_DC' 'DC畅销品采购金额'.
  1033.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'SALES_DC' 'DC畅销品订单占比'.
  1034.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'RECE_GOODS_DC' 'DC畅销品收货金额'.
  1035.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_RE_DC' 'DC畅销品收货占比'.
  1036.       ENDCASE.
  1037.     WHEN pr_2.
  1038.       CASE 'X'.
  1039.         WHEN pr_zb.
  1040.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'STUFE1' '事业部'.
  1041.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'VTEXT1' '事业部描述'.
  1042.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'STUFE2' '产品层次'.
  1043.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'VTEXT2' '产品层次描述'.
  1044.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'KZWI1_SUM' '采购商品金额'.
  1045.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'RECE_GOODS' '收货商品金额'.
  1046.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'DELI_GOODS' '仍需交货金额'.
  1047.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'ORDER_SATIS' '订单满足率'.
  1048.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'KZWI1_ZB' '总部畅销品采购金额'.
  1049.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_ZB' '总部畅销品订单占比'.
  1050.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '11' 'RECE_GOODS_ZB' '总部畅销品收货金额'.
  1051.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '12' 'SALES_RE_ZB' '总部畅销品收货占比'.
  1052.         WHEN pr_dc.
  1053.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'STUFE1' '事业部'.
  1054.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'VTEXT1' '事业部描述'.
  1055.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'STUFE2' '产品层次'.
  1056.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'VTEXT2' '产品层次描述'.
  1057.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'KZWI1_SUM' '采购商品金额'.
  1058.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'RECE_GOODS' '收货商品金额'.
  1059.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'DELI_GOODS' '仍需交货金额'.
  1060.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'ORDER_SATIS' '订单满足率'.
  1061.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'KZWI1_DC' 'DC畅销品采购金额'.
  1062.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_DC' 'DC畅销品订单占比'.
  1063.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '11' 'RECE_GOODS_DC' 'DC畅销品收货金额'.
  1064.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '12' 'SALES_RE_DC' 'DC畅销品收货占比'.
  1065.       ENDCASE.
  1066.     WHEN pr_3.
  1067.       CASE 'X'.
  1068.         WHEN pr_zb.
  1069.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'BZIRK' '大区'.
  1070.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'BZTXT' '大区描述'.
  1071.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'KZWI1_SUM' '采购商品金额'.
  1072.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'RECE_GOODS' '收货商品金额'.
  1073.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'DELI_GOODS' '仍需交货金额'.
  1074.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'ORDER_SATIS' '订单满足率'.
  1075.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'KZWI1_ZB' '总部畅销品采购金额'.
  1076.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'SALES_ZB' '总部畅销品订单占比'.
  1077.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'RECE_GOODS_ZB' '总部畅销品收货金额'.
  1078.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_RE_ZB' '总部畅销品收货占比'.
  1079.         WHEN pr_dc.
  1080.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'BZIRK' '大区'.
  1081.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'BZTXT' '大区描述'.
  1082.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'KZWI1_SUM' '采购商品金额'.
  1083.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'RECE_GOODS' '收货商品金额'.
  1084.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'DELI_GOODS' '仍需交货金额'.
  1085.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'ORDER_SATIS' '订单满足率'.
  1086.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'KZWI1_DC' 'DC畅销品采购金额'.
  1087.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'SALES_DC' 'DC畅销品订单占比'.
  1088.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'RECE_GOODS_DC' 'DC畅销品收货金额'.
  1089.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_RE_DC' 'DC畅销品收货占比'.
  1090.       ENDCASE.
  1091.     WHEN pr_4.
  1092.       CASE 'X'.
  1093.         WHEN pr_zb.
  1094.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'BZIRK' '大区'.
  1095.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'BZTXT' '大区描述'.
  1096.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'STUFE1' '事业部'.
  1097.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'VTEXT1' '事业部描述'.
  1098.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'KZWI1_SUM' '采购商品金额'.
  1099.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'RECE_GOODS' '收货商品金额'.
  1100.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'DELI_GOODS' '仍需交货金额'.
  1101.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'ORDER_SATIS' '订单满足率'.
  1102.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'KZWI1_ZB' '总部畅销品采购金额'.
  1103.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_ZB' '总部畅销品订单占比'.
  1104.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '11' 'RECE_GOODS_ZB' '总部畅销品收货金额'.
  1105.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '12' 'SALES_RE_ZB' '总部畅销品收货占比'.
  1106.         WHEN pr_dc.
  1107.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'BZIRK' '大区'.
  1108.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'BZTXT' '大区描述'.
  1109.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'STUFE1' '事业部'.
  1110.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'VTEXT1' '事业部描述'.
  1111.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'KZWI1_SUM' '采购商品金额'.
  1112.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'RECE_GOODS' '收货商品金额'.
  1113.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'DELI_GOODS' '仍需交货金额'.
  1114.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'ORDER_SATIS' '订单满足率'.
  1115.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'KZWI1_DC' 'DC畅销品采购金额'.
  1116.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'SALES_DC' 'DC畅销品订单占比'.
  1117.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '11' 'RECE_GOODS_DC' 'DC畅销品收货金额'.
  1118.           PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '12' 'SALES_RE_DC' 'DC畅销品收货占比'.
  1119.       ENDCASE.
  1120.   ENDCASE.


  1123.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  1124.     EXPORTING
  1125. *   I_INTERFACE_CHECK                 = ' '
  1126. *   I_BYPASSING_BUFFER                =
  1127. *   I_BUFFER_ACTIVE                   =
  1128. *   I_CALLBACK_PROGRAM                = ' '
  1129. *   I_CALLBACK_PF_STATUS_SET          = ' '
  1130. *   I_CALLBACK_USER_COMMAND           = ' '
  1131. *   I_CALLBACK_TOP_OF_PAGE            = ' '
  1132. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  1133. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
  1134. *   I_STRUCTURE_NAME                  =
  1135. *   I_BACKGROUND_ID                   = ' '
  1136. *   I_GRID_TITLE                      =
  1137. *   I_GRID_SETTINGS                   =
  1138.     is_layout_lvc                     = ls_layout_lvc
  1139.     it_fieldcat_lvc                   = lt_fieldcat_lvc
  1140. * IMPORTING
  1141. *   E_EXIT_CAUSED_BY_CALLER           =
  1142. *   ES_EXIT_CAUSED_BY_USER            =
  1143.     TABLES
  1144.       t_outtab                          = gt_display_sum[]
  1145. * EXCEPTIONS
  1146. *   PROGRAM_ERROR                     = 1
  1147. *   OTHERS                            = 2
  1148.             .
  1149.   REFRESH gt_display_sum[].
  1150.   CLEAR gt_display_sum.
  1151. ENDFORM.                    " f_alv_display
  1152. *&---------------------------------------------------------------------*
  1153. *&      Form  f_fieldcate_lvc
  1154. *&---------------------------------------------------------------------*
  1155. *       alv的fieldcate子过程
  1156. *----------------------------------------------------------------------*
  1157. FORM f_fieldcate_lvc TABLES pt_fieldcat_lvc TYPE lvc_t_fcat
  1158.                      USING p_col_pos TYPE i
  1159.                            p_fieldname TYPE c
  1160.                            p_scrtext_m TYPE c.
  1161.   DATA: ps_fieldcat_lvc TYPE lvc_s_fcat.
  1162.   CLEAR ps_fieldcat_lvc.
  1163.   ps_fieldcat_lvc-col_pos     = p_col_pos.
  1164.   ps_fieldcat_lvc-fieldname   = p_fieldname.
  1165.   ps_fieldcat_lvc-scrtext_m   = p_scrtext_m.
  1166.   APPEND ps_fieldcat_lvc TO pt_fieldcat_lvc.
  1167. ENDFORM.                    " f_fieldcate_lvc
复制代码



报表

相关帖子
回复

使用道具 举报

Twilight

管理员

+发表新主题
  1. 847 主题
  2. 125 回帖
  3. 11270 积分
发消息

Ta最近发表

快速回帖

本版积分规则
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册有礼

小黑屋|手机版|SAP顾问圈 ( 沪ICP备18020878号 )

GMT+8, 2024-12-23 01:55 , Processed in 0.090474 second(s), 9 queries , Gzip On, Redis On.

© 2014-2017 SAPclubDesign by Twilight.Liu®X3.5

平台客服 1204767879 无客服码

快速回复 返回顶部 返回列表