SELECT T.MAT_NO,
T.RESULT_NO,
T.ZY_PLAN_ID,
T.WO_ID,
DECODE(T.QCM_STAUS,
'00',
'合格',
'0',
'合格',
'11',
'待处理',
'22',
'判废',
'10',
'处理合格',
'12',
'处理判废') QCM_STAUS,
T1.PRO_PLAN_ID,
T.PLINE_CODE,
T.PLINE_NAME,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BL_WL_ID,
T.BL_WL_DESC,
T.MIN_D,
T.MIN_H,
TO_CHAR(T.F_IN_TIME, 'YYYY-MM-DD HH24:MI:SS') F_IN_TIME,
T.CODE_JG,
T.GRADECODE,
T.GRADENAME,
T.STEELCODE,
T.STEELNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.OUTDIAMETER,
T.WALLTHICK,
T.SPEC_JG,
T.SPEC_JG_DESC,
(SELECT C.BASENAME FROM COM_BASE_INFO C WHERE C.BASECODE = T.STYLE_JG) STYLE_JG,
T.DIAMETER,
T.CHECK_J_VAL,
T.AIMLENGTH,
T.SINGLEWEIGHT,
T.MONITORDEMAND,
DECODE(T.IF_MONITOR_JG, '0', '否', '1', '是') IF_MONITOR_JG,
T.PRDCR_NO,
T.PRODUCER,
T1.MACH_NO,
T1.MACH_NM,
sum(T.PRO_NUM) PRO_NUM,
sum(T.PRO_WT) PRO_WT,
TO_CHAR(T.RRO_TIME, 'YYYY-MM-DD HH24:MI:SS') RRO_TIME,
DECODE(T.PRO_GROUP, '1', '甲', '2', '乙', '3', '丙', '4', '丁') PRO_GROUP,
DECODE(T.PRO_SHIFT, '0', '常白', '1', '早', '2', '中', '3', '夜') PRO_SHIFT,
T1.CUST_ALPHA_NO,
T1.ORDER_SPECIAL_DESC,
T.COL_OPERATOR,
T.CREATE_NAME,
listagg((SELECT Y.STORAGE_NAME
FROM YDM_BS_STORAGE Y
WHERE Y.STORAGE_NO = T1.STORAGE_NO) || T1.PIECES || '个',
',') within GROUP(order by T.MAT_NO) over(partition by T.MAT_NO) || T.MEMO MEMO,
TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
T.UPDATE_NAME,
TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_DETECTION) DEMAND_DETECTION,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_BLAST) DEMAND_BLAST,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_BONDERIZING) DEMAND_BONDERIZING,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_COPPER) DEMAND_COPPER,
DECODE(T.COAT_TYPE,
'0',
'无',
'1',
'镀铜',
'2',
'磷化',
'3',
'镀铜及磷化') COAT_TYPE,
T.CODE_JG_BL,
T.PRODUCCODE_BL,
T.PRODUCNAME_BL,
T.STD_CODE_BL,
T.STD_NAME_BL,
T.STEELCODE_BL,
T.STEELNAME_BL,
T.STD_STYLE_BL,
T.STD_STYLE_DESC_BL,
T.MODEL_CODE_BL,
T.MODEL_DESC_BL,
T.MIN_D_BL,
T.MIN_H_BL,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T1.PRODUCT_FLAG) PRODUCT_FLAG,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T1.MAT_STATUS) MAT_STATUS,
(SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
FROM PLN_ORDER_JG T3
WHERE T3.JG_ORDERNO = T2.JG_ORDERNO_ALL) ORDER_NO,
(select DECODE(MIN(EXE_STATUS),
'0',
'计划',
'1',
'生产中',
'2',
'完成',
'3',
'关闭A',
'4',
'关闭')
from PLN_ORDER_JGX_S
WHERE ORDER_NO || '/' || ORDER_SEQ =
(SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
FROM PLN_ORDER_JG T3
WHERE T3.JG_ORDERNO = T2.JG_ORDERNO_ALL)) FLAG_MIN,
T2.ORDER_SEQ,
T2.DELIVERY_NO,
T2.ORD_LN_DLY_PK,
(SELECT Y.STORAGE_NAME
FROM YDM_BS_STORAGE Y
WHERE Y.STORAGE_NO = T1.STORAGE_NO) STORAGE_NO
FROM COUPLING_MAT_M T, COUPLING_MAT_BUTTRESS T1, PLN_ZY_JG_WORKBILL T2
WHERE T.MAT_NO = T1.MAT_NO
AND T.WO_ID = T2.WO_ID(+) #someThing#
group by T.F_IN_TIME,
T.MAT_NO,
T.RESULT_NO,
T.ZY_PLAN_ID,
T.WO_ID,
T.QCM_STAUS,
T1.PRO_PLAN_ID,
T.PLINE_CODE,
T.PLINE_NAME,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BL_WL_ID,
T.BL_WL_DESC,
T.MIN_D,
T.MIN_H,
T.CODE_JG,
T.GRADECODE,
T.GRADENAME,
T.STEELCODE,
T.STEELNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.OUTDIAMETER,
T.WALLTHICK,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.STYLE_JG,
T.DIAMETER,
T.CHECK_J_VAL,
T.AIMLENGTH,
T.SINGLEWEIGHT,
T.MONITORDEMAND,
T.IF_MONITOR_JG,
T.PRDCR_NO,
T.PRODUCER,
T1.MACH_NO,
T1.MACH_NM,
T.PRO_NUM,
T.PRO_WT,
T.RRO_TIME,
T.PRO_GROUP,
T.PRO_SHIFT,
T1.CUST_ALPHA_NO,
T1.ORDER_SPECIAL_DESC,
T.COL_OPERATOR,
T.CREATE_NAME,
T.CREATE_TIME,
T.UPDATE_NAME,
T.UPDATE_TIME,
T.DEMAND_DETECTION,
T.DEMAND_BLAST,
T.DEMAND_BONDERIZING,
T.DEMAND_COPPER,
T.COAT_TYPE,
T.CODE_JG_BL,
T.PRODUCCODE_BL,
T.PRODUCNAME_BL,
T.STD_CODE_BL,
T.STD_NAME_BL,
T.STEELCODE_BL,
T.STEELNAME_BL,
T.STD_STYLE_BL,
T.STD_STYLE_DESC_BL,
T.MODEL_CODE_BL,
T.MODEL_DESC_BL,
T.MIN_D_BL,
T.MIN_H_BL,
T1.PRODUCT_FLAG,
T1.MAT_STATUS,
T2.ORDER_NO,
T2.ORDER_SEQ,
T2.DELIVERY_NO,
T2.ORD_LN_DLY_PK,
T2.JG_ORDERNO_ALL,
T1.STORAGE_NO,
T1.PIECES,
T.MEMO
ORDER BY T.CREATE_TIME DESC
SELECT T.MAT_NO,
T.RESULT_NO,
T.ZY_PLAN_ID,
T.WO_ID,
DECODE(T.QCM_STAUS,
'00',
'合格',
'0',
'合格',
'11',
'待处理',
'22',
'判废',
'10',
'处理合格',
'12',
'处理判废') QCM_STAUS,
T.PLINE_CODE,
T.PLINE_NAME,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BL_WL_ID,
T.BL_WL_DESC,
T.MIN_D,
T.MIN_H,
TO_CHAR(T.F_IN_TIME, 'YYYY-MM-DD HH24:MI:SS') F_IN_TIME,
T.CODE_JG,
T.GRADECODE,
T.GRADENAME,
T.STEELCODE,
T.STEELNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.OUTDIAMETER,
T.WALLTHICK,
T.SPEC_JG,
T.SPEC_JG_DESC,
(SELECT C.BASENAME FROM COM_BASE_INFO C WHERE C.BASECODE = T.STYLE_JG) STYLE_JG,
T.DIAMETER,
T.CHECK_J_VAL,
T.AIMLENGTH,
T.SINGLEWEIGHT,
T.MONITORDEMAND,
DECODE(T.IF_MONITOR_JG, '0', '否', '1', '是') IF_MONITOR_JG,
T.PRDCR_NO,
T.PRODUCER,
sum(T.PRO_NUM) PRO_NUM,
sum(T.PRO_WT) PRO_WT,
TO_CHAR(T.RRO_TIME, 'YYYY-MM-DD HH24:MI:SS') RRO_TIME,
DECODE(T.PRO_GROUP, '1', '甲', '2', '乙', '3', '丙', '4', '丁') PRO_GROUP,
DECODE(T.PRO_SHIFT, '0', '常白', '1', '早', '2', '中', '3', '夜') PRO_SHIFT,
T.COL_OPERATOR,
T.CREATE_NAME,
T.MEMO,
TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
T.UPDATE_NAME,
TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_DETECTION) DEMAND_DETECTION,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_BLAST) DEMAND_BLAST,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_BONDERIZING) DEMAND_BONDERIZING,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_COPPER) DEMAND_COPPER,
DECODE(T.COAT_TYPE,
'0',
'无',
'1',
'镀铜',
'2',
'磷化',
'3',
'镀铜及磷化') COAT_TYPE,
T.CODE_JG_BL,
T.PRODUCCODE_BL,
T.PRODUCNAME_BL,
T.STD_CODE_BL,
T.STD_NAME_BL,
T.STEELCODE_BL,
T.STEELNAME_BL,
T.STD_STYLE_BL,
T.STD_STYLE_DESC_BL,
T.MODEL_CODE_BL,
T.MODEL_DESC_BL,
T.MIN_D_BL,
T.MIN_H_BL
FROM COUPLING_MAT_M T
WHERE 1 = 1 #someThing#
group by T.F_IN_TIME,
T.MAT_NO,
T.RESULT_NO,
T.ZY_PLAN_ID,
T.WO_ID,
T.QCM_STAUS,
T.PLINE_CODE,
T.PLINE_NAME,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BL_WL_ID,
T.BL_WL_DESC,
T.MIN_D,
T.MIN_H,
T.CODE_JG,
T.GRADECODE,
T.GRADENAME,
T.STEELCODE,
T.STEELNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.OUTDIAMETER,
T.WALLTHICK,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.STYLE_JG,
T.DIAMETER,
T.CHECK_J_VAL,
T.AIMLENGTH,
T.SINGLEWEIGHT,
T.MONITORDEMAND,
T.IF_MONITOR_JG,
T.PRDCR_NO,
T.PRODUCER,
T.PRO_NUM,
T.PRO_WT,
T.RRO_TIME,
T.PRO_GROUP,
T.PRO_SHIFT,
T.COL_OPERATOR,
T.CREATE_NAME,
T.CREATE_TIME,
T.UPDATE_NAME,
T.UPDATE_TIME,
T.DEMAND_DETECTION,
T.DEMAND_BLAST,
T.DEMAND_BONDERIZING,
T.DEMAND_COPPER,
T.COAT_TYPE,
T.CODE_JG_BL,
T.PRODUCCODE_BL,
T.PRODUCNAME_BL,
T.STD_CODE_BL,
T.STD_NAME_BL,
T.STEELCODE_BL,
T.STEELNAME_BL,
T.STD_STYLE_BL,
T.STD_STYLE_DESC_BL,
T.MODEL_CODE_BL,
T.MODEL_DESC_BL,
T.MIN_D_BL,
T.MIN_H_BL,
T.MEMO
ORDER BY T.CREATE_TIME DESC
SELECT T.STEELNAME,
T.MODEL_DESC,
T.SPEC_JG_DESC,
(SELECT C.BASENAME FROM COM_BASE_INFO C WHERE C.BASECODE = T.STYLE_JG) STYLE_JG,
sum(T.PRO_NUM) PRO_NUM,
sum(T.PRO_WT) PRO_WT,
SUM(DECODE((SELECT T3.ORDER_NO || '/' || T3.ORDER_SEQ
FROM PLN_ORDER_JG T3
WHERE T3.JG_ORDERNO = T2.JG_ORDERNO_ALL),
'',
T.PRO_NUM,
NULL,
T.PRO_NUM,
0)) YU_NUM,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_DETECTION) DEMAND_DETECTION,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_BLAST) DEMAND_BLAST,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_BONDERIZING) DEMAND_BONDERIZING,
(SELECT C.BASENAME
FROM COM_BASE_INFO C
WHERE C.BASECODE = T.DEMAND_COPPER) DEMAND_COPPER
FROM COUPLING_MAT_M T, PLN_ZY_JG_WORKBILL T2
WHERE T.WO_ID = T2.WO_ID(+) #someThing#
group by T.STEELNAME,
T.MODEL_DESC,
T.SPEC_JG_DESC,
T.STYLE_JG,
T.DEMAND_DETECTION,
T.DEMAND_BLAST,
T.DEMAND_BONDERIZING,
T.DEMAND_COPPER
SELECT T.MAT_NO,
T.RESULT_NO,
T.ZY_PLAN_ID,
T.WO_ID,
T1.PRO_PLAN_ID,
T.PLINE_CODE,
T.PLINE_NAME,
T.JUDGE_STOVE_NO,
T.BATCH_NO,
T.BL_WL_ID,
T.BL_WL_DESC,
T.MIN_D,
T.MIN_H,
T.CODE_JG,
T.GRADECODE,
T.GRADENAME,
T.STEELCODE,
T.STEELNAME,
T.MODEL_CODE,
T.MODEL_DESC,
T.OUTDIAMETER,
T.WALLTHICK,
T.SPEC_JG,
T.SPEC_JG_DESC,
T.STYLE_JG,
T.DIAMETER,
T.CHECK_J_VAL,
T.AIMLENGTH,
T.SINGLEWEIGHT,
T.MONITORDEMAND,
T.IF_MONITOR_JG,
T.PRDCR_NO,
T.PRODUCER,
T1.MACH_NO,
T1.MACH_NM,
sum(T.PRO_NUM) PRO_NUM,
sum(T.PRO_WT) PRO_WT,
TO_CHAR(T.RRO_TIME, 'YYYY-MM-DD HH24:MI:SS') RRO_TIME,
DECODE(T.PRO_GROUP, '1', '甲', '2', '乙', '3', '丙', '4', '丁') PRO_GROUP,
DECODE(T.PRO_SHIFT, '0', '常白', '1', '早', '2', '中', '3', '夜') PRO_SHIFT,
T1.CUST_ALPHA_NO,
T1.ORDER_SPECIAL_DESC,
T.COL_OPERATOR,
T.CREATE_NAME,
TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
T.UPDATE_NAME,
TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME
FROM COUPLING_MAT_M T, COUPLING_MAT_BUTTRESS T1
WHERE T.MAT_NO = T1.MAT_NO AND T1.LOCK_LIKU = '1'
SELECT MACH_NM,
DEAL_NUM,
DEAL_WT,
TO_CHAR(DEAL_TIME, 'YYYY-MM-DD HH24:MI:SS') DEAL_TIME,
STORAGE_NO,
LOCATION_NO,
STORAGE_ATTR_NAME,
STORAGE_TYPE_NAME,
TAR_STORAGE_NO,
TAR_LOCATION_NO,
TAR_STORAGE_ATTR_NAME,
TAR_STORAGE_TYPE_NAME,
DECODE(TAR_REC_FLAG, '0', '未接收', '1', '已接收') TAR_REC_FLAG,
DECODE(HAND_FLAG, '0', '自动', '1', '人工') HAND_FLAG,
CREATE_NAME,
TO_CHAR(CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
UPDATE_NAME,
TO_CHAR(UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
DEAL_ORDE,
DEAL_TYPE_CODE,
DEAL_TYPE_NAME,
SOURCE_CODE,
SOURCE_NAME,
TAR_CODE,
TAR_NAME,
KEP_NO,
TAR_KEP_NO,
MAT_NO,
RESULT_NO,
ZY_PLAN_ID,
PRO_PLAN_ID,
PLINE_CODE,
PLINE_NAME,
JUDGE_STOVE_NO,
BATCH_NO,
BL_WL_DESC,
MIN_D,
MIN_H,
CODE_JG,
GRADENAME,
STEELNAME,
MODEL_DESC,
OUTDIAMETER,
WALLTHICK,
SPEC_JG_DESC,
STYLE_JG,
DIAMETER,
CHECK_J_VAL,
AIMLENGTH,
SINGLEWEIGHT,
MONITORDEMAND,
IF_MONITOR_JG,
PRDCR_NO,
PRODUCER,
TO_CHAR(PRODUCER_TIME, 'YYYY-MM-DD HH24:MI:SS') PRODUCER_TIME,
WO_ID
FROM COUPLING_MAT_DEAL
WHERE 1 = 1
AND DEAL_TYPE_CODE = '8007'
SELECT MACH_NM,
DEAL_NUM,
DEAL_WT,
TO_CHAR(DEAL_TIME, 'YYYY-MM-DD HH24:MI:SS') DEAL_TIME,
STORAGE_NO,
LOCATION_NO,
STORAGE_ATTR_NAME,
STORAGE_TYPE_NAME,
TAR_STORAGE_NO,
TAR_LOCATION_NO,
TAR_STORAGE_ATTR_NAME,
TAR_STORAGE_TYPE_NAME,
DECODE(TAR_REC_FLAG, '0', '未接收', '1', '已接收') TAR_REC_FLAG,
DECODE(HAND_FLAG, '0', '自动', '1', '人工') HAND_FLAG,
CREATE_NAME,
TO_CHAR(CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
UPDATE_NAME,
TO_CHAR(UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
DEAL_ORDE,
DEAL_TYPE_CODE,
DEAL_TYPE_NAME,
SOURCE_CODE,
SOURCE_NAME,
TAR_CODE,
TAR_NAME,
KEP_NO,
TAR_KEP_NO,
MAT_NO,
RESULT_NO,
ZY_PLAN_ID,
PRO_PLAN_ID,
PLINE_CODE,
PLINE_NAME,
JUDGE_STOVE_NO,
BATCH_NO,
BL_WL_DESC,
MIN_D,
MIN_H,
CODE_JG,
GRADENAME,
STEELNAME,
MODEL_DESC,
OUTDIAMETER,
WALLTHICK,
SPEC_JG_DESC,
STYLE_JG,
DIAMETER,
CHECK_J_VAL,
AIMLENGTH,
SINGLEWEIGHT,
MONITORDEMAND,
IF_MONITOR_JG,
PRDCR_NO,
PRODUCER,
TO_CHAR(PRODUCER_TIME, 'YYYY-MM-DD HH24:MI:SS') PRODUCER_TIME,
WO_ID
FROM COUPLING_MAT_DEAL
WHERE 1 = 1
AND DEAL_TYPE_CODE = '8008'
SELECT T.KEP_NO FROM COUPLING_APP_BOX_MAIN T where t.VALIDFLAG='1'
SELECT B.STORAGE_NAME,T.KEP_NO,T.PIECES FROM COUPLING_MAT_BUTTRESS T,YDM_BS_STORAGE B WHERE T.STORAGE_NO = B.STORAGE_NO
SELECT T.* FROM PLN_ZY_JG_MIDDLE T WHERE 1 = 1
UPDATE COUPLING_LOADING_RESULT T SET T.IS_AUDITE = '1' WHERE T.WO_ID = ? AND T.RESULT_NO = ?
UPDATE coupling_cut_result T SET T.IS_AUDITE = '1' WHERE T.WO_ID = ? AND T.RESULT_NO = ?
UPDATE coupling_threading_result T SET T.IS_AUDITE = '1' WHERE T.WO_ID = ? AND T.RESULT_NO = ?
UPDATE coupling_thinspect_result T SET T.IS_AUDITE = '1' WHERE T.WO_ID = ? AND T.RESULT_NO = ?
UPDATE coupling_inspection_result T SET T.IS_AUDITE = '1' WHERE T.WO_ID = ? AND T.RESULT_NO = ?
UPDATE coupling_sandblast_result T SET T.IS_AUDITE = '1' WHERE T.WO_ID = ? AND T.RESULT_NO = ?
UPDATE coupling_phosphate_result T SET T.IS_AUDITE = '1' WHERE T.WO_ID = ? AND T.RESULT_NO = ?
DELETE FROM COUPLING_MAT_M T WHERE T.MAT_NO = ?
DELETE FROM COUPLING_MAT_BUTTRESS T WHERE T.MAT_NO = ?
= MYROW.PRO_NUM) THEN
DELETE FROM COUPLING_MAT_M T WHERE T.MAT_NO = V_MAT_NO;
DELETE FROM COUPLING_MAT_BUTTRESS T WHERE T.MAT_NO = V_MAT_NO;
ELSE
UPDATE COUPLING_MAT_M T
SET T.PRO_NUM = MYROW.PRO_NUM - V_PRO_NUM,
T.PRO_WT = TO_CHAR(MYROW.PRO_WT * (MYROW.PRO_NUM - V_PRO_NUM) /
MYROW.PRO_NUM,
'99990.000')
WHERE T.MAT_NO = V_MAT_NO;
UPDATE COUPLING_MAT_BUTTRESS T
SET T.PIECES = MYROW.PRO_NUM - V_PRO_NUM,
T.WEIGHT = TO_CHAR(MYROW.PRO_WT * (MYROW.PRO_NUM - V_PRO_NUM) /
MYROW.PRO_NUM,
'99990.000')
WHERE T.MAT_NO = V_MAT_NO;
END IF;
END LOOP;
END;
]]>