请教:如何设置销售订单只有审批后才能运行MRP

baofengzhizhe

应该要做相应的权限控制, 不是让所有能修改订单的人都能修改吧!

faq_dog

我目前做的方式是这样的，通过权限控制和增强来做。权限分为有权限修改行项目拒绝状态和无权限修改的。只有经理级别可以修改这个状态。销售人员只能做单，单子录入以后，增强里面，通过判断权限，如果是销售人员：直接设置成拒绝状态“99”。这样就不会参与MRP运算。销售人员没有权限修改这个状态，如果修改，增强提示：您没有权限修改拒绝状态。
代码如下：
IF SY-TCODE = 'VA01'.
  IF VBAK-AUART = 'ZOR'.
*   如果没有修改的权限  新增时默认设置为99
    AUTHORITY-CHECK OBJECT 'Z_VBAK_K3'
         ID 'ACTVT' FIELD '02'.
      IF sy-subrc <> 0.
        VBAP-ABGRU = '99'.
      ENDIF.
  ENDIF.
ENDIF.

IF SY-TCODE = 'VA02'.
  IF VBAK-AUART = 'ZOR'.
    DATA: ABGRU LIKE VBAP-ABGRU.
    data:   begin of I_vbap1 occurs 125.
              include structure vbapvb.
    data:   end of I_vbap1.
    I_VBAP1[] = XVBAP[].
    LOOP AT I_VBAP1.
      CLEAR: ABGRU.
*     判断有没有修改
      SELECT SINGLE ABGRU INTO ABGRU
             FROM VBAP
             WHERE VBELN = I_VBAP1-VBELN
             AND   POSNR = I_VBAP1-POSNR.
        IF ABGRU <> I_VBAP1-ABGRU.
          AUTHORITY-CHECK OBJECT 'Z_VBAK_K3'
               ID 'ACTVT' FIELD '02'.
            IF sy-subrc <> 0.
              MESSAGE '您无权修改拒绝状态' TYPE 'E'.
            ENDIF.
        ENDIF.
    ENDLOOP.
  ENDIF.
ENDIF.