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

批量修改销售订单行项目系统状态

Twilight发表于 2026-03-12 10:43Twilight 最后回复于 2026-03-12 10:43 [复制链接] 2 0

  1.   REPORT zsdr028 MESSAGE-ID 00.

  3. *&---------------------------------------------------------------------*
  4. *& INCLUDE
  5. *&---------------------------------------------------------------------*
  6.   INCLUDE zsdr028_top.
  7.   INCLUDE zsdr028_selscr.
  8.   INCLUDE zsdr028_form.
  9. *&---------------------------------------------------------------------*
  10. *& 初始化处理
  11. *&---------------------------------------------------------------------*
  12.   INITIALIZATION.

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

  19. *----------------------------------------------------------------------*
  20. *         AT SELECTION-SCREEN ON VALUE-REQUEST                         *
  21. *----------------------------------------------------------------------*
  22. *  AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  24. *&---------------------------------------------------------------------*
  25. *& 参数输入检查
  26. *&---------------------------------------------------------------------*
  27.   AT SELECTION-SCREEN.
  28. *&---------------------------------------------------------------------*
  29. *& 程序开始处理
  30. *&---------------------------------------------------------------------*
  31.   START-OF-SELECTION.
  32.     IF s_vbeln[] IS INITIAL.
  33.       MESSAGE '销售订单必填' TYPE 'E'.
  34.     ENDIF.
  35.     PERFORM frm_data_check.
  36. *&---------------------------------------------------------------------*
  37. *& 程序结束处理
  38. *&---------------------------------------------------------------------*
  39.   END-OF-SELECTION.
  40.     PERFORM frm_show_ALV.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *& 包含               ZHRR041_TOP
  3. *&---------------------------------------------------------------------*
  4. ****************上载相关**********************************
  5. TABLES:vbak."屏幕表
  6. TYPE-POOLS:slis,truxs,icon.
  7. DATA functxt TYPE smp_dyntxt.
  8. ****************上载相关**********************************

  10. *****************定义结构************************************
  11. TYPES:BEGIN OF ty_alv,
  12.         vbeln    TYPE vbap-vbeln,
  13.         bukrs    TYPE vbak-bukrs_vf,
  14.         vkorg    TYPE vbak-vkorg,
  15.         erdat    TYPE vbak-erdat,
  16.         posnr    TYPE vbap-posnr,
  17.         flag(1),
  18.         zid      TYPE icon-id,         " 信号
  19.         zmessage TYPE zmmt004-zmessage, " 提示文本
  20.       END OF ty_alv.

  22. *****************定义结构************************************
  23. DATA:gt_alv TYPE TABLE OF ty_alv WITH HEADER LINE.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *& 包含               ZHRR041_SELSCR
  3. *&---------------------------------------------------------------------*
  4. SELECTION-SCREEN FUNCTION KEY 1.
  5. SELECTION-SCREEN BEGIN OF BLOCK blk01 WITH FRAME TITLE TEXT-001.
  6. SELECT-OPTIONS:s_vbeln FOR vbak-vbeln.
  7. SELECTION-SCREEN END OF BLOCK blk01.
  8. SELECTION-SCREEN BEGIN OF BLOCK blk02 WITH FRAME TITLE TEXT-002.
  9. PARAMETERS p_rtco RADIOBUTTON GROUP typ USER-COMMAND sele DEFAULT 'X'."技术实现 重置
  10. PARAMETERS p_rstl RADIOBUTTON GROUP typ."已完成 重置
  11. SELECTION-SCREEN END OF BLOCK blk02.
复制代码
  1. *&---------------------------------------------------------------------*
  2. *&  包含                ZSDR028_FORM
  3. *&---------------------------------------------------------------------*
  4. *&---------------------------------------------------------------------*
  5. *&      Form  FRM_DATA_CHECK
  6. *&---------------------------------------------------------------------*
  7. *       text
  8. *----------------------------------------------------------------------*
  9. *  -->  p1        text
  10. *  <--  p2        text
  11. *----------------------------------------------------------------------*
  12. FORM frm_data_check .
  13.   DATA:lv_vrgng TYPE tj01-vrgng.

  15.   SELECT vbak~vbeln,
  16.          vbak~bukrs_vf,
  17.          vbak~vkorg,
  18.          vbak~erdat,
  19.          vbap~posnr
  20.     FROM vbak
  21.     INNER JOIN vbap ON vbak~vbeln = vbap~vbeln
  22.     WHERE vbak~vbeln IN @s_vbeln
  23.     INTO TABLE @DATA(lt_vbap).

  25.   IF p_rtco = 'X'. "技术实现 重置
  26.     lv_vrgng = 'BUTA'.
  27.   ELSEIF p_rstl = 'X'. "已完成 重置
  28.     lv_vrgng = 'BUAB'.
  29.   ENDIF.

  31.   SORT lt_vbap BY vbeln posnr.
  32.   LOOP AT lt_vbap ASSIGNING FIELD-SYMBOL(<fs_vbap>).
  33.     CLEAR:gt_alv.
  34.     gt_alv-vbeln = <fs_vbap>-vbeln.
  35.     gt_alv-bukrs = <fs_vbap>-bukrs_vf.
  36.     gt_alv-vkorg = <fs_vbap>-vkorg.
  37.     gt_alv-erdat = <fs_vbap>-erdat.
  38.     gt_alv-posnr = <fs_vbap>-posnr.

  40.     CALL FUNCTION 'SD_ITEM_CHANGE_STATUS'
  41.       EXPORTING
  42.         i_vrgng           = lv_vrgng
  43.         i_document_number = <fs_vbap>-vbeln
  44.         i_item_number     = <fs_vbap>-posnr
  45.         i_external_call   = 'X'
  46.         i_check_only      = 'X'
  47.       EXCEPTIONS
  48.         no_status_object  = 1
  49.         no_activity       = 2
  50.         missing_data      = 3
  51.         not_allowed       = 4
  52.         fatal_error       = 5
  53.         OTHERS            = 6.
  54.     IF sy-subrc NE 0.
  55.       gt_alv-zid = icon_red_light.
  56.       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO gt_alv-zmessage.
  57.     ENDIF.

  59.     APPEND gt_alv.
  60.   ENDLOOP.

  62. ENDFORM.                    " FRM_DATA_CHECK
  63. *&---------------------------------------------------------------------*
  64. *&      Form  FRM_SHOW_ALV
  65. *&---------------------------------------------------------------------*
  66. *       text
  67. *----------------------------------------------------------------------*
  68. *  -->  p1        text
  69. *  <--  p2        text
  70. *----------------------------------------------------------------------*
  71. FORM frm_show_alv .
  72. *局部变量定义
  73.   DATA: ls_layout   TYPE lvc_s_layo,
  74.         lt_fieldcat TYPE lvc_t_fcat,
  75.         ls_fieldcat TYPE lvc_s_fcat,
  76.         lt_event    TYPE slis_t_event WITH HEADER LINE,
  77.         pos         TYPE i,
  78.         w_repid     LIKE sy-repid VALUE sy-repid.

  80.   " 初始化
  81.   CLEAR: ls_layout,
  82.          lt_fieldcat[],ls_fieldcat,
  83.          lt_event[],lt_event,pos.

  85. * ALV参数设置
  86.   ls_layout-box_fname   = 'FLAG'.
  87.   ls_layout-cwidth_opt    = 'X'.
  88.   ls_layout-detailinit    = 'X'.

  90.   "  fieldcat设置
  91.   DEFINE d_get_field.
  92.     pos = pos + 1.
  93.     CLEAR ls_fieldcat.
  94.     ls_fieldcat-col_pos = pos.
  95.     ls_fieldcat-coltext = &1.
  96.     ls_fieldcat-fieldname = &2.
  97.     ls_fieldcat-key       = &3.
  98.     APPEND ls_fieldcat TO lt_fieldcat.
  99.   END-OF-DEFINITION.
  100.   d_get_field '错误信号'          'ZID'        ''.
  101.   d_get_field '消息文本'          'ZMESSAGE'   ''.
  102.   d_get_field '销售订单'          'VBELN'      'X'.
  103.   d_get_field '行项目'            'POSNR'      'X'.
  104.   d_get_field '公司代码'          'BUKRS'      ''.
  105.   d_get_field '销售组织'          'VKORG'      ''.
  106.   d_get_field '创建日期'          'ERDAT'      ''.

  108. * ALV 展示
  109.   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
  110.     EXPORTING
  111.       i_callback_program       = w_repid
  112.       i_callback_pf_status_set = 'SUB_STATUS'
  113.       i_callback_user_command  = 'SUB_COMMAND'
  114.       is_layout_lvc            = ls_layout
  115.       it_fieldcat_lvc          = lt_fieldcat
  116.       i_save                   = 'A'
  117.       it_events                = lt_event[]
  118.     TABLES
  119.       t_outtab                 = gt_alv[]
  120.     EXCEPTIONS
  121.       program_error            = 1
  122.       OTHERS                   = 2.
  123.   IF sy-subrc <> 0.
  124.     LEAVE TO SCREEN 0.
  125.   ENDIF.
  126. ENDFORM.                    " FRM_SHOW_ALV
  127. *&---------------------------------------------------------------------*
  128. *&      Form  SUB_STATUS
  129. *&---------------------------------------------------------------------*
  130. *       text
  131. *----------------------------------------------------------------------*
  132. *  -->  p1        text
  133. *  <--  p2        text
  134. *----------------------------------------------------------------------*
  135. FORM sub_status USING re_extab TYPE slis_t_extab.
  136.   SET PF-STATUS 'ZSTATUS01'.
  137. ENDFORM.
  138. *&---------------------------------------------------------------------*
  139. *&      Form  SUB_COMMAND
  140. *&---------------------------------------------------------------------*
  141. *       text
  142. *----------------------------------------------------------------------*
  143. *  -->  p1        text
  144. *  <--  p2        text
  145. *----------------------------------------------------------------------*
  146. FORM sub_command USING r_ucomm LIKE sy-ucomm
  147.                        rs_selfield TYPE slis_selfield.

  149.   CASE r_ucomm.
  150.     WHEN 'BACK'.
  151.       LEAVE TO SCREEN 0.
  152.     WHEN '&DATA_SAVE'.
  153.       SORT gt_alv BY flag zid.
  154.       READ TABLE gt_alv WITH KEY flag = 'X' zid = '@0A@' BINARY SEARCH.
  155.       IF sy-subrc = 0.
  156.         MESSAGE '请检查报错信息的条目！' TYPE 'E'.
  157.       ENDIF.
  158.       READ TABLE gt_alv WITH KEY  flag = 'X' BINARY SEARCH.
  159.       IF sy-subrc NE 0.
  160.         MESSAGE '请选择需要导入的数据！' TYPE 'E'.
  161.       ENDIF.
  162.       PERFORM frm_save_data.
  163.     WHEN OTHERS.
  164.   ENDCASE.

  166.   rs_selfield-refresh = 'X'.  " 刷新.
  167. ENDFORM.
  168. *&---------------------------------------------------------------------*
  169. *&      Form  FRM_SAVE_DATA
  170. *&---------------------------------------------------------------------*
  171. *       text
  172. *----------------------------------------------------------------------*
  173. *  -->  p1        text
  174. *  <--  p2        text
  175. *----------------------------------------------------------------------*
  176. FORM frm_save_data .
  177.   DATA:lt_status    TYPE TABLE OF jstat.
  178.   DATA:lt_jest_ins  TYPE TABLE OF jest_upd.
  179.   DATA:lt_jest_upd  TYPE TABLE OF jest_upd.
  180.   DATA:lt_jsto_ins  TYPE TABLE OF jsto.
  181.   DATA:lt_jsto_upd  TYPE TABLE OF jsto_upd.
  182.   DATA:lt_obj_del   TYPE TABLE OF onr00.
  183.   DATA:ls_jest_upd  TYPE jest_upd.
  184.   DATA:lv_objnr     TYPE jsto-objnr.

  186. *I0002  REL 已释放
  187. *I0045  TECO  技术性完成
  188. *I0046  结算  已结算
  189. *I0043 锁定  已锁定
  190. *I0097 FNBL  最后开票
  191. *
  192. *I0012  DLV 交货
  193. *I0028  SETC  结算规则维护
  194. *I0082  RESA  进行结果分析
  195. *I0234  Mto0  定货生产
  196. *I0295  RAOC  对象值中的 RA 数据

  198.   LOOP AT gt_alv ASSIGNING FIELD-SYMBOL(<fs_alv>) WHERE flag = 'X'.
  199.     CLEAR:lt_status[],lt_jest_upd[].
  200.     lv_objnr = 'VB' && <fs_alv>-vbeln && <fs_alv>-posnr.
  201.     CALL FUNCTION 'STATUS_READ'
  202.       EXPORTING
  203.         client           = sy-mandt
  204.         objnr            = lv_objnr
  205.         only_active      = 'X'
  206.       TABLES
  207.         status           = lt_status
  208.       EXCEPTIONS
  209.         object_not_found = 1
  210.         OTHERS           = 2.

  212.     LOOP AT lt_status ASSIGNING FIELD-SYMBOL(<fs_status>) WHERE stat = 'I0002' OR stat = 'I0045' OR stat = 'I0046' OR stat = 'I0043' OR stat = 'I0097'.
  213.       CLEAR:ls_jest_upd.
  214.       ls_jest_upd-mandt = sy-mandt.
  215.       ls_jest_upd-objnr = lv_objnr.
  216.       ls_jest_upd-stat  = <fs_status>-stat.
  217.       ls_jest_upd-inact = 'X'.
  218.       APPEND ls_jest_upd TO lt_jest_upd.
  219.     ENDLOOP.

  221.     CLEAR:ls_jest_upd.
  222.     ls_jest_upd-mandt = sy-mandt.
  223.     ls_jest_upd-objnr = lv_objnr.
  224.     ls_jest_upd-stat  = 'I0002'."REL  已释放
  225.     ls_jest_upd-inact = ''.
  226.     APPEND ls_jest_upd TO lt_jest_upd.

  228.     CALL FUNCTION 'STATUS_UPDATE'
  229.       TABLES
  230.         jest_ins = lt_jest_ins
  231.         jest_upd = lt_jest_upd
  232.         jsto_ins = lt_jsto_ins
  233.         jsto_upd = lt_jsto_upd
  234.         obj_del  = lt_obj_del.

  236.     IF sy-subrc = 0.
  237.       <fs_alv>-zid = icon_green_light.
  238.       <fs_alv>-zmessage = '保存成功'.
  239.     ELSE.
  240.       <fs_alv>-zid = icon_red_light.
  241.       MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 INTO <fs_alv>-zmessage.
  242.     ENDIF.
  243.   ENDLOOP.


  246. ENDFORM.                    " FRM_SAVE_DATA
复制代码
系统状态
回复

使用道具 举报

Twilight

管理员

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

Ta最近发表

快速回帖

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

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

GMT+8, 2026-3-12 12:32 , Processed in 0.099469 second(s), 5 queries , Gzip On, Redis On.

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

平台客服 1204767879 无客服码

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