PVETIKET ;Selecteren van een toelevering en het afdrukken van de label [ 04/09/2003  9:00 AM ]
 Do PRINT(109,114829,"*",1)
 Q
 
 Set K="AFDRUKKEN PALLETETIKETTEN "_QN_" ",FP=203+$L(K)
 Write @F61,@F11,@F1,@F,@F5
 Set FP=202
 Write @F,@F4,K,@F5
 ;Set Dev=107 ; Device labelprinter : \\PROTOUCH2\LABELWRITER2
 Set Dev=109 ; Device labelprinter : \\REQ DATKON\Generic / Text Only 
 New C,Derde,LEVNr,TOENr
 Set LEVNr=$$SELECT^LEVER(1,6092)
 If LEVNr Do
 .Set Derde("L")=LEVNr,Derde("N")=1
 .For  Set TOENr=$$SELECT^FLOW("KTO","KTO1",1,,.Derde) Quit:TOENr="-"  Do PRINT(TOENr)
 Quit
 
FETCH(ORDNr,PRNr,Qty,C) 
 New R,KLNr,Adr,Taal
 Set C("ORDNR")=ORDNr
 Set KLNr=$P($G(^KO1(ORDNr,"F")),D)
 Quit:KLNr=""
 Set OrdRef=$P($G(^KOD(KLNr,"F",ORDNr,1)),D,3)
 If OrdRef?1.2N1"."1.2N1"."2N1" ".E!(OrdRef?1.2N1"/"1.2N1"/"2N1" ".E)!(OrdRef?1.2N1"-"1.2N1"-"2N1" ".E) Set OrdRef=$P(OrdRef," ",2,99)
 Set C("ORDREF")=OrdRef
 Set Adr=$G(^KOD(KLNr,"F",ORDNr,3))
 Set:$L($TR(Adr,"\",""))<5 Adr=^KKL(^KK1(KLNr),0)
 Set C("KLNM")=$P(Adr,D,2)
 Set C("TOENM")=$P(Adr,D,3)
 Set C("STRAAT")=$P(Adr,D,5)
 Set C("POSTKODE")=$P(Adr,D,6)
 Set C("GEMEENTE")=$E($P(Adr,D,7),1,18)
 Set Taal=$P(^KKL(^KK1(KLNr),0),D,9)
 Set:Taal'="F" Taal="N"
 Set C("TAAL")=Taal
 Set GNode=$G(^KPR(PRNr,"G"))
 Set GNode="XYZ\PSV\EV\L\K\B\\2345\495\FZ\1\"
 Set C("PROFIEL")=$P(GNode,D,2)
 Set:$L(C("PROFIEL")) C("PROFOMS")=$G(^RES("HAD","PI","PROFIEL","D",C("PROFIEL"),Taal))
 Set C("PROFAFW")=$P(GNode,D,3)
 Set:$L(C("PROFAFW")) C("PROFAFWOMS")=$G(^RES("HAD","PI","PROFAFW","D",C("PROFAFW"),Taal))
 Set C("HOOGTE")=$P(GNode,D,8)
 Set C("BREEDTE")=$P(GNode,D,9)
 Set C("TOEP")=$P(GNode,D,5)
 Set:$L(C("TOEP")) C("TOEPOMS")=$G(^RES("HAD","PI","TOEPAS","D",C("TOEP"),Taal))
 Set C("DRAAI")=$P(GNode,D,4)
 Set:$L(C("DRAAI")) C("DRAAIOMS")=$G(^RES("HAD","PI","DRAAI","D",C("DRAAI"),Taal))
 Set C("VULLING")=$P(GNode,D,10)
 Set:$L(C("VULLING")) C("VULOMS")=$G(^RES("HAD","PI","VULLING","D",C("VULLING"),Taal))
 Set C("MONTAGE")=$S($P(GNode,D,11):$S(C("TAAL")="F":"Monté",1:"Gemonteerd"),1:"")
 Set C("DOSSIER")=$P(GNode,D,1)
 Quit
 
WLABEL(Dev,C) 
 ;Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"LABEL.TXT","W")
 Open:0'[Dev Dev
 Use Dev
 For I=1:1 Set Lijn=$T(@("L"_$G(C("TAAL"),"N")_I)) Quit:Lijn=""  Do
 .Write @$P(Lijn,";",2),!
 Close:0'[Dev Dev
 Quit
 
PRINT(Dev,ORDNr,PRNr,Qty) 
 New C
 Do:0'[Dev STORE^vhTERMINA()
 Set FP=2001
 Write @F,@F1,!?2,"Printing ..."
 Do FETCH(ORDNr,PRNr,$G(Qty),.C)
 Do WLABEL(Dev,.C)
 Do:0'[Dev REFRESH^vhTERMINA()
 Quit
 
EXTERN(TOENr) 
 New C,Dev
 Set Dev=109 ; Device labelprinter : \\REQ DATKON\Generic / Text Only 
 Do PRINT(TOENr)
 Quit
 
 ; Label definitie NEDERLANDS
LN1 ;"ON"
LN2 ;"N"
LN3 ;"R100,0"
LN4 ;"A640,50,1,2,2,2,N,""HALUX"""
LN5 ;"A525,50,1,2,2,2,N,""",$G(C("KLNM")),""""
LN6 ;"A477,50,1,2,2,1,N,""",$G(C("TOENM")),""""
LN7 ;"A441,50,1,2,2,1,N,""",$G(C("STRAAT")),""""
LN8 ;"A404,50,1,2,2,1,N,""",$G(C("POSTKODE")),"  ",$G(C("GEMEENTE")),""""
LN9 ;"A525,650,1,2,2,1,N,""Ordernr"""
LN10 ;"A490,650,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
LN11 ;"A341,50,1,2,2,2,N,""Ref: ",$G(C("ORDREF")),""""
LN12 ;"A275,50,1,2,2,2,N,""",$G(C("TOEPOMS")),$S($L($G(C("DRAAIOMS"))):" - "_$G(C("DRAAIOMS")),1:""),""""
LN13 ;"A228,100,1,2,2,2,N,""","H:",$G(C("HOOGTE"))," x B:",$G(C("BREEDTE")),""""
LN14 ;"A191,100,1,2,2,1,N,""",$G(C("PROFIEL")),"-",$G(C("PROFAFW"))," : ",$G(C("PROFOMS"))," - ",$G(C("PROFAFWOMS")),""""
LN15 ;"A155,100,1,2,2,1,N,""",$G(C("VULLING"))," : ",$G(C("VULOMS")),""""
LN16 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNM")),1,10),""""
LN17 ;"A440,650,1,2,2,1,N,""Dossier"""
LN18 ;"A405,650,1,2,2,1,N,""",$G(C("DOSSIER")),""""
LN19 ;"P1"
 ; Label definitie FRANS
LF1 ;"ON"
LF2 ;"N"
LF3 ;"R100,0"
LF4 ;"A640,50,1,2,2,2,N,""CLIENT"""
LF5 ;"A525,50,1,3,2,2,N,""",$G(C("KLNM")),"""" ; Klantnaam
LF6 ;"A465,50,1,2,2,2,N,""",$G(C("TOENM")),""""
LF7 ;"A410,50,1,2,2,2,N,""",$G(C("STRAAT")),""""
LF8 ;"A355,50,1,2,2,2,N,""",$G(C("POSTKODE")),""""
LF9 ;"A355,325,1,2,2,2,N,""",$G(C("GEMEENTE")),""""
LF10 ;"A215,50,1,1,2,2,N,""No d'ordre:"""
LF11 ;"A215,300,1,1,2,2,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),$S($L($G(C("LEVREF"))):" ("_C("LEVREF")_")",1:""),""""
LF12 ;"A160,50,1,1,2,2,N,""Votre ref:"""
LF13 ;"A160,300,1,1,2,2,N,""",$G(C("ORDREF")),""""
LF14 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNM")),1,10),""""
LF15 ;"P1"