生产订单增强——检查结算规则

效果：

必须按下图维护：

 

CMOD增强：PPCO0007

代码：

 

  "获取结算规则进行检查
  IF SY-TCODE = 'CO01' AND HEADER_IMP-AUART = 'ZSP'.
    CALL FUNCTION 'K_SRULE_EXPORT_IMPORT'
      EXPORTING
        I_MODE     = 'EX'
      EXCEPTIONS
        WRONG_MODE = 1
        OTHERS     = 2.
    IF SY-SUBRC = 0.
      IMPORT L_MEM_COBRA L_MEM_COBRB FROM MEMORY ID 'K_SRULE'.
      LOOP AT L_MEM_COBRB INTO DATA(LS_COBRB).
        IF LS_COBRB-KONTY = 'MA'.
          IF LS_COBRB-PROZS > 0.
            MESSAGE E001(00) WITH '打样工单结算规则有误，请修改'.
          ENDIF.
        ELSEIF LS_COBRB-KONTY = 'SK'.
          IF LS_COBRB-PROZS NE 100 OR LS_COBRB-HKONT NE '6188200007'.
            MESSAGE E001(00) WITH '打样工单结算规则有误，请修改'.
          ENDIF.
        ENDIF.
      ENDLOOP.
      READ TABLE L_MEM_COBRB WITH KEY KONTY = 'SK' TRANSPORTING NO FIELDS.
      IF SY-SUBRC NE 0.
        MESSAGE E001(00) WITH '打样工单结算规则有误，请修改'.
      ENDIF.
    ENDIF.
  ENDIF.