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
