added LSL2 stored procedures

LSL2/STPROC/FIX_INVOICE.txt

@@ -0,0 +1,93 @@
+COMPILE ROUTINE FIX_INVOICE(Dummy)
+ROWDEF (CHARSTR)
+
+DECLARE SUBROUTINE SEND_INFO, SEND_DYN, RList, obj_Schedule, Btree.Extract, Set_Status
+
+$INSERT SCHEDULE_EQU
+$INSERT INVOICE_EQU
+
+
+OPEN 'INVOICE' TO InvoiceTable ELSE
+	Send_Info('Puked on INVOICE table open.')
+	GOTO Bail
+END
+
+debug
+READ InvoiceRec FROM InvoiceTable,13576 THEN
+	WRITE InvoiceRec ON InvoiceTable,135762 THEN
+		DELETE InvoiceTable,13576 ELSE Null
+	END
+END
+
+
+GOTO Bail
+
+
+
+
+
+OPEN "SCHEDULE" TO SchedTable ELSE
+	Send_Info('Puked on table open')
+	GOTO Bail
+END
+
+
+OPEN 'DICT.INVOICE' TO DictVar ELSE
+	Send_Info('Unable to open DICT.INVOICE')
+	GOTO Bail
+END
+
+
+
+SearchLine = 'SHIP_DATE':@VM:'>=':ICONV('7/13','D'):@FM
+
+Btree.Extract(SearchLine,'INVOICE',DictVar,InvKeys,'',Flag)
+
+IF Get_Status(errCode) THEN debug
+
+
+
+FOR I = 1 TO Count(InvKeys,@VM) + (InvKeys NE '')
+	InvNo = InvKeys<1,I>
+	READ InvRec FROM InvoiceTable,InvNo THEN
+		SchedKeys = InvRec<INVOICE_SCHEDULE_IDS$>
+		SchedKeyCnt = COUNT(SchedKeys,@VM) + (SchedKeys NE '')
+		FOR N = 1 TO SchedKeyCnt
+			SchedKey = SchedKeys<1,N>
+			READ SchedRec FROM SchedTable,SchedKey THEN
+				LOCATE InvNo IN SchedRec<SCHEDULE_INVOICE_IDS$> USING @VM Setting Pos ELSE
+					Send_Dyn('Sched No: ':SchedKey:' - Inv No: ':InvNo)
+					
+					SetupCharge = OCONV(InvRec<INVOICE_SETUP_CHARGE$,N>,'MD2')
+					SRPCharge	= OCONV(InvRec<INVOICE_SRP_CHARGE$,N>,'MD2')
+					ShipQty		= InvRec<INVOICE_QUANTITY$,N>
+					ShipPrice	= OCONV(InvRec<INVOICE_PRICE$,N>,'MD2')
+					ShipVia		= InvRec<INVOICE_SHIP_VIA$>					;* Single
+					Rejects		= InvRec<INVOICE_REJECTS$,N>
+					Unprocessed	= InvRec<INVOICE_UNPROCESSED$,N>
+					BoxCnt		= InvRec<INVOICE_BOX_CNT$>					;* Single
+					ShipDt		= OCONV(InvRec<INVOICE_SHIP_DATE$>,'D4/')
+					TrackNos	= InvRec<INVOICE_TRACKING_NO$>			
+					
+					
+					Parms  = InvNo:@RM:SchedKey:@RM:SetupCharge:@RM:SRPCharge:@RM:ShipQty:@RM:ShipPrice:@RM
+					Parms := ShipVia:@RM:Rejects:@RM:Unprocessed:@RM:BoxCnt:@RM:TrackNos:@RM:ShipDt
+					
+					Set_Status(0)
+					obj_Schedule('AddInvoice',Parms)
+					IF Get_Status(errCode) THEN
+						debug
+						Set_Status(0)
+					END
+				END
+			END ;* End of SchedRec Read
+		NEXT N
+	END ;* End of Invoice Read
+NEXT I
+
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+END