added LSL2 stored procedures

LSL2/STPROC/LOAD_EPI_PN.txt

@@ -0,0 +1,95 @@
+COMPILE ROUTINE LOAD_EPI_PN(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE Send_Dyn,Send_Info, Send_Dyn, Set_Status, RList, ErrMsg
+DECLARE FUNCTION Get_Status, Set_Printer
+
+$INSERT RDS_EQU
+$INSERT QUOTE_DET_EQU
+
+EQU TARGET_ACTIVELIST$ to 5
+
+debug
+
+OPEN 'EPI_PART' TO EpiPartTable ELSE
+	ErrMsg('Unable to open EPI_PART')
+	GOTO Bail
+END
+
+OPEN 'CUST_PART' TO CustPartTable ELSE
+	ErrMsg('Unable to open CUST_PART')
+	GOTO Bail
+END
+
+OPEN 'QUOTE_DET' TO QuoteDetTable ELSE
+	ErrMsg('Unable to open QUOTE_DET table')
+	GOTO Bail
+END
+
+OPEN 'DICT.QUOTE_DET' TO @DICT ELSE
+	ErrMsg('Unable to open DICT.QUOTE_DET')
+	GOTO Bail
+END
+
+SelectSent = 'SELECT QUOTE_DET WITH QUOTE_STATUS = "O"'
+
+RList(SelectSent,TARGET_ACTIVELIST$, "", "", "")
+
+IF Get_Status(errCode) THEN
+	ErrMsg(errCode)
+	GOTO Bail
+END
+
+EpiPN = 1000
+
+
+Done = 0
+LOOP
+	READNEXT @ID ELSE Done = 1
+UNTIL Done
+	READ @RECORD FROM QuoteDetTable,@ID THEN
+		CustNo		= {CUST_NO}
+		QuoteDetKey	= @ID
+		CustPartNos = {CUST_PART_NO}
+		IF CustPartNos = '' THEN
+			CustPNs	= {PSN_PART_NO}
+		END ELSE
+			CustPNs = CustPartNos
+		END
+		SWAP ', ' WITH @VM IN CustPNs
+		CONVERT ',' TO @VM IN CustPNs
+		
+		EpiPartRec = ''
+		EpiPartRec<1> = QuoteDetKey
+		
+		FOR I = 1 TO COUNT(CustPNs,@VM) + (CustPNs NE '')
+			CustPN = CustPNs<1,I>
+			CustPN = TRIM(CustPN)
+			IF CustPN NE '' THEN
+				CustPartRec = ''
+				CustPartRec<1> = EpiPN
+				CustPartRec<2> = {PROC_PSN}
+				
+				LOCATE @ID IN CustPartRec<3> USING @VM Setting Pos ELSE
+					CustPartRec = INSERT(CustPartRec,3,Pos,0,@ID)
+				END
+				CustPartKey = CustNo:'*':CustPN
+				WRITE CustPartRec ON CustPartTable,CustPartKey ELSE DEBUG
+			END
+			LOCATE CustPartKey IN EpiPartRec<3> USING @VM Setting Pos1 ELSE
+				EpiPartRec = INSERT(EpiPartRec,3,Pos1,0,CustPartKey)
+			END
+		NEXT I
+		WRITE EpiPartRec ON EpiPartTable,EpiPN ELSE DEBUG
+		EpiPN += 1
+		
+	END	;* End of QuoteDet record read
+REPEAT
+
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END