EWGENBAR ;Barcode voor op magazijnrekken[ 12/18/2003  10:28 AM ]
TEST Set Dev=0
 quit
 Set Max=1
 ;Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"BARCODE.TXT","W")
 Set Dev=103 Open Dev ; HALUX zonder vertaling 
 Use Dev
 ; print code
 Do TBXLBL
 Close:0'[Dev Dev
 Quit
 
TBXLBL 
 Write "M90,5,15",!
 Write "GK""*""",!
 Write "GM""TBX""",^IPCom("CS","TBXDZ",0),!
 Do WRITE($NAME(^IPCom("CS","TBXDZ")))
 Q
 Write !
 Write "ON",!
 Write "N",!
 Write "A525,50,1,3,2,2,N,""TESTING TANDEMBOX""",!
 Write "GG180,50,""TBX""",!
 Write "P1",!
 Quit
 
WRITE(Ref) 
 Set I=0
 For  Set I=$O(@Ref@(I)) Quit:I=""  Do
 .W @Ref@(I)
 Quit
 
GANGLIST Set Dev=0
 ;Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"BARCODE.TXT","W")
 Set Dev="|PRN|\\NOTES01\OVHALUX TXT LABEL" Open Dev ; OV HALUX
 Use Dev
 Set Mag="2"
 Set Gang="3"
 Do GANG(Mag,Gang,32,32,1,1)
 Close:0'[Dev Dev
 Quit
GANG(Mag,Gang,XL,XH,YL,YH) 
 For X=XL:1:XH  For Y=YL:1:YH Do
 .Set String=$TR($J(Mag,2)_$J(Gang,2)_$J(X,2)_$J(Y,2)," ","0")
 .Write !,"N",!
 .Write "B500,50,1,1,6,15,350,N,""",String,"""",!
 .Write "A130,90,1,5,2,1,N,""",$E(String,1,2)," ",$E(String,3,4)," ",$E(String,5,6)," ",$E(String,7,8),"""",!
 .Write "P1",!