added LSL2 stored procedures

LSL2/STPROC/SPLIT_ORDER.txt

@@ -0,0 +1,116 @@
+COMPILE ROUTINE SPLIT_ORDER(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn,Send_Info, Set_Status
+DECLARE FUNCTION Get_Status, Test_Convert_PO, obj_Order
+
+$INSERT WO_LOG_EQU
+$INSERT ORDER_EQU
+
+EQU ST$WO				TO 1		;* Equates used with obj_Order
+EQU ST$ORD_NO			TO 2
+EQU ST$QUOTE_NO			TO 3
+EQU ST$PRICE			TO 4
+EQU ST$LOT_NOS			TO 5
+EQU ST$LOT_QTYS			TO 6
+EQU ST$PART_NOS			TO 7
+EQU ST$SUB_PART_NOS		TO 8
+EQU ST$WAF_INV_IDS		TO 9
+EQU ST$SCHED_IDS		TO 10
+EQU ST$ADD_CHG_DESCS	TO 11
+EQU ST$ADD_CHG_AMTS		TO 12
+EQU ST$CASS_CNT			TO 13
+EQU ST$CASS_QTY			TO 14
+
+* This routine moves detail information in the ORDER table to the WO_LOG table where it belongs.
+* JCHenry 8/14/2004
+
+OPEN 'ORDER' TO OrderTable ELSE
+	Send_Dyn('Unable to open "ORDER" table for conversion')
+	GOTO Bail
+END
+
+OPEN 'WO_LOG' TO WOLogTable ELSE
+	Send_Dyn('Unable to open "WO_LOG" table for conversion')
+	GOTO Bail
+END	
+
+SELECT OrderTable
+
+RecCnt = 0
+
+Done = 0
+LOOP
+	READNEXT OrdNo ELSE Done = 1
+UNTIL Done
+	READ OrderRec FROM OrderTable,OrdNo THEN
+		RecCnt += 1	
+		GOTO Skip
+		
+		Set_Status(0)
+		WOUpdates = obj_Order('Ord_WOLog',OrdNo:@RM:OrderRec)
+		
+		IF Get_Status(errCode) THEN DEBUg
+		
+		
+		FOR I = 1 TO COUNT(WOUpdates,@RM) + (WOUpdates NE '')
+			WOUpdate = FIELD(WOUpdates,@RM,I,1)
+			
+			WONo = WOUpdate<ST$WO>
+			
+			READ WOLogRec FROM WOLogTable,WONo THEN
+				
+				WOLogRec<WO_LOG_ORDER_NO$>		= WOUpdate<ST$ORD_NO>
+				WOLogRec<WO_LOG_QUOTE_NO$>		= WOUpdate<ST$QUOTE_NO>
+				WOLogRec<WO_LOG_UNIT_PRICE$>	= WOUpdate<ST$PRICE>
+				
+				WOLogRec<WO_LOG_LOT_NO$>		= WOUpdate<ST$LOT_NOS>
+				WOLogRec<WO_LOG_LOT_QTY$>		= WOUpdate<ST$LOT_QTYS>
+				WOLogRec<WO_LOG_PART_NO$>		= WOUpdate<ST$PART_NOS>
+				WOLogRec<WO_LOG_SUB_PART_NO$>	= WOUpdate<ST$SUB_PART_NOS>
+				WOLogRec<WO_LOG_WAF_INV_ID$>	= WOUpdate<ST$WAF_INV_IDS>
+				WOLogRec<WO_LOG_SCHED_ID$>		= WOUpdate<ST$SCHED_IDS>
+				WOLogRec<WO_LOG_ADD_CHG_DESC$>	= WOUpdate<ST$ADD_CHG_DESCS>
+				WOLogRec<WO_LOG_ADD_CHG_AMT$>	= WOUpdate<ST$ADD_CHG_AMTS>
+				WOLogRec<WO_LOG_CASS_CNT$>		= WOUpdate<ST$CASS_CNT>
+				WOLogRec<WO_LOG_CASS_QTY$>		= WOUPdate<ST$CASS_QTY>
+				
+				WRITE WOLogRec ON WOLogTable,WONo THEN
+					Send_Info(RecCnt)
+				END
+								
+			END	ELSE
+				Send_Dyn('Missing WO_LOG Record: ':WONo)
+				GOTO Skip
+			END ;* End of WOLOgRec READ
+
+
+		NEXT I
+		
+SKIP:
+		PO = OrderRec<ORDER_PO$>
+		CompNo = OrderRec<ORDER_CUST_NO$>
+		
+		POStuff = Test_Convert_PO(PO,CompNo)
+		OrderRec<ORDER_PO_NO$>		= POStuff<1,1>
+		OrderRec<ORDER_PO_LINE$>	= POStuff<1,2>
+		OrderRec<ORDER_PO_REL$>		= POStuff<1,3>
+		
+		
+		
+		WRITE OrderRec ON OrderTable,OrdNo THEN
+			Send_Info(RecCnt)
+		END
+		
+
+	END	;* End of ORDER record read
+
+REPEAT
+
+IF Get_Status(errCode) THEN DEBUG
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END