added LSL2 stored procedures

LSL2/STPROC/TEST_OBJ_INVOICE.txt

@@ -0,0 +1,37 @@
+COMPILE ROUTINE TEST_OBJ_INVOICE(Dummy)
+ROWDEF(CHARSTR)
+
+DECLARE SUBROUTINE obj_Notes, Set_Status, obj_Invoice
+DECLARE FUNCTION Get_Status, obj_Invoice
+
+Set_Status(0)
+
+
+/*
+* Test record w/rejects, SRP charges and Test Wafer Charges
+
+ShipNo = 62227
+
+*/
+
+* Test record w/overseas data - 1 reject not billed.
+
+
+ShipNo = 90818
+ShipDt = "08/13/2010"
+WONo = 146642
+WOSteps = 1:@VM:2
+CassNos = 2:@VM:8:@VM:2:@VM:10:@VM:4:@VM:7:@VM:5:@VM:6:@VM:9
+RDSNos = 560169:@VM:560175:@VM:560170:@VM:560177:@VM:560171:@VM:560174:@VM:560172:@VM:560173:@VM:560176
+
+
+obj_Invoice('Create',ShipNo:@RM:ShipDt:@RM:WONo:@RM:WOSteps:@RM:CassNos:@RM:RDSNos)
+
+
+DEBUG
+
+* * * * * * *
+Bail:
+* * * * * * *
+
+RETURN