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

货到付款退货已入库且未冲红订单查询报表

Twilight发表于 2014-07-23 16:16Twilight 最后回复于 2014-07-23 16:16 [复制链接] 2984 0

程序执行效果：
货到付款退货已入库且未冲红订单查询报表.png

NOTE：当数据库表数据达到数亿级别时，不走索引或主键，几乎跑不出来，会超时报错。当不能建索引时，我们可以将日期拆分成单天的方式去关联vbak，这样select就会很快了，在loop这个select就能查出全部数据了。

程序代码：
  1. *&---------------------------------------------------------------------*
  2. *& INCLUDE
  3. *&---------------------------------------------------------------------*
  4. INCLUDE zdqsd_195_top.                "Type/Data
  5. INCLUDE zdqsd_195_selscr.        "Selection screen
  6. INCLUDE zdqsd_195_form.                "Form

  8. *&---------------------------------------------------------------------*
  9. *& 初始化处理
  10. *&---------------------------------------------------------------------*
  11. INITIALIZATION.
  12. PERFORM f_assignment.

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

  20. *&---------------------------------------------------------------------*
  21. *& 参数输入检查
  22. *&---------------------------------------------------------------------*
  23. AT SELECTION-SCREEN.

  25. *&---------------------------------------------------------------------*
  26. *& 程序开始处理
  27. *&---------------------------------------------------------------------*
  28. START-OF-SELECTION.
  29.   PERFORM f_get_data. "取数逻辑
  30.   PERFORM f_displsy_data. "处理逻辑

  32. *&---------------------------------------------------------------------*
  33. *& 程序结束处理
  34. *&---------------------------------------------------------------------*
  35. END-OF-SELECTION.
  36. *  PERFORM xxxxxxx.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  Include           ZDQSD_195_TOP
  3. *&---------------------------------------------------------------------*
  4. TABLES:vbak.
  5. TYPE-POOLS:slis.

  7. DATA:BEGIN OF gt_vbak OCCURS 0,
  8.       box,
  9.       vbeln_be TYPE vbfa-vbelv,           "原单SAP单号
  10.       erdat_be TYPE vbak-erdat,           "原单创建日期
  11.       p_omsorder_be TYPE vbak-zzfhqzlx,   "原单OMS单号
  12.       vsbed_be TYPE vbak-vsbed,           "原单装运条件
  13.       vbeln_ny TYPE vbfa-vbelv,           "另约换货单SAP单号
  14.       erdat_ny TYPE vbak-erdat,           "另约换货单创建时间
  15.       p_omsorder_ny TYPE vbak-zzfhqzlx,   "另约换货单oms单号
  16.       vbeln_ne TYPE vbak-vbeln,           "退货单号
  17.       erdat_ne TYPE vbak-erdat,           "退单创建日期
  18.       p_omsorder_ne TYPE vbak-zzfhqzlx,   "退单OMS单号
  19.       zhkfs TYPE vbak-zhkfs,              "还款标识
  20.      END OF gt_vbak.
  21. TYPES:BEGIN OF ty_vbak_be,
  22.        vbeln TYPE vbak-vbeln,             "原单
  23.        auart TYPE vbak-auart,             "订单类型
  24.        erdat TYPE vbak-erdat,             "原单创建日期
  25.        zzfhqzlx TYPE vbak-zzfhqzlx,       "原单OMS单号
  26.        vsbed TYPE vbak-vsbed,             "原单装运条件
  27.        END OF ty_vbak_be.
  28. TYPES:BEGIN OF ty_vbfa,"前续凭证结构
  29.        vbelv TYPE vbfa-vbelv,
  30.       END OF ty_vbfa.
  31. TYPES:BEGIN OF ty_vbfa_fa,"后续凭证结构
  32.        vbelv_fa TYPE vbfa-vbelv,
  33.        vbeln_fa TYPE vbfa-vbeln,
  34.       END OF ty_vbfa_fa.

  36. DATA: gt_vbfa1 TYPE TABLE OF ty_vbfa WITH HEADER LINE.
  37. DATA: gt_vbfa2 TYPE TABLE OF ty_vbfa WITH HEADER LINE.
  38. DATA: gt_vbfa_fa TYPE TABLE OF ty_vbfa_fa WITH HEADER LINE.
  39. DATA: gt_vbak_be TYPE TABLE OF ty_vbak_be WITH HEADER LINE.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  Include           ZDQSD_195_SELSCR
  3. *&---------------------------------------------------------------------*
  4. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
  5. SELECT-OPTIONS: s_erdat FOR vbak-erdat OBLIGATORY NO-EXTENSION, "创建日期
  6.                 s_auart FOR vbak-auart OBLIGATORY DEFAULT 'ZRE',            "销售凭证类型
  7.                 s_zhkfs FOR vbak-zhkfs.                           "还款方式
  8. SELECTION-SCREEN END OF BLOCK b1.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  Include           ZDQSD_195_FORM
  3. *&---------------------------------------------------------------------*

  5. *&---------------------------------------------------------------------*
  6. *&      Form  f_assignment
  7. *&---------------------------------------------------------------------*
  8. *       text
  9. *----------------------------------------------------------------------*
  10. *  -->  p1        text
  11. *  <--  p2        text
  12. *----------------------------------------------------------------------*
  13. FORM f_assignment .
  14.   s_zhkfs-sign = 'I'.
  15.   s_zhkfs-option = 'EQ'.
  16.   s_zhkfs-low = '02'.
  17.   APPEND s_zhkfs.
  18.   s_zhkfs-sign = 'I'.
  19.   s_zhkfs-option = 'EQ'.
  20.   s_zhkfs-low = '03'.
  21.   APPEND s_zhkfs.
  22.   s_zhkfs-sign = 'I'.
  23.   s_zhkfs-option = 'EQ'.
  24.   s_zhkfs-low = '04'.
  25.   APPEND s_zhkfs.
  26.   s_zhkfs-sign = 'I'.
  27.   s_zhkfs-option = 'EQ'.
  28.   s_zhkfs-low = '05'.
  29.   APPEND s_zhkfs.
  30. ENDFORM.                    " f_assignment
  31. *&---------------------------------------------------------------------*
  32. *&      Form  f_get_data
  33. *&---------------------------------------------------------------------*
  34. *       text
  35. *----------------------------------------------------------------------*
  36. *  -->  p1        text
  37. *  <--  p2        text
  38. *----------------------------------------------------------------------*
  39. FORM f_get_data .
  40. *--> 将日期分成单天循环从vbak取数
  41.   DATA:ls_erdat TYPE vbak-erdat.
  42.   DATA:lv_erdat TYPE vbak-erdat.
  43.   DATA:lt_erdat LIKE TABLE OF ls_erdat.
  44.   IF s_erdat-high IS INITIAL.
  45.     APPEND s_erdat-low TO lt_erdat.
  46.   ELSE.
  47.     DO.
  48.       IF sy-tabix = 1.
  49.         lv_erdat = s_erdat-low.
  50.       ENDIF.
  51.       IF  lv_erdat > s_erdat-high.
  52.         EXIT.
  53.       ENDIF.
  54.       APPEND lv_erdat TO lt_erdat.
  55.       lv_erdat = lv_erdat + 1.
  56.     ENDDO.
  57.   ENDIF.
  58.   LOOP AT lt_erdat INTO ls_erdat.
  59.     PERFORM f_get_vbak TABLES gt_vbak USING ls_erdat.
  60.   ENDLOOP.

  62.   SORT gt_vbak BY vbeln_ne.
  63.   IF gt_vbak[] IS NOT INITIAL.
  64.     SELECT vbelv
  65.     INTO TABLE gt_vbfa1
  66.     FROM vbfa
  67.     FOR ALL ENTRIES IN gt_vbak
  68.     WHERE vbtyp_n = 'O'
  69.       AND vbelv = gt_vbak-vbeln_ne.

  71.     SELECT vbeln AS vbelv
  72.     INTO TABLE gt_vbfa2
  73.     FROM vbap
  74.     FOR ALL ENTRIES IN gt_vbak
  75.     WHERE abgru = '01'
  76.       AND vbeln = gt_vbak-vbeln_ne.
  77.   ENDIF.

  79.   SORT gt_vbfa1 BY vbelv.
  80.   SORT gt_vbfa2 BY vbelv.
  81.   LOOP AT gt_vbak.
  82.     READ TABLE gt_vbfa1 WITH KEY vbelv = gt_vbak-vbeln_ne BINARY SEARCH.
  83.     IF sy-subrc = 0.
  84.       DELETE gt_vbak.
  85.     ENDIF.
  86.     READ TABLE gt_vbfa2 WITH KEY vbelv = gt_vbak-vbeln_ne BINARY SEARCH.
  87.     IF sy-subrc = 0.
  88.       DELETE gt_vbak.
  89.     ENDIF.
  90.   ENDLOOP.
  91.   IF gt_vbak[] IS INITIAL.
  92.     MESSAGE '没有符和条件的数据！' TYPE 'S' DISPLAY LIKE 'E'.
  93.     LEAVE LIST-PROCESSING.
  94.   ENDIF.
  95. *-->根据后续凭证找前续凭证（原单SAP单号和另约换货单SAP单号）
  96.   IF gt_vbak[] IS NOT INITIAL.
  97.     SORT gt_vbak BY vbeln_ne.
  98.     SELECT  vbelv AS vbelv_fa "前续凭证
  99.             vbeln AS vbeln_fa "后续凭证
  100.     INTO TABLE gt_vbfa_fa
  101.     FROM vbfa
  102.     FOR ALL ENTRIES IN gt_vbak
  103.     WHERE vbtyp_n = 'H'
  104.       AND vbeln = gt_vbak-vbeln_ne.
  105.   ENDIF.
  106.   IF gt_vbfa_fa[] IS NOT INITIAL.
  107.     SORT gt_vbfa_fa BY vbelv_fa.
  108.     SELECT  vbeln      "原单
  109.             auart      "订单类型
  110.             erdat      "原单创建日期
  111.             zzfhqzlx   "原单OMS单号
  112.             vsbed      "装运条件
  113.     INTO TABLE gt_vbak_be
  114.     FROM vbak
  115.     FOR ALL ENTRIES IN gt_vbfa_fa
  116.     WHERE vbeln = gt_vbfa_fa-vbelv_fa.
  117.   ENDIF.
  118. *-->将原单数据挂到退单上
  119.   SORT gt_vbfa_fa BY vbeln_fa.
  120.   SORT gt_vbak_be BY vbeln.
  121.   LOOP AT gt_vbak.
  122.     READ TABLE gt_vbfa_fa WITH KEY vbeln_fa = gt_vbak-vbeln_ne BINARY SEARCH.
  123.     IF sy-subrc = 0.
  124.       gt_vbak-vbeln_be = gt_vbfa_fa-vbelv_fa.
  125.       MODIFY gt_vbak TRANSPORTING vbeln_be.
  126.       READ TABLE gt_vbak_be WITH KEY vbeln = gt_vbfa_fa-vbelv_fa BINARY SEARCH.
  127.       IF sy-subrc = 0.
  128.         IF gt_vbak_be-auart = 'ZORE' AND gt_vbak_be-vsbed NE 3.
  129.           DELETE gt_vbak.
  130.         ELSE.
  131.           gt_vbak-erdat_be = gt_vbak_be-erdat.
  132.           gt_vbak-p_omsorder_be = gt_vbak_be-zzfhqzlx.
  133.           gt_vbak-vsbed_be = gt_vbak_be-vsbed.
  134.           MODIFY gt_vbak TRANSPORTING erdat_be p_omsorder_be vsbed_be.
  135.         ENDIF.
  136.       ENDIF.
  137.     ENDIF.
  138.   ENDLOOP.
  139. *-->将原单SAP单号和另约换货单SAP单号分开
  140.   LOOP AT gt_vbak WHERE vsbed_be = 3.
  141.     gt_vbak-vbeln_ny = gt_vbak-vbeln_be.
  142.     gt_vbak-erdat_ny = gt_vbak-erdat_be.
  143.     gt_vbak-p_omsorder_ny = gt_vbak-p_omsorder_be.
  144.     CLEAR:gt_vbak-vbeln_be,gt_vbak-erdat_be,gt_vbak-p_omsorder_be.
  145.     MODIFY gt_vbak TRANSPORTING vbeln_ny erdat_ny p_omsorder_ny vbeln_be erdat_be p_omsorder_be.
  146.   ENDLOOP.
  147. *-->根据后续凭证找前续凭证（另约换货单SAP单号找原单号）
  148.   REFRESH:gt_vbfa_fa,gt_vbak_be.
  149.   IF gt_vbak[] IS NOT INITIAL.
  150.     SORT gt_vbak BY vbeln_ny.
  151.     SELECT  vbelv AS vbelv_fa "前续凭证
  152.             vbeln AS vbeln_fa "后续凭证
  153.     INTO TABLE gt_vbfa_fa
  154.     FROM vbfa
  155.     FOR ALL ENTRIES IN gt_vbak
  156.     WHERE vbtyp_n = 'I'
  157.       AND vbeln = gt_vbak-vbeln_ny.
  158.   ENDIF.
  159.   IF gt_vbfa_fa[] IS NOT INITIAL.
  160.     SORT gt_vbfa_fa BY vbelv_fa.
  161.     SELECT  vbeln      "原单
  162.             auart      "订单类型
  163.             erdat      "原单创建日期
  164.             zzfhqzlx   "原单OMS单号
  165.             vsbed      "装运条件
  166.     INTO TABLE gt_vbak_be
  167.     FROM vbak
  168.     FOR ALL ENTRIES IN gt_vbfa_fa
  169.     WHERE vbeln = gt_vbfa_fa-vbelv_fa.
  170.   ENDIF.
  171. *-->将原单数据挂到另约换货单上
  172.   SORT gt_vbfa_fa BY vbeln_fa.
  173.   SORT gt_vbak_be BY vbeln.
  174.   LOOP AT gt_vbak.
  175.     READ TABLE gt_vbfa_fa WITH KEY vbeln_fa = gt_vbak-vbeln_ny BINARY SEARCH.
  176.     IF sy-subrc = 0.
  177.       gt_vbak-vbeln_be = gt_vbfa_fa-vbelv_fa.
  178.       MODIFY gt_vbak TRANSPORTING vbeln_be.
  179.       READ TABLE gt_vbak_be WITH KEY vbeln = gt_vbfa_fa-vbelv_fa BINARY SEARCH.
  180.       IF sy-subrc = 0.
  181.         gt_vbak-erdat_be = gt_vbak_be-erdat.
  182.         gt_vbak-p_omsorder_be = gt_vbak_be-zzfhqzlx.
  183.         gt_vbak-vsbed_be = gt_vbak_be-vsbed.
  184.         MODIFY gt_vbak TRANSPORTING erdat_be p_omsorder_be vsbed_be.
  185.       ENDIF.
  186.     ENDIF.
  187.   ENDLOOP.
  188. ENDFORM.                    " f_get_data
  189. *&---------------------------------------------------------------------*
  190. *&      Form  f_get_vbak
  191. *&---------------------------------------------------------------------*
  192. *       将日期分成单天循环从vbak取数 子过程
  193. *----------------------------------------------------------------------*
  194. FORM f_get_vbak  TABLES p_gt_vbak
  195.                  USING  p_s_erdat.
  196.   DATA:lv_erdat TYPE vbak-erdat.
  197.   lv_erdat = p_s_erdat.
  198.   SELECT  vbeln AS vbeln_ne         "退货订单
  199.           erdat AS erdat_ne         "退货订单创建日期
  200.           zhkfs                     "还款标识
  201.           zzfhqzlx AS p_omsorder_ne "退单OMS单号
  202.   APPENDING CORRESPONDING FIELDS OF TABLE p_gt_vbak
  203.   FROM vbak
  204.   WHERE erdat = lv_erdat
  205.     AND auart IN s_auart
  206.     AND zhkfs IN s_zhkfs.
  207. ENDFORM.                    " f_get_vbak
  208. *&---------------------------------------------------------------------*
  209. *&      Form  f_displsy_data
  210. *&---------------------------------------------------------------------*
  211. *       text
  212. *----------------------------------------------------------------------*
  213. *  -->  p1        text
  214. *  <--  p2        text
  215. *----------------------------------------------------------------------*
  216. FORM f_displsy_data .
  217.   DATA: lt_fieldcat_lvc TYPE lvc_t_fcat.
  218.   DATA: ls_layout_lvc TYPE lvc_s_layo.
  219.   ls_layout_lvc-cwidth_opt = 'X'.
  220.   ls_layout_lvc-box_fname = 'BOX'.
  221.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '1' 'VBELN_BE' '原单SAP单号'.
  222.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '2' 'ERDAT_BE' '原单创建日期'.
  223.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '3' 'P_OMSORDER_BE' '原单OMS单号'.
  224.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '4' 'VBELN_NY' '另约换货单SAP单号'.
  225.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '5' 'ERDAT_NY' '另约换货单创建日期'.
  226.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '6' 'P_OMSORDER_NY' '另约换货单OMS单号'.
  227.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '7' 'VBELN_NE' '退货单号'.
  228.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '8' 'ERDAT_NE' '退单创建日期'.
  229.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '9' 'P_OMSORDER_NE' '退单OMS单号'.
  230.   PERFORM f_fieldcate_lvc TABLES lt_fieldcat_lvc  USING '10' 'ZHKFS' '还款标识'.

  232.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  233.     EXPORTING
  234. *   I_INTERFACE_CHECK                 = ' '
  235. *   I_BYPASSING_BUFFER                =
  236. *   I_BUFFER_ACTIVE                   =
  237.     i_callback_program                = sy-repid
  238. *   I_CALLBACK_PF_STATUS_SET          = ' '
  239. *   I_CALLBACK_USER_COMMAND           = ' '
  240.     i_callback_top_of_page            = 'TOP_OF_PAGE'
  241. *   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  242. *   I_CALLBACK_HTML_END_OF_LIST       = ' '
  243. *   I_STRUCTURE_NAME                  =
  244. *   I_BACKGROUND_ID                   = ' '
  245. *   I_GRID_TITLE                      =
  246. *   I_GRID_SETTINGS                   =
  247.     is_layout_lvc                     = ls_layout_lvc
  248.     it_fieldcat_lvc                   = lt_fieldcat_lvc
  249. * IMPORTING
  250. *   E_EXIT_CAUSED_BY_CALLER           =
  251. *   ES_EXIT_CAUSED_BY_USER            =
  252.     TABLES
  253.       t_outtab                          = gt_vbak[]
  254. * EXCEPTIONS
  255. *   PROGRAM_ERROR                     = 1
  256. *   OTHERS                            = 2
  257.             .
  258. ENDFORM.                    " f_displsy_data
  259. *&---------------------------------------------------------------------*
  260. *&      Form  f_fieldcate_lvc
  261. *&---------------------------------------------------------------------*
  262. *       alv的fieldcate子过程
  263. *----------------------------------------------------------------------*
  264. FORM f_fieldcate_lvc TABLES pt_fieldcat_lvc TYPE lvc_t_fcat
  265.                      USING p_col_pos TYPE i
  266.                            p_fieldname TYPE c
  267.                            p_scrtext_m TYPE c.
  268.   DATA: ps_fieldcat_lvc TYPE lvc_s_fcat.
  269.   CLEAR ps_fieldcat_lvc.
  270.   ps_fieldcat_lvc-col_pos     = p_col_pos.
  271.   ps_fieldcat_lvc-fieldname   = p_fieldname.
  272.   ps_fieldcat_lvc-scrtext_l   = p_scrtext_m.
  273.   APPEND ps_fieldcat_lvc TO pt_fieldcat_lvc.
  274. ENDFORM.                    " f_fieldcate_lvc
  275. *&---------------------------------------------------------------------*
  276. *&      Form  TOP_OF_LIST
  277. *&---------------------------------------------------------------------*
  278. *       text
  279. *----------------------------------------------------------------------*
  280. FORM top_of_page.
  281.   DATA:lt_list_comments TYPE slis_t_listheader,  "alv表单标题区域设置
  282.        ls_list_comments LIKE LINE OF lt_list_comments.
  283.   DATA: lv_tabline    TYPE i.  "存储内表行数

  285.   CLEAR: lt_list_comments.
  286.   ls_list_comments-typ = 'H'.
  287.   ls_list_comments-key = ''.
  288.   ls_list_comments-info = '货到付款退货已入库且未冲红订单查询报表'.
  289.   APPEND ls_list_comments TO lt_list_comments.
  290.   CLEAR ls_list_comments.

  292.   DATA: lv_data_temp(22).
  293.   WRITE sy-datum TO: lv_data_temp USING EDIT MASK '____年__月__日'.
  294.   CONCATENATE '当前日期: ' lv_data_temp INTO lv_data_temp.
  295.   ls_list_comments-typ = 'S'.
  296.   ls_list_comments-key = ''.
  297.   ls_list_comments-info = lv_data_temp.
  298.   APPEND ls_list_comments TO lt_list_comments.
  299.   CLEAR ls_list_comments.

  301.   DESCRIBE TABLE gt_vbak LINES lv_tabline.
  302.   DATA:lv_sum_line(20) TYPE c .
  303.   lv_sum_line = lv_tabline.
  304.   CONDENSE lv_sum_line NO-GAPS.
  305.   CONCATENATE '记录总数: ' lv_sum_line INTO lv_sum_line.
  306.   ls_list_comments-typ = 'S'.
  307.   ls_list_comments-key = ''.
  308.   ls_list_comments-info = lv_sum_line.
  309.   APPEND ls_list_comments TO lt_list_comments.
  310.   CLEAR ls_list_comments.

  312.   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'   "T-CODE : OAER    PARAMENTS: PICTURES OT
  313.     EXPORTING
  314.       it_list_commentary       = lt_list_comments
  315.       i_logo                   = 'ENJOYSAP_LOGO'
  316.       i_end_of_list_grid       = 'X'
  317. *     I_ALV_FORM               =
  318.             .
  319. ENDFORM.                    "TOP_OF_PAGE
复制代码
alv, 性能

相关帖子
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

GMT+8, 2024-12-23 01:07 , Processed in 0.057310 second(s), 10 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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