CMOD PPCO0006，保存之前触发
*&---------------------------------------------------------------------**& 包含 ZXCOZU03*&---------------------------------------------------------------------**检查订单类型IF CAUFVD_IMP-FEVOR = 'P01' AND CAUFVD_IMP-AUART NE 'TN01'.MESSAGE '请选择订单类型为TN01' TYPE 'E'.ELSEIF CAUFVD_IMP-AUART NE 'TN01' AND CAUFVD_IMP-AUART NE 'TN02' .IF SY-TCODE = 'CO40' OR SY-TCODE = 'CO41' OR SY-TCODE = 'COHV'.MESSAGE '计划订单转生产订单时，订单类型只能为TN01或TN02' TYPE 'E'. "PP新增逻辑ENDIF.ENDIF.*检查生产版本TABLES MKAL .DATA :LS_MKAL TYPE MKAL.IF AFPOD_IMP-VERID IS INITIAL.SELECT SINGLE *INTO LS_MKALFROM MKALWHERE MATNR EQ AFPOD_IMP-MATNR AND WERKS EQ AFPOD_IMP-PWERK.IF LS_MKAL-VERID IS NOT INITIAL.MESSAGE '物料含有生产版本，请分配生产版本' TYPE 'E'.ENDIF.ENDIF.IF SY-TCODE = 'CO01' AND CAUFVD_IMP-WERKS <> '6010'.IF CAUFVD_IMP-AUART = 'TN02'OR CAUFVD_IMP-AUART = 'TN01'OR CAUFVD_IMP-AUART ='TN05'.MESSAGE '不允许手工创建 “TN02”或者“TN05” 或者“TN01”' TYPE 'E'.ENDIF.ENDIF.IF SY-TCODE = 'CO07' .IF CAUFVD_IMP-AUART = 'TN01'OR CAUFVD_IMP-AUART ='TN02'OR CAUFVD_IMP-AUART ='TN03'OR CAUFVD_IMP-AUART ='TN04'OR CAUFVD_IMP-AUART ='TN06' .MESSAGE '该类型生产订单不能创建无料号订单' TYPE 'E'.ENDIF.ENDIF.
转载请注明原文地址: https://www.6miu.com/read-2619106.html
