XinYu_RZMES/UIF023010.pck

CREATE OR REPLACE PACKAGE UIF023010 IS

	-- Author  : SJW
	-- Created : 2008-11-21 19:42:17
	--update time : 2009-03-07 08:30:40
	-- Purpose :

	PROCEDURE INSSCH_MILL_D;
	PROCEDURE CLEAR;
	PROCEDURE ADJUSTROLLSLABSEQBYWTHDESC;
	PROCEDURE I_SCH_MILL(P_SLAB_NO TBG02_SLAB_COMM.SLAB_NO%TYPE);
	PROCEDURE I_TBF02_SCH_ROLL;
	PROCEDURE REP_UPSLAB(P_SLAB_NO TBF02_SCH_MILL.SLAB_NO%TYPE,
						 P_REG_ID  VARCHAR);
	/*    PROCEDURE SLAB_REP  (
        P_MAT_NO   IN VARCHAR
       ,P_ORD_NO   IN TBE02_ORD_PRC.ORD_NO%TYPE
       ,P_ORD_SEQ  IN TBE02_ORD_PRC.ORD_SEQ%TYPE
       ,P_REG_ID   IN VARCHAR
    );*/
	PROCEDURE SLAB_REP_EACHOTHER(P_SLAB_NO_DOWN TBG02_SLAB_COMM.SLAB_NO%TYPE,
								 P_SLAB_NO_UP   TBG02_SLAB_COMM.SLAB_NO%TYPE,
								 P_REG_ID       VARCHAR);

	PROCEDURE SLAB_ORD_REP(P_REG_ID VARCHAR, P_RTN_MSG OUT VARCHAR);
	PROCEDURE REP_UP_SLAB_INFOS;
END UIF023010;
/
CREATE OR REPLACE PACKAGE BODY UIF023010 IS

	/************************************************************************/
	/* PACKAGE             UIF023010                   Author: SunJiawang   */
	/************************************************************************/
	/* DESCRIPTION  编制CCR                                                 */
	/************************************************************************/
	/* UPD_TIME  | WHO       | PROGRAM     | CONTTENT
    /* 09-08-10   SUNJIAWANG  增加 SLAB_ORD_REP                              /*
    /* 09-08-10   SUNJIAWANG  SLAB_ORD_REP    增加对Z33跺位的排除            /*
    /************************************************************************/
	CURSOR CURSLABCOMMD IS
		SELECT B.SLAB_EDT_SEQ,
			   A.SLAB_CUT_SEQ,
			   A.ORD_THK,
			   A.ORD_WTH,
			   A.ORD_LEN,
			   A.ORD_WGT,
			   C.ORD_UNIT_WGT_MIN,
			   C.ORD_UNIT_WGT_MAX,
			   A.COIL_INDIA,
			   A.COIL_OUTDIA,
			   A.ORD_NO,
			   A.ORD_SEQ,
			   A.ORD_FL
		  FROM TBG02_SLAB_COMM_D A,
			   (SELECT T.SLAB_NO, T.SLAB_EDT_SEQ
				  FROM TBF02_SCH_MILL T
				 WHERE T.SLAB_EDT_SEQ IN
					   (SELECT T.SLAB_EDT_SEQ
						  FROM TBF02_SCH_MILL T
						 WHERE T.SLAB_EDT_SEQ NOT IN
							   (SELECT SLAB_EDT_SEQ FROM TBF02_SCH_MILL_D))) B,
			   TBE02_ORD_PRC C
		 WHERE A.SLAB_NO = B.SLAB_NO
		   AND A.ORD_NO = C.ORD_NO
		   AND A.ORD_SEQ = C.ORD_SEQ
		 ORDER BY B.SLAB_EDT_SEQ ASC;
	TYPE REC_SLABCOMMD_TYPE IS RECORD(
		P_SLAB_EDT_SEQ TBF02_SCH_MILL.SLAB_EDT_SEQ %TYPE, /*炉次编制号*/
		P_SLAB_CUT_SEQ TBG02_SLAB_COMM_D.SLAB_CUT_SEQ %TYPE, /*炉次内顺序*/
		P_ORD_THK      TBG02_SLAB_COMM_D.ORD_THK %TYPE,
		P_ORD_WTH      TBG02_SLAB_COMM_D.ORD_WTH %TYPE,
		P_ORD_LEN      TBG02_SLAB_COMM_D.ORD_LEN %TYPE,
		P_ORD_WGT      TBG02_SLAB_COMM_D.ORD_WGT %TYPE,
		P_ORD_WGT_MIN  TBE02_ORD_PRC.ORD_UNIT_WGT_MIN %TYPE,
		P_ORD_WGT_MAX  TBE02_ORD_PRC.ORD_UNIT_WGT_MAX %TYPE,
		P_ORD_INDIA    TBG02_SLAB_COMM_D.COIL_INDIA %TYPE,
		P_ORD_OUTDIA   TBG02_SLAB_COMM_D.COIL_OUTDIA %TYPE,
		P_ORD_NO       TBG02_SLAB_COMM_D.ORD_NO %TYPE,
		P_ORD_SEQ      TBG02_SLAB_COMM_D.ORD_SEQ %TYPE,
		P_ORD_FL       TBG02_SLAB_COMM_D.ORD_FL %TYPE);
	REC_SLABCOMMD REC_SLABCOMMD_TYPE;

	PROCEDURE INSSCH_MILL_D IS
	BEGIN
		OPEN CURSLABCOMMD;
		LOOP
			FETCH CURSLABCOMMD
				INTO REC_SLABCOMMD;
			EXIT WHEN CURSLABCOMMD %NOTFOUND;
			INSERT INTO TBF02_SCH_MILL_D
				(SLAB_EDT_SEQ,
				 COIL_CUT_SEQ,
				 ORD_THK,
				 ORD_WTH,
				 ORD_LEN,
				 ORD_WGT,
				 ORD_WGT_MIN,
				 ORD_WGT_MAX,
				 ORD_INDIA,
				 ORD_OUTDIA,
				 ORD_NO,
				 ORD_SEQ,
				 ORD_FL)
			VALUES
				(REC_SLABCOMMD.P_SLAB_EDT_SEQ,
				 REC_SLABCOMMD.P_SLAB_CUT_SEQ,
				 REC_SLABCOMMD.P_ORD_THK,
				 REC_SLABCOMMD.P_ORD_WTH,
				 REC_SLABCOMMD.P_ORD_LEN,
				 REC_SLABCOMMD.P_ORD_WGT,
				 REC_SLABCOMMD.P_ORD_WGT_MIN,
				 REC_SLABCOMMD.P_ORD_WGT_MAX,
				 REC_SLABCOMMD.P_ORD_INDIA,
				 REC_SLABCOMMD.P_ORD_OUTDIA,
				 REC_SLABCOMMD.P_ORD_NO,
				 REC_SLABCOMMD.P_ORD_SEQ,
				 REC_SLABCOMMD.P_ORD_FL);
		END LOOP;
		CLOSE CURSLABCOMMD;
	END;

	--由宽到窄调整轧辊里顺序
	PROCEDURE ADJUSTROLLSLABSEQBYWTHDESC IS
		CURSOR CURSCHMILL IS
			SELECT ROWNUM, A.SLAB_EDT_SEQ, A.ROLL_SLAB_SEQ
			  FROM (SELECT T.ROWID, ROWNUM, T.SLAB_EDT_SEQ, T.ROLL_SLAB_SEQ
					  FROM TBF02_SCH_MILL T,
						   TBB01_ORD_PROD C,
						   TBE02_ORD_PRC  E
					 WHERE T.ORD_NO = C.ORD_NO(+)
					   AND T.ORD_SEQ = C.ORD_SEQ(+)
					   AND E.ORD_NO = T.ORD_NO
					   AND E.ORD_SEQ = T.ORD_SEQ
					 ORDER BY C.WTH_AIM DESC,
							  C.HOT_THK_AIM DESC,
							  E.DEL_TO_DATE ASC,
							  NVL(E.EMGMTR_NMG_CLF, 'N') DESC,
							  T.CUR_LOAD_LOC DESC) A;
	
		TYPE SCHMILLTYPE IS RECORD(
			P_ROWNUM        NUMBER,
			P_SLAB_EDT_SEQ  TBF02_SCH_MILL.SLAB_EDT_SEQ %TYPE,
			P_ROLL_SLAB_SEQ TBF02_SCH_MILL.ROLL_SLAB_SEQ %TYPE);
		REC_SCH_MILL SCHMILLTYPE;
	
	BEGIN
		OPEN CURSCHMILL;
		LOOP
			EXIT WHEN CURSCHMILL %NOTFOUND;
			FETCH CURSCHMILL
				INTO REC_SCH_MILL;
			UPDATE TBF02_SCH_MILL
			   SET ROLL_SLAB_SEQ = REC_SCH_MILL.P_ROWNUM
			 WHERE SLAB_EDT_SEQ = REC_SCH_MILL.P_SLAB_EDT_SEQ;
		END LOOP;
		CLOSE CURSCHMILL;
	END;
	PROCEDURE CLEAR IS
	BEGIN
		DELETE FROM TBF02_SCH_MILL T WHERE T.SLAB_EDT_SEQ > 0;
		DELETE FROM TBF02_SCH_MILL_D T WHERE T.SLAB_EDT_SEQ > 0;
		DELETE FROM TBF02_SCH_ROLL A WHERE A.ROLL_NO = 'A0001';
		COMMIT;
	END;

	PROCEDURE I_SCH_MILL(P_SLAB_NO TBG02_SLAB_COMM.SLAB_NO%TYPE) IS
	BEGIN
		INSERT INTO TBF02_SCH_MILL M
			SELECT (SELECT NVL(MAX(SLAB_EDT_SEQ), 0) + 1 FROM TBF02_SCH_MILL) SLAB_EDT_SEQ --  板坯编制号
				  ,
				   A.SLAB_NO --  板坯号
				  ,
				   '' --  钢卷号
				  ,
				   'A0001' --  轧辊号
				  ,
				   (SELECT NVL(MAX(ROLL_SLAB_SEQ), 0) + 1
					  FROM TBF02_SCH_MILL) ROLL_SLAB_SEQ --  轧辊内顺序
				  ,
				   '' --  LOT号
				  ,
				   0 --  LOT内钢卷个数
				  ,
				   0 --  LOT内钢卷编号 
				   --   A.PRODNM_CD --  产品代码
				   ----------------------------------------------------------------------------------------------------                
				  ,
				   H.PRDNM_CD PRODNM_CD --  产品代码
				   --modify by sjw 
				   --desc:        扎制计划应该传送扎制模式 而不是产品代码（梅贵平要求）
				   --------------------------------------------------------------------------------------------------
				  ,
				   A.STL_GRD --  钢号
				  ,
				   D.FAC_STL_GRP --  钢号组
				  ,
				   A.SLAB_THK --  板坯厚度
				  ,
				   A.SLAB_WTH --  板坯宽度
				  ,
				   A.SLAB_LEN --  板坯长度
				  ,
				   A.SLAB_WGT --  板坯重量
				  ,
				   '0' SLAB_TAPER --    调宽有无代码
				  ,
				   A.SLAB_WTH SLAB_WTH_HEAD --    板坯HEAD 宽度
				  ,
				   A.SLAB_WTH SLAB_WTH_TAIL --    板坯TAIL 宽度
				  ,
				   0 --  宽度变更开始位置
				  ,
				   0 --  宽度变更部分长度
				  ,
				   C.THK_AIM --  厚度目标
				  ,
				   (SELECT T.THK_GRP_CD
					  FROM TBF02_ROLL_THK_GRP T --  厚度组代码
					 WHERE T.PLT = 'H'
					   AND A.INSTR_COIL_THK >= T.MINI
					   AND A.INSTR_COIL_THK < T.MAXI) THK_GRP_CD,
				   C.HOT_THK_AIM --  热厚度AIM
				  ,
				   C.HOT_THK_MIN --  热厚度MIN
				  ,
				   C.HOT_THK_MAX --  热厚度MAX
				  ,
				   C.WTH_AIM --  宽度AlM
				  ,
				   C.WTH_MIN --  宽度MIN
				  ,
				   C.WTH_MAX --  宽度MAX                                                
				  ,
				   (SELECT T.WTH_GRP_CD
					  FROM TBF02_ROLL_WTH_GRP T --  宽度组代码
					 WHERE T.PLT = 'H'
					   AND A.INSTR_COIL_WTH >= T.MINI
					   AND A.INSTR_COIL_WTH < T.MAXI) WTH_GRP_CD,
				   B.ORD_LEN,
				   B.ORD_WGT,
				   'C' --  热送代号
				  ,
				   A.ORD_NO --  合同号
				  ,
				   A.ORD_SEQ --  订单号
				  ,
				   E.ORD_USEAGE_CD --  订单用途代码
				  ,
				   A.SPEC_ABBSYM --  标准号
				  ,
				   E.ORDCUST_CD --  客户代码
				  ,
				   E.CUST_CD --  客户代码
				  ,
				   E.DEST_CD --  目的地代码
				  ,
				   E.DEL_TO_DATE --  交货期
				  ,
				   E.UST_CD --  UST区分
				  ,
				   'H' --  去向
				  ,
				   A.INSTR_COIL_THK --  订单厚度
				  ,
				   A.INSTR_COIL_WTH --  订单宽度
				  ,
				   A.INSTR_COIL_WGT --  订单重量
				  ,
				   E.ORD_UNIT_WGT_MIN --  订单单重下限
				  ,
				   E.ORD_UNIT_WGT_MAX --  订单单重上限
				  ,
				   A.INSTR_COIL_INDIA --  订单内径
				  ,
				   A.INSTR_COIL_OUTDIA --  订单外径
				  ,
				   E.PACK_METHOD --  包装方法
				  ,
				   '' --  轧制工艺流程
				  ,
				   E.SPM_PROC_YN --  平整分卷指定判断
				  ,
				   B.COIL_CUT_CNT --  刚卷分割数
				  ,
				   '' --  目标加热温度
				  ,
				   '' --  目标出炉温度-------------------------------------------------------------------------------------------------------------------
				  ,
				   (SELECT NVL(F.FUR_TME, 0)
					  FROM TBF02_FUR_TIME F
					 WHERE F.PLT = 'H'
					   AND F.FUR_LINE = 1
					   AND F.STL_GRD = A.STL_GRD
					   AND F.SLAB_THK_MIN <= A.SLAB_THK
					   AND F.SLAB_THK_MAX > A.SLAB_THK
					   AND F.HCR_CLF = 'C') FUR_TME,
				   '' --  轧制时间
				  ,
				   A.CUR_LOAD_LOC --  堆置位置
				  ,
				   '' --  计划加热炉装炉日期
				  ,
				   '' --  计划轧制时间
				  ,
				   '' --  错误
				  ,
				   'A' --  状态区分
				  ,
				   '' --  标识
				  ,
				   '' --SLAB_NO_DOWN_LOCK
				  ,
				   '' --LOAD_LOC_DOWN_LOCK
				  ,
				   '' --YARD_LOCK_YN
			  FROM TBG02_SLAB_COMM A,
				   TBD00_STLGRD D,
				   TBB01_ORD_HEAD H,
				   TBE02_ORD_PRC E,
				   (SELECT SLAB_NO,
						   COUNT(SLAB_CUT_SEQ) COIL_CUT_CNT,
						   SUM(ORD_LEN) ORD_LEN,
						   SUM(ORD_WGT) ORD_WGT
					  FROM TBG02_SLAB_COMM_D
					 GROUP BY SLAB_NO) B,
				   TBB01_ORD_PROD C
			 WHERE A.SLAB_NO = B.SLAB_NO
			   AND A.SLAB_NO = P_SLAB_NO
			   AND A.SLAB_NO NOT IN (SELECT SLAB_NO FROM TBF02_SCH_MILL)
			   AND A.STL_GRD = D.FAC_STL_GRD(+)
			   AND A.ORD_NO = C.ORD_NO(+)
			   AND A.ORD_SEQ = C.ORD_SEQ(+)
			   AND A.ORD_NO = H.ORD_NO(+)
			   AND A.ORD_SEQ = H.ORD_SEQ(+)
			   AND E.ORD_NO = A.ORD_NO
			   AND E.ORD_SEQ = A.ORD_SEQ
			   AND A.SLAB_RT IN ('H', 'C')
			   AND A.CUR_PROG_CD = 'RBA'
			   AND A.SLAB_STAT = '2'
			   AND A.ORD_FL = '1';
	
	END;

	PROCEDURE I_TBF02_SCH_ROLL IS
	BEGIN
		INSERT INTO TBF02_SCH_ROLL
			SELECT A.ROLL_NO, --轧辊号
				   A.WTH_GRP_CD, --宽度组代码
				   C.MINI, --宽度组下限
				   C.MAXI, --宽度组上限
				   '', --钢号组
				   COUNT(A.SLAB_EDT_SEQ), --板坯编制数
				   SUM(A.SLAB_WGT), --板坯编制重量
				   SUM(B.ORD_LEN), --轧钢总长度
				   '0', --平整分卷数
				   TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS'), --CCR轧辊编制时间
				   ''
			  FROM TBF02_SCH_MILL A,
				   (SELECT SLAB_NO, SUM(ORD_LEN) ORD_LEN
					  FROM TBG02_SLAB_COMM_D
					 GROUP BY SLAB_NO) B,
				   TBF02_ROLL_WTH_GRP C
			 WHERE A.SLAB_NO = B.SLAB_NO
			   AND A.WTH_GRP_CD = C.WTH_GRP_CD
			 GROUP BY (A.ROLL_NO, A.WTH_GRP_CD, C.MINI, C.MAXI)
			 ORDER BY WTH_GRP_CD DESC;
	END;

	/************************************************************************/
	/* procedure             SLAB_ORD_REP             Author: SunJiawang   */
	/************************************************************************/
	/* DESCRIPTION  将下面的跺位替换为上面的板坯 ，并对订单信息呼唤         */
	/************************************************************************/
	/* IN  P_REG_ID           登陆用户
    /* OUT P_RTN_MSG          返回错误信息
    /************************************************************************/
	PROCEDURE SLAB_ORD_REP(P_REG_ID VARCHAR, P_RTN_MSG OUT VARCHAR) IS
	
		VE_NULL EXCEPTION;
	
		CURSOR CUR_SCH_MILL IS
			SELECT SLAB_NO
			  FROM TBF02_SCH_MILL
			 WHERE CUR_LOAD_LOC NOT LIKE 'Z33%' --Z33 的可以随便堆放不同规格的板坯，因此不在替换范围
			 ORDER BY ROLL_SLAB_SEQ ASC;
	
		REC_SCH_MILL CUR_SCH_MILL%ROWTYPE;
	BEGIN
	
		COMM.INIT_RTN_MSG;
		UIF023020_TEST.CLEAR_YARD_LOCK_FLAG;
	
		OPEN CUR_SCH_MILL;
		LOOP
			FETCH CUR_SCH_MILL
				INTO REC_SCH_MILL;
			EXIT WHEN CUR_SCH_MILL%NOTFOUND;
			IF CUR_SCH_MILL%ROWCOUNT = 0 THEN
				RAISE VE_NULL;
			END IF;
		
			REP_UPSLAB(REC_SCH_MILL.SLAB_NO, P_REG_ID);
		END LOOP;
		CLOSE CUR_SCH_MILL;
	
		--将未被锁定的板坯锁定自己本身
		UPDATE TBF02_SCH_MILL A
		   SET A.SLAB_NO_DOWN_LOCK  = SLAB_NO,
			   A.LOAD_LOC_DOWN_LOCK = CUR_LOAD_LOC
		 WHERE NVL(A.YARD_LOCK_YN, 'N') <> 'Y';
	
		--将计划板坯的信息更换为替换板坯的信息
		REP_UP_SLAB_INFOS;
	
	EXCEPTION
		WHEN VE_NULL THEN
			COMM.REC_ERR.P_TABLE      := 'TBF02_SCH_MILL';
			COMM.REC_ERR.P_ERR_PARAM1 := 'SLAB_NO';
			COMM.REC_ERR.P_ERR_MSG    := '没有记录';
			COMM.CALL_ERRDO(COMM.REC_ERR.P_RTN_MSG, FALSE);
		WHEN COMM.PE THEN
			P_RTN_MSG := COMM.REC_ERR.P_RTN_MSG;
		WHEN OTHERS THEN
			COMM.CALL_OTHER_EXCEPTION_DO(P_RTN_MSG);
	END;

	/************************************************************************/
	/* procedure             REP_UPSLAB             Author: SunJiawang   */
	/************************************************************************/
	/* DESCRIPTION  订单信息互换                                           */
	/************************************************************************/
	/* create                  090810
    /* IN  P_REG_ID           登陆用户
    /* OUT P_RTN_MSG          返回错误信息
    /************************************************************************/
	PROCEDURE REP_UPSLAB(P_SLAB_NO TBF02_SCH_MILL.SLAB_NO%TYPE,
						 P_REG_ID  VARCHAR) IS
	
		LV_CUR_LOAD_LOC    TBF02_SCH_MILL.CUR_LOAD_LOC%TYPE; --当前位置
		LV_UP_CUR_LOAD_LOC TBF02_SCH_MILL.CUR_LOAD_LOC%TYPE; --当前位置最上层没有被锁定的位置
		LV_UP_SLAB_NO      TBF02_SCH_MILL.SLAB_NO%TYPE; --当前位置最上层没有被锁定的位置
	
	BEGIN
	
		SELECT CUR_LOAD_LOC
		  INTO LV_CUR_LOAD_LOC
		  FROM TBG02_SLAB_COMM
		 WHERE SLAB_NO = P_SLAB_NO;
	
		SELECT NVL(MAX(B.CUR_LOAD_LOC), 'NULL')
		  INTO LV_UP_CUR_LOAD_LOC
		  FROM TBG02_SLAB_COMM B,
			   TBF02_SCH_MILL A,
			   TBG04_SLAB_YARD C,
			   TBE02_ORD_PRC D,
			   (SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') R
		 WHERE A.SLAB_NO = P_SLAB_NO
		   AND B.ORD_NO = D.ORD_NO
		   AND B.ORD_SEQ = D.ORD_SEQ
		   AND SUBSTR(A.CUR_LOAD_LOC, 1, 6) = C.YARD_ADDR
		   AND B.SLAB_NO = C.SLAB_NO
		   AND B.CUR_LOAD_LOC = C.YARD_ADDR || C.STORELAY
		   AND B.SLAB_STAT = '2'
		   AND B.SLAB_RT IN ('H', 'C')
		   AND B.CUR_LOAD_LOC LIKE 'Z%'
			  ------------------------------------------------------------------------------------------
			  --同成分 同炉次 同牌号 符号尺寸 以及订单单重要求才可以替换 
		   AND SUBSTR(A.SLAB_NO, 1, 10) = SUBSTR(B.SLAB_NO, 1, 10)
		   AND B.SLAB_WTH BETWEEN D.ORD_WTH AND D.ORD_WTH + 100
		   AND (B.STL_GRD = D.STL_GRD) -- 同牌号
		   AND (B.SLAB_WGT * R.PROC_RATE / 100) BETWEEN D.ORD_UNIT_WGT_MIN AND
			   D.ORD_UNIT_WGT_MAX
		   AND (GF_NIB028720(B.SLAB_NO, D.ORD_NO, D.ORD_SEQ) = 'YY') -- 检查成分项目
			  -------------------------------------------------------------------------------------------
		   AND B.YARD_LOCK_YN IS NULL;
	
		IF (LV_UP_CUR_LOAD_LOC <> 'NULL') THEN
			SELECT NVL(X.SLAB_NO, 'XX'), NVL(X.CUR_LOAD_LOC, 'XX')
			  INTO LV_UP_SLAB_NO, LV_UP_CUR_LOAD_LOC
			  FROM TBG02_SLAB_COMM X
			 WHERE X.CUR_LOAD_LOC = LV_UP_CUR_LOAD_LOC
			   AND X.SLAB_STAT = '2'
			   AND ROWNUM = 1;
		
			IF (LV_UP_SLAB_NO <> 'XX' AND LV_UP_CUR_LOAD_LOC <> 'XX') THEN
			
				UPDATE TBF02_SCH_MILL B
				   SET B.SLAB_NO_DOWN_LOCK  = LV_UP_SLAB_NO,
					   B.LOAD_LOC_DOWN_LOCK = LV_UP_CUR_LOAD_LOC,
					   B.YARD_LOCK_YN       = 'Y'
				 WHERE B.SLAB_NO = P_SLAB_NO;
			
				UPDATE TBG02_SLAB_COMM B
				   SET B.YARD_LOCK_YN = 'Y'
				 WHERE B.SLAB_NO = LV_UP_SLAB_NO;
			
				SLAB_REP_EACHOTHER(P_SLAB_NO, LV_UP_SLAB_NO, P_REG_ID);
			
			END IF;
		
		END IF;
	END;

	/************************************************************************/
	/* procedure             REP_UPSLAB             Author: SunJiawang   */
	/************************************************************************/
	/* DESCRIPTION  将上层板坯替换下层板坯，对订单信息互换                   */
	/************************************************************************/
	/* create                    090810
    /* IN  P_SLAB_NO_DOWN       上层板坯
    /* IN P_SLAB_NO_UP          下层板坯
    /************************************************************************/
	PROCEDURE SLAB_REP_EACHOTHER(P_SLAB_NO_DOWN TBG02_SLAB_COMM.SLAB_NO%TYPE,
								 P_SLAB_NO_UP   TBG02_SLAB_COMM.SLAB_NO%TYPE,
								 P_REG_ID       VARCHAR) IS
	
		LV_ORD_NO_DOWN    TBF02_SCH_MILL.ORD_NO%TYPE;
		LV_ORD_NO_UP      TBF02_SCH_MILL.ORD_NO%TYPE;
		LV_ORD_SEQ_DOWN   TBF02_SCH_MILL.ORD_SEQ%TYPE;
		LV_ORD_SEQ_UP     TBF02_SCH_MILL.ORD_SEQ%TYPE;
		LV_REP_SUCCESS_YN VARCHAR(1) := '';
	BEGIN
	
		SELECT DECODE(ORD_FL, '1', A.ORD_NO, 'XX'),
			   DECODE(ORD_FL, '1', A.ORD_SEQ, 'XX')
		  INTO LV_ORD_NO_DOWN, LV_ORD_SEQ_DOWN
		  FROM TBG02_SLAB_COMM A
		 WHERE A.SLAB_NO = P_SLAB_NO_DOWN
		   AND A.SLAB_STAT = '2'
		   AND ROWNUM = 1;
	
		SELECT DECODE(ORD_FL, '1', A.ORD_NO, 'XX'),
			   DECODE(ORD_FL, '1', A.ORD_SEQ, 'XX')
		  INTO LV_ORD_NO_UP, LV_ORD_SEQ_UP
		  FROM TBG02_SLAB_COMM A
		 WHERE A.SLAB_NO = P_SLAB_NO_UP
		   AND A.SLAB_STAT = '2'
		   AND ROWNUM = 1;
	
		IF P_SLAB_NO_DOWN <> P_SLAB_NO_UP THEN
		
			IF (LV_ORD_NO_DOWN <> 'XX' OR LV_ORD_SEQ_DOWN <> 'XX') THEN
				NIE03_SERVEAS.CHK_IS_SYN;
				NIE03_SERVEAS.SERVE_HIS('TM',
										P_SLAB_NO_UP,
										LV_ORD_NO_DOWN,
										LV_ORD_SEQ_DOWN,
										P_REG_ID);
				NIE03_SERVEAS.SLAB_SERVE(P_SLAB_NO_UP,
										 LV_ORD_NO_DOWN,
										 LV_ORD_SEQ_DOWN,
										 P_REG_ID);
				--调用进程 NIE012070
				OS_COMM.SAVE_ORD_STS('TM',
									 P_SLAB_NO_UP,
									 'AutoRepSlabCurLoc');
				LV_REP_SUCCESS_YN := 'Y';
			
			END IF;
		
			IF LV_REP_SUCCESS_YN = 'Y' THEN
			
				IF (LV_ORD_NO_UP <> 'XX' AND LV_ORD_SEQ_UP <> 'XX') THEN
					OS_COMM.CHK_IS_SYN;
					NIE03_SERVEAS.SERVE_HIS('TM',
											P_SLAB_NO_DOWN,
											LV_ORD_NO_UP,
											LV_ORD_SEQ_UP,
											P_REG_ID);
					NIE03_SERVEAS.SLAB_SERVE(P_SLAB_NO_DOWN,
											 LV_ORD_NO_UP,
											 LV_ORD_SEQ_UP,
											 P_REG_ID);
					--调用进程 NIE012070
					OS_COMM.SAVE_ORD_STS('TM',
										 P_SLAB_NO_DOWN,
										 'AutoRepSlabCurLoc');
				END IF;
			
			END IF;
		
		END IF;
	
	END;
	/************************************************************************/
	/* procedure             SLAB_REP             Author: SunJiawang      */
	/************************************************************************/
	/* DESCRIPTION  板坯充当功能                                            */
	/************************************************************************/
	/* create                    090810
    /* IN  P_MAT_NO       充当板坯
    /* IN P_ORD_NO        充当订单号
    /* IN P_ORD_SEQ       充当订单行
    /************************************************************************/
	/* PROCEDURE SLAB_REP   (
            P_MAT_NO   IN VARCHAR
           ,P_ORD_NO   IN TBE02_ORD_PRC.ORD_NO%TYPE
           ,P_ORD_SEQ  IN TBE02_ORD_PRC.ORD_SEQ%TYPE
           ,P_REG_ID   IN VARCHAR
        )IS
     BEGIN
    \*  UPDATE TBG02_SLAB_COMM A SET
                        BEF_PROG_CD = CUR_PROG_CD,
                        BEF_PROG_CD_PGM = CUR_PROG_CD_PGM,
                        BEF_PROG_CD_DTIME = CUR_PROG_CD_DTIME,
                        CUR_PROG_CD = 'RBA',
                        CUR_PROG_CD_PGM = 'NIE03_SERVEAS',
                        CUR_PROG_CD_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
                        ORD_FL = '1',
                        NONORD_CAUSE_CD = '',
                        NONORD_OCR_DTIME = '',
                        MOD_ID = P_REG_ID,
                        MOD_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
                        ORG_ORD_NO       = DECODE(ORD_FL,'1',ORD_NO,''),
                        ORG_ORD_SEQ      = DECODE(ORD_FL,'1',ORD_SEQ,''),
                        (ORD_NO, ORD_SEQ, CUST_CD, ORDCUST_CD, ORD_USE_CD, PRODNM_CD, SF_METHOD,
                            SPEC_ABBSYM, DEVLMT_DTIME, INSTR_COIL_THK, INSTR_COIL_WTH, INSTR_COIL_INDIA,
                            INSTR_COIL_WGT, INSTR_COIL_LEN, INSTR_COIL_OUTDIA, SLAB_INGR_DEC_GRD) =
                        (SELECT ORD_NO, ORD_SEQ, CUST_CD, ORDCUST_CD, ORD_USEAGE_CD, PRODNM_CD, SCARPING_PROC_YN,
                            SPEC_ABBSYM, DEL_TO_DATE, ORD_THK, ORD_WTH, ORD_INDIA,
                            (A.SLAB_WGT * C.PROC_RATE / 100),
                            (A.SLAB_WGT * C.PROC_RATE / 100) / (B.ORD_THK * B.ORD_WTH * 7.85) * 1000000,
                            SQRT(4 * (A.SLAB_WGT * C.PROC_RATE / 100) / (B.ORD_WTH / 1000000 * 7.85 * 3.14 ) + (B.ORD_INDIA * B.ORD_INDIA)),
                            DECODE(GF_NIB028720(A.SLAB_NO, ORD_NO, ORD_SEQ), 'YY', '1', '2')
                         FROM TBE02_ORD_PRC B, (
                            SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') C
                         WHERE ORD_NO = P_ORD_NO
                           AND ORD_SEQ = P_ORD_SEQ)
                    WHERE SLAB_NO = P_MAT_NO;*\
    
                UPDATE TBG02_SLAB_COMM A SET
                    BEF_PROG_CD = CUR_PROG_CD,
                    BEF_PROG_CD_PGM = CUR_PROG_CD_PGM,
                    BEF_PROG_CD_DTIME = CUR_PROG_CD_DTIME,
    -----------------------------------------------------------------------------------------
                    BEF_STL_GRD       = STL_GRD,--充当的时候记录牌号历史 MODIFY BY SJW 090813
    -----------------------------------------------------------------------------------------
                    CUR_PROG_CD = 'RBA',
                    CUR_PROG_CD_PGM = 'AutoRepSlabCurLoc',
                    CUR_PROG_CD_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
                    ORD_FL = '1',
                    NONORD_CAUSE_CD = '',
                    NONORD_OCR_DTIME = '',
                    SLAB_INGR_DEC_GRD = '1',
                    SLAB_SIZE_DEC_GRD = '1',
                    EXTSHAPE_GRD = '1',
                    MOD_ID = P_REG_ID,
                    MOD_DTIME = TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISS'),
    
                   --充当将当前订单写入原始订单
                    ORG_ORD_NO       = DECODE(ORD_FL,'1',ORD_NO,''),
                    ORG_ORD_SEQ      = DECODE(ORD_FL,'1',ORD_SEQ,''),
                    
                    (ORD_NO, ORD_SEQ, CUST_CD, ORDCUST_CD, ORD_USE_CD, PRODNM_CD, SF_METHOD,
                        SPEC_ABBSYM, DEVLMT_DTIME, INSTR_COIL_THK, INSTR_COIL_WTH, INSTR_COIL_INDIA,
                        INSTR_COIL_WGT, INSTR_COIL_LEN, INSTR_COIL_OUTDIA,STL_GRD) =
                    (SELECT ORD_NO, ORD_SEQ, CUST_CD, ORDCUST_CD, ORD_USEAGE_CD, PRODNM_CD, SCARPING_PROC_YN,
                        SPEC_ABBSYM, DEL_TO_DATE, ORD_THK, ORD_WTH, ORD_INDIA,
                        (A.SLAB_WGT * C.PROC_RATE / 100),
                        (A.SLAB_WGT * C.PROC_RATE / 100) / (B.ORD_THK * B.ORD_WTH * 7.85) * 1000000,
                        SQRT(4 * (A.SLAB_WGT * C.PROC_RATE / 100) / (B.ORD_WTH / 1000000 * 7.85 * 3.14 ) + (B.ORD_INDIA * B.ORD_INDIA))
                        , STL_GRD
                        --DECODE(GF_NIB028720(A.SLAB_NO, ORD_NO, ORD_SEQ), 'YY', '1', '2')
                     FROM TBE02_ORD_PRC B, (
                         SELECT PROC_RATE FROM TBE01_PROC_RATE WHERE PROC_CD = 'R') C
                         WHERE ORD_NO = P_ORD_NO
                           AND ORD_SEQ = P_ORD_SEQ)
                    WHERE SLAB_NO = P_MAT_NO;
    
        DELETE TBG02_SLAB_COMM_D
         WHERE SLAB_NO = P_MAT_NO;
    
        INSERT INTO TBG02_SLAB_COMM_D
                    ( SLAB_NO, SLAB_CUT_SEQ, SLAB_THK, SLAB_WTH, SLAB_LEN,
                      ORD_THK, ORD_WTH, ORD_LEN, ORD_WGT, COIL_INDIA,
                      COIL_OUTDIA, ORD_NO, ORD_SEQ, ORD_FL
                    )
                    SELECT SLAB_NO, '01', SLAB_THK, SLAB_WTH, SLAB_LEN,
                        INSTR_COIL_THK, INSTR_COIL_WTH, INSTR_COIL_LEN, INSTR_COIL_WGT, INSTR_COIL_INDIA,
                        INSTR_COIL_OUTDIA, ORD_NO, ORD_SEQ, '1'
                    FROM TBG02_SLAB_COMM
                    WHERE SLAB_NO = P_MAT_NO;
     END;
    */

	/************************************************************************/
	/* procedure             REP_UP_SLAB_INFOS         Author: SunJiawang   */
	/************************************************************************/
	/* DESCRIPTION  删除最处编制的计划   替换为上层板坯的轧制计划            */
	/************************************************************************/
	/* create                    090810
    /************************************************************************/
	PROCEDURE REP_UP_SLAB_INFOS IS
	
		CURSOR LV_CUR_LOCK_SLAB_NO IS
			SELECT A.SLAB_NO_DOWN_LOCK
			  FROM TBF02_SCH_MILL A
			 ORDER BY A.ROLL_SLAB_SEQ ASC;
	
		LV_REC_LOCK_SLAB_NO LV_CUR_LOCK_SLAB_NO%ROWTYPE;
	
	BEGIN
	
		OPEN LV_CUR_LOCK_SLAB_NO;
	
		--记录好锁定板坯信息后，删除轧制计划临时表，将锁定的板坯编入轧制计划
		DELETE FROM TBF02_SCH_MILL;
		DELETE FROM TBF02_SCH_MILL_D;
	
		LOOP
			FETCH LV_CUR_LOCK_SLAB_NO
				INTO LV_REC_LOCK_SLAB_NO;
			EXIT WHEN LV_CUR_LOCK_SLAB_NO%NOTFOUND;
		
			I_SCH_MILL(LV_REC_LOCK_SLAB_NO.SLAB_NO_DOWN_LOCK);
		
		END LOOP;
		CLOSE LV_CUR_LOCK_SLAB_NO;
	
		--重新编制详细轧制计划 TBF02_SCH_MILL_D
		INSSCH_MILL_D;
	
	END;
END UIF023010;
/