PVLABEL ;Selecteren van een toelevering en het afdrukken van de label [ 04/09/2003  9:19 AM ]
 
 Set Dev=109 ; Device labelprinter : \\REQ DATKON\Generic / Text Only 
 New C,Derde,TOENr
 Set Derde("L")=6092
 Set TOENr=$$SELECT^FLOW("KTO","KTO1") ;,1,,.Derde)
 If TOENr Do
 .Do FETCHTOE(TOENr,.C)
 .Do WLABEL(Dev,.C)
 Quit
 
FETCHTOE(TOENr,C) 
 New R
 Set LevNr=$P(^KTO1(TOENr),D)
 Set R=^KTO(LevNr,TOENr,1)
 Set C("LEVREF")=$P(R,D,10),ORDNr=$P(R,D,7),KLNr=$P(R,D,8)
 Quit:ORDNr=""
 Set C("ORDNR")=ORDNr
 Quit:KLNr=""
 Set C("ORDREF")=$P(^KOD(KLNr,"F",ORDNr,1),D,3)
 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")=$P(Adr,D,7)
 Set C("TAAL")=$P(^KKL(^KK1(KLNr),0),D,9)
 Quit
 
WLABEL(Dev,C) 
 Do STORE^vhTERMINA()
 Set FP=2001
 Write @F,@F1,!?2,"Printing ..."
 ;Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"LABEL.TXT","W")
 Open Dev
 Use Dev
 For I=1:1 Set Lijn=$T(@("B"_$G(C("TAAL"),"N")_I)) Quit:Lijn=""  Do
 .Write @$P(Lijn,";",2),!
 Close:0'[Dev Dev
 Do REFRESH^vhTERMINA()
 Quit
 
EXTERN(TOENr) 
 New C,Dev
 Set Dev=107 ; Device labelprinter : \\REQ DATKON\Generic / Text Only 
 Do FETCHTOE(TOENr,.C)
 Do WLABEL(Dev,.C)
 Quit
 
TEST Set C("KLNM")="HOUTWERKERS"
 Set C("TOENM")="schrijnwerkerij"
 Set C("STRAAT")="Schaverijstraat 9"
 Set C("GEMEENTE")="NL-3534-AS UTRECHT"
 Set C("TAAL")="N"
 Do WLABEL(121,.C)
 Quit
 
 ; Label definitie NEDERLANDS
BN1 ;""
BN2 ;"N"
BN3 ;"R100,0"
BN4 ;"A640,50,1,4,2,2,N,""ABX"""
BN5 ;"A545,50,1,3,1,1,R,""Afzender"""
BN6 ;"A545,170,1,3,1,1,N,""1353116"""
BN7 ;"A515,60,1,3,1,1,N,""VANHOECKE NV"""
BN8 ;"A485,60,1,3,1,1,N,""EUROPARK-NOORD 9"""
BN9 ;"A455,60,1,3,1,1,N,""B-9100 SINT-NIKLAAS"""
BN10 ;"A405,50,1,3,1,1,R,""Bestemmeling"""
BN11 ;"A375,60,1,4,1,1,N,""",$G(C("KLNM")),""""
BN12 ;"A345,60,1,4,1,1,N,""",$G(C("TOENM")),""""
BN13 ;"A315,60,1,4,1,1,N,""",$G(C("STRAAT")),""""
BN14 ;"A285,60,1,4,1,1,N,""",$G(C("GEMEENTE")),""""
BN15 ;"B225,50,1,1,5,16,200,B,""534230058695"""
BN16 ;"A545,560,1,3,1,1,R,""Collie"""
BN17 ;"A515,560,1,4,1,1,N,""1 / 3"""
BN18 ;"A480,560,1,3,1,1,R,""Gewicht"""
BN19 ;"A450,560,1,4,1,1,N,""123 kg"""
BN20 ;"A415,560,1,3,1,1,R,""Rembours"""
BN21 ;"A380,560,1,4,1,1,N,""125.000 BEF"""
BN22 ;"A345,560,1,3,1,1,R,""Datum"""
BN23 ;"A315,560,1,4,1,1,N,""05/01/99"""
BN24 ;"A200,590,1,5,2,2,N,""A"""
BN25 ;"A70,600,1,4,1,1,N,""GEN"""
BN26 ;"A280,560,1,3,1,1,R,""Ref. afz."""
BN27 ;"A250,560,1,4,1,1,N,""325.254"""
BN28 ;"X410,42,2,250,540"
BN29 ;"P1"
 ; Label definitie NEDERLANDS
LN1 ;""
LN2 ;"N"
LN3 ;"R100,0"
LN4 ;"A640,50,1,2,2,2,N,""KLANT"""
LN5 ;"A525,50,1,3,2,2,N,""",$G(C("KLNM")),""""
LN6 ;"A465,50,1,2,2,2,N,""",$G(C("TOENM")),""""
LN7 ;"A410,50,1,2,2,2,N,""",$G(C("STRAAT")),""""
LN8 ;"A355,50,1,2,2,2,N,""",$G(C("POSTKODE")),""""
LN9 ;"A355,325,1,2,2,2,N,""",$G(C("GEMEENTE")),""""
LN10 ;"A215,50,1,1,2,2,N,""Ordernr:"""
LN11 ;"A215,260,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:""),""""
LN12 ;"A160,50,1,1,2,2,N,""Uw ref:"""
LN13 ;"A160,260,1,1,2,2,N,""",$G(C("ORDREF")),""""
LN14 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNM")),1,10),""""
LN15 ;"P1"
 ; Label definitie FRANS
LF1 ;""
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"