SELECT OUTSTOCK_PLAN_NO, OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, DRIVER, VEHICLE_NO, (SELECT C.BASENAME FROM COM_BASE_INFO C WHERE C.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG, (SELECT D.BASENAME FROM COM_BASE_INFO D WHERE D.BASECODE = T.MAT_STATUS)MAT_STATUS, STOVE_NO, FLAG_STOVE_NO, JUDGE_STOVE_NO, GROUD_NO, CAST_NO, CCMID, MATERIAL_NO, MATERIAL_NAME, GRADECODE, GRADENAME, STD_CODE, STD_NAME, DIMATER, ACT_LEN, FIX_NUM, FIX_LEN, SUM(ACT_COUNT)ACT_COUNT, SUM(ACT_WEIGHT)ACT_WEIGHT, PLINE_CODE, PLINE_NAME, PRO_ORDER_NO, BELONG_CODE, BELONG_NAME, (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.STORAGE_NO)STORAGE_NAME, STORAGE_NO, (SELECT D.LOCATION_NAME FROM YDM_BS_LOCATION D WHERE D.LOCATION_NO = T.LOCATION_NO)LOCATION_NAME, LOCATION_NO, LARY_NO, T.TAR_STORAGE_NO, (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME, DECODE(TAR_REC_FLAG,'0','未接收','1','已接收')TAR_REC_FLAG, max(TO_CHAR(OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME, MEMO, CREATE_NAME, DECODE(OUT_TYPE,'0','写卡倒运','1','票据倒运','2','过跨倒运','3','纠错倒运')OUT_TYPE, CUT_NUM FROM YDM_GP_OUTLIST T WHERE OUTSTOCK_TYPE_CODE = '800803' AND VALIDFLAG = '1' SELECT OUTSTOCK_DOC, OUTSTOCK_TYPE_CODE, OUTSTOCK_TYPE_NAME, DRIVER, VEHICLE_NO, SUM(ACT_COUNT)ACT_COUNT, SUM(ACT_WEIGHT)ACT_WEIGHT, T.TAR_STORAGE_NO, (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME FROM YDM_GP_OUTLIST T WHERE OUTSTOCK_TYPE_CODE = '800803' = '20' AND START_AREA_CODE IN('TAS1','TCC5','TCC6','TCC7','TCC8','XED1','XEL1','XSL1','XYL1') AND TRAN_CLASS_CODE IN('DK','XX') ]]> 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.PRODUCT_FLAG = '#PRODUCT_FLAG#' AND T.MAT_STATUS = '#MAT_STATUS#' AND NVL(S.STORAGE_NO,'/') = NVL('#STORAGE_NO#','/') AND NVL(T.QCM_STAUS,'/') = NVL('#QCM_STAUS#','/') AND NVL(T.PRO_PLAN_ID_ZG,'/') = NVL('#PRO_PLAN_ID_ZG#','/') AND NVL(T.GX_PLAN_NO_ZG,'/') = NVL('#GX_PLAN_NO_ZG#','/') AND NVL(T.FURNACENO,'/') = NVL(T.FURNACENO,'/') AND NVL(T.SEQUENCENO,'/') = NVL(T.SEQUENCENO,'/') AND T.IS_SETFOOT = '0' SELECT T.SUPERVISOR_NAME,T.SUPERVISOR_CALL FROM YDM_BC_SUPERVISOR T WHERE T.SUPERVISOR_CODE = ? SELECT T.LOCATION_NAME FROM YDM_BS_LOCATION T WHERE T.LOCATION_NO = ? SELECT ? || TO_CHAR(SYSDATE, 'YYMMDD') || '2' || LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 12)), 0) + 1, 4, 0) OUTSTOCK_DOC FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_TYPE_CODE = ? AND T.OUTSTOCK_DOC LIKE ? || TO_CHAR(SYSDATE, 'YYMMDD') || '2____' SELECT COUNT(1) ACOUNT FROM YDM_GP_OUTLIST T WHERE T.TAR_REC_FLAG = '1' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.GROUD_NO = '#GROUD_NO#' AND T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#' SELECT T.MANAGEMENT_NO,T.MANAGEMENT_NAME FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ? UPDATE YDM_GP_OUTLIST T SET T.VEHICLE_NO = '#VEHICLE_NO#' WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#' AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.FIX_NUM = '#FIX_NUM#' AND T.LOCATION_NO = '#LOCATION_NO#' AND T.LARY_NO = '#LARY_NO#' AND T.TAR_STORAGE_NO = '#TAR_STORAGE_NO#' SELECT NVL(COUNT(1),0) ACOUNT,MAX(S.END_AREA_CODE)END_AREA_CODE FROM TMS_WAYBILL_M T,TMS_PLN_C S,TMS_PLN_M P WHERE T.PLN_NO = S.PLN_NO AND T.PLN_NO = P.PLN_NO AND S.PLN_NO = P.PLN_NO AND S.HEAT_NO = ? AND S.START_AREA_CODE = ? AND T.CAR_LICENSE = ? AND T.VALIDFLAG IN('20','35') AND P.STATUS = '20' SELECT T.*,S.START_NODE_CODE FROM TMS_WAYBILL_M T,TMS_COM_LINE_M S WHERE T.LINE_CODE = S.LINE_CODE AND T.CAR_LICENSE = ? AND T.VALIDFLAG IN('20','35') SELECT T.JUDGE_STOVE_NO, T.GROUD_NO, T.MATERIAL_NO, T.MATERIAL_NAME, T.DIMATER, T.FLAG_STOVE_NO, T.SUPERVISOR_NAME, T.SUPERVISOR_CALL, T.OUTSTOCK_DOC, T.PRODUCT_FLAG, T.MAT_STATUS, T.PLINE_CODE, T.PLINE_NAME, T.PRODUCCODE, T.PRODUCNAME, '00'QCM_STAUS, T.PRODUCT_FLAG, T.MAT_STATUS, (SELECT T1.PRODUC_HEAD FROM COM_BASE_PRODUCT T1 WHERE T1.PRODUCCODE = T.PRODUCCODE)PRODUCT_CODE, (SELECT S.BASENAME FROM COM_BASE_PRODUCT T2,COM_BASE_INFO S WHERE T2.PRODUC_HEAD = S.BASECODE AND T2.PRODUCCODE = T.PRODUCCODE)PRODUCT_NAME, MAX(T.SUPERVISOR_NAME)SUPERVISOR_NAME, MAX(T.SUPERVISOR_CALL)SUPERVISOR_CALL, SUM(T.ACT_COUNT) ACT_COUNT, SUM(T.ACT_WEIGHT) ACT_WEIGHT FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_DOC = ? GROUP BY T.JUDGE_STOVE_NO, T.GROUD_NO, T.MATERIAL_NO, T.MATERIAL_NAME, T.DIMATER, T.FLAG_STOVE_NO, T.SUPERVISOR_NAME, T.SUPERVISOR_CALL, T.OUTSTOCK_DOC, T.PRODUCT_FLAG, T.MAT_STATUS, T.PLINE_CODE, T.PLINE_NAME, T.PRODUCCODE, T.PRODUCNAME, T.PRODUCT_FLAG, T.MAT_STATUS DECLARE V_WAYBILL_SQE TMS_WAYBILL_C.WAYBILL_SQE%TYPE := NULL; BEGIN SELECT LPAD(NVL(MAX(SUBSTR(T.WAYBILL_SQE,0)), 0) + 1,3,0) INTO V_WAYBILL_SQE FROM TMS_WAYBILL_C T WHERE T.WAYBILL_NO = '#WAYBILL_NO#'; INSERT INTO TMS_WAYBILL_C (MATERIALS_DIMATER, MATERIALS_HEIGHT, MAT_STATUS, SUPERVISOR_NAME, SUPERVISOR_CALL, PRODUCT_FLAG, MAT_TYPE, WAYBILL_NO, WAYBILL_SQE, PLN_NO, PLN_SQE, HEAT_NO, BATCH_NO, LOGO_NO, GROUP_NO, MATERIALS_CODE, MATERIALS_DESC, MATERIALS_SPEC, WAYBILL_QTY_VAL, WAYBILL_WT_VAL, REF_PLN_NO, START_NODE_CODE, START_NODE_DESC, START_AREA_CODE, START_AREA_DESC, END_NODE_CODE, END_NODE_DESC, END_AREA_CODE, END_AREA_DESC, PLINE_CODE, PLINE_NAME, PROCESS_CDOE, PROCESS_DESC, PRODUCCODE, PRODUCNAME, PRODUCT_CODE, PRODUCT_NAME, QCM_STAUS, DEMAND_ORG_CODE, DEMAND_ORG_DESC) VALUES ('#MATERIALS_DIMATER#', '#MATERIALS_HEIGHT#', '#MAT_STATUS#', '#SUPERVISOR_NAME#', '#SUPERVISOR_CALL#', '#PRODUCT_FLAG#', '#MAT_TYPE#', '#WAYBILL_NO#', V_WAYBILL_SQE, '#PLN_NO#', V_WAYBILL_SQE, '#HEAT_NO#', '#BATCH_NO#', '#LOGO_NO#', '#GROUP_NO#', '#MATERIALS_CODE#', '#MATERIALS_DESC#', '#MATERIALS_SPEC#', '#WAYBILL_QTY_VAL#', '#WAYBILL_WT_VAL#', '#REF_PLN_NO#', '#START_NODE_CODE#', '#START_NODE_DESC#', '#START_AREA_CODE#', '#START_AREA_DESC#', '#END_NODE_CODE#', '#END_NODE_DESC#', '#END_AREA_CODE#', '#END_AREA_DESC#', '#PLINE_CODE#', '#PLINE_NAME#', '#PROCESS_CDOE#', '#PROCESS_DESC#', '#PRODUCCODE#', '#PRODUCNAME#', '#PRODUCT_CODE#', '#PRODUCT_NAME#', '#QCM_STAUS#', '#DEMAND_ORG_CODE#', '#DEMAND_ORG_DESC#'); END; SELECT T.START_NODE_CODE, T.START_NODE_DESC, T.START_AREA_CODE, T.START_AREA_DESC, T.END_NODE_CODE, T.END_NODE_DESC, T.END_AREA_CODE, T.END_AREA_DESC, S.DEMAND_ORG_CODE, S.DEMAND_ORG_DESC FROM TMS_PLN_C T,TMS_DEMAND_M S WHERE T.DEMAND_NO = S.DEMAND_NO AND T.PLN_NO = ? AND T.HEAT_NO = ? DECLARE V_EXECUTE_NO TMS_EXECUTE_B.EXECUTE_NO%TYPE := NULL; BEGIN SELECT TO_CHAR(SYSDATE, 'YYYYMMDD') || LPAD(NVL(MAX(SUBSTR(T.EXECUTE_NO,9)), 0) + 1, 5, 0) INTO V_EXECUTE_NO FROM TMS_EXECUTE_B T WHERE EXECUTE_NO LIKE TO_CHAR(SYSDATE, 'YYYYMMDD')|| '_____'; INSERT INTO TMS_EXECUTE_B (EXECUTE_NO, UNLOADING_CODE, CAR_LICENSE, PLN_NO, WAYBILL_NO, EXECUTE_TIME, REFE_NO, ACCOUNT_YEAR_MONTH, CREATE_TIME) VALUES ( V_EXECUTE_NO, '#UNLOADING_CODE#', '#CAR_LICENSE#', '#PLN_NO#', '#WAYBILL_NO#', SYSDATE, '#REFE_NO#', '#ACCOUNT_YEAR_MONTH#', SYSDATE); END; INSERT INTO TMS_TRACE_M (WAYBILL_NO, TRACE_NO, NODE_CODE, NODE_DESC, NODE_TYPE_CODE, NODE_TYPE_DESC, REFE_NO, EVENT_CODE, EVENT_DESC, EVENT_TIME) VALUES ('#WAYBILL_NO#', (SELECT NVL(MAX(T.TRACE_NO),'0')+1 FROM TMS_TRACE_M T WHERE T.WAYBILL_NO = '#WAYBILL_NO#'), '#NODE_CODE#', '#NODE_DESC#', '#NODE_TYPE_CODE#', '#NODE_TYPE_DESC#', '#REFE_NO#', '#EVENT_CODE#', '#EVENT_DESC#', SYSDATE) INSERT INTO TMS_WAYBILL_C (WAYBILL_NO, WAYBILL_SQE, PLN_NO, PLN_SQE, HEAT_NO, BATCH_NO, LOGO_NO, GROUP_NO, MATERIALS_CODE, MATERIALS_DESC, MATERIALS_SPEC, WAYBILL_QTY_VAL, WAYBILL_WT_VAL, UOM_CODE, UOM_DESC, PRO_ORDER_NO, PRO_ORDER_SQE, CURRENT_JOB_NO, NEXT_JOB_NO, MEMO, REF_PLN_NO, REF_PLN_SQE, REFE_NO, CAR_LICENSE, AFFIRM_TIME, MATERIALS_DIMATER, MATERIALS_HEIGHT, IS_SORT, SUPERVISOR_NAME, SUPERVISOR_CALL, PRODUCT_FLAG, MAT_STATUS, MAT_TYPE, START_NODE_CODE, START_NODE_DESC, END_NODE_CODE, END_NODE_DESC, START_AREA_CODE, START_AREA_DESC, END_AREA_DESC, END_AREA_CODE, PLINE_CODE, PLINE_NAME, PROCESS_CDOE, PROCESS_DESC, PRODUCCODE, PRODUCNAME, PRODUCT_CODE, PRODUCT_NAME, QCM_STAUS, DEMAND_ORG_CODE, DEMAND_ORG_DESC) SELECT '#CRANE_WAYBILL_NO#', (SELECT NVL(MAX(TO_NUMBER(WAYBILL_SQE)), 0) FROM TMS_WAYBILL_C WHERE WAYBILL_NO = '#CRANE_WAYBILL_NO#' ) + ROWNUM, (SELECT PLN_NO FROM TMS_WAYBILL_M WHERE WAYBILL_NO = '#CRANE_WAYBILL_NO#'), '1', HEAT_NO, BATCH_NO, LOGO_NO, GROUP_NO, MATERIALS_CODE, MATERIALS_DESC, MATERIALS_SPEC, WAYBILL_QTY_VAL, WAYBILL_WT_VAL, UOM_CODE, UOM_DESC, PRO_ORDER_NO, PRO_ORDER_SQE, CURRENT_JOB_NO, NEXT_JOB_NO, MEMO, PLN_NO, PLN_SQE, '#WAYBILL_NO#', (SELECT CAR_LICENSE FROM TMS_WAYBILL_M WHERE WAYBILL_NO = '#WAYBILL_NO#'), SYSDATE, MATERIALS_DIMATER, MATERIALS_HEIGHT, IS_SORT, SUPERVISOR_NAME, SUPERVISOR_CALL, PRODUCT_FLAG, MAT_STATUS, MAT_TYPE, START_NODE_CODE, START_NODE_DESC, START_NODE_CODE, START_NODE_DESC, START_AREA_CODE, START_AREA_DESC, START_AREA_DESC, START_AREA_CODE, PLINE_CODE, PLINE_NAME, PROCESS_CDOE, PROCESS_DESC, PRODUCCODE, PRODUCNAME, PRODUCT_CODE, PRODUCT_NAME, QCM_STAUS, DEMAND_ORG_CODE, DEMAND_ORG_DESC FROM TMS_WAYBILL_C T WHERE T.WAYBILL_NO = '#WAYBILL_NO#' AND T. START_NODE_CODE= '#NODE_CODE#' UPDATE TMS_WAYBILL_M T SET T.VALIDFLAG = '#VALIDFLAG#' WHERE T.WAYBILL_NO = '#WAYBILL_NO#' SELECT T.VALIDFLAG, T.WAYBILL_NO FROM TMS_WAYBILL_M T, TMS_WAYBILL_C S WHERE T.WAYBILL_NO = S.WAYBILL_NO AND S.REF_PLN_NO = ? AND S.MAT_TYPE = '2' AND ROWNUM = 1 DECLARE V_FLAG TMS_TRACE_M.EVENT_CODE%TYPE := NULL; BEGIN DELETE FROM TMS_WAYBILL_C T WHERE (T.WAYBILL_NO = '#WAYBILL_NO#' OR T.REFE_NO = '#WAYBILL_NO#'); DELETE FROM TMS_EXECUTE_B T WHERE T.WAYBILL_NO = '#WAYBILL_NO#'; DELETE FROM TMS_TRACE_M T WHERE T.WAYBILL_NO = '#WAYBILL_NO#' AND T.REFE_NO = '#REFE_NO#' AND T.EVENT_CODE IN ('RC04', 'RC14'); SELECT T.EVENT_CODE INTO V_FLAG FROM TMS_TRACE_M T WHERE T.WAYBILL_NO = '#WAYBILL_NO#' AND T.TRACE_NO = (SELECT MAX(T1.TRACE_NO) FROM TMS_TRACE_M T1 WHERE T1.WAYBILL_NO = '#WAYBILL_NO#'); IF (V_FLAG = 'RC18') THEN UPDATE TMS_WAYBILL_M T SET T.VALIDFLAG = '35' WHERE T.WAYBILL_NO = '#WAYBILL_NO#'; ELSE UPDATE TMS_WAYBILL_M T SET T.VALIDFLAG = '20' WHERE T.WAYBILL_NO = '#WAYBILL_NO#'; END IF; END; SELECT T.IS_CAR_TAKING,T.IS_CAR_TAKING_BILL FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ? SELECT T.CAR_LICENSE AS BASECODE ,T.CAR_LICENSE FROM TMS_CAR_BASE T WHERE T.CAR_TYPE_CODE = 'CAR01' SELECT JUDGE_STOVE_NO FROM (SELECT T.JUDGE_STOVE_NO FROM QCM_GP_JUDGE_CHANGE T WHERE T.JUDGE_STOVE_NO_GP = ? AND T.VALID_FLAG = '1' ORDER BY T.AGREE_TIME DESC) WHERE ROWNUM = 1 SELECT T.* FROM TMS_WAYBILL_RELATION T WHERE T.WAYBILL_NO = '#WAYBILL_NO#' SELECT T.PROCESS_CODE,T.PROCESS_DESC FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = ? SELECT T.SEAM_AREA FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ? SELECT DISTINCT T.CAR_NO,T.CAR_NO AS CAR_NO1 FROM CMM_WEIGHT_RECORD T WHERE T.VALIDFLAG = '1' AND T.WT_TYPE = '0' ORDER BY T.CAR_NO ASC