PVETIK ;Afdrukken Halux deuretiketten [ 11/08/2003   8:22 PM ]
 ;
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,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,ORDNr,OLNr,PRNr,Aantal)
 Quit
 ;
FETCH(ORDNr,OLNr,PRNr,Aantal,C) 
 New R,KLNr,Adr,Taal,GNode,GenPRNr,KlRef,PAKNr
 Set C("ORDNR")=ORDNr
 Set KLNr=$P($G(^KO1(ORDNr,"F")),D)
 Quit:KLNr=""
 Set C("AANTAL")=Aantal
 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("KLNMBIG")=$$TRIMNAAM^vhRtn1($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 C("TOENR")=$S('OLNr:"",1:$P(^KOD(KLNr,"F",ORDNr,OLNr),D,27))
 Set C("PRODWK")=$TR($S('OLNr:"",1:$P(^KOD(KLNr,"F",ORDNr,OLNr),D,25)),"/","")
 Set Taal=$P(^KKL(^KK1(KLNr),0),D,9)
 If Taal'="F",Taal'="D" Set Taal="N"
 Set C("TAAL")=Taal
 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))
 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")=$S($L(C("TOENR")):C("TOENR")_".",1:"")_$P(GNode,D,1)
 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)
 If GenPRNr Set R=$G(^KPR(GenPRNr,0)),C("LABELTYP")=$S($P(R,D,3)["HADGEN":"K",1:"A")
 Set (KlRef,PAKNr)=""
 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
 Quit
 ;
PRINT(Dev,ORDNr,OLNr,PRNr,Aantal) 
 New C
 Do:Dev STORE^vhTERMINA()
 Set FP=2001
 Write @F,@F1,!?2,"Printing ..."
 Do FETCH(ORDNr,OLNr,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
 Set R=^ORDW("D",CONSNr),KLNr=$P(R,D)
 If "\11708\1239\"[(D_KLNr_D) Do  ; Alleen voor Bruynzeel en KELLER
 .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
 ;
 ; Label definitie NEDERLANDS
 ; Kaderdeur
KLN1 ;"ON"
KLN2 ;"N"
KLN3 ;"R100,0"
KLN4 ;"A640,50,1,2,2,2,N,""HALUX"""
KLN5 ;"A525,50,1,2,2,2,N,""",$G(C("KLNM")),""""
KLN6 ;"A477,50,1,2,2,1,N,""",$G(C("TOENM")),""""
KLN7 ;"A441,50,1,2,2,1,N,""",$G(C("STRAAT")),""""
KLN8 ;"A404,50,1,2,2,1,N,""",$G(C("POSTKODE")),"  ",$G(C("GEMEENTE")),""""
KLN9 ;"A525,620,1,2,2,1,N,""Ordernr"""
KLN10 ;"A490,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
KLN11 ;"A341,50,1,2,2,2,N,""Ref: ",$G(C("ORDREF")),""""
KLN12 ;"A275,50,1,2,2,2,N,""",$G(C("TOEPOMS")),$S($L($G(C("DRAAIOMS"))):" - "_$G(C("DRAAIOMS")),1:""),""""
KLN13 ;"A228,100,1,2,2,2,N,""","H:",$G(C("HOOGTE"))," x B:",$G(C("BREEDTE")),""""
KLN14 ;"A191,100,1,2,2,1,N,""",$G(C("PROFIEL")),$S($L($G(C("PROFIEL"))):" : ",1:""),$G(C("PROFOMS")),""""
KLN15 ;"A155,100,1,2,2,1,N,""",$G(C("VULLING")),$S($L($G(C("VULLING"))):" : ",1:""),$G(C("VULOMS")),""""
KLN16 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,10),""""
KLN17 ;"A440,620,1,2,2,1,N,""Dossier"""
KLN18 ;"A405,620,1,2,2,1,N,""",$G(C("DOSSIER")),""""
KLN19 ;"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 ;"A525,50,1,2,2,2,N,""",$G(C("KLNM")),""""
KLF6 ;"A477,50,1,2,2,1,N,""",$G(C("TOENM")),""""
KLF7 ;"A441,50,1,2,2,1,N,""",$G(C("STRAAT")),""""
KLF8 ;"A404,50,1,2,2,1,N,""",$G(C("POSTKODE")),"  ",$G(C("GEMEENTE")),""""
KLF9 ;"A525,620,1,2,2,1,N,""Ordre"""
KLF10 ;"A490,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
KLF11 ;"A341,50,1,2,2,2,N,""Réf: ",$G(C("ORDREF")),""""
KLF12 ;"A275,50,1,2,2,2,N,""",$G(C("TOEPOMS")),$S($L($G(C("DRAAIOMS"))):" - "_$G(C("DRAAIOMS")),1:""),""""
KLF13 ;"A228,100,1,2,2,2,N,""","H:",$G(C("HOOGTE"))," x B:",$G(C("BREEDTE")),""""
KLF14 ;"A191,100,1,2,2,1,N,""",$G(C("PROFIEL")),$S($L($G(C("PROFIEL"))):" : ",1:""),$G(C("PROFOMS")),""""
KLF15 ;"A155,100,1,2,2,1,N,""",$G(C("VULLING")),$S($L($G(C("VULLING"))):" : ",1:""),$G(C("VULOMS")),""""
KLF16 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,10),""""
KLF17 ;"A440,620,1,2,2,1,N,""Dossier"""
KLF18 ;"A405,620,1,2,2,1,N,""",$G(C("DOSSIER")),""""
KLF19 ;"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 ;"A525,50,1,2,2,2,N,""",$G(C("KLNM")),""""
KLD6 ;"A477,50,1,2,2,1,N,""",$G(C("TOENM")),""""
KLD7 ;"A441,50,1,2,2,1,N,""",$G(C("STRAAT")),""""
KLD8 ;"A404,50,1,2,2,1,N,""",$G(C("POSTKODE")),"  ",$G(C("GEMEENTE")),""""
KLD9 ;"A525,620,1,2,2,1,N,""Ordernr"""
KLD10 ;"A490,620,1,2,2,1,N,""",$S($L($G(C("ORDNR"))):$E(C("ORDNR"),1,3)_"."_$E(C("ORDNR"),4,6),1:""),""""
KLD11 ;"A341,50,1,2,2,2,N,""Ref: ",$G(C("ORDREF")),""""
KLD12 ;"A275,50,1,2,2,2,N,""",$G(C("TOEPOMS")),$S($L($G(C("DRAAIOMS"))):" - "_$G(C("DRAAIOMS")),1:""),""""
KLD13 ;"A228,100,1,2,2,2,N,""","H:",$G(C("HOOGTE"))," x B:",$G(C("BREEDTE")),""""
KLD14 ;"A191,100,1,2,2,1,N,""",$G(C("PROFIEL")),$S($L($G(C("PROFIEL"))):" : ",1:""),$G(C("PROFOMS")),""""
KLD15 ;"A155,100,1,2,2,1,N,""",$G(C("VULLING")),$S($L($G(C("VULLING"))):" : ",1:""),$G(C("VULOMS")),""""
KLD16 ;"A100,50,1,5,2,2,N,""",$E($G(C("KLNMBIG")),1,10),""""
KLD17 ;"A440,620,1,2,2,1,N,""Dossier"""
KLD18 ;"A405,620,1,2,2,1,N,""",$G(C("DOSSIER")),""""
KLD19 ;"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"