PM工单结算规则自动处理-优快云博客

本文链接：https://blog.youkuaiyun.com/SAPHOME/article/details/7046249

PM工单结算规则处理方法

侯志宇

2011-12-6

在订单中我们可以通过出口维护结算规则，这样可以避免用户手工维护结算规则

可以再IWO10027（生成用户定义的结算规则）出口中实现实现代码如下：

*&---------------------------------------------------------------------*
*&  包括                ZXWOCU24
*&---------------------------------------------------------------------*
*
*增强名称：试点-工单建立后，保存时直接填入一个虚拟的结算规则。（结算到科目9999999999）
*增强内容：工单保存时，全部自动赋给一个虚拟的结算规则：科目9999999999

    DATA: S_PMDFU TYPE PMDFU.
    S_PMDFU-KONTY = 'SK'."G/L = SK
    S_PMDFU-FDIND = '9999999999'.
    S_PMDFU-PERBZ = 'GES'."FUL
    S_PMDFU-AQZIF = 0.
    S_PMDFU-PROZS = 100.
    APPEND S_PMDFU TO PMDFU_TAB.
.

IWO10027正常情况下在IW31中及其在IW32中单击结算规则选择默认时调用；

但是由于某些未知原因也可能导致此出口更新失败，这样我们就找了另一种更新结算规则的方法来进行补救，我将此方法写在IWO10009 （PM订单：对于'保存'事件的客户检查）出口中进行处理，在EXIT_SAPLCOIH_009中代码如下：

*>>>modify begin  2011.12.06*************************************
*修改方案：在非创建工单时如果还没有维护结算规则，就自动生成结算规则
*修改人：侯志宇
**************************************************
* 如果还没有维护结算规则，就自动生成结算规则 *
**************************************************
call function 'STATUS_CHECK'
  exporting
*   BYPASS_BUFFER           = ' '
*   CLIENT                  = SY-MANDT
    OBJNR                   = CAUFVD_IMP-OBJNR
    STATUS                  = 'I0028'"SETC in table TJ02T 结算规则己维护
exceptions
   OBJECT_NOT_FOUND        = 1
   STATUS_NOT_ACTIVE       = 2
   others                  = 3.

if SY-SUBRC = 2 and CAUFVD_IMP-OBJNR+0(2) <> 'TM'."不是新建末保存的订单 STATUS_NOT_ACTIVE,

**************************************************
* 自动生成结算规则开始 *
**************************************************
*************************
* Data Declaration *
*************************
  data IT_OBJNR type standard table of IONRB with header line.

  data IT_COBRA type standard table of COBRA with header line.
  data IT_COBRB type standard table of COBRB&n