added LSL2 stored procedures

LSL2/STPROC/FIX_WO_MAT_QA.txt

@@ -0,0 +1,109 @@
+COMPILE ROUTINE FIX_WO_MAT_QA(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn,Send_Info, obj_WO_Log, Set_Status, RList, Btree.Extract, obj_WO_Mat_QA
+DECLARE FUNCTION Get_Status, Set_Printer
+
+
+$INSERT WO_MAT_QA_EQUATES
+$INSERT WO_LOG_EQU
+$INSERT RLIST_EQUATES
+
+OPEN 'WO_MAT_QA' TO WOMatQAFile ELSE
+	DEBUG 
+	GOTO Bail
+END
+
+
+
+
+OPEN 'DICT.WO_MAT' TO DictVar ELSE
+	DEBUG
+	GOTO Bail
+END
+
+
+DEBUG
+
+SelectSent = 'SELECT WO_MAT WITH REL_DTM > "4/29/2016 08:00" AND WITH QA_MET_STAGE = "" '
+
+
+RLIST(SelectSent,TARGET_ACTIVELIST$,'','','')
+
+
+
+IF Get_Status(errCode) THEN
+	DEBUG
+	GOTO Bail
+END
+
+
+
+Done = 0
+
+FixCnt = 0
+
+
+LOOP
+	READNEXT WOMatKey ELSE Done = 1
+UNTIL Done
+
+
+	READ WOMatQARec FROM WOMatQAFile,WOMatKey  THEN
+		QAMetStage = XLATE('WO_MAT',WOMatKey,'QA_MET_STAGE','X')
+		
+		*Send_Dyn(RecNo:' ':WOMatKey)
+		DEBUG
+		
+	END ELSE
+		FixCnt += 1
+		
+		WONo = WOMatKey[1,'*']
+		CassNo = WOMatKey[COL2()+1,'*']
+		
+		obj_WO_Mat_QA('Create',WONo:@RM:CassNo)
+		
+		Send_Dyn(FixCnt:' ':WONo:' ':CassNo)
+	END
+REPEAT
+
+
+
+
+
+GOTO Bail
+
+
+
+
+
+/*
+Equ WO_MAT_HOLD$                     To  34
+Equ WO_MAT_HOT_LOT$                  To  35
+
+Equ WO_MAT_REL_DTM$                  To  38
+Equ WO_MAT_REL_BY$                   To  39
+
+Equ WO_MAT_PROMISE_SHIP_DT$          To  61
+Equ WO_MAT_NCR_KEYS$                 To  62
+Equ WO_MAT_RX_DTM$                   To  63
+Equ WO_MAT_RX_BY$                    To  64
+*/
+
+
+
+		
+
+GOTO Bail
+
+
+
+
+IF Get_Status(errCode) THEN DEBUG
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END