#include vhLib.Macro
#include Prod.Product
#include BL.Derde.KlantSpecifiek

PickingWho
	Set Device=$$OPEN^vhDEV(,"StatIO.txt","W","T")
	Use Device
	Write "BONNr	Datum	Tijd	Persoon	SoftMag	PickAantal	PRNr	KortTekst",!
	 Set CONSNr=""
	 For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
	 . 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 Rec=^(OLUNr)
	 . . . Set LijnCnt=0
	 . . . Set SOLNr=""
	 . . . For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
	 . . . . Set SOLRec=^(SOLNr)
	 . . . . Set SoftMag=$P(SOLRec,"\",13)
	 . . . . Set User=$P(SOLRec,"\",12)
	 . . . . Set TijdStip=$P(SOLRec,"\",6)
	 . . . . Set PRNr=$P(SOLRec,D,1)
	 . . . . Write CONSNr,*9,$$$ExcelDat(TijdStip),*9,$$$ExcelTime($P(TijdStip,",",2)),*9,User,*9,SoftMag,*9,$P(SOLRec,D,4),*9,PRNr,*9,$$GetOrOld^PRODUKT(PRNr,$$$KortTekst)
	 . . . . Write !
 
 Do CLOSE^vhDEV(Device)
 
 Quit

PVSTM ; Order timings [ 11/08/2003   8:42 PM ]
 ; Overzicht contracten per klant en leverancier
 Do BLDCONTR^Stat.Product.StockWaarde
 Set Dev=$$OPEN^vhDEV(,"CONTRACTKLANTLEV.TXT","W")
 Use Dev
 Set PRNr=""
 Write $TR("ORDNr,KLNr,KLNm,PRNr,KortTekst,LEVNr,LevNm,Qty,Aankoop,Omzet",",",$C(9)),!
 For  Set PRNr=$O(ContrInd(PRNr)) Quit:PRNr=""  Do
 . Set LevNr=$E($O(^KPR(PRNr,"J")),2,5)
 . Set LevNm=$P(^KLE(^KL1(LevNr),0),D,2)
 . Set FysSt=$P(^KPR(PRNr,0),D,14)
 . Set KLNr=+ContrInd(PRNr)
 . Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2) ; Default klant
 . Set Prijs=$$KLANTPR^KPRIJS(KLNr,PRNr) ; Default prijszetting
 . Set ORDNr=""
 . For  Set ORDNr=$O(^ORD("IP",PRNr,ORDNr)) Quit:ORDNr=""  Do
 .. Set KLNr=+^KO1(ORDNr,"F")
 .. Set OLUNr=""
 .. For  Set OLUNr=$O(^ORD("IP",PRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ... Set OLNr=^ORD("IP",PRNr,ORDNr,OLUNr)
 ... Set Rec=^KOD(KLNr,"F",ORDNr,OLNr)
 ... Set Qty=$P(Rec,D,3)
 ... Quit:$P(Rec,D,27)  ; Nog gekoppeld aan toelevering
 ... Set Prijs=$$KLANTPR^KPRIJS(KLNr,PRNr)
 ... Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
 ... Write ORDNr,$C(9),KLNr,$C(9),KLNm,$C(9),PRNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),LevNr,$C(9),LevNm,$C(9),Qty,$C(9),$TR(Qty*$P(Prijs,D,13),".",","),$C(9),$TR(Qty*$P(Prijs,D,14),".",","),!
 ... Set FysSt=FysSt-Qty
 . Write:+FysSt $C(9),KLNr,$C(9),KLNm,$C(9),PRNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),LevNr,$C(9),LevNm,$C(9),FysSt,$C(9),$TR(FysSt*$P(Prijs,D,13),".",","),$C(9),$TR(FysSt*$P(Prijs,D,14),".",","),!
 Close:0'[Dev Dev
 Quit
 
ORDLIJN S %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 ; Opbouw van hulp met ordernrs voor het tijdstip van orderingave
 Set (Dat,Uur,ORDNr)=""
 For  Set Dat=$O(^MBLOG("VL",Dat)) Quit:Dat=""  Do
 .For  Set Uur=$O(^MBLOG("VL",Dat,Uur)) Quit:Uur=""  Do
 ..For  Set ORDNr=$O(^MBLOG("VL",Dat,Uur,ORDNr)) Quit:ORDNr=""  Do
 ...Set ^HULP(%J,ORDNr)=Dat_","_Uur
 Set Dev=0
 Set Dev=$$OPEN^vhDEV("","ORDPICK.TXT","W")
 Use Dev
 Set (CONSNr,ORDNr,OLUNr,SOLNr)=""
 Write $TR("KLNr;KLNm;BONr;ORDNr;Vzw;ORDDat;ZendWMS;DueOut;PickDat;Finished;PRNr;KortTekst;LevNr;OLUNr;Qty;PalID;Usr;Mag;PickTijd;MinTijd;MaxTijd",";",$C(9)),!
 For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
 .Set DatDO=$P(^(CONSNr),D,3) ; DueoutTime
 .Set DatW=$P(^(CONSNr),D,22) ; Doorsturen
 .Set DatE=$P(^(CONSNr),D,23) ; End pick
 .Set Vzw=$P(^(CONSNr),D,2)
 .Set KLNr=$P(^(CONSNr),D,1)
 .Set KLId=$G(^KK1(KLNr))
 .Set KLNm=$S(KLId="":"*Verwijderd*",1:$P(^KKL(KLId,0),D,2))
 .Set MinTyd=99999999
 .Set (MaxTyd,Usr)=""
 .Set Cnt=0
 .For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 ..For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ...For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
 ....Set SOLRec=^(SOLNr)
 ....Set Mag="U"
 ....Set:$E($P(SOLRec,D,5),1,3)="154" Mag="A1"
 ....Set:$E($P(SOLRec,D,5),1,3)="155" Mag="A2"
 ....Set:$$DIFFTIME^vhLib.DataTypes($P(SOLRec,D,6),MinTyd)>0&($E(Mag)="A") MinTyd=$P(SOLRec,D,6)
 ....Set:$$DIFFTIME^vhLib.DataTypes($P(SOLRec,D,6),MaxTyd)<0&($E(Mag)="A") MaxTyd=$P(SOLRec,D,6)
 .Set:MinTyd=99999999 MinTyd=""
 .For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 ..Set OrdTyd=$G(^HULP(%J,ORDNr))
 ..For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ...For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
 ....Set SOLRec=^(SOLNr)
 ....Set PRNr=$P(SOLRec,D,1)
 ....Set KortT=$P($G(^KPR(PRNr,0)),D,1)
 ....Set LEVNr=$E($O(^KPR(PRNr,"J")),2,5)
 ....Set:KortT="" KortT=$P($G(^KPRO(PRNr,0)),D,1)
 ....Set:LEVNr="" LEVNr=$E($O(^KPRO(PRNr,"J")),2,5)
 ....Set Mag="U"
 ....Set:LEVNr=6332 Mag="H"
 ....Set:$E($P(SOLRec,D,5),1,3)="154" Mag="A1"
 ....Set:$E($P(SOLRec,D,5),1,3)="155" Mag="A2"
 ....Set:$E(100000000+$P(SOLRec,D,5),1,3)="100" Mag="AD"
 ....Set Qty=$P(SOLRec,D,4)
 ....Set PalID=$P(SOLRec,D,10)
 ....Set Tyd=$P(SOLRec,D,6)
 ....Set Usr=$P(SOLRec,D,12)
 ....Set Cnt=Cnt+1
 ....Write KLNr,$C(9),KLNm,$C(9),CONSNr,$C(9),Vzw,$C(9),ORDNr
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(OrdTyd)," ",$$EXTTIME^vhLib.DataTypes(OrdTyd)
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(DatW)," ",$$EXTTIME^vhLib.DataTypes(DatW)
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(DatDO)," ",$$EXTTIME^vhLib.DataTypes(DatDO)
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(DatE)
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(DatE)," ",$$EXTTIME^vhLib.DataTypes(DatE)
 ....Write $C(9),PRNr,$C(9),KortT,$C(9),LEVNr,$C(9),OLUNr,$C(9),Qty,$C(9),PalID,$C(9),Usr,$C(9),Mag
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(Tyd)," ",$$EXTTIME^vhLib.DataTypes(Tyd)
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(MinTyd)," ",$$EXTTIME^vhLib.DataTypes(MinTyd)
 ....Write $C(9),$$EXTDATE^vhLib.DataTypes(MaxTyd)," ",$$EXTTIME^vhLib.DataTypes(MaxTyd)
 ....Write !
 C:0'[Dev Dev
 Q
 Set KLId=0
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .Set IsAdr=$S($E($O(^KKL(KLId,"L")),1)="L":1,1:"")
 .Quit:$P(^KKL(KLId,0),D,19)=IsAdr
 .Write KLId," : ",$P(^KKL(KLId,0),D,19),"<->",IsAdr,!
 .Set $P(^KKL(KLId,0),D,19)=IsAdr
 Quit
 
TIJD ;Tijd tussen orderinput en orderpicking 
 S %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 ; Opbouw van hulp met ordernrs voor het tijdstip van orderingave
 Set (Dat,Uur,ORDNr)=""
 For  Set Dat=$O(^MBLOG("VL",Dat)) Quit:Dat=""  Do
 .For  Set Uur=$O(^MBLOG("VL",Dat,Uur)) Quit:Uur=""  Do
 ..For  Set ORDNr=$O(^MBLOG("VL",Dat,Uur,ORDNr)) Quit:ORDNr=""  Do
 ...Set ^HULP(%J,ORDNr)=Dat_","_Uur
 Set Dev=$$OPEN^vhDEV("\\NOTES01\SHARED\P V\","ORDTIMING.TXT","W")
 Use Dev
 Set (CONSNr,ORDNr,OLUNr,SOLNr)=""
 Write $TR("KLNr;KLNm;BONNr;Vzw;DatMBon;DatZendWMS;DatDueOut;DatBeginPick;DatEndPick;User;#PickLijn",";",$C(9)),!
 For  Set CONSNr=$O(^ORDW("D",CONSNr)) Quit:CONSNr=""  Do
 .Set Dat=$P(^(CONSNr),D,3)
 .Set DatW=$P(^(CONSNr),D,22)
 .Set Vzw=$P(^(CONSNr),D,2)
 .Set KLNr=$P(^(CONSNr),D,1)
 .Set KLId=$G(^KK1(KLNr))
 .Set KLNm=$S(KLId="":"*Verwijderd*",1:$P(^KKL(KLId,0),D,2))
 .Set Min=99999999
 .Set (Max,Usr)=""
 .Set (LCnt,SLCnt)=0
 .For  Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr)) Quit:ORDNr=""  Do
 ..Set OrdTyd=$G(^HULP(%J,ORDNr))
 ..Set:$$DIFFTIME^vhLib.DataTypes(OrdTyd,Max)<0 OrdMax=OrdTyd
 ..For  Set OLUNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
 ..Set LCnt=LCnt+1
 ...For  Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLUNr,SOLNr)) Quit:SOLNr=""  Do
 ....Quit:$E($P(^(SOLNr),D,5),1,2)'="15"
 ....Set Tyd=$P(^(SOLNr),D,6)
 ....Set Usr=$P(^(SOLNr),D,12)
 ....Set:$$DIFFTIME^vhLib.DataTypes(Tyd,Min)>0 Min=Tyd
 ....Set:$$DIFFTIME^vhLib.DataTypes(Tyd,Max)<0 Max=Tyd
 ....Set SLCnt=SLCnt+1
 .Set:Min=99999999 Min=""
 .Write KLNr,$C(9),KLNm,$C(9),CONSNr,$C(9),Vzw,$C(9),$$EXTDATE^vhLib.DataTypes(OrdMax)," ",$$EXTTIME^vhLib.DataTypes(OrdMax),$C(9),$$EXTDATE^vhLib.DataTypes(DatW)," ",$$EXTTIME^vhLib.DataTypes(DatW),$C(9),$$EXTDATE^vhLib.DataTypes(Dat)," ",$$EXTTIME^vhLib.DataTypes(Dat),$C(9),$$EXTDATE^vhLib.DataTypes(Min)," ",$$EXTTIME^vhLib.DataTypes(Min),$C(9),$$EXTDATE^vhLib.DataTypes(Max)," ",$$EXTTIME^vhLib.DataTypes(Max),$C(9),Usr,$C(9),LCnt,$C(9),SLCnt,!
 C:0'[Dev Dev
 Q
 
VKPBLUM ;Verkoop blum
 New I,Cumul,TLNr,Rec
 Set Dev=$$OPEN^vhDEV(,"VKPBLUM.txt","W")  Quit:Dev=0
 Use Dev
 Set:$G(Begin)="" Begin="1998.03 "
 Set:$G(Einde)="" Einde="1998.53 "
 Set PRNr=0
 For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
 .Quit:'$D(^KPR(PRNr,"J5005"))
 .Quit:$E($P(^KPR(PRNr,2),D,25))="6"  ; Geen kind producten
 .Set Wk=Begin
 .Set Stock=""
 .Set Week=0
 .Set Aantal=$$PROD^STAT(PRNr,0,"1999.01 ","2000.00 ",1)
 .Set Klas=$O(^KPR(PRNr,"I")) Set Klas=$P(^KPR(PRNr,Klas),D,3)
 .Set LevNr=$O(^KPR(PRNr,"J"))
 .Set Gewicht=$P(^KPR(PRNr,1),D,13)
 .Set LevNr=$E(LevNr,2,99)
 .Write PRNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),Klas,$C(9),$P(^KPR(PRNr,2),D,25),$C(9),$TR(Gewicht,".",","),$C(9),Aantal,!
 Close:0'[Dev Dev
 Quit 
 
ValiPak
 Set Jaar=$$EXTDATE^vhLib.DataTypes($H,"J4")-1
 Write @F11,@F1,@FMTI," Tellingen v/d OrderLijnen - "_QN_" ",@FMTi,!!
 Write "Kalenderjaar: ",Jaar,!
 Do ValiPakHist(Jaar)
 ;Do ValiPakAlle(Jaar)
 ;Do ValiPakHalux(Jaar)
 Quit
ValiPakHist(Jaar) ;Stockrotatie
 New I,Cumul,TLNr,Rec
 Set blOBJT=##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
 Set BeginDat=$$INTDATE^vhLib.DataTypes("01/01/"_Jaar)
 Set EndDat=$$INTDATE^vhLib.DataTypes("31/12/"_Jaar)
 Set BeginWk=Jaar_".00 "
 Set EindeWk=Jaar_".53 "
 Set BeginMnd=Jaar_".01 "
 Set EindeMnd=Jaar_".12 "
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"VALIPAK Alle via HIST "_Jaar_".txt","W","T")  Quit:'$L(Dev)
 Use Dev
 Write $TR("PRNr;KortTekst;OBJT IdentNr;ProdGrp;Stock;Klas;GenTyp;SubGenTyp;LevNr;LevNm;CiffPPL;Gewicht;AantalBslTot;AantalBslBE;AantalMwTot;AantalMwBE;AantalMwXX;AantalBslXX;BLBrut;BLNet;RecuPack",";",$c(9)),!
 Set PRNr=0
 For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do
 . Set VolgNr=0
 . Set (AantalBslTot,AantalBslBE,AantalMwTot, AantalMwBE,AantalMwXX,AantalBslXX)=0
 . For  Set VolgNr=$O(^PRHIST(PRNr,VolgNr)) Quit:VolgNr=""  Do
 . . Set Rec=^PRHIST(PRNr,VolgNr)
 . . Set Datum=+$P(Rec,"\")
 . . Quit:Datum<BeginDat
 . . Quit:Datum>EndDat
 . . If ($P(Rec,"\",4)="H")&&($P(Rec,"\",5)="W") Do
 . . . Set AantalMwTot=AantalMwTot-$P(Rec,"\",2)
 . . . Set KLNr=$P(Rec,"\",6)
 . . . If 'KLNr,$P(Rec,"\",15) Do
 . . . . Set KLNr=$O(^KSTPR($P(Rec,"\",15),0))
 . . . If KLNr,$D(^KK1(KLNr)),'$D(LandCache(KLNr)) Do
 . . . . Set LandCache(KLNr)=($$LAND^vhRtn1(KLNr,"K",1,1)="BE")
 . . . If KLNr&&$D(^KK1(KLNr)) Do
 . . . . Set:LandCache(KLNr) AantalMwBE=AantalMwBE-$P(Rec,"\",2)
 . . . Else  Do
 . . . . Set AantalMwXX=AantalMwXX-$P(Rec,"\",2)
 . . If ($P(Rec,"\",4)="U")&&($P(Rec,"\",5)="M") Do
 . . . Set AantalBslTot=AantalBslTot-$P(Rec,"\",2)
 . . . Set KLNr=$P(Rec,"\",6)
 . . . If 'KLNr,$P(Rec,"\",15) Do
 . . . . Set KLNr=$O(^KSTPR($P(Rec,"\",15),0))
 . . . If KLNr,$D(^KK1(KLNr)),'$D(LandCache(KLNr)) Do
 . . . . Set LandCache(KLNr)=($$LAND^vhRtn1(KLNr,"K",1,1)="BE")
 . . . If KLNr&&$D(^KK1(KLNr)) Do
 . . . . Set:LandCache(KLNr) AantalBslBE=AantalBslBE-$P(Rec,"\",2)
 . . . Else  Do
 . . . . Set AantalBslXX=AantalBslXX-$P(Rec,"\",2)
 . Quit:(AantalMwTot+AantalBslTot)'>0 
 . Set Klas=$O(^KPR(PRNr,"I")) Set Klas=$P(^KPR(PRNr,Klas),D,3)
 . Set GenTyp=$$GENTYP^HAD(PRNr)
 . Set LevNr=$O(^KPR(PRNr,"J"))
 . Set CiffPPL=$P(^KPR(PRNr,LevNr),D,23)
 . Set RecuPackPRNr=$P(^KPR(PRNr,LevNr),D,32)
 . Set RecuPackProd=$S(RecuPackPRNr:$P($G(^KPR(RecuPackPRNr,0),"***"_RecuPackPRNr_"***"),"\",1),1:"")
 . If $P(GenTyp,"\")?1(1"TBX",1"LBX",1"MVX") Do
 . . Set Kenmerken=##class(AXimpl.PM.Kenmerk.Kenmerken).%OpenId(PRNr)
 . . Set:$isobject(Kenmerken)&&($zcvt(Kenmerken.VerpakkingType,"U")="VHOSS") RecuPackProd="VHOSS"
 . . ;Set:(Verpak="B")||(Verpak="A") RecuPackProd="VHOSS"
 . Set Gewicht=$P(^KPR(PRNr,1),D,13)
 . Set LevNr=$E(LevNr,2,99)
 . Set LevNm=$P(^KLE(^KL1(LevNr),0),D,2)
 . Set BLRec=""
 . If LevNr=5005 Do
 . . Set BLID="0"_$TR($E($P(^KPR(PRNr,2),D,25),2,99),".","")
 . . Set BLRec=$G(^BLProd("D",BLID))
 . Write PRNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),blOBJT.GeefOBJTIdentNr($$$PRGet($$$IdentNummer)),$C(9),$$PRODGRP^PRODUKT(PRNr),$C(9),$P(^KPR(PRNr,1),D,20),$C(9),Klas,$C(9),$P(GenTyp,"\"),$C(9),$P(GenTyp,"\",2),$C(9),LevNr,$C(9),LevNm,$C(9),$TR(CiffPPL,".",","),$C(9),$TR(Gewicht,".",",")
 . Write $C(9),$TR(+$J(AantalBslTot,0,2),".",","),$C(9),$TR(+$J(AantalBslBE,0,2),".",","),$C(9),$TR(+$J(AantalMwTot,0,2),".",","),$C(9),$TR(+$J(AantalMwBE,0,2),".",","),$C(9),$TR(+$J(AantalBslXX,0,2),".",","),$C(9),$TR(+$J(AantalMwXX,0,2),".",","),$C(9),$TR($P(BLRec,D,9),".",","),$C(9),$TR($P(BLRec,D,26),".",","),*9,RecuPackProd,!
 Do CLOSE^vhDEV(Dev)
 Quit 
 
ValiPakAlle(Jaar) ;Stockrotatie
 New I,Cumul,TLNr,Rec
 Set BeginWk=Jaar_".00 "
 Set EindeWk=Jaar_".53 "
 Set BeginMnd=Jaar_".01 "
 Set EindeMnd=Jaar_".12 "
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"VALIPAK Alle.txt","W","T")  Quit:'$L(Dev)
 Use Dev
 Write $TR("PRNr;KortTekst;Stock;Klas;GenTyp;SubGenTyp;LevNr;LevNm;CiffPPL;Gewicht;Week;Stock;AantalTot;AantalBE;BLBrut;BLNet;RecuPack",";",$c(9)),!
 Set PRNr=0
 For  Set PRNr=$O(^KSTPR(PRNr)) Quit:PRNr=""  Do
 . Set Wk=BeginWk
 . Set Stock=""
 . Set Week=0
 . ;For  Set Wk=$O(^KSPW(PRNr,Wk)) Quit:Wk=""  Quit:+Wk>+EindeWk!(Wk="")  Do
 . . Set Week=Week+1
 . . Set Rec=^KSPW(PRNr,Wk) 
 . . Set Stock=Stock+$P(Rec,D,4)
 . Set KLNr=0
 . Set (AantalTot,AantalBE)=0
 . For  Set KLNr=$O(^KSTPR(PRNr,KLNr)) Quit:KLNr=""  Do
 . . Set Aantal=$$PROD^STAT(PRNr,KLNr,BeginMnd,EindeMnd,1)
 . . Quit:'Aantal
 . . Set Land=$$LAND^vhRtn1(KLNr,"K",1,1)
 . . Set:Land="BE" AantalBE=AantalBE+Aantal
 . . Set AantalTot=AantalTot+Aantal
 . Quit:AantalTot'>0
 . Set Klas=$O(^KPR(PRNr,"I")) Set Klas=$P(^KPR(PRNr,Klas),D,3)
 . Set GenTyp=$$GENTYP^HAD(PRNr)
 . Set LevNr=$O(^KPR(PRNr,"J"))
 . Set CiffPPL=$P(^KPR(PRNr,LevNr),D,23)
 . Set RecuPackPRNr=$P(^KPR(PRNr,LevNr),D,32)
 . Set RecuPackProd=$S(RecuPackPRNr:$P($G(^KPR(RecuPackPRNr,0),"***"_RecuPackPRNr_"***"),"\",1),1:"")
 . If $P(GenTyp,"\")?1(1"TBX",1"LBX") Do
 . . Set Kenmerken=##class(AXimpl.PM.Kenmerk.Kenmerken).%OpenId(PRNr)
 . . Set:$isobject(Kenmerken)&&($zcvt(Kenmerken.VerpakkingType,"U")="VHOSS") RecuPackProd="VHOSS"
 . . ;Set:(Verpak="B")||(Verpak="A") RecuPackProd="VHOSS"
 . Set Gewicht=$P(^KPR(PRNr,1),D,13)
 . Set LevNr=$E(LevNr,2,99)
 . Set LevNm=$P(^KLE(^KL1(LevNr),0),D,2)
 . Set BLRec=""
 . If LevNr=5005 Do
 . . Set BLID="0"_$TR($E($P(^KPR(PRNr,2),D,25),2,99),".","")
 . . Set BLRec=$G(^BLProd("D",BLID))
 . Write PRNr,$C(9),$P(^KPR(PRNr,0),D,1),$C(9),$P(^KPR(PRNr,1),D,20),$C(9),Klas,$C(9),$P(GenTyp,"\"),$C(9),$P(GenTyp,"\",2),$C(9),LevNr,$C(9),LevNm,$C(9),$TR(CiffPPL,".",","),$C(9),$TR(Gewicht,".",","),$C(9),Week,$C(9),Stock,$C(9),$TR(+$J(AantalTot,0,2),".",","),$C(9),$TR(+$J(AantalBE,0,2),".",","),$C(9),$TR($P(BLRec,D,9),".",","),$C(9),$TR($P(BLRec,D,26),".",","),*9,RecuPackProd,!
 Do CLOSE^vhDEV(Dev)
 Quit 
 
ValiPakHalux(Jaar) ;Stockrotatie
 New I,Cumul,TLNr,Rec
 Set Dev=0
 Set BeginMnd=Jaar_".01 "
 Set EindeMnd=Jaar_".12 "
 Set Dev=$$OPEN^vhDEV(,"VALIPAK Halux.txt","W") Quit:'$L(Dev)
 Use Dev
 Write $TR("PRNr;KortTekst;GenTyp;Qty;Gram/st;GramTot",";",$C(9)),!
 Set MPRNr=0
 ; Alle producten
 For  Set MPRNr=$O(^KPR(MPRNr)) Quit:MPRNr=""  Do
 . Quit:$E($P(^KPR(MPRNr,0),D,1),1,2)="OL" ; Geen orgalux producten, de verpakking telt tot nader order niet mee
 . Set Som=0
 . Set BSKey=""
 . ; Alle kindproducten
 . For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
 . . Set KPRNr=$P(^PRBS("BS",MPRNr,BSKey),D)
 . . Quit:KPRNr'?4.7N
 . . Set KartonLevs=$LB(6317) ; Lefevere-Beel
 . . Set Found=0
 . . For I=1:1:$LL(KartonLevs) Do
 . . . Set:$D(^KPR(KPRNr,"J"_$LI(KartonLevs,I))) Found=1
 . . Quit:'Found
 . . Set Gewicht=$$GewichtBS^PRBS(MPRNr,BSKey)
 . . Set Som=Som+Gewicht
 . Quit:'Som
 . Set GenTyp=$P($$GENTYP^HAD(MPRNr),D,1)
 . Set KLNr=0
 . For  Set KLNr=$O(^KSTPR(MPRNr,KLNr)) Quit:KLNr=""  Do
 . . Set Aantal=$$PROD^STAT(MPRNr,KLNr,BeginMnd,EindeMnd,1)
 . . Quit:'Aantal
 . . Set Land=$$LAND^vhRtn1(KLNr,"K",1,1)
 . . Write MPRNr,*9,$P(^KPR(MPRNr,0),D,1),*9,GenTyp,*9,KLNr,*9,Land,*9,$TR(Aantal,".",","),*9,$TR(Som,".",","),*9,$TR(Som*Aantal,".",","),!
 Close:0'[Dev Dev
 Quit 
 
 
 
TelOrderLijnen ;Wie heeft het order ingegeven 
 
 Set BeginDat=$$CALCDATE^vhLib.DataTypes($H,"M",-12,"FD")
 Set EndDat=$H-1 ; vorige volledige dag
 Write @F11,@F1,@FMTI," Tellingen v/d OrderLijnen - "_QN_" ",@FMTi,!!
 Write " "
 
 Set Dev=$$OPEN^vhDEV(,"Orderlijnen.txt","W","T")  Quit:Dev=0
 Set KLNr=0,(Node,BONNr,LNr)=""
 Kill Cnt,Qty
 ;UITLEVERINGEN
 Use 0 Write "Uitleveringen (openstaande en gefaktureerde)",!
 Use Dev
 Write $TR("KLNr;KLNm;Regio;Order;OrdDat;IsEDI;EDIRef;Usr;InpMnd;InpWk;InpDat;InpTijd;Cnt;ProdGrp;Stuks",";",$C(9)),!
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do 
 . For  Set Node=$O(^KUL(KLNr,Node)) Quit:Node=""  Do
 . . ;Set Node="F" Do
 . . For  Set BONNr=$O(^KUL(KLNr,Node,BONNr)) Quit:BONNr=""  Do
 . . . Set (UsrKey,ORDNr,ORDDat)="" Kill Cnt
 . . . ;Quit:$$INTDATE^vhLib.DataTypes($P(^KUL(KLNr,Node,BONNr,1),D,2))<ChkDat
 . . . Set LNr=100
 . . . For  Set LNr=$O(^KUL(KLNr,Node,BONNr,LNr)) Quit:'LNr  Do
 . . . . Set Rec=^(LNr)
 . . . . If $P(Rec,D,17)="KF5" Do  Quit
 . . . . . Do:$D(Cnt) WRITEREC(KLNr,ORDNr,ORDDat,UsrKey,.Cnt,.Qty,EDIRef)
 . . . . . Set UsrKey=$P(Rec,D,4) 
 . . . . . Set ORDNr=$P($P(Rec,D,5)," - ")
 . . . . . Set ORDDat=$P($P(Rec,D,5)," - ",2)
 . . . . . Set EDIRef=$P(Rec,D,21)
 . . . . . If (EDIRef'?4.8N)&&(KLNr=1239)&&($P(Rec,D,5)["EDI") Do
 . . . . . . Set EDIRef=$P($P(Rec,D,5),"EDI",2)
 . . . . . . Set EDIRef=$P($P(EDIRef,"."),"/")
 . . . . . . Set EDIRef=$$TRIMN^vhRtn1(EDIRef)
 . . . . . Kill Cnt,Qty
 . . . . Set PRNr=$P(Rec,D,2)
 . . . . Set Qty=$P(Rec,D,3)
 . . . . If PRNr'?4.7N Quit
 . . . . Set ProdGrp=##class(Prod.Product).GetPropViaNr(PRNr,"ProductGroep")
 . . . . Set:"#"[$E(ProdGrp) ProdGrp="N/A"
 . . . . Set Cnt(ProdGrp)=$G(Cnt(ProdGrp))+1
 . . . . Set Qty(ProdGrp)=$G(Qty(ProdGrp))+Qty
 . . . Do:$D(Cnt) WRITEREC(KLNr,ORDNr,ORDDat,UsrKey,.Cnt,.Qty,EDIRef)
 . . . Set (UsrKey,ORDNr,ORDDat)="" Kill Cnt,Qty
 ;ORDERS
 Set (UsrKey,ORDNr,ORDDat)="" Kill Cnt
 Use 0 Write "Orders",! Use Dev
 Set KLNr=0,(Node,ORDNr,LNr)=""
 For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do
 . For  Set Node=$O(^KOD(KLNr,Node)) Quit:Node=""  Do
 . . For  Set ORDNr=$O(^KOD(KLNr,Node,ORDNr)) Quit:ORDNr=""  Do
 . . . Set OrdRec=^KOD(KLNr,Node,ORDNr,1)
 . . . Set UsrKey=$P(OrdRec,D,8)
 . . . Set ORDDat=$P(OrdRec,D,2)
 . . . Set EDIRef=$P(OrdRec,D,40)
 . . . If (EDIRef'?4.8N)&&(KLNr=1239)&&($P(OrdRec,D,5)["EDI") Do
 . . . . Set EDIRef=$P($P(OrdRec,D,3),"EDI",2)
 . . . . Set EDIRef=$P($P(EDIRef,"."),"/")
 . . . . Set EDIRef=$$TRIMN^vhRtn1(EDIRef)
 . . . Kill Cnt,Qty
 . . . Set LNr=100
 . . . For  Set LNr=$O(^KOD(KLNr,Node,ORDNr,LNr)) Quit:LNr=""  Do
 . . . . Set Rec=^(LNr)
 . . . . Set PRNr=$P(Rec,D,2)
 . . . . Set Qty=$P(Rec,D,3)
 . . . . If PRNr'?4.7N Quit
 . . . . Set ProdGrp=##class(Prod.Product).GetPropViaNr(PRNr,"ProductGroep")
 . . . . Set:$E(ProdGrp)="#" ProdGrp="N/A"
 . . . . Set Cnt(ProdGrp)=$G(Cnt(ProdGrp))+1
 . . . . Set Qty(ProdGrp)=$G(Qty(ProdGrp))+Qty
 . . . Do:$D(Cnt) WRITEREC(KLNr,ORDNr,ORDDat,UsrKey,.Cnt,.Qty,EDIRef)
 Do CLOSE^vhDEV(Dev)
 Quit
 
WRITEREC(KLNr,ORDNr,ORDDat,UsrRec,Cnt,Qty,EDIRef) 
 Quit:$$INTDATE^vhLib.DataTypes(ORDDat)<BeginDat
 Quit:$$INTDATE^vhLib.DataTypes(ORDDat)>EndDat
 Set ORDDat=$$EXTDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(ORDDat),"DK")
 Set KLId=^KK1(KLNr)
 Set KLNm=$P(^KKL(KLId,0),D,2)
 Set Regio=$P(^KKL(KLId,0),D,20)
 Set UsrKey=$P(UsrRec,"#",1)
 Set DevIO=$P(UsrRec,"#",2)
 Set Usr=$S(UsrKey:$P($G(^vhUSER("D",UsrKey)),D,4),1:UsrKey_"-"_DevIO)
 Use Dev
 Set ProdGrp=""
 For  Set ProdGrp=$O(Cnt(ProdGrp)) Quit:ProdGrp=""  Do
 . Write KLNr,$C(9),KLNm,$C(9),Regio,$C(9),ORDNr,$C(9),ORDDat,$C(9),(EDIRef'=""),$c(9),EDIRef
 . Write $C(9),Usr,$C(9),$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($P(UsrRec,"#",3),"M","FD")),*9,$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($P(UsrRec,"#",3),"W","FD")),*9,$$EXTDATE^vhLib.DataTypes($P(UsrRec,"#",3)),$C(9),$$EXTTIME^vhLib.DataTypes($P(UsrRec,"#",3))
 . Write $C(9),Cnt(ProdGrp),$C(9),ProdGrp,$C(9),Qty(ProdGrp),!
 Quit
 
 
 
LEVPERF ;Leverings performantie
 Do BLDCONTR^Stat.Product.StockWaarde
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"LEVPERF.txt","W")  Quit:Dev=0
 Set KLNr=0,(Node,BONNr,LNr)=""
 Set ChkDat=$H-370
 ;UITLEVERINGEN
 Use Dev
 Write $TR("KLNr;KLNm;Regio;Order;OrdDat;Usr;InpDat;InpTijd;Cnt",";",$C(9)),!
 Set KLNr=1050
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do  Quit:KLNr=11708
 .For  Set Node=$O(^KUL(KLNr,Node)) Quit:Node=""  Do
 ..;Set Node="F" Do
 ..For  Set BONNr=$O(^KUL(KLNr,Node,BONNr)) Quit:BONNr=""  Do
 ...Set (UsrKey,ORDNr,ORDDat)="",Cnt=0
 ...Quit:$$INTDATE^vhLib.DataTypes($P(^KUL(KLNr,Node,BONNr,1),D,2))<ChkDat
 ...Set BONDat=$TR($P(^KUL(KLNr,Node,BONNr,1),D,2),".-","//")
 ...Set BONWk=$TR($$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(BONDat),"W","MD"),"DK"),".-","//")
 ...Set LNr=100
 ...For  Set LNr=$O(^KUL(KLNr,Node,BONNr,LNr)) Quit:'LNr  Do
 ....Set Rec=^(LNr)
 ....If $P(Rec,D,17)="KF5" Do  Quit
 .....Do:Cnt WRITEREC(KLNr,ORDNr,ORDDat,UsrKey,Cnt)
 .....Set UsrKey=$P(Rec,D,4) 
 .....Set ORDNr=$P($P(Rec,D,5)," - ")
 .....Set ORDDat=$TR($P($P(Rec,D,5)," - ",2),".-","//")
 ....Set PRNr=$P(Rec,D,2)
 ....Quit:PRNr'?4.7N  ; Geen product
 ....Quit:'$D(^KPR(PRNr))
 ....Set Qty=$P(Rec,D,3)
 ....Set ORDWk=$TR($$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(ORDDat),"W","MD"),"DK"),".-","//")
 ....Set LevWkA=$TR($$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(Rec,D,25),"DW"),"W","MD"),"DK"),".-","//")
 ....Set LevWkB=LevWkA
 ....Set:$P(Rec,D,29)'="" LevWkB=$TR($$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes($P(Rec,D,29),"DW"),"W","MD"),"DK"),".-","//")
 ....Set KortT=$P(^KPR(PRNr,0),D,1)
 ....Set LevNr=$E($O(^KPR(PRNr,"J")),2,9)
 ....Set Klas=$O(^KPR(PRNr,"I"))
 ....Set Klas=$P(^KPR(PRNr,Klas),D,1)
 ....Set Stock=$S($P(^KPR(PRNr,1),D,20):"S",1:"N")
 ....Set:$G(ContrInd(PRNr))[KLNr Stock="C"
 ....Write PRNr,$C(9),KortT,$C(9),LevNr,$C(9),Klas,$C(9),Stock,$C(9),Qty,$C(9),ORDNr,$C(9),ORDDat,$C(9),BONNr,$C(9),BONDat,$C(9),ORDWk,$C(9),BONWk,$C(9),LevWkA,$C(9),LevWkB,!
 
 Close:0'[Dev Dev
 Quit
LEVKLANT ;Leverings performantie
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"LEVKLANT.txt","W")  Quit:Dev=0
 Set KLNr=0,(Node,BONNr,LNr)=""
 Set ChkDat=$H-370
 ;UITLEVERINGEN
 Use Dev
 Write $TR("KLNr;KLNm;Regio;BonNr;BonDat;Vzw;AantalLijnen;BevatHalux;BevatTerugName",";",$C(9)),!
 Set KLNr=0
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do 
 .Set KLNm=$P(^KKL(^KK1(KLNr),0),D,2)
 .Set Regio=$P(^KKL(^KK1(KLNr),0),D,20)
 .For  Set Node=$O(^KUL(KLNr,Node)) Quit:Node=""  Do
 ..For  Set BONNr=$O(^KUL(KLNr,Node,BONNr)) Quit:BONNr=""  Do
 ...Set (TerugN,IsHalux)=0
 ...Set (UsrKey,ORDNr,ORDDat)="",Cnt=0
 ...Quit:$$INTDATE^vhLib.DataTypes($P(^KUL(KLNr,Node,BONNr,1),D,2))<ChkDat
 ...Set BONDat=$TR($P(^KUL(KLNr,Node,BONNr,1),D,2),".-","//")
 ...Set Vzw=$$UPTRIMAN^vhRtn1($P($P(^KUL(KLNr,Node,BONNr,1),D,7),"#",1))
 ...Set LNr=100
 ...Set LCnt=0
 ...For  Set LNr=$O(^KUL(KLNr,Node,BONNr,LNr)) Quit:'LNr  Do
 ....Set Rec=^(LNr)
 ....Set PRNr=$P(Rec,D,2)
 ....Quit:PRNr'?4.7N  ; Geen product
 ....Quit:$P(Rec,D,14)="Z"  ; Zonder WMS, geen goederen
 ....If $P(Rec,D,3)<0 Set TerugN=1
 ....Set LCnt=LCnt+1
 ....If $D(^KPR(PRNr,"J6332")) Set IsHalux=1
 ...Quit:'LCnt
 ...Write KLNr,$C(9),KLNm,$C(9),Regio,$C(9),BONNr,$C(9),BONDat,$C(9),Vzw,$C(9),LCnt,$C(9),$S(IsHalux:"H",1:""),$C(9),$S(TerugN:"T",1:""),!
 
 Close:0'[Dev Dev
 Quit
 
TelLevBon ;Wie heeft het order ingegeven 
 
 Write @F11,@F1,@FMTI," Tellingen v/d OrderLijnen - "_QN_" ",@FMTi,!!
 Write " "
 
 Set Dev=0
 Set Dev=$$OPEN^vhDEV(,"LevBon.txt","W")  Quit:Dev=0
 Set KLNr=0,(Node,BONNr,LNr)=""
 Kill Cnt,Qty
 ;UITLEVERINGEN
 Kill DatKlant
 Set Node="F"
 Set FAK=0
 For  Set FAK=$O(^KFA(Node,FAK)) Quit:FAK=""  Do 
 . Set KLNr=$P(^KFA(Node,FAK,0,0),D,1)
 . Set Dat=$P(^KFA(Node,FAK,0,0),D,6)
 . Set BONNr="U"
 . For  Set BONNr=$O(^KFA(Node,FAK,BONNr)) Quit:$E(BONNr)'="U"  Do
 . . Set BonRec=$G(^KFA(Node,FAK,BONNr,1))
 . . Quit:BonRec=""
 . . Set:$L($P(BonRec,D,2)) Dat=$P(BonRec,D,2)
 . . Set Vzw=$P($P(BonRec,D,7),"#")
 . . Set Rec=$G(DatKlant(Dat,KLNr),Vzw_"\0")
 . . Set $P(Rec,D,2)=$P(Rec,D,2)+1
 . . Set DatKlant(Dat,KLNr)=Rec
 . . . 
 Use Dev
 Write "KLNr	BONNr	Datum	Vzw	Group",!
 Set Dat=""
 Set KLNr=""
 For  Set Dat=$O(DatKlant(Dat)) Quit:Dat=""  Do 
 . For  Set KLNr=$O(DatKlant(Dat,KLNr)) Quit:KLNr=""  Do
 . . Write KLNr,*9,$TR(Dat,".","-"),*9,$P(DatKlant(Dat,KLNr),D)
 . . Write *9,$P(DatKlant(Dat,KLNr),D,2)
 . . Write !
 
 Close:0'[Dev Dev
 Quit
 
 
TelTBX
 Set Begin=$H-365
 Set Einde=$H-1
 Set PRNr=0
 Kill Cumul
 Write "Ophalen historiek gegevens",!
 Set Count=0
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  
 . Quit:$P($$GENTYP^HAD(PRNr),"\")'="TBX"
 . Quit:$P($$GENTYP^HAD(PRNr),"\",2)="PR+"
 . Set Verpak=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK"))
 . Quit:Verpak=""
 . Set Key=""
 . Set Count=Count+1
 . For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
 . . Set Rec=^PRHIST(PRNr,Key)
 . . Quit:+$P(Rec,"\")<Begin
 . . Quit:+$P(Rec,"\")>Einde
 . . Quit:$P(Rec,"\",4)'="I"
 . . Set TOENr=$P(Rec,"\",7)
 . . Set:TOENr="" TOENr="*"
 . . Set Cumul(+$P(Rec,"\"),Verpak,TOENr)=$G(Cumul(+$P(Rec,"\"),Verpak,TOENr))+$P(Rec,"\",2)
 ;
 Set Dev=$$OPEN^vhDEV(,"TBX verpak.txt","W","T")
 Use Dev
 Write "Week	Datum	Verpak	TOENr	Aantal",!
 Set (Dat,Verpak,TOENr)=""
 For  Set Dat=$O(Cumul(Dat)) Quit:Dat=""  Do
 . For  Set Verpak=$O(Cumul(Dat,Verpak)) Quit:Verpak=""  Do
 . . For  Set TOENr=$O(Cumul(Dat,Verpak,TOENr)) Quit:TOENr=""  Do
 . . . Write $$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(Dat,"W","MD")),*9,$$EXTDATE^vhLib.DataTypes(Dat),*9,Verpak,*9,TOENr,*9,Cumul(Dat,Verpak,TOENr),!
 Do CLOSE^vhDEV(Dev)
 Quit


TelTBXHist
 Set Begin=$H-365
 Set Einde=$H-1
 Set PRNr=0
 Kill Cumul
 Write "Ophalen historiek gegevens",!
 Set Count=0
 Set Dev=$$OPEN^vhDEV(,"TBX verpak.txt","W","T")
 Use Dev
 Write "Week	Datum	Verpak	TOENr	Aantal",!

 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do  
 . Set GenTyp=$P($$GENTYP^HAD(PRNr),"\")
 . Quit:$P(GenTyp,"\")'="TBX"
 . Quit:$P(GenTyp,"\",2)="PR+"
 . Set Key=""
 . For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
 . . Set Rec=^PRHIST(PRNr,Key)
 . . Quit:+$P(Rec,"\")<Begin
 . . Quit:+$P(Rec,"\")>Einde
 . . Quit:$P(Rec,"\",4)'="I"
 . . Set Qty=$P(Rec,"\",2)
 . . Write $$$ExcelDat($P(Rec,"\")),*9,$P(GenTyp,"\",2),*9,PRNr,*9,$$$ExcelNum(Qty),!
 Do CLOSE^vhDEV(Dev)
 Quit