SELECT
T.JUDGE_ID,
T.ACT_COUNT,
T.ACT_WEIGHT,
T.JUDGE_STOVE_NO,
T.MATERIAL_NO_OLD,
T.MATERIAL_NAME_OLD,
T.GRADECODE_OLD,
T.GRADENAME_OLD,
T.DIMATER_OLD,
T.MATERIAL_NO,
T.MATERIAL_NAME,
T.GRADECODE,
T.GRADENAME,
T.DIMATER,
T.CREATE_NAME,
TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
T.SUBMIT_NAME,
TO_CHAR(T.SUBMIT_TIME, 'YYYY-MM-DD HH24:MI:SS') SUBMIT_TIME,
T.AGREE_NAME,
TO_CHAR(T.AGREE_TIME, 'YYYY-MM-DD HH24:MI:SS') AGREE_TIME,
DECODE(T.AGREE_FLAG,'0','未审批','1','一级审批通过','2','终审通过','3','一级审批不通过','4','终审不通过')AGREE_FLAG,
T.CREATE_MEMO,
T.SUBMIT_MEMO,
T.AGREE_MEMO,
T.VALID_FLAG,
T.DELETE_NAME,
TO_CHAR(T.DELETE_TIME, 'YYYY-MM-DD HH24:MI:SS') DELETE_TIME,
T.BELONG_CODE,
T.BELONG_NAME,
T.STOVE_NO,
T.JUDGE_STOVE_NO_GP,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.CIC,
S.ORDER_NO ||'/'||S.ORDER_SEQ ORDER_NO,
T.SUPPLY_UNIT_CODE,
T.SUPPLY_UNIT
FROM QCM_GP_JUDGE_CHANGE T LEFT JOIN PLN_ORDER_ZG_S S
ON T.PRO_PLAN_ID = S.PRO_PLAN_ID
AND T.GX_PLAN_NO = S.GX_PLAN_NO
WHERE 1 = 1
SELECT
T.PRO_ORDER_NO,
T.PRO_PLAN_ID,
T.GX_PLAN_NO,
T.PLAN_GROUP_ID,
T.ORDER_SOURCE,
T.ORD_LN_DLY_PK,
T.PLN_DIVIDE_ID,
T.ORDER_NO || '/'||T.ORDER_SEQ ORDER_NO,
T.ORDER_SEQ,
T.DELIVERY_NO,
T.REQ_BL_ID,
T.PLINE_CODE,
T.PLINE_NAME,
T.STEELCODE,
T.STEELNAME,
T.GRADECODE,
T.GRADENAME,
T.OUTDIAMETER,
T.WALLTHICK,
T.LENGTHDISC,
T.INWL_ID,
T.INWL_DESC,
T.OUTWL_ID,
T.OUTWL_DESC,
T.LEN_ROLL_MAX,
T.LEN_ROLL_MIN,
T.AIMOUTDIAMETER,
T.AIMWALLTHICK,
T.AIMLENGTH,
T.DIAMETER_GP,
T.LEN_GP_SINGLE,
T.ROLL_LENGTH,
T.LEN_CUTHEAD,
T.LEN_CUTEND,
T.OUTNUM_CUT,
T.DIAMETER_MANDREL,
T.PASS_CODE,
T.PASS_NAME,
T.IN_WEIGHT_S,
T.IN_NUM_S,
T.WEIGTH_S,
T.NUM_S,
T.ADD_WT_IN,
T.ADD_NUM_IN,
T.MATCH_WT_IN,
T.MATCH_NUM_IN,
T.ISENDGX,
T.IF_MONITOR_ZG,
T.PRDCR_NO,
T.MONITOR_POINT,
T.CRAFT_FILE_NO,
T.CRAFT_FILE_MAN,
T.CRAFT_SEQ,
T.STATION_ROAD,
T.PRO_MONTH,
T.CIC,
T.PIC,
T.SIC,
T.DIC,
T.WIC,
T.GIC,
T.GX_PRO_SEQ,
T.PLAN_USETIME,
TO_CHAR(T.PLAN_TIME_B, 'YYYY-MM-DD HH24:MI:SS') PLAN_TIME_B,
TO_CHAR(T.PLAN_TIME_E, 'YYYY-MM-DD HH24:MI:SS') PLAN_TIME_E,
T.BATCHED_WT,
T.BATCHED_NUM,
T.FINISHWEIGHT,
T.FINISHNUM,
T.EXE_STATUS,
T.IS_REPAIR_PLN,
T.REPAIR_TYPE,
T.IS_PLAN_OK,
T.GPREQ_IF_OK,
T.GPREQ_ID,
T.ZY_BATCH_ID,
T.CIC_GROUP_GP,
T.PIC_GROUP_GP,
T.SIC_GROUP_GP,
T.DIC_GROUP_GP,
T.WIC_GROUP_GP,
T.GIC_GROUP_GP,
T.CIC_GP,
T.PIC_GP,
T.SIC_GP,
T.DIC_GP,
T.WIC_GP,
T.GIC_GP,
T.IF_EXPORT,
TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
T.MEMO,
TO_CHAR(T.ISSUED_TIME, 'YYYY-MM-DD HH24:MI:SS') ISSUED_TIME,
T.ISSUED_MAN,
TO_CHAR(T.LAST_UNDOWN_TIME, 'YYYY-MM-DD HH24:MI:SS') LAST_UNDOWN_TIME,
T.LAST_UNDOWN_MAN,
T.VERSION_NO,
T.PROCESSING_COST,
T.TOTAL_COST,
T.IF_STOVE_ISSUED,
TO_CHAR(T.STOVE_ISSUED_TIME, 'YYYY-MM-DD HH24:MI:SS') STOVE_ISSUED_TIME,
T.STOVE_ISSUED_MAN,
T.IS_ONLOAD_LINE,
T.OUTDIAMETER_ZG,
T.WALLTHICK_ZG,
T.PROCESS_CODE_C,
T.PROCESS_DESC_C,
T.MSC,
T.INDEX_SEQ,
T.BOM,
T.WHOLE_BACKLOG_DESC,
T.IF_CRAFT_LOCKED,
T.IF_LEN_CONTROL,
T.IF_MINUS_SIC_ROLL,
T.AIMWALLTHICK_OLD,
T.WEIGTH_S_OLD,
T.NUM_S_OLD,
T.WALL_UPDATE_USER,
TO_CHAR(T.WALL_UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') WALL_UPDATE_TIME,
T.TUBE_END_RATIO,
T.GPREQ_NUM,
T.GPREQ_WEIGHT,
T.VERIFY1,
T.VERIFY2,
T.VERIFY3,
T.WEIGTH_S_MIN,
T.PRIORITY,
T.PRIORITY_MEMO,
T.PLANS_NUM,
T.ORIGINAL_NUMBER,
T.PROD_STANDARD,
T.OUTPUT_STANDARD,
T.PIPE_LENGTH_MIN,
T.PIPE_LENGTH_MAX,
T.THICKNESS_WALL,
T.DECISION,
T.APPLY_NO,
T.APPLY_STATUS,
T.ISSUED_MEMO,
T.PROGY_MEMO,
T.OUTS_BILLET_FL,
T.ACTUAL_WEIGHT,
T.STATE_SINGLE,
T.PASSIVE,
T.TAKE_NUM,
T.TAKE_WT,
T.PLINE_CODE_ZZ,
T.PLINE_NAME_ZZ,
T.GPREQ_IF_DZ,
T.GRADECODE_LK,
T.GRADENAME_LK,
T.CIC_GROUP_LK,
T.VALIDFLAG,
T.GPREQ_WEIGHT_MIN,
T.BATCHED_WT_G,
T.BATCHED_NUM_G
FROM PLN_SALEORD_PROC T1, PLN_ORDER_ZG_S T
WHERE T1.ORD_LN_DLY_PK = T.ORD_LN_DLY_PK
AND T1.PLN_DIVIDE_ID = T.PLN_DIVIDE_ID
AND T.EXE_STATUS = '0'
AND INSTR(T1.GRADECODE_ALL||','||T.GRADENAME_LK, ?)>0
SELECT TO_CHAR(SYSDATE, 'YYYYMMDD') ||
LPAD(NVL(MAX(SUBSTR(T.JUDGE_ID, 9)), 0) + 1, 5, 0) JUDGE_ID
FROM QCM_GP_JUDGE_CHANGE T
WHERE TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
TO_CHAR(SYSDATE, 'YYYY-MM-DD')
SELECT COUNT(1) ACOUNT
FROM MAT_GP_M T, YDM_GP_BUTTRESS S
WHERE T.MAT_NO = S.MAT_NO
AND NVL(T.STOVE_NO, '/') = NVL('#STOVE_NO#', '/')
AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
AND T.FIX_NUM = '#FIX_NUM#'
AND T.ACT_LEN = '#ACT_LEN#'
AND T.PRO_PLAN_ID_ZG IS NULL
AND T.INSTOCK_FLAG = '1'
AND S.STORAGE_NO = '#STORAGE_NO#'
AND S.LOCATION_NO = '#LOCATION_NO#'
INSERT INTO QCM_GP_JUDGE_CHANGE(
JUDGE_ID,
ACT_COUNT,
ACT_WEIGHT,
JUDGE_STOVE_NO,
MATERIAL_NO_OLD,
MATERIAL_NAME_OLD,
GRADECODE_OLD,
GRADENAME_OLD,
DIMATER_OLD,
MATERIAL_NO,
MATERIAL_NAME,
GRADECODE,
GRADENAME,
DIMATER,
CREATE_NAME,
CREATE_TIME,
CREATE_MEMO,
BELONG_CODE,
BELONG_NAME,
STOVE_NO,
JUDGE_STOVE_NO_GP,
PRO_PLAN_ID,
GX_PLAN_NO,
CIC,
SUPPLY_UNIT_CODE,
SUPPLY_UNIT)
VALUES(
'#JUDGE_ID#',
'#ACT_COUNT#',
'#ACT_WEIGHT#',
'#JUDGE_STOVE_NO#',
'#MATERIAL_NO_OLD#',
'#MATERIAL_NAME_OLD#',
'#GRADECODE_OLD#',
'#GRADENAME_OLD#',
'#DIMATER_OLD#',
'#MATERIAL_NO#',
'#MATERIAL_NAME#',
'#GRADECODE#',
'#GRADENAME#',
'#DIMATER#',
'#CREATE_NAME#',
SYSDATE,
'#CREATE_MEMO#',
'#BELONG_CODE#',
'#BELONG_NAME#',
'#STOVE_NO#',
'#JUDGE_STOVE_NO_GP#',
'#PRO_PLAN_ID#',
'#GX_PLAN_NO#',
'#CIC#',
'#SUPPLY_UNIT_CODE#',
'#SUPPLY_UNIT#')
'1'
ORDER BY T.MAT_NO DESC)
WHERE ROWNUM <= #ACT_COUNT#) LOOP
UPDATE MAT_GP_M T SET T.LOCK_FLAG = '2',T.CIC = '#CIC#',T.OLD_CIC = T.CIC,
T.JUDGE_ID = '#JUDGE_ID#' WHERE T.MAT_NO = MYROW.MAT_NO;
END LOOP;
END;
]]>
DECLARE
BEGIN
UPDATE MAT_GP_M T SET T.LOCK_FLAG = '0',T.JUDGE_ID = '',T.CIC = T.OLD_CIC,T.OLD_CIC = '' WHERE T.JUDGE_ID = '#JUDGE_ID#';
DELETE FROM QCM_GP_JUDGE_CHANGE T WHERE T.JUDGE_ID = '#JUDGE_ID#';
END;
SELECT T.AGREE_FLAG FROM QCM_GP_JUDGE_CHANGE T WHERE T.JUDGE_ID = '#JUDGE_ID#' AND T.VALID_FLAG = '1'
SELECT T.GRADECODE,
T.GRADENAME,
T.CIC,
T1.STD_CODE STD_CODE_NK,
T1.STD_NAME STD_NAME_NK,
DECODE(T1.PURCHASE_STD, '0', '自炼', '外购') ALLOW_BUY
FROM COM_MSC_STD_CIC T, COM_BASE_STD T1
WHERE T.STDSTYLE = 'N'
AND T.STD_CODE_NK = T1.STD_CODE(+)
AND T1.VALIDFLAG = '1'