223 lines
4.0 KiB
Plaintext
223 lines
4.0 KiB
Plaintext
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
|