Index: PV.mac.rou
===================================================================
diff -u -r69293 -r70681
--- PV.mac.rou	(.../PV.mac.rou)	(revision 69293)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 70681)
@@ -4,6 +4,157 @@
 #include BL.Derde.LevSpecifiek
 q
 
+
+HFL
+	Read "Klant:",HflKlant
+	Do NL(HflKlant)
+	Do BE(HflKlant)
+	Quit
+
+NL(Klant)
+	quit:Klant'?1"NL".E
+	do ##class(zTryout.JWI.Haefele.UrlGenerator).%New().GenereerEen(12,"8SH88xGWpyaTSiSba3ptxQ--",Klant)
+
+BE(Klant)
+	quit:Klant'?1"BE".E
+	do ##class(zTryout.JWI.Haefele.UrlGenerator).%New().GenereerEen(7,"k0uGXfFcFjZZFa7InVf7aw--",Klant)
+	Quit
+
+HISTTAB(Jaar) 
+	Set Jaar=$G(Jaar,2022)
+	Set Device=$$OPEN^vhDEV(,"TAB productie.txt","W","T")
+	Use Device
+	Write "ORDNr	KLNr	PRNr	Identnummer	Korttekst	Pallet	Aantal	Tijdstip",!
+	Set Vanaf=$zdh(Jaar_"0101",8)
+	Set Tot=$zdh(Jaar_"1231",8)
+	Set Cnt=0
+	Set PRNr=4137846
+	For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do  ;Quit:PRNr=532738
+	 . Set Key=""
+	 . Kill Cache
+	 . Set ProdGrp=$$PRODGRP^PRODUKT(PRNr)
+	 . Quit:ProdGrp'="TA.B"
+	 . For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
+	 .. Set Rec=^PRHIST(PRNr,Key)
+	 .. Quit:+$P(Rec,"\")'=+$H
+	 .. Quit:$P(Rec,"\",5)'="M"
+	 .. Quit:$P(Rec,"\",4)'?1(1"I")
+	 .. Set Qty=$P(Rec,"\",2)
+	 .. Set Ref=$P(Rec,"\",7)
+	 .. Set KLNr=$P(Rec,"\",6)
+	 .. Set Datum=+$P(Rec,"\")
+	 .. Set ORDNr=$O(^ORD("IP",PRNr,""))
+	 .. Set KLNr=""
+	 .. Set:ORDNr KLNr=$P($G(^KO1(ORDNr,"F")),"\",1)
+	 .. Set Loc="" Set Cnt=0
+	 .. For  Set Loc=$O(^PRHIST(PRNr,Key,Loc)) Quit:Loc=""  Do
+	 ... Set Cnt=Cnt+1
+	 ... Write ORDNr,*9,KLNr,*9,PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst),*9,$P(^PRHIST(PRNr,Key,Loc),"\",1),*9,$P(^PRHIST(PRNr,Key,Loc),"\",2),*9,$zdt($P(^PRHIST(PRNr,Key,Loc),"\",3),8),!
+	 .. If Cnt=0 Do
+	 ... Write PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst)
+	 
+	Do CLOSE^vhDEV(Device)
+	Write Cnt
+ Quit
+
+HISTEXPORT() 
+	Set Device=$$OPEN^vhDEV(,"HIST export.txt","W","T")
+	Use Device
+	Write "DerdeNr	PRNr	Identnummer	Korttekst	Actie	Magazijn	Aantal	Tijdstip"
+	Write *9,"AxConfigId",*9,"AxInventTransId",*9,"AxItemId",*9,"FSCClaim",*9,"FaktRcpNr",*9,"MoederFSCClaim"
+	Write *9,"MoederPRNr",*9,"MoederKorttekst",*9,"Omschrijving",*9,"UitToeLevDatum",*9,"UitToeLevNr",!
+	Set Vanaf=$zdh(2018_"0701",8)
+	Set Cnt=0
+	Set PRNr=""
+	For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do
+	 . Set Key=""
+	 . For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
+	 .. Set Rec=^PRHIST(PRNr,Key)
+	 .. Set Tijdstip=$P(Rec,"\")
+	 .. Quit:+Tijdstip<Vanaf
+	 .. Set Magazijn=$P(Rec,"\",5)
+	 .. Quit:Magazijn="W"
+	 .. Set Qty=$P(Rec,"\",2)
+	 .. Set Ref=$P(Rec,"\",7)
+	 .. Set DerdeNr=$P(Rec,"\",6)
+	 .. Set Actie=$P(Rec,"\",4)
+	 .. Set AxConfigId=$P(Rec,"\",20)
+	 .. Set AxInventTransId=$P(Rec,"\",19)
+	 .. Set AxItemId=$P(Rec,"\",21)
+	 .. Set FSCClaim=$P(Rec,"\",17)
+	 .. Set FaktRcpNr=$P(Rec,"\",10)
+	 .. Set MoederFSCClaim=$P(Rec,"\",18)
+	 .. Set MoederPRNr=$P(Rec,"\",15)
+	 .. Set Omschrijving=$P(Rec,"\",11)
+	 .. Set UitToeLevDatum=$P(Rec,"\",9)
+	 .. Set UitToeLevNr=$P(Rec,"\",7)
+	 .. Write DerdeNr,*9,PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst)
+     .. Write *9,Actie,*9,Magazijn,*9,$$$ExcelNum(Qty)
+	 .. Write *9,$zdt(Tijdstip)
+	 .. Write *9,AxConfigId,*9,AxInventTransId,*9,AxItemId,*9,FSCClaim,*9,FaktRcpNr,*9,MoederFSCClaim
+	 .. Write *9,MoederPRNr,*9,$S(MoederPRNr?4.10N&&($D(^KPR(MoederPRNr,0))):$$$ProductGet(MoederPRNr,$$$KortTekst),1:"")
+	 .. Write *9,Omschrijving,*9,$$$ExcelDat(UitToeLevDatum),*9,UitToeLevNr
+	 .. Write !
+	 
+	Do CLOSE^vhDEV(Device)
+	Write Cnt
+ Quit
+
+
+HISTCOMP(Jaar) 
+	Set Jaar=$G(Jaar,2022)
+	Set Device=$$OPEN^vhDEV(,"Statistiek componentverbruik"_Jaar_".txt","W","T")
+	Use Device
+	Write "PRNr	Identnummer	Korttekst	MoederProdGrp	SubMag	InVoorraad	LocCode	#Lijnen	#Stuks	Datum",!
+	Set Vanaf=$zdh(Jaar_"0101",8)
+	Set Tot=$zdh(Jaar_"1231",8)
+	Set Cnt=0
+	 Set PRNr="" ;532737
+	 For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do  ;Quit:PRNr=532738
+	 . Set Key=""
+	 . Kill Cache
+	 . Set ProdGrp=$$PRODGRP^PRODUKT(PRNr)
+	 . Quit:ProdGrp'?1(1"REST",1"BLUM")
+	 . For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
+	 .. Set Rec=^PRHIST(PRNr,Key)
+	 .. Set MPRNr=$P(Rec,"\",15)
+	 .. Quit:'MPRNr
+	 .. Quit:'$D(^KPR(MPRNr))
+	 .. Quit:($$$ProductGet(MPRNr,$$$LeveranciersNr)'=$$$LevHalux)
+	 .. Quit:+$P(Rec,"\")<Vanaf
+	 .. Quit:+$P(Rec,"\")'<Tot
+	 .. Quit:$P(Rec,"\",5)'="W"
+	 .. Quit:$P(Rec,"\",4)'?1(1"H")
+	 .. Set Qty=$P(Rec,"\",2)
+	 .. Set Ref=$P(Rec,"\",7)
+	 .. Set KLNr=$P(Rec,"\",6)
+	 .. Set Datum=+$P(Rec,"\")
+	 .. Set MProdGrp=$$PRODGRP^PRODUKT(MPRNr)
+	 .. Set Maand=$$CALCDATE^vhLib.DataTypes(Datum,"M","FD")
+	 .. Set MaandProd=Maand_";"_MProdGrp
+	 .. Set:'$D(Cache(MaandProd)) Cache(MaandProd)=$LB(Maand,MProdGrp,0,0)
+	 .. Set $LI(Cache(MaandProd),3)=$LG(Cache(MaandProd),3)-Qty
+	 .. Set $LI(Cache(MaandProd),4)=$LG(Cache(MaandProd),4)+1
+	 . ;zw Cache
+	 . Set MaandProd=""
+	 . For  Set MaandProd=$O(Cache(MaandProd)) Quit:MaandProd=""  Do
+	 .. Set Cnt=Cnt+1
+	 .. Write PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst),*9,$LI(Cache(MaandProd),2),*9,$$$PRGet($$$WerkvloerSubMag),*9,$$$PRGet($$$WerkvloerHerbestelAfronding),*9,$$$PRGet($$$ControleStatus),*9,$$$ExcelNum($LI(Cache(MaandProd),4)),*9,$$$ExcelNum($LI(Cache(MaandProd),3)),*9,$$$ExcelDat($LI(Cache(MaandProd),1)),!
+	Do CLOSE^vhDEV(Device)
+	Write Cnt
+ Quit
+
+
+
+xxx
+	Set PRNr=0
+	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+	. Quit:$$PRODGRP^PRODUKT(PRNr)'?1(1"REST",1"BLUM")
+	. Write PRNr," "
+	. Set Rnd=$$RNDVPK^MRP(PRNr,4)
+	Quit
+
+
 p(PRNr,Aantal)
  New R,InStock,PraStock,WVTekort,LevTerm,BufferW,WeekDat,WVStock,WVRes,GemWVK
  Set R=$O(^KPR(PRNr,"J")),WVTekort=""
@@ -250,8 +401,49 @@
  . Set:($P(Rec,"\",4)="U")&&(Qty>GVP)&&(GVP'=1) AantalUG=AantalUG+1,StuksG=StuksG+Qty-(Qty#GVP)-$S((Pal>0):Qty\Pal*Pal,1:0) ; zonder volle paletten
  . Set:Pal>0&&($P(Rec,"\",4)="U") AantalP=AantalP+(Qty\Pal)
  Quit
+ 
+HISTJAAR
+	For Jaar=2017:1:2022 Do
+	. Do HISTOUT(Jaar)
+ 
+HISTOUT(Jaar) 
+	Set Device=$$OPEN^vhDEV(,"Statistiek Picklijnen"_Jaar_".txt","W","T")
+	Use Device
+	Write "PRNr	Identnummer	Korttekst	KLNr	#Lijnen	#Stuks	Datum	Type	ProdGrp",!
+	Set Vanaf=$zdh(Jaar_"0101",8)
+	Set Tot=$zdh(Jaar_"1231",8)
+	Set Cnt=0
+	 Set PRNr="" ;532737
+	 For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do  ;Quit:PRNr=532738
+	 . Set Key=""
+	 . Kill Cache
+	 . Set ProdGrp=$$PRODGRP^PRODUKT(PRNr)
+	 . For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
+	 .. Set Rec=^PRHIST(PRNr,Key)
+	 .. ;Set MPRNr=$P(Rec,"\",15)
+	 .. ;Quit:MPRNr&&($$$ProductGet(MPRNr,$$$LeveranciersNr)=$$$LevHalux)
+	 .. Quit:+$P(Rec,"\")<Vanaf
+	 .. Quit:+$P(Rec,"\")'<Tot
+	 .. Quit:$P(Rec,"\",5)'="M"
+	 .. Quit:$P(Rec,"\",4)'?1(1"U",1"T")
+	 .. Set Qty=$P(Rec,"\",2)
+	 .. Set Ref=$P(Rec,"\",7)
+	 .. Set KLNr=$P(Rec,"\",6)
+	 .. Set Datum=+$P(Rec,"\")
+	 .. Set Maand=$$CALCDATE^vhLib.DataTypes(Datum,"M","FD")
+	 .. Set MaandKlant=Maand_";"_KLNr_$P(Rec,"\",4)
+	 .. Set:'$D(Cache(MaandKlant)) Cache(MaandKlant)=$LB(Maand,KLNr,0,0,$P(Rec,"\",4))
+	 .. Set $LI(Cache(MaandKlant),3)=$LG(Cache(MaandKlant),3)-Qty
+	 .. Set $LI(Cache(MaandKlant),4)=$LG(Cache(MaandKlant),4)+1
+	 . ;zw Cache
+	 . Set MaandKlant=""
+	 . For  Set MaandKlant=$O(Cache(MaandKlant)) Quit:MaandKlant=""  Do
+	 .. Set Cnt=Cnt+1
+	 .. Write PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst),*9,$LI(Cache(MaandKlant),2),*9,$$$ExcelNum($LI(Cache(MaandKlant),4)),*9,$$$ExcelNum($LI(Cache(MaandKlant),3)),*9,$$$ExcelDat($LI(Cache(MaandKlant),1)),*9,$LI(Cache(MaandKlant),5),*9,ProdGrp,!
+	Do CLOSE^vhDEV(Device)
+	Write Cnt
+ Quit
 
-
 HISTINCOMING(PRNr) 
  ;Begin,Einde : $H formaat
  ;Actie : Zie RES(PRHIST,PI,BEPERK)
@@ -3067,138 +3259,4 @@
  
  
  
-AutoOrgalux(PRNr)
-	;Set PRNr=124919
-	New Status,Result,BSKey,KindHalf,BSDefCod,Type,HFPRNr,Aantal,Lengte,Breedte,HistID,SnijMachineID,VolgNr,Rec,DimRec
-	
-	#define LabelOld "VERPAK"
-	#define OmsVouwenOld "Vouwen"
-	#define OmsInpakOld "Inpakken"
-	#define OmsAfwerkOld "Afwerken"
-	#define OmsLuchtZakOld "Luchtzak"
-	#define OmsToeslagOld "Toeslag oververpakking"
-	
-	#define LabelNew "VERPAK"
-	#define OmsVouwenNew "Vouwen"
-	#define OmsInpakNew "Inpakken"
-	#define OmsAfwerkNew "Afwerken"
-	#define OmsLuchtZakNew "Luchtzak"
-	#define OmsToeslagNew "Toeslag oververpakking"
-	
-	
-	; Get old values
-	Set Values=""
-	Set BSKey="" 
-	For  Set BSKey=$O(^HULP(%J,"C",BSKey)) Quit:BSKey=""  Do
-	. Set BSRec=^HULP(%J,"C",BSKey)
-	. If ($P(BSRec,D,11)=$$$LabelOld)||($P(BSRec,D,11)=$$$LabelNew) Do
-	. . If ($P(BSRec,D,13)=$$$OmsVouwenOld)||($P(BSRec,D,13)=$$$OmsVouwenNew) Set $P(Values,D,1)=$P(BSRec,D,7)
-	. . If ($P(BSRec,D,13)=$$$OmsInpakOld)||($P(BSRec,D,13)=$$$OmsInpakNew) Set $P(Values,D,2)=$P(BSRec,D,7)
-	. . If ($P(BSRec,D,13)=$$$OmsAfwerkOld)||($P(BSRec,D,13)=$$$OmsAfwerkNew) Set $P(Values,D,3)=$P(BSRec,D,7)
-	. . If ($P(BSRec,D,13)=$$$OmsToeslagOld)||($P(BSRec,D,13)=$$$OmsToeslagNew) Set $P(Values,D,4)=$P(BSRec,D,5)
-	. . If ($P(BSRec,D,13)=$$$OmsLuchtZakOld)||($P(BSRec,D,13)=$$$OmsLuchtZakNew) Set $P(Values,D,5)=$P(BSRec,D,2)
- 
-	Set Verpakking=$zobjclassmethod("BL.Prod.OptiBox.Diverse","OptiDataDisplayName",PRNr)
-	
-	If '$P(Values,D,1)&&'$P(Values,D,1)&&'$P(Values,D,1) Do ; Defaulting
-	. Set $P(Values,D,4)=.05
-	. If Verpakking["(Volume)" Do ; alleen volume
-	. . Set $P(Values,D,1)=0
-	. . Set $P(Values,D,2)=5
-	. . Set $P(Values,D,3)=15
-	. Else  If Verpakking[";" Do ; meerdere verpakkingen
-	. . Set $P(Values,D,1)=15
-	. . Set $P(Values,D,2)=30
-	. . Set $P(Values,D,3)=15
-	. Else  If Verpakking["/" Do ; combinatie
-	. . Set $P(Values,D,1)=5
-	. . Set $P(Values,D,2)=10
-	. . Set $P(Values,D,3)=5
-	. Else  Do ; single
-	. . Set $P(Values,D,1)=10
-	. . Set $P(Values,D,2)=20
-	. . Set $P(Values,D,3)=15
- 
-	Set sFL(1)=Values
-	Do NIEUW^vhScherm("PRBSOLAUTO",,,,,,1)
-	Quit:'%SC
- 
-	Do AutoOrgaluxSet(PRNr,sFL(1))
-	
-	Quit
-	
-AutoOrgaluxSet(PRNr,Values)
-	
-	; Delete old values
-	Set BSKey="" 
-	For  Set BSKey=$O(^HULP(%J,"C",BSKey)) Quit:BSKey=""  Do
-	. Set BSRec=^HULP(%J,"C",BSKey)
-	. If $P(BSRec,D,1)?4.7N,$E($P(^KPR(PRNr,0),D,1),1,3)="VPO" Kill ^HULP(%J,"C",BSKey)
-	. Else  If ($P(BSRec,D,11)=$$$LabelOld)||($P(BSRec,D,11)=$$$LabelNew) Kill ^HULP(%J,"C",BSKey)
-	
-	; ToeslagMateriaal
-	If $P(Values,D,4) Do
-	. Set Rec=D_1_D_"S"
-	. Set $P(Rec,D,11)=$$$LabelNew
-	. Set $P(Rec,D,13)=$$$OmsToeslagNew
-	. Set $P(Rec,D,5)=$P(Values,D,4)
-	. Set BSKey=$$DEFBSKEY^PRBS("KOST")
-	. Set ^HULP(%J,"C",BSKey)=Rec
-	; Vouwen
-	If $P(Values,D,1) Do
-	. Set Rec=D_1_D_"T"
-	. Set $P(Rec,D,11)=$$$LabelNew
-	. Set $P(Rec,D,13)=$$$OmsVouwenNew
-	. Set $P(Rec,D,7)=$P(Values,D,1)
-	. Set $P(Rec,D,8)=$P(Values,D,1)
-	. Set $P(Rec,D,9)="OLVERPAK"
-	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
-	. Set ^HULP(%J,"C",BSKey)=Rec
-	; Inpak
-	If $P(Values,D,2) Do
-	. Set Rec=D_1_D_"T"
-	. Set $P(Rec,D,11)=$$$LabelNew
-	. Set $P(Rec,D,13)=$$$OmsInpakNew
-	. Set $P(Rec,D,7)=$P(Values,D,2)
-	. Set $P(Rec,D,8)=$P(Values,D,2)
-	. Set $P(Rec,D,9)="OLVERPAK"
-	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
-	. Set ^HULP(%J,"C",BSKey)=Rec
-	; Afwerken
-	If $P(Values,D,3) Do
-	. Set Rec=D_1_D_"T"
-	. Set $P(Rec,D,11)=$$$LabelNew
-	. Set $P(Rec,D,13)=$$$OmsAfwerkNew
-	. Set $P(Rec,D,7)=$P(Values,D,3)
-	. Set $P(Rec,D,8)=$P(Values,D,3)
-	. Set $P(Rec,D,9)="OLVERPAK"
-	. Set BSKey=$$DEFBSKEY^PRBS("TIJD")
-	. Set ^HULP(%J,"C",BSKey)=Rec
-	; ToeslagMateriaal
-	If $P(Values,D,5) Do
-	. Set Rec=D_1_D_"S"_D_"0.25"
-	. Set $P(Rec,D,11)=$$$LabelNew
-	. Set $P(Rec,D,13)=$$$OmsLuchtZakNew
-	. Set $P(Rec,D,1)=$P(Values,D,5)
-	. Set BSKey=$$DEFBSKEY^PRBS("KOST")
-	. Set ^HULP(%J,"C",BSKey)=Rec
- 
-	;zw ^HULP(%J,"C")
-	Set sMod=1
-	Do SORT^PRBS
-	;zw ^HULP(%J,"S")
-	Do UPDATE^PRBS
- 	Quit
- 
- 
- 
- 
-	
- 
- 
- 
- 
- 
 
-
-