38 lines
716 B
Plaintext
38 lines
716 B
Plaintext
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
|