【SD】自定义销售订单审批状态

柔情只为你懂 2022-09-04 13:53 248阅读 0赞

## **自定义销售订单审批状态** ##

销售订单可以在其抬头或者项目中定义审批状态，一般在抬头定义的话就相当于针对整单的审批，可以实现多级审批，每级审批设置能进行何种操作，这里就需要在IMG中定义审批状态参数文件。

![ef42f5a9ad5bff8ed6bb7112bc3e34ce.png][]

### **一、定义状态参数文件** ###

> 配置路径：SPRO→销售与分销→销售→销售凭证→定义并分配状态参数文件→定义状态参数文件
> 
> 事务代码：**BS02**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70][]

首先需要在“对象类型”中确定类型是销售订单标题还是销售订单项目，这里我们就以销售订单标题为例进行说明。

![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][]

双击各个状态进入事务控制界面，可以选择在此状态下哪些操作是禁止的。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 3][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 4][]

依次设置完毕后保存即可。

状态参数文件基本信息保存的数据表是TJ20，对应的语言描述表TJ20T；

![20210814160237707.png][]

用户状态条目保存的数据表是TJ30，对应的语言描述表TJ30T，注意字段TJ30-ESTAT（用户状态）是条目的自增长值，不可以编辑，格式“Exxx”，例如E0001、E0002；

![20210814155816660.png][]

用户状态控制保存的数据表是TJ31，字段MODKZ存放编辑标志，1为允许、2为允许但警告、3为禁止。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 5][]

### **二、分配订单类型/状态参数文件&分配状态参数文件到项目类型** ###

> 配置路径：SPRO→销售与分销→销售→销售凭证→定义并分配状态参数文件→分配订单类型/状态参数文件&分配状态参数文件到项目类型
> 
> 事务代码：**VOV8 / VOV7**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 6][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 7][]

分配完成之后会将相关信息保存于数据库表TVAK 和 TVAP中。

> ![5e6743c69f8d52cd710b875400ef3cee.png][]
> 
> # **  Tip ：**  #
> 
>  *  TVAK中的是根据销售凭证类型分配需要在销售订单抬头进行审批的；
>  *  TVAP中的是根据项目类型分配需要在销售订单项目进行审批的。

### **三、订单审批** ###

> 路径：SAP 菜单→后勤→销售与分销→销售→订单→更改
> 
> 路径：SAP 菜单→后勤→销售与分销→销售→合同→更改
> 
> 事务代码：**VA42/VA02**

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 8][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 9][]

在CBO程序中就可以用函数” **I\_CHANGE\_STATUS**”进行逐层审批。

**【样例代码】**

DATA : LV_OBJNR        TYPE J_OBJNR.
              LV_OBJNR = 'VB' && E_VBELN && IT_ITEM-POSNR.
              CALL FUNCTION 'I_CHANGE_STATUS'
                EXPORTING
                  OBJNR          = LV_OBJNR
                  ESTAT_INACTIVE = 'E0001'
                  ESTAT_ACTIVE   = 'E0002'
                  STSMA          = 'ZFMSD02'
    *       EXCEPTIONS
    *             CANNOT_UPDATE  = 1
    *             OTHERS         = 2

FUNCTION I_CHANGE_STATUS.
    *"----------------------------------------------------------------------
    *"*"Update function module:
    *"
    *"*"Local interface:
    *"       IMPORTING
    *"             VALUE(OBJNR) LIKE  JEST-OBJNR
    *"             VALUE(ESTAT_INACTIVE) LIKE  TJ30-ESTAT
    *"             VALUE(ESTAT_ACTIVE) LIKE  TJ30-ESTAT
    *"             VALUE(STSMA) LIKE  JSTO-STSMA OPTIONAL
    *"       EXCEPTIONS
    *"              CANNOT_UPDATE
    *"----------------------------------------------------------------------
    
    ************************************************************************
    *
    * Description:    Changes the status for an object
    *                 (ex. a notification or a notification task).
    *                 This function does not validate if the status
    *                 transition is valid (a call to I_CHECK_CHANGE_STATUS
    *                 function should be done before).
    *
    ************************************************************************
    
      TABLES: JSTO.
    
      DATA: T_JEST_INS LIKE JEST_UPD OCCURS 0 WITH HEADER LINE,
            T_JEST_UPD LIKE JEST_UPD OCCURS 0 WITH HEADER LINE,
            T_JSTO_INS LIKE JSTO     OCCURS 0,
            T_JSTO_UPD LIKE JSTO_UPD OCCURS 0,
            T_OBJ_DEL  LIKE ONR00    OCCURS 0.
    
    
      SELECT SINGLE * FROM JSTO WHERE OBJNR = OBJNR.
    
      IF NOT ESTAT_INACTIVE IS INITIAL.
        SELECT SINGLE * INTO T_JEST_UPD FROM JEST
          WHERE OBJNR = OBJNR
            AND STAT  = ESTAT_INACTIVE.
        IF SY-SUBRC = 0.
          T_JEST_UPD-INACT = 'X'.
          ADD 1 TO T_JEST_UPD-CHGNR.
          T_JEST_UPD-CHGKZ = JSTO-CHGKZ.
          T_JEST_UPD-OBTYP = 'ORI'.
          T_JEST_UPD-STSMA = STSMA.
          APPEND T_JEST_UPD.
        ELSE.
          RAISE CANNOT_UPDATE.
        ENDIF.
      ENDIF.
    
      SELECT SINGLE * INTO T_JEST_UPD FROM JEST
        WHERE OBJNR = OBJNR
          AND STAT  = ESTAT_ACTIVE.
      IF SY-SUBRC = 0.
        T_JEST_UPD-MANDT = SY-MANDT.
        T_JEST_UPD-INACT = ' '.
        ADD 1 TO T_JEST_UPD-CHGNR.
        T_JEST_UPD-CHGKZ = JSTO-CHGKZ.
        T_JEST_UPD-OBTYP = 'ORI'.
        T_JEST_UPD-STSMA = STSMA.
        APPEND T_JEST_UPD.
      ELSE.
        T_JEST_INS-MANDT = SY-MANDT.
        T_JEST_INS-OBJNR = OBJNR.
        T_JEST_INS-STAT  = ESTAT_ACTIVE.
        T_JEST_INS-INACT = ' '.
        T_JEST_INS-CHGNR = '001'.
        T_JEST_INS-CHGKZ = JSTO-CHGKZ.
        T_JEST_INS-OBTYP = 'ORI'.
        T_JEST_INS-STSMA = STSMA.
        APPEND T_JEST_INS.
      ENDIF.
    
      CALL FUNCTION 'STATUS_UPDATE'
           TABLES
                JEST_INS = T_JEST_INS
                JEST_UPD = T_JEST_UPD
                JSTO_INS = T_JSTO_INS
                JSTO_UPD = T_JSTO_UPD
                OBJ_DEL  = T_OBJ_DEL
           EXCEPTIONS
                OTHERS   = 1.
    
      IF SY-SUBRC <> 0.
        RAISE CANNOT_UPDATE.
      ENDIF.
    
    ENDFUNCTION.

![a2cf15111c35fdaa63a79d93056acbc6.png][]

[ef42f5a9ad5bff8ed6bb7112bc3e34ce.png]: /images/20220829/8b5f489c03584b8d9418a6e80131c6e3.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70]: /images/20220829/ce5e55f9e58d48c18e88002bf09a4664.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 1]: /images/20220829/358614c58ec841ae930ce2144c24c99e.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 2]: /images/20220829/f927c13134dc4612849cc0c62b0471c8.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 3]: /images/20220829/ea72b0618161483ea264b8836e934cf2.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 4]: /images/20220829/f5c02a4568054a82a3ab05997e24a137.png
[20210814160237707.png]: /images/20220829/c78a62166d4440beb7c14efec964e791.png
[20210814155816660.png]: /images/20220829/9ccb0a4063fc43ff8c1c145c32e2798a.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 5]: /images/20220829/f7391102d58e45a8bb7bc977dcf36c1e.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 6]: /images/20220829/d5ae13d478d041faab55a24d9b15dcc6.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 7]: /images/20220829/5959087ffc3d481a8ab0f777cdfa1321.png
[5e6743c69f8d52cd710b875400ef3cee.png]: /images/20220829/01dfa40e94f747d9be15a5084be88bbe.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 8]: /images/20220829/814b7347019244b39469830dd62aa3ad.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3pob25nZ3VvbWFv_size_16_color_FFFFFF_t_70 9]: /images/20220829/8ea29c2899f944ed823a881bbf20f51f.png
[a2cf15111c35fdaa63a79d93056acbc6.png]: /images/20220829/083d1b66bd9d424c8ea9bc507e9ee21c.png