pvhadeti ;Afdrukken Halux deuretiketten [ 11/29/2003   8:15 AM ]
 ;
ORDER(ORDNr,OLNr,Print,Order) 
 New C,R,%SC,KLNr,PRNr,Dev,Aantal
 Set ORDNr=$G(ORDNr),OLNr=$G(OLNr)
 If 'ORDNr Do
 .Do DISPLAY^vhScherm("HADETIKO")
 .For  Do FIELD^vhScherm("HADETIKO","ORDNR") Quit:ORDNr="-"  Do
 ..Quit:'$$ISHALUX^FLOW("O",ORDNr)
 ..Do ORDER(ORDNr,,.Print)
 Else  If 'OLNr Do
 .Do INIT
 .Quit:'$D(Print)
 .Set Dev=$G(Print("DEV"))
 .Quit:0[Dev
 .Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
 .Set Order=1,OLNr=100
 .For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
 ..Quit:'$$ISHALUX^FLOW("O",ORDNr,OLNr)
 ..Do ORDER(ORDNr,OLNr,.Print,.Order)
 .Set OLNr=""
 .For  Set OLNr=$O(Order(OLNr)) Quit:OLNr=""  Do
 ..Set R=Order(OLNr),PRNr=$P(R,D),Aantal=$P(R,D,2)
 ..Do PRINT(Dev,"O",ORDNr,OLNr,PRNr,Aantal)
 Else  Do
 .Set Dev=$G(Print("DEV"))
 .Do:'Dev INIT
 .Set Dev=$G(Print("DEV"))
 .Quit:0[Dev
 .Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
 .Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2)
 .Quit:'PRNr  Quit:'$D(^KPR(PRNr,"J6332"))
 .Set Aantal=$P(R,D,3)
 .Quit:Aantal'>0
 .Do STORE^vhTERMINA()
 .Set FP=1801
 .Write @F,@F1
 .Do DISPLAY^vhScherm("HADETIKO","","","","ORDNR;PRNR")
 .Do FIELD^vhScherm("HADETIKO","AANTAL")
 .Do REFRESH^vhTERMINA()
 .If %SC,Aantal Do
 ..If $G(Order) Set Order(OLNr)=PRNr_D_Aantal
 ..Else  Do PRINT(Dev,"O",ORDNr,OLNr,PRNr,Aantal)
 Quit
 ;
TOE(TOENr,TLNr,Print,Order) 
 ; TOENr verplicht, TLNr optioneel
 New C,R,%SC,KLNr,PRNr,Dev,Aantal
 Set LEVNr=6332
 Set TLNr=$G(TLNr)
 If 'TLNr Do
 .Do INIT
 .Quit:'$D(Print)
 .Set Dev=$G(Print("DEV"))
 .Quit:0[Dev
 .Set Order=1,TLNr=100
 .For  Set TLNr=$O(^KTO(LEVNr,TOENr,TLNr)) Quit:TLNr=""  Do
 ..Quit:'$$ISHALUX^FLOW("T",TOENr)
 ..Do TOE(TOENr,TLNr,.Print,.Order)
 .Set TLNr=""
 .For  Set TLNr=$O(Order(TLNr)) Quit:TLNr=""  Do
 ..Set R=Order(TLNr),PRNr=$P(R,D),Aantal=$P(R,D,2)
 ..Do PRINT(Dev,"T",TOENr,TLNr,PRNr,Aantal)
 Else  Do
 .Set Dev=$G(Print("DEV"))
 .Do:'Dev INIT
 .Set Dev=$G(Print("DEV"))
 .Quit:0[Dev
 .Set R=^KTO(LEVNr,TOENr,TLNr),PRNr=$P(R,D,2)
 .Quit:'PRNr  Quit:'$D(^KPR(PRNr,"J6332"))
 .Set Aantal=$P(R,D,3)
 .Do:Aantal>0
 ..New ORDNr
 ..Do STORE^vhTERMINA()
 ..Set FP=1801
 ..Write @F,@F1
 ..Set ORDNr=TOENr
 ..Do DISPLAY^vhScherm("HADETIKO","","","","ORDNR;PRNR")
 ..Do FIELD^vhScherm("HADETIKO","AANTAL")
 ..Do REFRESH^vhTERMINA()
 ..Set:'%SC Aantal=0
 .If Aantal>0 Do
 ..If $G(Order) Set Order(TLNr)=PRNr_D_Aantal
 ..Else  Do PRINT(Dev,"T",TOENr,TLNr,PRNr,Aantal)
 Quit
 
FETCHO(ORDNr,OLNr,PRNr,Aantal,C)  ; ophalen order en klant gegevens
 New R,KLNr,Adres,Taal,GNode,GenPRNr,KlRef,PAKNr,GenTyp,DosNr,ToeNr,TLNr,BONNr
 Set C("ORDNR")=ORDNr
 Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D),BONNr=$P(R,D,2)
 Quit:KLNr=""
 Set OrdRef=$$ORDREF(ORDNr)
 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
 Do ADRES(ORDNr,KLNr,.C)
 Set C("TOENR")=$S(BONNr:"",1:$S('OLNr:"",1:$P(^KOD(KLNr,"F",ORDNr,OLNr),D,27)))
 Set C("PRODWK")=$TR($S('OLNr:"",1:$P($S(BONNr:^KUL(KLNr,"F",BONNr,OLNr),1:^KOD(KLNr,"F",ORDNr,OLNr)),D,25)),"/","")
 ; Indien contract dan leverweek van toelevering
 Set ToeNr=$S(BONNr:"",1:$P(^KOD(KLNr,"F",ORDNr,OLNr),D,27))
 Set TLNr=$S(BONNr:"",1:$P(^KOD(KLNr,"F",ORDNr,OLNr),D,28))
 If ToeNr,TLNr,$D(^KTO(6332,ToeNr,TLNr)) Do
 .Set C("PRODWK")=$TR($P(^KTO(6332,ToeNr,TLNr),D,25),"/","")
 Set Taal=$P(^KKL(^KK1(KLNr),0),D,9)
 If Taal'="F",Taal'="D" Set Taal="N"
 Set C("TAAL")=Taal
 Quit
 ;
FETCHT(TOENr,TLNr,PRNr,Aantal,C)  ; Ophalen toeleveringsgegevens
 New R,KLNr,Adres,Taal,GNode,GenPRNr,KlRef,PAKNr,GenTyp,DosNr,ORDNr,OLNr,LEVNr
 Set LEVNr=$P(^KTO1(TOENr),D)
 Set LijnR=^KTO(LEVNr,TOENr,TLNr)
 Set ORDNr=$P(LijnR,D,27)
 Set OLNr=$P(LijnR,D,28)
 ; Indien KOM-link ingevuld dan via Order
 If ORDNr,LNr Do FETCHO(ORDNr,OLNr,PRNr,Aantal,.C) Quit
 ;
 Set R=^KTO(LEVNr,TOENr,1),KLNr=$P(R,D,8)
 If 'KLNr Do  ; Opzoeken in statistiek bestand
 .Set KLNr=$O(^KSTPR(PRNr,0))
 Set:ORDNr="" ORDNr=$P(R,D,7)
 Set C("ORDNR")=ORDNr
 Set OrdRef=$$ORDREF(ORDNr)
 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
 Do ADRES(ORDNr,KLNr,.C)
 Set C("TOENR")=TOENr
 Set C("PRODWK")=$TR($P(LijnR,D,25),"/","")
 Set Taal="N"
 Set:KLNr Taal=$P(^KKL(^KK1(KLNr),0),D,9)
 If Taal'="F",Taal'="D" Set Taal="N"
 Set C("TAAL")=Taal
 Quit
 
FETCHP(PRNr,Aantal,C) 
 New R,KLNr,Adres,Taal,GNode,GenPRNr,KlRef,PAKNr,GenTyp,DosNr
 Set Taal=C("TAAL")
 Set C("AANTAL")=Aantal
 Set GNode=$G(^KPR(PRNr,"G"))
 Set C("PROFIEL")=$P(GNode,D,2)
 Set:$L(C("PROFIEL")) C("PROFOMS")=$G(^RES("HAD","PI","PROFIEL","D",C("PROFIEL"),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))
 If $P(GNode,D,5)="KD" Do
 .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 DosNr=$P(GNode,D,1)
 Set C("DOSSIER")=$S($L(C("TOENR")):C("TOENR")_".",1:"")_DosNr
 Set C("FABR")=$S($L(C("TOENR")):C("TOENR")_".",1:"")_$G(C("PRODWK"))
 Set C("DOSNR")=$$BARCODE^HAD(PRNr,"F")
 Set C("BARCODE")=$TR(C("DOSNR"),".","")
 Set R=^KPR(PRNr,0),C("KORTT")=$P(R,D)
 Set R=$$GETOMSCH^PRODUKT2(PRNr,C("TAAL")),C("LT1")=$P(R,D),C("LT2")=$P(R,D,2),C("LT3")=$P(R,D,3)
 Set R=^KPR(PRNr,0),GenPRNr=$P(R,D,3)
 Set GenTyp=$$GENTYP^HAD(PRNr)
 Set C("LABELTYP")="A"
 If GenPRNr Set R=$G(^KPR(GenPRNr,0)),C("LABELTYP")=$S($P(R,D,3)["HADGEN":"K",1:"A")
 Set KLNr=$G(C("KLNR"))
 Set (KlRef,PAKNr)=""
 If KLNr'="" For  Set PAKNr=$O(^PAKKET("IP",PRNr,KLNr,PAKNr)) Quit:PAKNr=""  Do
 .Quit:$P($G(^PAKKET("D",PAKNr),D_D_"D"),D,3)="D"
 .Set KlRef=KlRef_" & "_$P(^PAKKET("D",PAKNr),D,2)
 Set C("KLREF")=$E(KlRef,4,80)
 Quit
 
WLABEL(Dev,C) 
 New I,Aantal,Lijn,LabelTyp
 Open:Dev Dev
 Use Dev
 Set Aantal=C("AANTAL"),LabelTyp=$G(C("LABELTYP"),"K")
 For Aantal=1:1:Aantal Do
 .For I=1:1 Set Lijn=$T(@(LabelTyp_"L"_$G(C("TAAL"),"N")_I)) Quit:Lijn=""  Do
 ..Write @$P(Lijn,";",2),!
 Close:Dev'=0 Dev
 Else  Read r
 Quit
 ;
PRINT(Dev,ObjTyp,ObjRef,ObjLNr,PRNr,Aantal) 
 New C
 Do:Dev STORE^vhTERMINA()
 Set FP=2001
 Write @F,@F1,!?2,"Printing ..."
 Do:ObjTyp="T" FETCHT(ObjRef,ObjLNr,PRNr,$G(Aantal),.C)
 Do:ObjTyp="O" FETCHO(ObjRef,ObjLNr,PRNr,$G(Aantal),.C)
 Do FETCHP(PRNr,$G(Aantal),.C)
 Do WLABEL(Dev,.C)
 Do:Dev REFRESH^vhTERMINA()
 Quit
 ;
INIT 
 Do INIT^vhPRINTER("","","UB")
 Quit
 ;
 ; Herafdrukken Haluxetiketten bij doorsturen naar WMS
CONSNR(CONSNr) 
 New R,KLNr,ORDNr,OLUNr,OLNr,PRNr,GenPRNr,Aantal,Dev,WMSStat
 Set R=^ORDW("D",CONSNr),KLNr=$P(R,D),WMSStat=$P(R,D,20)
 If "\11708\1239\"[(D_KLNr_D) Do  ; Alleen voor Bruynzeel en KELLER
 .If WMSStat="B" Do BONNR(CONSNr) Quit  ; Reeds op bon
 .Set Dev=109 ; Receptie/Uitvoer conv.
 .Set ORDNr=""
 .For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 ..Set OLUNr=""
 ..For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ...Set R=^ORDW("D",CONSNr,"D",ORDNr,OLUNr),PRNr=$P(R,D),Aantal=$P(R,D,4)
 ...Quit:Aantal'>0  Quit:'$D(^KPBI("D",KLNr,PRNr))  ; Er is geen bestelimpuls
 ...Set R=^KPR(PRNr,0),GenPRNr=$P(R,D,3)
 ...Quit:GenPRNr'=57791  ; GEN.HALKAD4
 ...Set OLNr=$G(^ORD("IU",ORDNr,OLUNr))
 ...Do PRINT(Dev,ORDNr,OLNr,PRNr,Aantal)
 Quit
 ;
 ; Herafdrukken Haluxetiketten indien reeds op bon
BONNR(BONNr) 
 New R,KLNr,BLNr,ORDNr,PRNr,Aantal
 Set KLNr=$P(^KU1(BONNr,"F"),D)
 If "\11708\1239\"[(D_KLNr_D) Do  ; Alleen voor Bruynzeel en KELLER
 .Set Dev=109 ; Receptie/Uitvoer conv.
 .Set BLNr=100,ORDNr=""
 .For  Set BLNr=$O(^KUL(KLNr,"F",BONNr,BLNr)) Quit:'BLNr  Do
 ..Set R=^KUL(KLNr,"F",BONNr,BLNr) Set:$P(R,D,17)="KF5" ORDNr=$P($P(R,D,5)," - ")
 ..Quit:'ORDNr
 ..Set PRNr=$P(R,D,2),Aantal=$P(R,D,3)
 ..Quit:'PRNr  Quit:Aantal'>0  Quit:'$D(^KPBI("D",KLNr,PRNr))  ; Er is geen bestelimpuls
 ..Set R=^KPR(PRNr,0),GenPRNr=$P(R,D,3)
 ..Quit:GenPRNr'=57791  ; GEN.HALKAD4
 ..Do PRINT(Dev,ORDNr,BLNr,PRNr,Aantal)
 Quit
 ;
ORDREF(ORDNr) 
 New R,KLNr,OrdRef,BONNr,BLNr
 Quit:'ORDNr "VOORRAAD"
 Set OrdRef="",R=^KO1(ORDNr,"F"),KLNr=$P(R,D),BONNr=$P(R,D,2)
 If BONNr Do
 .Set BLNr=100
 .For  Set BLNr=$O(^KUL(KLNr,"F",BONNr,BLNr)) Quit:'BLNr  Do  Quit:$L(OrdRef)
 ..Set R=^KUL(KLNr,"F",BONNr,BLNr)
 ..If $P(R,D,17)="KF5",$P($P(R,D,5)," - ")=ORDNr Set OrdRef=$P($P(R,D,5)," - ",3)
 Else  Set OrdRef=$P($G(^KOD(KLNr,"F",ORDNr,1)),D,3)
 Quit $E(OrdRef,1,18)
 ;
ADRES(ORDNr,KLNr,C) 
 New R,OrdRef,BONNr,BLNr,Adres
 Set Adres=""
 If ORDNr Do
 .Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D),BONNr=$P(R,D,2)
 .If BONNr Set Adres=$G(^KUL(KLNr,"F",BONNr,3))
 .Else  Set Adres=$G(^KOD(KLNr,"F",ORDNr,3))
 If $L($TR(Adres,"\",""))<5 Do  ; Geen of onvoldoende adres
 .Set:KLNr Adres=^KKL(^KK1(KLNr),0)
 Set C("KLNM")=$P(Adres,D,2)
 Set C("KLNMBIG")=$$TRIMNAAM^vhRtn1($P(Adres,D,2))
 Set C("TOENM")=$P(Adres,D,3)
 Set C("STRAAT")=$P(Adres,D,5)
 Set C("POSTKODE")=$S($E($P(Adres,D,6),1,2)="NL":"NL",$P(Adres,D,6)?4N:"",1:$P(Adres,D,6))
 Set C("GEMEENTE")=$E($P(Adres,D,7),1,18)
 Quit
 ;
 ; Label definitie NEDERLANDS
 ; Kaderdeur
KLN1 ;"ON"
KLN2 ;"N"
KLN3 ;"R100,0"
KLN4 ;"A640,50,1,2,2,2,N,""HALUX"""
KLN5 ;"A550,50,1,2,2,2,N,""",$G(C("KLNM")),""""
KLN6 ;"A503,50,1,2,2,1,N,""",$G(C("POSTKODE")),$S($L($G(C("POSTKODE"))):" ",1:""),$G(C("GEMEENTE")),""""
KLN7 ;"A525,620,1,2,2,1,N,""Ordernr"""
KLN8 ;"A490,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
KLN9 ;"A456,50,1,2,2,2,N,""Ref: ",$G(C("ORDREF")),""""
KLN10 ;"A400,50,1,4,3,3,N,""",$G(C("DOSNR")),""""
KLN11 ;"A315,50,1,2,2,2,N,""",$G(C("TOEPOMS")),$S($L($G(C("DRAAIOMS"))):" - "_$G(C("DRAAIOMS")),1:""),""""
KLN12 ;"A268,100,1,2,2,2,N,""","H:",$G(C("HOOGTE"))," x B:",$G(C("BREEDTE")),""""
KLN13 ;"A231,100,1,2,2,1,N,""",$G(C("PROFIEL")),$S($L($G(C("PROFIEL"))):" : ",1:""),$G(C("PROFOMS")),""""
KLN14 ;"A194,100,1,2,2,1,N,""",$G(C("VULLING")),$S($L($G(C("VULLING"))):" : ",1:""),$G(C("VULOMS")),""""
KLN15 ;"A157,100,1,2,2,1,N,""",$S($L(C("KLREF")):"Uw ref: "_C("KLREF"),1:""),""""
KLN16 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,7),""""
KLN17 ;"A440,620,1,2,2,1,N,""Dossier"""
KLN18 ;"A405,620,1,2,2,1,N,""",$G(C("FABR")),""""
KLN19 ;"B10,600,0,1,3,7,150,N,""",$G(C("BARCODE")),""""
KLN20 ;"P1"
 
 ; Algemeen via product korttekst en omschrijving
ALN1 ;"ON"
ALN2 ;"N"
ALN3 ;"R100,0"
ALN4 ;"A640,50,1,2,2,2,N,""HALUX"""
ALN5 ;"A565,50,1,2,2,2,N,""",$G(C("KLNM")),""""
ALN6 ;"A517,50,1,2,2,1,N,""",$G(C("TOENM")),""""
ALN7 ;"A481,50,1,2,2,1,N,""",$G(C("STRAAT")),""""
ALN8 ;"A444,50,1,2,2,1,N,""",$G(C("POSTKODE")),"  ",$G(C("GEMEENTE")),""""
ALN9 ;"A565,620,1,2,2,1,N,""Ordernr"""
ALN10 ;"A530,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
ALN11 ;"A381,50,1,2,2,2,N,""Ref: ",$G(C("ORDREF")),""""
ALN12 ;"A315,50,1,2,2,2,N,""",$G(C("KORTT")),""""
ALN13 ;"A268,100,1,2,2,1,N,""",$G(C("LT1")),""""
ALN14 ;"A231,100,1,2,2,1,N,""",$G(C("LT2")),""""
ALN15 ;"A194,100,1,2,2,1,N,""",$G(C("LT3")),""""
ALN16 ;"A157,100,1,2,2,1,N,""",$S($L(C("KLREF")):"Uw ref: "_C("KLREF"),1:""),""""
ALN17 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,10),""""
ALN18 ;"A481,620,1,2,2,1,N,""Dossier"""
ALN19 ;"A444,620,1,2,2,1,N,""",$G(C("DOSSIER")),""""
ALN20 ;"P1"
 ; Label definitie FRANS
 ; Kaderdeur
KLF1 ;"ON"
KLF2 ;"N"
KLF3 ;"R100,0"
KLF4 ;"A640,50,1,2,2,2,N,""HALUX"""
KLF5 ;"A550,50,1,2,2,2,N,""",$G(C("KLNM")),""""
KLF6 ;"A503,50,1,2,2,1,N,""",$G(C("POSTKODE")),$S($L($G(C("POSTKODE"))):" ",1:""),$G(C("GEMEENTE")),""""
KLF7 ;"A525,620,1,2,2,1,N,""Ordre"""
KLF8 ;"A490,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
KLF9 ;"A456,50,1,2,2,2,N,""Réf: ",$G(C("ORDREF")),""""
KLF10 ;"A400,50,1,4,3,3,N,""",$G(C("DOSNR")),""""
KLF11 ;"A315,50,1,2,2,2,N,""",$G(C("TOEPOMS")),$S($L($G(C("DRAAIOMS"))):" - "_$G(C("DRAAIOMS")),1:""),""""
KLF12 ;"A268,100,1,2,2,2,N,""","H:",$G(C("HOOGTE"))," x L:",$G(C("BREEDTE")),""""
KLF13 ;"A231,100,1,2,2,1,N,""",$G(C("PROFIEL")),$S($L($G(C("PROFIEL"))):" : ",1:""),$G(C("PROFOMS")),""""
KLF14 ;"A194,100,1,2,2,1,N,""",$G(C("VULLING")),$S($L($G(C("VULLING"))):" : ",1:""),$G(C("VULOMS")),""""
KLF15 ;"A157,100,1,2,2,1,N,""",$S($L(C("KLREF")):"Uw ref: "_C("KLREF"),1:""),""""
KLF16 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,7),""""
KLF17 ;"A440,620,1,2,2,1,N,""Dossier"""
KLF18 ;"A405,620,1,2,2,1,N,""",$G(C("FABR")),""""
KLF19 ;"B10,600,0,1,3,7,150,N,""",$G(C("BARCODE")),""""
KLF20 ;"P1"
 
 ; Algemeen
ALF1 ;"ON"
ALF2 ;"N"
ALF3 ;"R100,0"
ALF4 ;"A640,50,1,2,2,2,N,""HALUX"""
ALF5 ;"A565,50,1,2,2,2,N,""",$G(C("KLNM")),""""
ALF6 ;"A517,50,1,2,2,1,N,""",$G(C("TOENM")),""""
ALF7 ;"A481,50,1,2,2,1,N,""",$G(C("STRAAT")),""""
ALF8 ;"A444,50,1,2,2,1,N,""",$G(C("POSTKODE")),"  ",$G(C("GEMEENTE")),""""
ALF9 ;"A565,620,1,2,2,1,N,""Ordre"""
ALF10 ;"A530,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
ALF11 ;"A381,50,1,2,2,2,N,""Réf: ",$G(C("ORDREF")),""""
ALF12 ;"A315,50,1,2,2,2,N,""",$G(C("KORTT")),""""
ALF13 ;"A268,100,1,2,2,1,N,""",$G(C("LT1")),""""
ALF14 ;"A231,100,1,2,2,1,N,""",$G(C("LT2")),""""
ALF15 ;"A194,100,1,2,2,1,N,""",$G(C("LT3")),""""
ALF16 ;"A157,100,1,2,2,1,N,""",$S($L(C("KLREF")):"Votre ref: "_C("KLREF"),1:""),""""
ALF17 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,10),""""
ALF18 ;"A481,620,1,2,2,1,N,""Dossier"""
ALF19 ;"A444,620,1,2,2,1,N,""",$G(C("DOSSIER")),""""
ALF20 ;"P1"
 ; Label definitie DUITS
 ; Kaderdeur
KLD1 ;"ON"
KLD2 ;"N"
KLD3 ;"R100,0"
KLD4 ;"A640,50,1,2,2,2,N,""HALUX"""
KLD5 ;"A550,50,1,2,2,2,N,""",$G(C("KLNM")),""""
KLD6 ;"A503,50,1,2,2,1,N,""",$G(C("POSTKODE")),$S($L($G(C("POSTKODE"))):" ",1:""),$G(C("GEMEENTE")),""""
KLD7 ;"A525,620,1,2,2,1,N,""Ordernr"""
KLD8 ;"A490,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
KLD9 ;"A456,50,1,2,2,2,N,""Ref: ",$G(C("ORDREF")),""""
KLD10 ;"A400,50,1,4,3,3,N,""",$G(C("DOSNR")),""""
KLD11 ;"A315,50,1,2,2,2,N,""",$G(C("TOEPOMS")),$S($L($G(C("DRAAIOMS"))):" - "_$G(C("DRAAIOMS")),1:""),""""
KLD12 ;"A268,100,1,2,2,2,N,""","H:",$G(C("HOOGTE"))," x B:",$G(C("BREEDTE")),""""
KLD13 ;"A231,100,1,2,2,1,N,""",$G(C("PROFIEL")),$S($L($G(C("PROFIEL"))):" : ",1:""),$G(C("PROFOMS")),""""
KLD14 ;"A194,100,1,2,2,1,N,""",$G(C("VULLING")),$S($L($G(C("VULLING"))):" : ",1:""),$G(C("VULOMS")),""""
KLD15 ;"A157,100,1,2,2,1,N,""",$S($L(C("KLREF")):"Uw ref: "_C("KLREF"),1:""),""""
KLD16 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,7),""""
KLD17 ;"A440,620,1,2,2,1,N,""Dossier"""
KLD18 ;"A405,620,1,2,2,1,N,""",$G(C("FABR")),""""
KLD19 ;"B10,600,0,1,3,7,150,N,""",$G(C("BARCODE")),""""
KLD20 ;"P1"
 
 ; Algemeen
ALD1 ;"ON"
ALD2 ;"N"
ALD3 ;"R100,0"
ALD4 ;"A640,50,1,2,2,2,N,""HALUX"""
ALD5 ;"A565,50,1,2,2,2,N,""",$G(C("KLNM")),""""
ALD6 ;"A517,50,1,2,2,1,N,""",$G(C("TOENM")),""""
ALD7 ;"A481,50,1,2,2,1,N,""",$G(C("STRAAT")),""""
ALD8 ;"A444,50,1,2,2,1,N,""",$G(C("POSTKODE")),"  ",$G(C("GEMEENTE")),""""
ALD9 ;"A565,620,1,2,2,1,N,""Ordernr"""
ALD10 ;"A530,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
ALD11 ;"A381,50,1,2,2,2,N,""Ref: ",$G(C("ORDREF")),""""
ALD12 ;"A315,50,1,2,2,2,N,""",$G(C("KORTT")),""""
ALD13 ;"A268,100,1,2,2,1,N,""",$G(C("LT1")),""""
ALD14 ;"A231,100,1,2,2,1,N,""",$G(C("LT2")),""""
ALD15 ;"A194,100,1,2,2,1,N,""",$G(C("LT3")),""""
ALD16 ;"A157,100,1,2,2,1,N,""",$S($L(C("KLREF")):"Ihre ref: "_C("KLREF"),1:""),""""
ALD17 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,10),""""
ALD18 ;"A481,620,1,2,2,1,N,""Dossier"""
ALD19 ;"A444,620,1,2,2,1,N,""",$G(C("DOSSIER")),""""
ALD20 ;"P1"