COMPILE SUBROUTINE ZEBRA_160_TEST(Dummy)

DECLARE SUBROUTINE obj_Zebra160s, Set_Status, Print_Cass_Ship_Label, ErrMsg, Print_Carton_Labels
DECLARE SUBROUTINE Print_Pallet_Labels
DECLARE FUNCTION Get_Status

*CALL Print_cleanroom_labels_thermal( '193038' )

*RETURN

*Print_Pallet_Labels()

*RETURN

*COCIDs = '38810':@FM:'38814':@FM:'38751'
COCIDs = '38847':@FM:'38848'

Print_Carton_Labels( COCIds )

RETURN

* * * * * * *
Skip:
* * * * * * *

RDSKeys = '192139':@fm:'177101'

Print_Cass_Ship_Label(RDSKeys)

RETURN



* Testing parameters

CustPartNo		= '123ABCD1234ABCD01'
PartQty			= '123456'
SupplierCd		= '1234567890'					;* 'Site Code:' on original label
DeliveryLoc		= '12345678'
SerialNo		= 'Serial78'
PlantDock		= '1234567'
StorageBin		= 'Storage Bin':'2345678901234567890'
PlantName		= 'Plant Name':'12345678901234567890'
PlantCity		= 'Plant City':'12345678901234567890'
ShipDt			= OCONV(DATE(),'D4/')
MfgDt			= OCONV(DATE()-5,'D4/')
LotNo			= '6543210000'
PartDesc		= 'Epitaxial Layer(s)'
Manufacturer	= 'ATMI Services, 550 W Juanita Ave'
City			= 'Mesa'
ST				= 'AZ'
ZIP				= '85210'
Country			= 'USA'
PONo			= '12 PO No 123'
RevLvl			= '123'
CustName		= 'Customer Name'
CustLot			= 'WL306-1KVVF.1P'
Thickness		= '4.13um'
Resistivity		= '10.000ohm.cm'
ReqShipDt		= OCONV(DATE()+5,'D4/')
WONo			= '120014'

ShipToName		= 'Ship To Name'
ShipToAddr		= 'Ship To Address'
ShipToCity		= 'Ship To City'
ShipToST		= 'AZ'
ShipToZIP		= 'ZIPPY'

CustPartNoStruct  = 'M35':@VM		; CustPartQtyStruct  = '12':@VM
CustPartNoStruct := 'L94A36':@VM	; CustPartQtyStruct := '25':@VM
CustPartNoStruct := 'HF5':@VM		; CustPartQtyStruct := '25':@VM
CustPartNoStruct := '5.8UM':@VM		; CustPartQtyStruct := '25':@VM
CustPartNoStruct := '20M1.2104':@VM	; CustPartQtyStruct := '25':@VM
CustPartNoStruct := 'L94A36'		; CustPartQtyStruct := '25'


GOTO Container


* * * * * End of testing variables


Parms 		= CustPartNo
Parms<2>	= RevLvl
Parms<3>	= PartQty
Parms<4>	= PartDesc
Parms<5>	= LotNo			;* RDS 
Parms<6>	= SupplierCd
Parms<7>	= CustName
Parms<8>	= PONo
Parms<9>	= CustLot
Parms<10>	= Thickness
Parms<11>	= Resistivity
Parms<12>	= ReqShipDt
Parms<13>	= WONo



SWAP @FM WITH @RM IN Parms

Set_Status(0)

obj_Zebra160s('SubPackLabel',Parms)

IF Get_Status(errCode) THEN
	DEBUG
END


GOTO Bail

* * * * * *
Container:
* * * * * *

* Container Label

Parms		= CustPartNo
Parms<2>	= PartQty
Parms<3> 	= PONo
Parms<4> 	= RevLvl
Parms<5>	= SupplierCd
Parms<6>	= DeliveryLoc
Parms<7>	= SerialNo
Parms<8>	= PlantDock
Parms<9>	= LotNo
Parms<10>	= StorageBin
Parms<11>	= PlantName
Parms<12>	= PlantCity
Parms<13>	= MfgDt
Parms<14>	= PartDesc
 
CONVERT @FM TO @RM IN Parms

Set_Status(0)
obj_Zebra160s('ContainerLabel',Parms)

IF Get_Status(errCode) THEN DEBUG

RETURN

* * * * * * *
Master:
* * * * * * *


* Master Load Label


Parms 		= CustPartNo
Parms<2>	= PartQty
Parms<3>	= SupplierCd
Parms<4>	= DeliveryLoc
Parms<5>	= SerialNo
Parms<6>	= PlantDock
Parms<7>	= StorageBin
Parms<8>	= PlantName
Parms<9>	= PlantCity
Parms<10>	= ShipDt
Parms<11>	= PartDesc
Parms<12>	= Manufacturer
Parms<13>	= City
Parms<14>	= ST
Parms<15>	= ZIP
Parms<16>	= Country

SWAP @FM WITH @RM IN Parms

Set_Status(0)

obj_Zebra160s('MasterLabel',Parms)

IF Get_Status(errCode) THEN
	DEBUG
END


* * * * * * *
MixedLoad:
* * * * * * *

Parms 		= SupplierCd
Parms<2>	= ShipToName
Parms<3>	= ShipToAddr
Parms<4>	= ShipToCity
Parms<5>	= ShipToST
Parms<6>	= ShipToZIP
Parms<7>	= SerialNo
Parms<8>	= PlantDock
Parms<9>	= StorageBin
Parms<10>	= PlantName
Parms<11>	= PlantCity
Parms<12>	= ShipDt
Parms<13>	= Manufacturer
Parms<14>	= City
Parms<15>	= ST
Parms<16>	= ZIP
Parms<17>	= CustPartNoStruct
Parms<18>	= CustPartQtyStruct

CONVERT @FM TO @RM IN Parms

Set_Status(0)

obj_Zebra160s('MixedLoadLabel',Parms)

IF Get_Status(errCode) THEN
	ErrMsg(errCode)
END

RETURN





* * * * * * *
Bail:
* * * * * * *


RETURN
