生產訂單增強——檢查結算規則

效果：

必須按下圖維護：

 

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.