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

ZLMT033中间表中订购原因丢失数据批量维护程序

Twilight发表于 2014-03-18 20:57Twilight 最后回复于 2014-03-18 20:57 [复制链接] 2505 0

需求:OMS二期上线后，ERP系统中部分物流ZLMT033表中异常状态的数据订购原因丢失批量维护

设计方案：
1．定义选择屏幕。
处理状态一般情况下都为H，不需要修改。
勾选“是否根据zlmt033处理H状态数据”时，先检查vbuv表，再修改vbak表中的augru字段；不勾选，直接修改vbak中的augru字段。
退货申请为手动输入需要修改vbak-augru的值。
2．取数
3．用BAPI_SALESORDER_CHANGE批量更新SO订单数据
4．收集消息并记录到日志表中

选择屏幕：
ZLMT033中间表中订购原因丢失数据批量维护选择屏幕.jpg
注：勾选：不给出消息提示，直接记录到日志中，因为业务需要后台定义JOB

日志表：
ZDQSD_166日志表.jpg

主程序代码：
  1. *&---------------------------------------------------------------------*
  2. *& 程序名: ZDQSD_166                                                   *
  3. *&                                                                     *
  4. *&---------------------------------------------------------------------*
  5. *& 抬头     : ZLMT033中间表中订购原因丢失数据批量维护报表              *
  6. *& 模块     : SD                                                       *
  7. *& 作者     : XXX                                                   *
  8. *& 创建日期 : 2014/03/13                                               *
  9. *& 程序类型 : 报表/表单/批导入/后台作业                                *
  10. *& 消息类   : 00                                                       *
  11. *& 描述     : ZLMT033中间表中订购原因丢失数据批量维护报表              *
  12. *&                                                                     *
  13. *& 修改记录 :                                                          *
  14. *& 日期    修改人 修改内容                                             *
  15. *& YYYY/MM/DD修改人员名说明                                            *
  16. *&---------------------------------------------------------------------*
  17. REPORT  zdqsd_166 MESSAGE-ID 00.

  19. *&---------------------------------------------------------------------*
  20. *& INCLUDE
  21. *&---------------------------------------------------------------------*
  22. INCLUDE zdqsd_166_top.    "Type/Data
  23. *INCLUDE zxxxxxxxx_class.        "Class
  24. INCLUDE zdqsd_166_selscr.        "Selection screen
  25. INCLUDE zdqsd_166_form.   "Form
  26. *INCLUDE zxxxxxxxx_module.  "Module

  28. *&---------------------------------------------------------------------*
  29. *& 初始化处理
  30. *&---------------------------------------------------------------------*
  31. INITIALIZATION.
  32. *  PERFORM xxxxxxx.

  34. *&---------------------------------------------------------------------*
  35. *& 选择屏幕控制
  36. *&---------------------------------------------------------------------*
  37. AT SELECTION-SCREEN OUTPUT.
  38. *  PERFORM xxxxxxx.

  40. *&---------------------------------------------------------------------*
  41. *& 参数输入检查
  42. *&---------------------------------------------------------------------*
  43. AT SELECTION-SCREEN.
  44.   PERFORM f_authority_check."权限检查
  45.   PERFORM f_check_screen."选择屏幕条件控制校验
  46. *  PERFORM xxxxxxx.

  48. *&---------------------------------------------------------------------*
  49. *& 程序开始处理
  50. *&---------------------------------------------------------------------*
  51. START-OF-SELECTION.
  52.   PERFORM f_get_data. "取数逻辑
  53.   PERFORM f_process_data. "处理逻辑
  54. *&---------------------------------------------------------------------*
  55. *& 程序结束处理
  56. *&---------------------------------------------------------------------*
  57. END-OF-SELECTION.
  58. *  PERFORM XXXXXX.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZDQSD_166_TOP
  3. *&---------------------------------------------------------------------*
  4. TABLES:zlmt033.
  5. DATA:wa_zsd_conf02 TYPE zsd_conf02.
  6. DATA:wa_zdqsd_166_log TYPE zdqsd_166_log.
  7. DATA:it_zdqsd_166_log TYPE TABLE OF zdqsd_166_log.
  8. DATA:gs_tvau TYPE tvau.

  10. TYPES:BEGIN OF ty_vbuv,
  11.         vbeln TYPE vbuv-vbeln,
  12.         posnr TYPE vbuv-posnr,
  13.         etenr TYPE vbuv-etenr,
  14.         parvw TYPE vbuv-parvw,
  15.         tdid  TYPE vbuv-tdid ,
  16.         tbnam TYPE vbuv-tbnam,
  17.         fdnam TYPE vbuv-fdnam,
  18.      END OF ty_vbuv.
  19. TYPES:BEGIN OF ty_vbak,
  20.         vbeln    TYPE vbak-vbeln ,
  21.         augru    TYPE vbak-augru ,
  22.         zzfhqzlx TYPE vbak-zzfhqzlx,
  23.      END OF ty_vbak.
  24. TYPES: BEGIN OF ty_zlmt033,
  25.         omsorder TYPE zlmt033-omsorder,
  26.         vbeln TYPE zlmt033-vbeln,
  27.        END OF ty_zlmt033.

  29. DATA: it_vbuv TYPE TABLE OF ty_vbuv WITH HEADER LINE.
  30. DATA: it_vbak TYPE TABLE OF ty_vbak WITH HEADER LINE.
  31. DATA:wa_zlmt033 TYPE ty_zlmt033,
  32.       it_zlmt033 TYPE STANDARD TABLE OF ty_zlmt033.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZDQSD_166_SELSCR
  3. *&---------------------------------------------------------------------*
  4. SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
  5. SELECT-OPTIONS: s_omsor FOR zlmt033-omsorder,"OMS订单号
  6.                 s_vbeln FOR zlmt033-vbeln," 销售凭证
  7.                 s_datum FOR zlmt033-zdatum  OBLIGATORY. "记录创建日期
  8. PARAMETERS:p_sataus TYPE zlmt033-zstatus DEFAULT 'H' OBLIGATORY."处理状态
  9. PARAMETERS: p_flag  AS CHECKBOX DEFAULT 'X'.
  10. SELECTION-SCREEN END OF BLOCK b1.

  12. SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
  13. PARAMETERS: p_augru TYPE vbak-augru DEFAULT '026' OBLIGATORY. " 退货申请
  14. SELECTION-SCREEN END OF BLOCK b2.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  包括              ZDQSD_166_FORM
  3. *&---------------------------------------------------------------------*
  4. *&---------------------------------------------------------------------*
  5. *&      Form  GET_DATA
  6. *&---------------------------------------------------------------------*
  7. *       text
  8. *----------------------------------------------------------------------*
  9. *  -->  p1        text
  10. *  <--  p2        text
  11. *----------------------------------------------------------------------*
  12. FORM f_get_data .
  13.   IF p_flag = 'X'."选择屏幕中 勾选时的取数逻辑
  14.     SELECT omsorder
  15.            vbeln
  16.     INTO TABLE it_zlmt033
  17.     FROM zlmt033
  18.     WHERE omsorder IN s_omsor AND
  19.           vbeln IN s_vbeln AND
  20.           zdatum IN s_datum AND
  21.           zstatus = p_sataus.
  22.     SORT it_zlmt033 BY vbeln.
  23.     DELETE it_zlmt033[] WHERE vbeln = space.
  24.     DELETE ADJACENT DUPLICATES FROM it_zlmt033[] COMPARING vbeln.

  26.     LOOP AT it_zlmt033 INTO wa_zlmt033."添加前导零
  27.       CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  28.         EXPORTING
  29.           input  = wa_zlmt033-vbeln
  30.         IMPORTING
  31.           output = wa_zlmt033-vbeln.
  32.       MODIFY it_zlmt033 FROM wa_zlmt033 TRANSPORTING vbeln.
  33.     ENDLOOP.

  35.     IF it_zlmt033[] IS NOT INITIAL.
  36.       SELECT vbeln
  37.              posnr
  38.              etenr
  39.              parvw
  40.              tdid
  41.              tbnam
  42.              fdnam
  43.        INTO TABLE it_vbuv
  44.        FROM vbuv
  45.        FOR ALL ENTRIES IN it_zlmt033
  46.        WHERE vbeln = it_zlmt033-vbeln AND fdnam = 'AUGRU'.
  47.     ENDIF.

  49.     LOOP AT it_vbuv."添加前导零
  50.       CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  51.         EXPORTING
  52.           input  = it_vbuv-vbeln
  53.         IMPORTING
  54.           output = it_vbuv-vbeln.
  55.       MODIFY it_vbuv TRANSPORTING vbeln.
  56.     ENDLOOP.

  58.     DELETE it_vbuv[] WHERE vbeln = space.
  59.     IF it_vbuv[] IS NOT INITIAL.
  60.       SORT it_vbuv[] BY vbeln.
  61.       DELETE ADJACENT DUPLICATES FROM it_vbuv COMPARING vbeln.
  62.       SELECT vbeln
  63.              augru
  64.              zzfhqzlx
  65.         INTO TABLE it_vbak
  66.         FROM vbak
  67.         FOR ALL ENTRIES IN it_vbuv
  68.         WHERE vbeln = it_vbuv-vbeln.
  69.     ENDIF.
  70.   ELSE."选择屏幕中 不勾选时的取数逻辑
  71.     SELECT vbeln
  72.            augru
  73.            zzfhqzlx
  74.       INTO TABLE it_vbak
  75.       FROM vbak
  76.       WHERE zzfhqzlx IN s_omsor AND "签章类型
  77.             vbeln IN s_vbeln AND "销售凭证
  78.             erdat IN s_datum."记录建立日期
  79.     SORT it_vbak BY vbeln.
  80.   ENDIF.

  82.   IF it_vbak[] IS INITIAL.
  83.     MESSAGE i001(00) WITH '没有符合条件的数据要更新！'.
  84.     LEAVE LIST-PROCESSING.
  85.   ENDIF.
  86. ENDFORM.              " F_GET_DATA
  87. *&---------------------------------------------------------------------*
  88. *&      Form  f_AUTHORITY_CHECK
  89. *&---------------------------------------------------------------------*
  90. *       text
  91. *----------------------------------------------------------------------*
  92. *  -->  p1        text
  93. *  <--  p2        text
  94. *----------------------------------------------------------------------*
  95. FORM f_authority_check .
  96.   SELECT SINGLE *
  97.     INTO wa_zsd_conf02
  98.     FROM zsd_conf02
  99.     WHERE zpara = 'ZSD166'
  100.      AND zchar = sy-uname.
  101.   IF sy-subrc <> 0.
  102.     MESSAGE e001(00) WITH '您没有权限操作'.
  103.   ENDIF.
  104. ENDFORM.        "f_A     UTHORITY_CHECK
  105. *&---------------------------------------------------------------------*
  106. *&      Form  f_process_data
  107. *&---------------------------------------------------------------------*
  108. *       text
  109. *----------------------------------------------------------------------*
  110. *  -->  p1        text
  111. *  <--  p2        text
  112. *----------------------------------------------------------------------*
  113. FORM f_process_data .
  114.   DATA: lt_return  TYPE STANDARD TABLE OF bapiret2,
  115.         ls_return  TYPE bapiret2,
  116.         ls_headerx TYPE bapisdh1x, "表头标志
  117.         ls_header  TYPE bapisdh1.

  119.   ls_headerx-updateflag = 'U'.     "Update
  120.   ls_header-ord_reason = p_augru.
  121.   ls_headerx-ord_reason = 'X'.

  123.   DATA:l_vbak_augru TYPE vbak-augru.
  124.   DATA:l_message TYPE bapiret2-message.
  125.   DATA:l_error(1) TYPE c.
  126. *-->调用bapi批处理augru
  127.   LOOP AT  it_vbak.
  128.     CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
  129.       EXPORTING
  130.         salesdocument    = it_vbak-vbeln
  131.         order_header_in  = ls_header
  132.         order_header_inx = ls_headerx
  133.       TABLES
  134.         return           = lt_return.

  136.     CLEAR:l_error.
  137.     LOOP AT lt_return INTO ls_return WHERE  type EQ 'E' OR type = 'A'.
  138.       l_error = 'X'.
  139.     ENDLOOP.

  141.     IF l_error = 'X'.
  142.       CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
  143. *-->收集失败的消息
  144.       l_vbak_augru = it_vbak-augru.
  145.       l_message = '修改失败'.
  146.       PERFORM f_add_message USING l_vbak_augru
  147.                                   l_message.
  148.     ELSE.
  149.       CALL FUNCTION'BAPI_TRANSACTION_COMMIT'
  150.             EXPORTING
  151.               wait = 'X'.
  152. *-->收集成功的消息
  153.       l_vbak_augru = p_augru.
  154.       l_message = '修改成功'.
  155.       PERFORM f_add_message USING l_vbak_augru
  156.                                   l_message.
  157.     ENDIF.
  158.   ENDLOOP.

  160.   IF p_flag = space.
  161.     MESSAGE s001(00) WITH '数据已被修改请查看日志表！'.
  162.   ENDIF.
  163. *-->收集消息记录到日志表中
  164.   IF it_zdqsd_166_log IS NOT INITIAL.
  165.     MODIFY zdqsd_166_log FROM TABLE it_zdqsd_166_log.
  166.     IF sy-subrc = 0.
  167.       COMMIT WORK AND WAIT.
  168.     ELSE.
  169.       ROLLBACK WORK.
  170.     ENDIF.
  171.   ENDIF.
  172. ENDFORM.                    " f_process_data
  173. *&---------------------------------------------------------------------*
  174. *&      Form  F_CHECK_SCREEN
  175. *&---------------------------------------------------------------------*
  176. *       text
  177. *----------------------------------------------------------------------*
  178. *  -->  p1        text
  179. *  <--  p2        text
  180. *----------------------------------------------------------------------*
  181. FORM f_check_screen .
  182.   IF  p_flag = space AND s_vbeln[] IS INITIAL  AND  s_omsor[] IS INITIAL .
  183.     MESSAGE e001(00) WITH 'OMS单号和销售凭证号至少输入一项'.
  184.   ENDIF.

  186.   SELECT SINGLE *
  187.     INTO gs_tvau
  188.     FROM tvau
  189.     WHERE augru = p_augru.
  190.   IF sy-subrc <> 0.
  191.     MESSAGE e001(00) WITH '退货申请' p_augru  '不存在！'.
  192.   ENDIF.
  193. ENDFORM.                    "f_check_screen
  194. " F_CHECK_SCREEN
  195. *&---------------------------------------------------------------------*
  196. *&      Form  f_add_message
  197. *&---------------------------------------------------------------------*
  198. *       text
  199. *----------------------------------------------------------------------*
  200. *      -->L_P_VBAK_AUGRU  text
  201. *      -->L_P_MESSAGE  text
  202. *----------------------------------------------------------------------*
  203. FORM f_add_message  USING    l_p_vbak_augru
  204.                              l_p_message.
  205.   wa_zdqsd_166_log-mandt = sy-mandt.
  206.   wa_zdqsd_166_log-zzfhqzlx = it_vbak-zzfhqzlx.
  207.   wa_zdqsd_166_log-vbeln =  it_vbak-vbeln.
  208.   wa_zdqsd_166_log-erdat = sy-datum.
  209.   wa_zdqsd_166_log-erzet = sy-uzeit.
  210.   wa_zdqsd_166_log-augru = l_p_vbak_augru.
  211.   wa_zdqsd_166_log-uname = sy-uname.
  212.   wa_zdqsd_166_log-message = l_p_message.
  213.   APPEND wa_zdqsd_166_log TO it_zdqsd_166_log.
  214.   CLEAR wa_zdqsd_166_log.
  215. ENDFORM.                    " f_add_message
复制代码
批量维护, 记录, 物流, bapi

相关帖子
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

GMT+8, 2024-11-22 02:48 , Processed in 0.063506 second(s), 10 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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