【Demo】改变SO项目状态并取消拒绝原因实现

电玩女神 2022-11-17 05:30 25阅读 0赞

销售订单审批状态配置的数据表有三级（转自：[博客链接][Link 1]）：

*  状态参数文件的数据表是TJ20，对应的语言描述表TJ20T；
 *  用户状态条目的数据表是TJ30，对应的语言描述表TJ30T，注意字段TJ30-ESTAT（用户状态）是条目的自增长值，不可以编辑，格式“Exxx”，例如E0001、E0002；
 *  用户状态控制的数据表是TJ31，字段MODKZ存放编辑标志，1为允许、2为允许但警告、3为禁止。

下面的Demo的作用是改变审批状态，同时取消行项目拒绝原因。  
![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70][]

1、更新审批状态

data:  ls_objnr type jsto-objnr.
    clear: ls_objnr.
    
    ls_objnr = 'VB' && vbap-vbeln && vbap-posnr.
    
            call function 'I_CHANGE_STATUS'
              exporting
                objnr          = ls_objnr
                estat_inactive = 'E0002'
                estat_active   = 'E0004'
                stsma          = 'ZSD001'
              exceptions
                cannot_update  = 1
                others         = 2.

这里要是状态没有把控到位则会出现Dump。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 1][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 2][]

2、取消拒绝原因

perform change_so using vbap-vbeln vbap-posnr
                      changing lv_flag.
    
                if lv_flag = 'S'.
                   "取消成功
                elseif lv_flag = 'E'.
                   "取消失败
                endif.
    
    
    form change_so  using  p_vbeln p_posnr
                        changing p_flag.
    
      data: l_vbeln type bapivbeln-vbeln,
            l_headx type bapisdh1x,
            l_ret   type table of bapiret2 with header line,
            l_item  type table of bapisditm with header line,
            l_itemx type table of bapisditmx with header line.
    
      refresh:l_item,l_itemx,l_ret.
    
      l_headx-updateflag = 'U'.
    
      l_item-itm_number = p_posnr.
      l_item-reason_rej = ''.
      append l_item. clear l_item.
    
      l_itemx-itm_number = p_posnr.
      l_itemx-updateflag = 'U'.
      l_itemx-reason_rej = 'X'.
      append l_itemx. clear l_itemx.
    
      call function 'BAPI_SALESORDER_CHANGE'
        exporting
          salesdocument    = p_vbeln
          order_header_inx = l_headx
        tables
          return           = l_ret
          order_item_in    = l_item
          order_item_inx   = l_itemx.
    
      loop at l_ret where type ca 'AEX'.
        p_flag = 'E'.
      endloop.
    
      if sy-subrc <> 0.
        call function 'BAPI_TRANSACTION_COMMIT'
          exporting
            wait = 'X'.
    
        p_flag = 'S'.
      else.
        call function 'BAPI_TRANSACTION_ROLLBACK'.
      endif.
    
    endform.

[Link 1]: https://fenginfo.com/614.html
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70]: /images/20221022/86e049395c6d4db39e8b0ceffce53cae.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 1]: /images/20221022/1d650f32cc2645a6b0047b39c4bf5ee9.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 2]: /images/20221022/a874b4dc3fc44576badca9490c66e93b.png