Index: HADOPV.mac.rou
===================================================================
diff -u -r58618 -r70681
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 58618)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 70681)
@@ -944,16 +944,17 @@
  Quit sEr
  
  ; Automatisch markeren van toeleveringslijnen
-AutoMarkOn
+AutoMarkOn(SetBatches)
  New %SC,Beperking,Datum,DagDeel,Next
- Set Beperking=$P(LimRec,D,12),Datum=$$CALCDATE^vhLib.DataTypes(,"A",+Beperking),DagDeel=$E(Beperking,$L(Beperking))
+ Set Beperking=$P(LimRec,D,12),Werkdagen=2,Datum=$$CALCDATE^vhLib.DataTypes(,"A",Werkdagen),DagDeel=$E(Beperking,$L(Beperking))
  Set:Datum="" Datum=+$H Set:DagDeel="" DagDeel="N"
  Do NIEUW^vhScherm("HADOPVBEPTRM",,,,,,3,"A")
  If %SC {
-	 Set AutoMark=1,Batches="TX ;TP "
+	 Set AutoMark=1,Batches=$G(SetBatches,"TX ;TP ")
 	 If 'Datum Set Beperking=""
 	 Else  Set Beperking=Datum_$S(DagDeel="V":",43200",1:"")
 	 Set DispMode="O"
+	 Do ##class(vhLib.Logger).%New("HADOPV").Info("Automatisch klaarzetten","Batches:"_Batches_"; klaarzetten tem datum:"_ $zd(Datum,4)_"; diff kalender dagen:"_(Datum-$H)_" ("_$$EXTDATE^vhLib.DataTypes($H,"DC")_" -> "_$$EXTDATE^vhLib.DataTypes(Datum,"DC")_"); dagdeel:"_DagDeel)
 	 
 	 ; Nieuwe toeleveringen ophalen en activeren van de reservatie van de halffabrikaten
 	 Do REFRESH^HADSTAT2(LEVNr,"T")
Index: OBJTimpl/WMSOrder/OphalenVoorraadKlaargezetHLX.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/OphalenVoorraadKlaargezetHLX.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/OphalenVoorraadKlaargezetHLX.cls.xml	(revision 70681)
@@ -0,0 +1,169 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.OphalenVoorraadKlaargezetHLX">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Converter">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlConnection">
+<Type>%SQLGatewayConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// w ##class(OBJTimpl.WMSOrder.OphalenVoorraadKlaargezetHLX).%New()GeefKlaargezetteVoorraadFormatted(1811779)
+
+]]></Content>
+</UDLText>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Set it=..GeefIterator()
+	
+	While it.HasNext()
+	{	
+		set rs=it.Next()
+		write rs.Data("CONSNr")," ",rs.Data("Aantal")," ",rs.Data("ItemID"),!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).Instance())
+	Set ..SqlConnection = ..GeefSQLConnectie()
+	
+	//d ##class(TECH.Config.ConfigMgr).Instance().SetString("OBJTimpl.DatasourceName","OBJT_ACP")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if $IsObject(..SqlConnection){
+		do ..SqlConnection.Disconnect()
+	}	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefIterator">
+<FormalSpec>OBJTItemID</FormalSpec>
+<Implementation><![CDATA[
+	#Dim ResultSet as %ResultSet = ..GeefResultSet(OBJTItemID)
+	Set Iterator=##class(TECH.ResultSetIterator).%New(ResultSet)
+	Quit Iterator
+]]></Implementation>
+</Method>
+
+<Method name="GeefResultSet">
+<FormalSpec>OBJTItemID</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+    Set rs=##class(%ResultSet).%New("%DynamicQueryGW:SQLGW")
+	Set Status=""
+    Set SqlStatement=" select "
+	_ "	   sum(storageitemqty.VALUE) QTY "
+	_ "	 FROM OBJT_STORAGEITEMQTY storageitemqty WITH (NOLOCK) "
+    _ "	 LEFT OUTER JOIN OBJT_CONTAINERSTORAGEITEMQTY csitq WITH (NOLOCK) "
+	_ "		ON storageitemqty.CONTAINERSTORAGEITEMQTYOID = csitq.oid"
+    _ "	 INNER JOIN OBJT_WAREHOUSELOCATION location WITH (NOLOCK)"
+	_ "		on  storageitemqty.WAREHOUSELOCATIONOID = location.OID "
+    _ "	 INNER JOIN OBJT_ITEM item WITH (NOLOCK)"
+	_ "		ON storageitemqty.ITEMOID = item.OID "
+  	_ "	 WHERE storageitemqty.DTSVALIDUNTIL is null "
+	_ "	 	AND (csitq.CLASSOID IS NULL OR csitq.CLASSOID = 9000000000000095836) "
+	_ "	 	and Item.name=? " 
+	_ "	 	and location.BOType=40 "
+	_ "	    and location.FULLNAME like 'KLZ.HL%' "
+	
+	 ; Orders in OBJT waarvan de PICK taak beëidigd is minder dan 7 dagen geleden.
+	try
+    {
+    	Do rs.Prepare(SqlStatement,,..SqlConnection)
+	    Do rs.Execute(OBJTItemID)    
+    } catch {
+	    do ..SqlConnection.Disconnect()
+	    do ##class(TECH.ExceptionHandler).Rethrow()
+    }
+    Quit rs
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlaargezetteVoorraad">
+<FormalSpec>PRNr</FormalSpec>
+<Implementation><![CDATA[
+	Set OBJTItemID=##class(OBJTimpl.PM.OBJTIdentLookupService).%New().GeefOBJTIdentNr($$$PRGet($$$IdentNummer))
+	Set Aantal=""
+	If OBJTItemID'="" 
+	{
+		Set it=..GeefIterator(OBJTItemID)
+		While it.HasNext()
+		{	
+			Set rs=it.Next()
+		 	Set Aantal=+rs.Data("QTY")
+		}
+	}
+	Quit Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlaargezetteVoorraadFormatted">
+<FormalSpec>PRNr,PlusMin</FormalSpec>
+<Implementation><![CDATA[
+	Set Aantal=..GeefKlaargezetteVoorraad(PRNr)
+	If Aantal,PlusMin="+"
+	{
+		Set Format=" ("_$$EXTNUM^vhLib.DataTypes(Aantal,0,"+.",0)_")"
+	} 
+	ElseIf Aantal
+	{
+		Set Format=" ("_$$EXTNUM^vhLib.DataTypes(-Aantal,0,"+.",0)_")"
+	} 
+	Else 
+	{
+		Set Format=""
+	}
+	Quit Format
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLConnectie">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set SqlConnection =##class(%SQLGatewayConnection).%New()
+    #dim OBJTSqlServer As %String = ..ConfigMgr.GeefString("OBJTimpl.DatasourceName")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(SqlConnection.Connect(OBJTSqlServer,"",""))
+    Quit SqlConnection
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: HADSTAT2.mac.rou
===================================================================
diff -u -r29059 -r70681
--- HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 29059)
+++ HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 70681)
@@ -128,6 +128,7 @@
  .Set:$P(GenRec,D)="PRF" Montage="PR" ; Losse profielen
  .Set:$P(GenRec,D)="TBX" Montage="T"_$S($P(GenRec,D,2)="PR+":"K",$P(GenRec,D,2)="PRO":"P",1:"X") ; Tandembox (std en pro)
  .Set:$P(GenRec,D)="LBX" Montage="L"_$S($P(GenRec,D,2)="STD":"X",1:"P") ; Legrabox(std en pro)
+ .Set:$P(GenRec,D)="MVX" Montage="M"_$S($P(GenRec,D,2)="STD":"X",1:"P") ; Merivobox(std en pro)
  .Set:$P(GenRec,D)="TAO" Montage="TA" ; TA'OR (std en pro)
  .Set:$P(GenRec,D,1,2)="TBX\BBX" Montage="BB" ; Burobox
  .Set:$P(GenRec,D,1,2)="DIV\POM" Montage="PM" ; Producten op maat
@@ -179,6 +180,7 @@
  .Set:(Soort="DV") $E(Batch,3)="D" ; Diverse aparte batch "..D"
  .Set:($E(Soort)="T") Batch=$E(Soort,1,2)_" " ; Tandembox en TA'OR BOX
  .Set:($E(Soort)="L") Batch=$E(Soort,1,2)_" " ; Legrabox
+ .Set:($E(Soort)="M") Batch=$E(Soort,1,2)_" " ; Merivobox
  .Set:(Soort="VM")||(Soort="PM")||(Soort="GM")||(Soort="BB")||(Soort="MM") Batch=Soort_" "
  .Set $P(Rec,D,1)=Batch
  .Set:LevWk=ProdWk $P(Rec,D,2)="A"
@@ -188,7 +190,12 @@
  .Merge ^HADPR("B",Batch)=Batches(Batch)
  Else  Do  ; Creatie batch met default informatie
  .Set Rec="Week "_$$EXTDATE^vhLib.DataTypes(ProdWk,"W")_" "_$S($E(Batch,3)="B":"Banco",$E(Batch,3)="P":"Profiel",$E(Batch,3)="D":"Diverse",$E(Batch,3)="Z":"Proforma/Herstelling",1:"basis")
- .Set $P(Rec,D,2)=$H
+ .Set:$E(Soort)="T" Rec="TBX "_$S($E(Soort,2)="X":"V1",1:"Probox,...")
+ .Set:$E(Soort)="L" Rec="LBX "_$S($E(Soort,2)="X":"V1",1:"Probox,...")
+ .Set:$E(Soort)="M" Rec="MVX "_$S($E(Soort,2)="X":"V1",1:"Probox,...")
+ .Set:$E(Soort,1,2)="MM" Rec="Mat op maat"
+ .Set:$E(Soort,1,2)="TA" Rec="TAX"
+  .Set $P(Rec,D,2)=$H
  .Set $P(Rec,D,3)=$$CALCDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(ProdWk,"W","FD"),"A","-0")
  .Set $P(Rec,D,4)=$$CALCDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(ProdWk,"W","LD"),"A","+0")
  .Set ^HADPR("B",Batch)=Rec
Index: OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml
===================================================================
diff -u -r69296 -r70681
--- OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(.../VerdeelSOPRVoorraad.cls.xml)	(revision 69296)
+++ OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(.../VerdeelSOPRVoorraad.cls.xml)	(revision 70681)
@@ -17,6 +17,17 @@
 <Type>%String</Type>
 </Property>
 
+<UDLText name="T">
+<Content><![CDATA[
+// Picking is uitgevoerd in OBJT maar nog niet verwerkt in Admin
+
+]]></Content>
+</UDLText>
+
+<Property name="PickingUitgevoerd">
+<Type>%String</Type>
+</Property>
+
 <Property name="TotaalVerkoop">
 <Type>%Decimal</Type>
 </Property>
@@ -53,13 +64,20 @@
 <Type>%ResultSet</Type>
 </Property>
 
+<Property name="CheckOBJTFase">
+<Type>OBJTimpl.CheckObjectiveFase</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Entiteit:%String,OBJTItemID:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..itAdminItemIDs=..GeefAdminItemIDsIterator(OBJTItemID)
 	Set ..Entiteit=Entiteit
 	Set ..Logger = ##class(vhLib.Logger).%New("OBJT_WMS")
+	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
+	;w Entiteit,OBJTItemID,!
 	Do ..BepaalTotalen()
 	
 	Set ..itAdminItemIDs=..GeefAdminItemIDsIterator(OBJTItemID)
@@ -117,7 +135,6 @@
 				Do ..WijzigVoorraad(..ResultSet.Data("Product"),TeVerdelenVoorraadPerProduct,Actie,Omschrijving)
 			}
 		}
-	
 	}
 ]]></Implementation>
 </Method>
@@ -155,12 +172,20 @@
 <Implementation><![CDATA[
 	;w !," voorraadwijziging   ",PRNr," ",$$$PRGet($$$KortTekst)," ",Voorraadwijziging
 	Quit:Voorraadwijziging=0 ;geen wijziging
-	
-	Do ##class(vhLib.OldSchool).InitVars()
-	Set CUserId="OBJT"
- 	Do ..Logger.Warning("Voorraadniveau","PRNr:"_PRNr_" Entiteit:"_..Entiteit_" Delta:"_Voorraadwijziging_" Oms:"_Omschrijving) 
 
-	Do STORE^PRSTOCK(..BepaalMagazijn(..Entiteit, PRNr),Actie,PRNr,Voorraadwijziging,Omschrijving)
+	If ..CheckOBJTFase.VoorraadSync(PRNr,..Entiteit) 
+	{
+		Do ##class(vhLib.OldSchool).InitVars()
+		Set CUserId="OBJT"
+	 	Do ..Logger.Warning("Voorraadniveau","PRNr:"_PRNr_" Entiteit:"_..Entiteit_" Delta:"_Voorraadwijziging_" Oms:"_Omschrijving) 
+
+		Do STORE^PRSTOCK(..BepaalMagazijn(..Entiteit, PRNr),Actie,PRNr,Voorraadwijziging,Omschrijving)
+	}
+	Else ; voorraad wijziging niet toegelaten
+	{
+		Do ..Logger.Error("Voorraadniveau","WIJZIGING NIET TOEGELATEN VOLGENS HUIDIGE FASE; PRNr:"_PRNr_" Entiteit:"_..Entiteit_" Delta:"_Voorraadwijziging_" Oms:"_Omschrijving) 
+
+	}
 ]]></Implementation>
 </Method>
 
Index: OBJTimpl/WMSOrder/OphalenGeraapteVoorraadNiveau.cls.xml
===================================================================
diff -u -r68860 -r70681
--- OBJTimpl/WMSOrder/OphalenGeraapteVoorraadNiveau.cls.xml	(.../OphalenGeraapteVoorraadNiveau.cls.xml)	(revision 68860)
+++ OBJTimpl/WMSOrder/OphalenGeraapteVoorraadNiveau.cls.xml	(.../OphalenGeraapteVoorraadNiveau.cls.xml)	(revision 70681)
@@ -115,8 +115,12 @@
 	_" where task.CATEGORY = 'PICK' "
 	_"  and task.substatus is null"
 	_"  and task.dtsstop>dateadd(day,-7,GetDate()) "
-	_"  and wh.NAME not in ('ST','KZ','KLZ') "
+	_"  and outboundOrder.id not like 'HK%' " 
+	_"  --and wh.NAME not in ('ST','KZ','KLZ') "
 	_" group by outboundOrder.id, op.name,it.Name "
+	
+	
+	 ; Orders in OBJT waarvan de PICK taak beëidigd is minder dan 7 dagen geleden.
 	try
     {
     	Do rs.Prepare(SqlStatement,,..SqlConnection)
Index: OBJTimpl/WMSOrder/dtoCorrelatePicking.cls.xml
===================================================================
diff -u -r66600 -r70681
--- OBJTimpl/WMSOrder/dtoCorrelatePicking.cls.xml	(.../dtoCorrelatePicking.cls.xml)	(revision 66600)
+++ OBJTimpl/WMSOrder/dtoCorrelatePicking.cls.xml	(.../dtoCorrelatePicking.cls.xml)	(revision 70681)
@@ -31,8 +31,7 @@
 </Property>
 
 <Property name="PickingTijdstip">
-<Type>%TimeStamp</Type>
-<Parameter name="XMLTIMEZONE" value="IGNORE"/>
+<Type>%String</Type>
 </Property>
 
 <Storage name="Default">
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml
===================================================================
diff -u -r68860 -r70681
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 68860)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 70681)
@@ -12,6 +12,10 @@
 <Type>dtoCorrelateVoorraadNiveau</Type>
 </Property>
 
+<Property name="OBJTIdentLookupService">
+<Type>OBJTimpl.PM.OBJTIdentLookupService</Type>
+</Property>
+
 <Property name="Logger">
 <Type>vhLib.Logger</Type>
 </Property>
@@ -33,19 +37,16 @@
 <Implementation><![CDATA[
 	Do ##class(dtoCorrelateVoorraadNiveau).%KillExtent()
 	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
+	Set ..OBJTIdentLookupService = ##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New("OBJT_WMS")
 	Set ..Vandaag=+$H
-	Kill ^OBJTVoorraad("D",..Vandaag)
-	Kill ^OBJTVoorraad("IP")
-	Kill ^OBJTVoorraad("CORR",..Vandaag)
-	Kill ^OBJTVoorraad("SQL",..Vandaag)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="test">
-<Description><![CDATA[
-d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().BepaalGepickteMaarNietAfgemeldeAantallen()</Description>]]></Description>
+<Description>
+d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().BepaalGepickteMaarNietAfgemeldeAantallen()</Description>
 <Implementation><![CDATA[
 	set ..pxVoorraad=##class(dtoCorrelateVoorraadNiveau).%New()
 	set ..pxVoorraad.Aantal=415
@@ -58,18 +59,34 @@
 <Method name="Verwerk">
 <FormalSpec>XMLreader:%XML.Reader</FormalSpec>
 <Implementation><![CDATA[
-	Do ..BepaalGepickteMaarNietAfgemeldeAantallen()
+	Do ..ClearCache()
+	;Do ..BepaalGepickteMaarNietAfgemeldeAantallen() -- niet nuttig
+	Do ..BepaalGepickteMaarNietOpBon()
 	Do ..VerwerkBestand(XMLreader)
 	Do ..VerwerkOntbrekendeVoorraden()
+	Do ..MailDiff()
+	
+	Set $P(^OBJTVoorraad(..Vandaag),"\",3,4)=$H_"\"_$zdt($H,8)
 ]]></Implementation>
 </Method>
 
+<Method name="ClearCache">
+<Implementation><![CDATA[
+	;Opkuisen oude data
+	Set Datum=0
+	For  Set Datum=$O(^OBJTVoorraad(Datum)) Quit:Datum=""  Quit:Datum>(..Vandaag-30)  Kill ^OBJTVoorraad(Datum)
+
+	Kill ^OBJTVoorraad(..Vandaag)
+	
+	Set ^OBJTVoorraad=$H_"\"_$zdt($H,8)
+	Set ^OBJTVoorraad(..Vandaag)=$H_"\"_$zdt($H,8)
+]]></Implementation>
+</Method>
+
 <Method name="BepaalGepickteMaarNietAfgemeldeAantallen">
 <Implementation><![CDATA[
 	Set Ophaler = ##class(OBJTimpl.WMSOrder.OphalenGeraapteVoorraadNiveau).%New()
 	Set it=Ophaler.GeefIterator()
-	Kill ^OBJTVoorraad("CORR",..Vandaag)
-	Kill ^OBJTVoorraad("SQL",..Vandaag)
 
 	Set Entiteit="VHBE"
 	Set Teller=0
@@ -87,17 +104,57 @@
 	 	Set StatusBON=$P($G(^ORDW("D",CONSNr)),"\",20)
 	 	Set StatusOBJT=$P($G(^ORDW("D",CONSNr,"S","V")),"\")
 
-		Set ^OBJTVoorraad("SQL",..Vandaag,ItemID,Entiteit,$I(Teller))=$LB(CONSNr,ORDNr,OLNr,SOLNr,Aantal,StatusBON,StatusOBJT)
+		Set ^OBJTVoorraad(..Vandaag,"SQL",ItemID,Entiteit,$I(Teller))=$LB(CONSNr,ORDNr,OLNr,SOLNr,Aantal,StatusBON,StatusOBJT)
 
-	 	If $D(^ORDW("D",CONSNr)) && (StatusBON'="B") ;nog niet op bon maar wel al geraapt -> voorraad correctie
+	 	If $D(^ORDW("D",CONSNr)) && (StatusBON'="B") ;nog niet op bon maar wel al geraapt -> geen echte correctie omdat ook klaargezette (gepickte) voorraad wordt mee geteld tot dat het outboundorder in OBJT wordt beëindigd.
 	 	{
-		 	Set ^OBJTVoorraad("CORR",..Vandaag,ItemID,Entiteit)=$G(^OBJTVoorraad("CORR",..Vandaag,ItemID,Entiteit))+Aantal
+		 	Set ^OBJTVoorraad(..Vandaag,"CORR2",ItemID,Entiteit)=$G(^OBJTVoorraad(..Vandaag,"CORR2",ItemID,Entiteit))+Aantal
 		}
  	
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalGepickteMaarNietOpBon">
+<Description>
+d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().BepaalGepickteMaarNietOpBon()</Description>
+<Implementation><![CDATA[
+	Set CONSNr=$O(^ORDW("D",""))
+	While CONSNr
+	{  
+		If ($P(^ORDW("D",CONSNr),"\",20)?1(1"A",1"P",1"C")) && ($P($G(^ORDW("D",CONSNr,"S","V")),"\")="A")
+		{
+			Set ORDNr=$O(^ORDW("D",CONSNr,"D",""))
+			While ORDNr'=""
+			{
+			   Set OLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,""))
+			   While OLNr'=""
+				{
+					Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLNr,""))
+					While SOLNr'=""
+					{
+						Set Rec=^ORDW("D",CONSNr,"D",ORDNr,OLNr,SOLNr)
+						Set PRNr=$P(Rec,"\",1) 
+						If ($P(Rec,"\",13)="V") && ($P(Rec,"\",2)="A")
+						{
+							Set Aantal=$P(Rec,"\",4)
+							Set ItemID=..OBJTIdentLookupService.GeefOBJTIdentNr($$$PRGet($$$IdentNummer))
+							Set ^OBJTVoorraad(..Vandaag,"CORR",ItemID,"VHBE")=$G(^OBJTVoorraad(..Vandaag,"CORR",ItemID,"VHBE"))+Aantal
+							Set ^OBJTVoorraad(..Vandaag,"CORR",ItemID,"VHBE",CONSNr)=$G(^OBJTVoorraad(..Vandaag,"CORR",ItemID,"VHBE",CONSNr))+Aantal
+						}
+						Set SOLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLNr,SOLNr))
+					}
+					Set OLNr=$O(^ORDW("D",CONSNr,"D",ORDNr,OLNr))
+				}
+				Set ORDNr=$O(^ORDW("D",CONSNr,"D",ORDNr))
+			}
+		}
+			
+		Set CONSNr=$O(^ORDW("D",CONSNr))
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBestand">
 <FormalSpec>XMLreader:%XML.Reader</FormalSpec>
 <Implementation><![CDATA[
@@ -111,12 +168,12 @@
 		{	
 			Set ..pxVoorraad=pxVoorraad
 
-			Set ..pxVoorraad.Entiteit=$zutil(..pxVoorraad.Entiteit,"U")
-			Set:..pxVoorraad.Entiteit=-1 ..pxVoorraad.Entiteit="VHBE"
-			
+			Set ..pxVoorraad.Entiteit=$ZCVT(..pxVoorraad.Entiteit,"U")
 			Do ..VerwerkVoorraad()
 		}
 	}
+	
+	Do ..Logger.Debug("OBJT_StockDiff","VerwerkBestand / VerwerkVoorraad is afgelopen. sc='"_$G(sc)_"' "_$$ParseStatus^vhLib($G(sc)))
 ]]></Implementation>
 </Method>
 
@@ -125,20 +182,21 @@
 	#dim rs as %ResultSet
 	Set itVerdeler=##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).%New(..pxVoorraad.Entiteit,..pxVoorraad.ItemId)
 	;w !,..pxVoorraad.Entiteit,"  ",..pxVoorraad.ItemId
-	#dim VoorraadCorrectie as %Decimal=$G(^OBJTVoorraad("CORR",..Vandaag,..pxVoorraad.ItemId,..pxVoorraad.Entiteit))
+	
+	#dim PickingCorrectie as %Decimal=$G(^OBJTVoorraad(..Vandaag,"CORR",..pxVoorraad.ItemId,..pxVoorraad.Entiteit))
 	Set ..pxVoorraad.AantalAdmin=itVerdeler.GeefOudeVoorraad()
-	If ..pxVoorraad.Aantal'=..pxVoorraad.AantalAdmin
+	If ..pxVoorraad.Aantal'=(..pxVoorraad.AantalAdmin-PickingCorrectie)
 	{
 		;Write " = ",..pxVoorraad.Aantal," <-> ", ..pxVoorraad.AantalAdmin
-		Do itVerdeler.Verdeelvoorraad(..pxVoorraad.Aantal-..pxVoorraad.AantalAdmin,"N","OBJT nachtelijk sync")
+		Do itVerdeler.Verdeelvoorraad(..pxVoorraad.Aantal-..pxVoorraad.AantalAdmin,"N","OBJT nachtelijk sync"_$S(PickingCorrectie:" (corr:"_PickingCorrectie_")",1:""))
 	}
 	Do ..MarkeerVerwerkteProducten()
 ]]></Implementation>
 </Method>
 
 <Method name="MarkeerVerwerkteProducten">
 <Implementation><![CDATA[
-	#dim VoorraadCorrectie as %Decimal=$G(^OBJTVoorraad("CORR",..Vandaag,..pxVoorraad.ItemId,..pxVoorraad.Entiteit))
+	#dim PickingCorrectie as %Decimal=$G(^OBJTVoorraad(..Vandaag,"CORR",..pxVoorraad.ItemId,..pxVoorraad.Entiteit))
 	#dim rs as %ResultSet=##class(OBJTimpl.PM.OBJTIdentNrMappingRepository).%New().GeefAdminItemIDs(..pxVoorraad.ItemId)
 	#dim it as TECH.ResultSetIterator = ##class(TECH.ResultSetIterator).%New(rs)
 
@@ -148,7 +206,7 @@
 		Set PRNr=rs.Data("Product")
 		If PRNr
 		{
-			Set ^OBJTVoorraad("VERWERKT",PRNr,..pxVoorraad.Entiteit)=..pxVoorraad.ItemId
+			Set ^OBJTVoorraad(..Vandaag,"VERWERKT",PRNr,..pxVoorraad.Entiteit)=$LB(..pxVoorraad.ItemId,..pxVoorraad.Aantal,..pxVoorraad.AantalAdmin,PickingCorrectie)
 		}
 	}
 ]]></Implementation>
@@ -157,67 +215,94 @@
 <Method name="VerwerkOntbrekendeVoorraden">
 <Implementation><![CDATA[
 	;TODO : nakijken
+
 	Set PRNr=$O(^PRSTOCK("D",0))
 	While PRNr'=""
 	{
-		; HLX Werkvloer
-		Set AdminVoorraad=$P(^PRSTOCK("D",PRNr),"\",5)
-		Set Entiteit="HLX"
-		If $D(^KPR(PRNr)) && (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^OBJTVoorraad("VERWERKT",PRNr,Entiteit)) && ($$$PRGet($$$LinkType)'="S")
+		If $D(^KPR(PRNr))
 		{
- 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
-			Do ..ZetVoorraadOpNul(Entiteit,PRNr,-AdminVoorraad)
-		}
+			; HLX Werkvloer
+			Set AdminVoorraad=$P(^PRSTOCK("D",PRNr),"\",5)
+			Set Entiteit="HLX"
 		
-		; VHBE Fysieke voorraad
-		Set AdminVoorraad=$P(^PRSTOCK("D",PRNr),"\",1)
-		Set Entiteit="VHBE"
-		If $D(^KPR(PRNr)) && (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^OBJTVoorraad("VERWERKT",PRNr,Entiteit)) && ($$$PRGet($$$LinkType)'="S")
-		{
- 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" "_$$$PRGet($$$KortTekst)_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
-			Do ..ZetVoorraadOpNul(Entiteit,PRNr,-AdminVoorraad)
-		}
+			If (+AdminVoorraad'=0) && ..IsGeldigProductVoorNul(Entiteit,PRNr)
+			{
+	 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
+				Do ..ZetVoorraadOpNul(Entiteit,PRNr,-AdminVoorraad)
+			}
 		
+			; VHBE Fysieke voorraad
+			Set AdminVoorraad=$P(^PRSTOCK("D",PRNr),"\",1)
+			Set Entiteit="VHBE"
+			If (+AdminVoorraad'=0) && ..IsGeldigProductVoorNul(Entiteit,PRNr)
+			{
+				Set OBJTItemId=..OBJTIdentLookupService.GeefOBJTIdentNr($$$PRGet($$$IdentNummer))
+				#dim PickingCorrectie as %Decimal=$G(^OBJTVoorraad(..Vandaag,"CORR",OBJTItemId,Entiteit))
+
+	 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" "_$$$PRGet($$$KortTekst)_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad_$S(PickingCorrectie:" (Picking corr:"_PickingCorrectie_")",1:"")) 
+	 			Set ^OBJTVoorraad(..Vandaag,"VERWERKT",PRNr,..pxVoorraad.Entiteit)=$LB($$$PRGet($$$IdentNummer),0,AdminVoorraad,PickingCorrectie,"OBJT nachtelijk sync op NUL")
+				Do ..ZetVoorraadOpNul(Entiteit,PRNr,-AdminVoorraad)
+			}
+		}
 		Set PRNr=$O(^PRSTOCK("D",PRNr))
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeldigProductVoorNul">
+<FormalSpec>Entiteit:%String,PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	If Entiteit="HLX"
+	{
+		Set Geldig=..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^OBJTVoorraad(..Vandaag,"VERWERKT",PRNr,Entiteit)) && ($$$PRGet($$$LinkType)'="S")
+	}
+	Else 
+	{
+		//Geen 'Stock over kinderen'
+		//Opslagzone beperkt tot 1 tem 4, nl. AUTO, UGLY, VERT.LIFT(=OBJT) en TRANSIT
+		//Geen REVEGO plaatmateriaal, deze worden aangekocht in entiteit VHBE maar worden niet door OBJT beheerd.
+		Set Geldig=..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^OBJTVoorraad(..Vandaag,"VERWERKT",PRNr,Entiteit)) && ($$$PRGet($$$LinkType)'="S") && ($$$PRGet($$$OpslagZone)>0) && ($$$PRGet($$$OpslagZone)<5) && ($$$PRGet($$$WerkvloerSubMag)'="RVGPLM")
+	}
+	Quit Geldig
+]]></Implementation>
+</Method>
+
 <Method name="ZetVoorraadOpNul">
 <FormalSpec>Entiteit:%String,PRNr:%String,Voorraadwijziging:%Decimal</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	;w !," voorraadwijziging naar nul  ",PRNr," ",$$$PRGet($$$KortTekst)," ",Voorraadwijziging
+
 	Set Omschrijving="OBJT nachtelijk sync op NUL"
 	Do ##class(vhLib.OldSchool).InitVars()
 	Set CUserId="OBJT"
- 	;//Do ..Logger.Warning("Voorraadniveau","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Delta:"_Voorraadwijziging_" Oms:"_Omschrijving) 
-	;Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),"N",PRNr,Voorraadwijziging,Omschrijving)
+	Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),"N",PRNr,Voorraadwijziging,Omschrijving)
 ]]></Implementation>
 </Method>
 
 <Method name="Export">
 <Description>
-d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).Export()</Description>
-<ClassMethod>1</ClassMethod>
+d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).New().Export()</Description>
 <FormalSpec>Datum:%Integer</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Set Datum=$G(Datum, $O(^OBJTVoorraad("D",""),-1))
+	Set Datum=$G(Datum,..Vandaag)
 	
 	Set Device=$$OPEN^vhDEV("\\NOTES01\SHARED\P V","Voorraad "_$zd(Datum,8)_".txt","W","T")
 	Use Device
 	Write "ItemID	Entiteit	OBJTAantal	AdminAantal	VoorraadCorr",!
 	
-	Set ItemID=$O(^OBJTVoorraad("D",Datum,""))
+	Set PRNr=$O(^OBJTVoorraad(..Vandaag,"VERWERKT",""))
 	Set Entiteit="VHBE"
-	While ItemID'=""
+	While PRNr'=""
 	{
+		Set OBJTItemID=$LI(^OBJTVoorraad(..Vandaag,"VERWERKT",PRNr,Entiteit),1)
+		Set IdentNummer=$$$PRGet($$$IdentNummer)		
 
-		Write ItemID,*9,Entiteit,*9,$LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),2),*9,$LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),3),*9,$G(^OBJTVoorraad("CORR",Datum,ItemID,Entiteit)),!
-		;Write ItemID,*9,$G(^OBJTVoorraad("D",Datum,ItemID,Entiteit)),!
+		Write OBJTItemID_$S(OBJTItemID'=IdentNummer:"("_IdentNummer_")",1:""),*9,Entiteit,*9,$LI(^OBJTVoorraad(..Vandaag,"VERWERKT",PRNr,Entiteit),2),*9,$LI(^OBJTVoorraad(..Vandaag,"D","VERWERKT",PRNr,Entiteit),3),*9,$G(^OBJTVoorraad(..Vandaag,"CORR",Datum,OBJTItemID,Entiteit)),!
+		;Write ItemID,*9,$G(^OBJTVoorraad(..Vandaag,"D",Datum,ItemID,Entiteit)),!
 		
-		Set ItemID=$O(^OBJTVoorraad("D",Datum,ItemID))
+		Set PRNr=$O(^OBJTVoorraad(..Vandaag,"VERWERKT",PRNr))
 	}
 	
 	Do CLOSE^vhDEV(Device)
@@ -226,22 +311,35 @@
 
 <Method name="MailDiff">
 <Description>
-d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().MailDiff()</Description>
+d ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().MailDiff($H-1)</Description>
+<FormalSpec>Datum</FormalSpec>
 <Implementation><![CDATA[
- 	Set From="pv@vanhoecke.be"
-	Set To=$LB("vdr@vanhoecke.be","pv@vanhoecke.be")
+	Set Datum=$G(Datum,..Vandaag)
+ 	Set From="Admin@vanhoecke.be"
+	Set To=$LB("vdr@vanhoecke.be","pv@vanhoecke.be","Matthias.DeVleeschhauwer@vanhoecke.be")
 	;Set To=$LB("pv@vanhoecke.be")
-	Set Subject="Voorraadverschillen OBJT <-> Admin"
-	Set strmBody=..GetDiffInHTML()
+	Set Subject="Voorraadverschillen OBJT <-> Admin "_$zd(Datum,2)
+	
+	Do ..Logger.Debug("OBJT_StockDiff","MailDiff voor Datum '"_Datum_"' of leesbaar '"_$zd(Datum,2)_"'.")
+	
+	Set strmBody=..GetDiffInHTML(Datum)
+	Quit:strmBody=""
+	
+	Do ..Logger.Debug("OBJT_StockDiff","MailDiff met strmBody (size="_$Length(strmBody)_").")
+	
 	Set Status=$$SendMiniMail^vhLib(From,To,Subject,strmBody,1,1)
-	If 'Status Set Warning="Mail niet verzonden!"
-	If Status Set Warning="Mail verzonden."
+	If 'Status 
+	{
+		Do ##class(vhLib.Logger).%New("OBJT_WMS").Error("Diff mail niet verzonden","")
+	}
+	
+	Do ..Logger.Debug("OBJT_StockDiff","MailDiff resultaat van SendMiniMail = '"_$$ParseStatus^vhLib(Status)_"'.")
 ]]></Implementation>
 </Method>
 
 <Method name="GetDiffInHTML">
+<FormalSpec>Datum</FormalSpec>
 <Implementation><![CDATA[
-	Set Datum=$O(^OBJTVoorraad("D",""),-1)
 	Set OBJTService=##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
 	
  	#define fmtBeginHtml "<html><body style=""font-family:arial,helvetica;"">"
@@ -257,36 +355,72 @@
 	Do strmBody.Write("<th>OBJT</th>")
 	Do strmBody.Write("<th>Admin</th>")
 	Do strmBody.Write("<th>Diff</th>")
+	Do strmBody.Write("<th>Corr. picking</th>")
+	Do strmBody.Write("<th>"_$zd(Datum-1,2)_"</th>")
+	Do strmBody.Write("<th>"_$zd(Datum-2,2)_"</th>")
+	Do strmBody.Write("<th>"_$zd(Datum-3,2)_"</th>")
+	Do strmBody.Write("<th>"_$zd(Datum-4,2)_"</th>")
+	Do strmBody.Write("<th>"_$zd(Datum-5,2)_"</th>")
+	Do strmBody.Write("<th>Opmerking</th>")
 	Do strmBody.Write("</tr>")
 	
-	Set ItemID=$O(^OBJTVoorraad("D",Datum,""))
+	Set PRNr=$O(^OBJTVoorraad(Datum,"VERWERKT",""))
 	Set Entiteit="VHBE"
-	While ItemID'=""
+	Set Cnt=0
+	Kill ^||Voorraad
+	While PRNr'=""
 	{
-		If $LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),2)'=$LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),3)
+		If $D(^OBJTVoorraad(Datum,"VERWERKT",PRNr,Entiteit)) && ($LI(^OBJTVoorraad(Datum,"VERWERKT",PRNr,Entiteit),2)'=($LI(^OBJTVoorraad(Datum,"VERWERKT",PRNr,Entiteit),3)-$LI(^OBJTVoorraad(Datum,"VERWERKT",PRNr,Entiteit),4)))
 		{
-			Set it=OBJTService.GeefAdminIdentNrs(ItemID)
-			Set Txt=""
-			While it.HasNext()
+			Set lb=^OBJTVoorraad(Datum,"VERWERKT",PRNr,Entiteit)
+			Set $LI(lb,10)=PRNr
+			Set ^||Voorraad($$SORTKEY^PRODUKT(PRNr))=lb
+		}
+		Set PRNr=$O(^OBJTVoorraad(Datum,"VERWERKT",PRNr))
+ 	}
+
+	
+	Set Key=$O(^||Voorraad(""))
+	Set Cnt=0
+	While Key'=""
+	{
+		Set Cnt=Cnt+1
+		Set PRNr=$LI(^||Voorraad(Key),10)
+		Set OBJTItemID=$LI(^||Voorraad(Key),1)
+		Set IdentNummer=$$$PRGet($$$IdentNummer)		
+		Do strmBody.Write("<tr>")
+		Do strmBody.Write("<td>"_OBJTItemID_$S(OBJTItemID'=IdentNummer:"("_IdentNummer_")",1:"")_"</td>")
+		Do strmBody.Write("<td>"_$$$PRGet($$$KortTekst)_"</td>")
+		Do strmBody.Write("<td>&nbsp;"_$LI(^||Voorraad(Key),2)_"&nbsp;</td>")
+		Do strmBody.Write("<td>&nbsp;"_$LI(^||Voorraad(Key),3)_"&nbsp;</td>")
+		Do strmBody.Write("<td>&nbsp;"_($LI(^||Voorraad(Key),2)-$LI(^||Voorraad(Key),3))_"&nbsp;</td>")
+		Do strmBody.Write("<td>&nbsp;"_$LI(^||Voorraad(Key),4)_"&nbsp;</td>")
+		
+		Set HistDatum=Datum-1
+		While HistDatum>(Datum-6)
+		{
+			If $D(^OBJTVoorraad(HistDatum,"VERWERKT",PRNr,Entiteit)) && ($LI(^OBJTVoorraad(HistDatum,"VERWERKT",PRNr,Entiteit),2)'=($LI(^OBJTVoorraad(HistDatum,"VERWERKT",PRNr,Entiteit),3))-$LI(^OBJTVoorraad(HistDatum,"VERWERKT",PRNr,Entiteit),4))
 			{
-				Set rs=it.Next()
-				Set Txt=Txt_"; "_rs.Data("KortTekst")
+				Do strmBody.Write("<td style=""color:#AAAAAA"">&nbsp;"_($LI(^OBJTVoorraad(HistDatum,"VERWERKT",PRNr,Entiteit),2)-($LI(^OBJTVoorraad(HistDatum,"VERWERKT",PRNr,Entiteit),3))-$LI(^OBJTVoorraad(HistDatum,"VERWERKT",PRNr,Entiteit),4))_"&nbsp;</td>")
 			}
-			
-			Do strmBody.Write("<tr>")
-			Do strmBody.Write("<td>"_ItemID_"</td>")
-			Do strmBody.Write("<td>"_$E(Txt,2,99)_"</td>")
-			Do strmBody.Write("<td>"_$LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),2)_"</td>")
-			Do strmBody.Write("<td>"_$LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),3)_"</td>")
-			Do strmBody.Write("<td>"_($LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),2)-$LI(^OBJTVoorraad("D",Datum,ItemID,Entiteit),3))_"</td>")
-			Do strmBody.Write("</tr>")
+			Else
+			{
+				Do strmBody.Write("<td></td>")
+			}
+			Set HistDatum=HistDatum-1
 		}
-		Set ItemID=$O(^OBJTVoorraad("D",Datum,ItemID))
+		
+		Do strmBody.Write("<td>"_$S($LG(^||Voorraad(Key),5)'="":$LG(^||Voorraad(Key),5),'..CheckOBJTFase.VoorraadSync(PRNr,Entiteit):"Voorraad niet toegelaten in OBJT",1:"")_"</td>")
+		Do strmBody.Write("</tr>")
+		
+		Set Key=$O(^||Voorraad(Key))
  	}
  	Do strmBody.Write($$$fmtEndTable)
  	Do strmBody.Write($$$fmtEndHtml)
  	
- 	Quit strmBody
+ 	Do ..Logger.Debug("OBJT_StockDiff","GetDiffInHTML aantal items : Cnt='"_Cnt_"'.")
+ 	
+ 	Quit $S(Cnt:strmBody,1:"")
 ]]></Implementation>
 </Method>
 </Class>
Index: PVExcel.mac.rou
===================================================================
diff -u -r57529 -r70681
--- PVExcel.mac.rou	(.../PVExcel.mac.rou)	(revision 57529)
+++ PVExcel.mac.rou	(.../PVExcel.mac.rou)	(revision 70681)
@@ -284,6 +284,62 @@
 	}
 	Quit Resultaat
 
+ ; =ceRoutine("$$ChangeOneBS^PVExcel";mm&"\"&xx&"\"&yy)
+ChangeOneBS(Ref)
+	; Ref = MPRNr_"\"_VanPRNr_"\"_NaarPRNr
+	Set D="\",Q="K",U=";"
+	S QU="JB",QU(1)=17,QU(2)="Johan Baetsl�"
+	
+	s DT=$$EXTDATE^vhLib.DataTypes($H,"DKP")
+	Set MPRNr=$$GetPRNr($P(Ref,"\",1))
+	Quit:MPRNr="" "#no moeder prod"
+	Set VanPRNr=$$GetPRNr($P(Ref,"\",2))
+	Quit:VanPRNr="" "#no VAN prod"
+ 	Set NaarPRNr=$$GetPRNr($P(Ref,"\",3))
+	Quit:NaarPRNr="" "#no NAAR prod"
+	;w MPRNr," ",VanPRNr," ",NaarPRNr
+ 	Quit $$ReplaceBouwsteen(MPRNr,VanPRNr,NaarPRNr)
+
+ ; =ceRoutine("$$ChangeAllBS^PVExcel";xx&"\"&yy)
+ChangeAllBS(Ref)
+	; Ref = VanPRNr_"\"_NaarPRNr
+	Set D="\",Q="K",U=";"
+	S QU="JB",QU(1)=17,QU(2)="Johan Baetsl�"
+	s DT=$$EXTDATE^vhLib.DataTypes($H,"DKP")
+	
+	Set VanPRNr=$$GetPRNr($P(Ref,"\",1))
+	Quit:VanPRNr="" "#no VAN prod"
+ 	Set NaarPRNr=$$GetPRNr($P(Ref,"\",2))
+	Quit:NaarPRNr="" "#no NAAR prod"
+	Quit $$ReplaceAlleBouwstenen(VanPRNr,NaarPRNr)
+	
+ReplaceAlleBouwstenen(VanPRNr,NaarPRNr)
+	New MPRNr,BSKey,PRCode,PRList
+	Set MPRNr=""
+	For  Set MPRNr=$O(^PRBS("IP",VanPRNr,MPRNr)) Quit:MPRNr=""  Do
+	. Set PRCode=$$ReplaceBouwsteen(MPRNr,VanPRNr,NaarPRNr)
+	. Set:PRCode'="" PRList=$G(PRList)_";"_PRCode
+	Quit $E($G(PRList),2,200)
+	
+ReplaceBouwsteen(MPRNr,VanPRNr,NaarPRNr)
+	New NoMod,BSCode,BSRec,%J
+	;w !,MPRNr
+	Lock +^PRBS("BS",MPRNr):0 
+	Else  Quit MPRNr ; niet gewijzigd
+	Set %J=$$%J^vhRtn1()
+ 	Do FETCH^PRBS(MPRNr)
+ 	Set BSCode=""
+ 	For  Set BSCode=$O(^PRBS("IP",VanPRNr,MPRNr,BSCode)) Quit:BSCode=""  Do
+ 	. If $D(^HULP(%J,"C",BSCode)) Do
+ 	. . Set BSRec=^HULP(%J,"C",BSCode)
+ 	. . Set $P(BSRec,D,1)=NaarPRNr ; wijzigen product
+ 	. . Set ^HULP(%J,"C",BSCode)=BSRec
+ 	Do SAVE^PRBS(MPRNr)
+	Lock -^PRBS("BS",MPRNr):0
+	Quit ""
+ 
+
+
  ; Ref = PRNr_"\"_FieldKey_"\"_NewValue_"\"_DataType
  ;'=ceRoutine("$$PRSet^PVExcel";A2&"\013\"&B2)
 PRSet(Ref)
Index: MRP.mac.rou
===================================================================
diff -u -r29059 -r70681
--- MRP.mac.rou	(.../MRP.mac.rou)	(revision 29059)
+++ MRP.mac.rou	(.../MRP.mac.rou)	(revision 70681)
@@ -82,7 +82,7 @@
  Set Qty=1
  If Code="K" Set Qty=$P(RecJ,D,14) Set:Qty'>1&$G(NextBig) Code="N"
  If Code="N" Set Qty=$P(RecJ,D,15) Set:Qty'>1&$G(NextBig) Code="G"
- If Code="G" Set Qty=$P(RecJ,D,16)
+ If Code="G" Set Qty=$P(RecJ,D,16) Set:Qty'>1 Qty=1 ; als grootverpakking niet is ingevuld (wat eigenlijk wel zou moeten) dan defaulten naar 1 stuk - PV 23/11/2022
  If Code="P" Do
  . Set Qty=$$$PRGet($$$PalletQty)
  . Quit:Qty>1
Index: PVImportLocatieID.mac.rou
===================================================================
diff -u
--- PVImportLocatieID.mac.rou	(revision 0)
+++ PVImportLocatieID.mac.rou	(revision 70681)
@@ -0,0 +1,139 @@
+#Include Prod.Product
+	; import LocatieID HLX
+
+	Set reader=##class(TECH.FileReader).%New("\\Notes01\Shared\P V\Producten met LocatieID HLX.txt")
+	;Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	;Do reader.SetHeaderRow(1) ; optioneel, default = 1
+	;Do reader.SetFirstDataRow(2) ; optioneel, default = 2
+	;Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0
+	;Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
+	While reader.Next()
+	 {
+	 		Set ItemID=$tr(reader.Column(1),". ")
+	 		Set PRNr=$p($G(^KPR2(ItemID_" ")),"\")
+	 		;2de column is korttekst
+	 		Set Code=reader.Column(3)
+	 		Set LocPCData=reader.Column(4)
+	 		Write ItemID,*9,PRNr,*9,Code
+	 		If PRNr,$D(^KPR(PRNr))
+	 		{
+		 		Do $$$PRSet($$$ControleStatus,Code)
+				Do $$$PRSet($$$CycleCountTypeWMS,LocPCData)
+		 	}
+		 	Else
+		 	{
+			 	W "Not found"
+			}
+		 	Write !
+	 }
+	Quit
+
+
+CLEAN
+	Set PRNr=$O(^KPR(0))
+	
+	While PRNr
+	 {
+		;Do $$$PRSet($$$CycleCountTypeWMS,"")
+		If $p(^KPR(PRNr,1),"\",2)'=""
+		{
+		;W PRNr,$p(^KPR(PRNr,1),"\",2)," "
+		Set $P(^KPR(PRNr,1),"\",2)=""
+		}
+		Set PRNr=$O(^KPR(PRNr))
+	 }
+	 Quit
+	 
+TestPCData(BatchID, Ordernummer, Familie, Lijn)
+	; opgelet : De drop map is Familie afhankelijk
+	Set Dev=$$OPEN^vhDEV(,Ordernummer_".pic","W","T")
+	Use Dev
+	Set ZonderLocatieCnt=0
+	Do WriteHeader
+	Do WriteOnePick(Familie,BatchID,Ordernummer,Lijn,1978976,2,.ZonderLocatieCnt)
+	Do WriteOnePick(Familie,BatchID,Ordernummer,Lijn,1979110,3,.ZonderLocatieCnt)
+	Do WriteOnePick(Familie,BatchID,Ordernummer,Lijn,839514,2,.ZonderLocatieCnt) ; heeft 2 locaties
+	Do WriteOnePick(Familie,BatchID,Ordernummer,Lijn,852189,4,.ZonderLocatieCnt) ; heeft gn locatie dus default
+	Do WriteOnePick(Familie,BatchID,Ordernummer,Lijn,837572,6,.ZonderLocatieCnt) ; 2de met gn locatie
+	If ZonderLocatieCnt>0
+	{
+		Do WriteZonderLocatie(Familie, BatchID, Ordernummer, Lijn, ZonderLocatieCnt)
+	}
+	Do CLOSE^vhDEV(Dev)
+	Quit
+	
+WriteHeader
+	Write "Type",*9,"OrderID",*9,"BoxBarcode",*9,"OrderDesc",*9,"Location",*9,"AskedAmount",*9,"PickedAmount",*9,"PackAmount",*9,"SourceEmpty",*9,"ProductCode",*9,"ProductDescription",*9,"UserField1",*9,"UserField2",*9,"UserField3",*9,"UserField4",*9,"UserField5",*9,"UserField6",!
+	Quit
+	
+WriteOnePick(Familie,BatchID, Ordernummer, Lijn, PRNr, Aantal,ZonderLocatieCnt)
+	Set:Familie="TA.B" Familie="TAX"
+	Set LookupService=##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
+	Set IdentNr=LookupService.GeefOBJTIdentNr($$$PRGet($$$IdentNummer))
+	Set:$D(^KPR2($TR(IdentNr,".")_" ")) PRNr=$P(^KPR2($TR(IdentNr,".")_" "),"\",1) ; Aanpassen van het SOPR product naar het OBJT product. Beter voor Korttekst en Identnummer
+	Set Product=##class(Prod.Product).%OpenId(PRNr)
+	Set HLXLocatie=$$$PRGet($$$ControleStatus) ; herbruik van veld voor HLX Locatie
+	Set PCDataLocatie=$$BepaalPCDataLocatie(Familie,Product)
+	Set EANCode=Product.BarcodeWaarde
+	Set KortTekst=Product.KortTekst
+	;Set Lijn=Product.Tekst.GetOmschrijving("N",";")
+	Set BoxBarcode=Ordernummer
+	Set OrderDesc=Lijn_" "_$E(BatchID,$L(BatchID)-3,$L(BatchID))
+	Set (PackAmount,SourceEmpty,UserField2,UserField3,UserField4,UserField5,UserField6)=""
+	Set PickedAmount=0
+	If PCDataLocatie=""
+	{
+		Set ZonderLocatieCnt=ZonderLocatieCnt+1 ; variabele doorgegeven by Reference
+	} Else {
+		Write "P",*9,Ordernummer,*9,BoxBarcode,*9,OrderDesc
+		Write *9,PCDataLocatie,*9,Aantal,*9,PickedAmount,*9,PackAmount,*9,SourceEmpty
+		Write *9,IdentNr,*9,KortTekst,*9,HLXLocatie,*9,UserField2,*9,UserField3,*9,UserField4,*9,UserField5,*9,UserField6
+		Write !
+	}
+	Quit
+	
+WriteZonderLocatie(Familie,BatchID, Ordernummer, Lijn, ZonderLocatieCnt)
+	Set BoxBarcode=Ordernummer
+	Set OrderDesc=Lijn_" "_$E(BatchID,$L(BatchID)-3,$L(BatchID))
+	Set (PackAmount,SourceEmpty,UserField2,UserField3,UserField4,UserField5,UserField6)=""
+	Set PickedAmount=0
+	Set PCDataLocatie=$$GeefZonderLocatie(Familie)
+	Set Aantal=ZonderLocatieCnt
+	Set IdentNr="ZONDERLOC"
+	Set KortTekst="Zonder vaste locatie"
+	Set HLXLocatie=""
+	Set EANCode=""
+	Write "P",*9,Ordernummer,*9,BoxBarcode,*9,OrderDesc
+	Write *9,PCDataLocatie,*9,Aantal,*9,PickedAmount,*9,PackAmount,*9,SourceEmpty
+	Write *9,IdentNr,*9,KortTekst,*9,HLXLocatie,*9,UserField2,*9,UserField3,*9,UserField4,*9,UserField5,*9,UserField6
+	Write !
+	Quit
+	
+BepaalPCDataLocatie(Familie,Product)	
+	Set Locaties=Product.CycleCountTypeWMS  ; Herbruik van veld voor PCData locatie
+	If Locaties[";"
+	{
+		Set PCDataLocatie=""
+		Set I=0
+		While $L($P(Locaties,";",$I(I)))
+		{
+			If $P($P(Locaties,";",I),":")=Familie
+			{
+				Set PCDataLocatie=$P($P(Locaties,";",I),":",2)
+			}
+		}
+	} Else {
+		Set PCDataLocatie=Locaties
+	}
+	
+	If PCDataLocatie'?1"A"2N1"_"3N
+
+	{
+		Set PCDataLocatie="" ;$$GeefZonderLocatie(Familie)
+	}
+	Quit PCDataLocatie
+	
+GeefZonderLocatie(Familie)	
+	Quit:Familie="TAX" "A02_099"
+	Quit:Familie="LBX" "A04_099"
+	Quit ""
Index: OBJTimpl/BestandVerwerker.cls.xml
===================================================================
diff -u -r66310 -r70681
--- OBJTimpl/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 66310)
+++ OBJTimpl/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 70681)
@@ -23,6 +23,10 @@
 <Default>c:\WMSExchange\AdminNaarObjtArchive</Default>
 </Parameter>
 
+<Parameter name="VerstuurErrorMap">
+<Default>c:\WMSExchange\AdminNaarObjtError</Default>
+</Parameter>
+
 <Parameter name="OpkuisNaDagen">
 <Default>30</Default>
 </Parameter>
@@ -33,6 +37,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
  Set Error=0
+ Lock +OBJTFileReader:0 Else  Quit
  Do GETFILES^vhDEV(..#OntvangMap,.Files,"*.*","F")
  Hang 1
  ; Verwerking in volgorde van creatie van de bestanden
@@ -45,6 +50,9 @@
 
  	 Set File=$O(Files(File))
  }
+ Lock -OBJTFileReader
+
+ ;Do ..VerwijderOudeBestanden()
 ]]></Implementation>
 </Method>
 
@@ -56,14 +64,21 @@
 	Set Writer=##class(%XML.Writer).%New()
 	Set Writer.NoXMLDeclaration=1
 	Set Writer.Indent=1
-	Set sc=Writer.OutputToFile(..MaakBestandsnaam(Label))
+	Set PadEnFile=..MaakBestandsnaam(Label)
+	Set sc=Writer.OutputToFile(PadEnFile)
 	
-	Quit:$$$ISERR(sc) sc
-	
-	Set Writer.Charset="UTF-8"
-	Do Writer.RootElement("Root")
-	Do Writer.Object(px)
-	Do Writer.EndRootElement()
+	If $$$ISERR(sc)
+	{
+		Do ##class(vhLib.Logger).%New("OBJT_WMS").Error("Bestand NIET geschreven",Label _ " : Pad en bestand " _ PadEnFile_" Error: "_$$ParseStatus^vhLib(sc) , 1) 
+	}
+	Else
+	{
+		Set Writer.Charset="UTF-8"
+		Do Writer.RootElement("Root")
+		Do Writer.Object(px)
+		Do Writer.EndRootElement()
+		Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Bestand geschreven",Label _ " : Pad en bestand " _ PadEnFile) 
+	}
 ]]></Implementation>
 </Method>
 
@@ -107,9 +122,13 @@
 <Method name="VerwijderOudeBestanden">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	 Do SCANDIR^vhDEV(..#OntvangArchiefMap,"*.*",Ref,"X",..#OpkuisNaDagen)
-	 Do SCANDIR^vhDEV(..#VerstuurArchiefMap,"*.*",Ref,"X",..#OpkuisNaDagen)
-	 Kill ^EWREC("P","OBJTFileCnt")
+	If $G(^EWREC("P","OBJTFileCnt"))>10000
+	{
+	 	Do SCANDIR^vhDEV(..#OntvangArchiefMap,"*.*","RemFiles","X",..#OpkuisNaDagen)
+	 	Do SCANDIR^vhDEV(..#VerstuurArchiefMap,"*.*","RemFiles","X",..#OpkuisNaDagen)
+	 	Do SCANDIR^vhDEV(..#VerstuurErrorMap,"*.*","RemFiles","X",..#OpkuisNaDagen*2)
+		Kill ^EWREC("P","OBJTFileCnt")
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml
===================================================================
diff -u -r68790 -r70681
--- OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml	(.../ZendHerbevoorrading.cls.xml)	(revision 68790)
+++ OBJTimpl/Herbevoorrading/ZendHerbevoorrading.cls.xml	(.../ZendHerbevoorrading.cls.xml)	(revision 70681)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="OBJTimpl.Herbevoorrading.ZendHerbevoorrading">
 <Description>
-Doorgeven van ontvangen goederen naar OBJT. De receptielijn wordt automatisch gestockeerd.</Description>
+Herbevoorrading van de Kardex</Description>
 <Super>%RegisteredObject</Super>
 
 <Property name="ProductVoorraad">
@@ -18,18 +18,26 @@
 </Property>
 
 <Parameter name="DrempelDagenBuffer">
-<Default>1</Default>
+<Description>
+De drempel wordt bepaald door een aantal keer de gemiddelde dagafname</Description>
+<Default>2</Default>
 </Parameter>
 
 <Parameter name="HerbevoorradingDagenBuffer">
+<Description>
+Indien onder de drempel dan wordt er aantal keer de gemiddelde dagafname genomen</Description>
 <Default>2</Default>
 </Parameter>
 
 <Parameter name="DrempelVeiligheid">
+<Description>
+Aantal keer de standaardafwijking</Description>
 <Default>2</Default>
 </Parameter>
 
 <Parameter name="HerbevoorradingVeiligheid">
+<Description>
+Aantal keer de standaardafwijking</Description>
 <Default>2</Default>
 </Parameter>
 
Index: OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml
===================================================================
diff -u -r68871 -r70681
--- OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml	(.../OphalenVoorraad.cls.xml)	(revision 68871)
+++ OBJTimpl/Herbevoorrading/OphalenVoorraad.cls.xml	(.../OphalenVoorraad.cls.xml)	(revision 70681)
@@ -90,7 +90,7 @@
 	_ " it.NAME ITEMID"
     _ " ,sum(case wl.Name WHEN'OPSLAG' THEN [QTYALLOCATED] ELSE 0 end) as QTYALLOCATED"
     _ " ,sum(case wl.Name WHEN 'OPSLAG' THEN [QTYONHAND] ELSE 0 end) as QTYONHAND"
-	_ " ,sum(case wl.Name WHEN 'IN' THEN [QTYONHAND] ELSE 0 end) as QTYINBOUND"
+	_ " ,sum(case wl.Name WHEN 'IN' THEN [QTYONHAND] WHEN 'REPL' THEN [QTYONHAND] ELSE 0 end) as QTYINBOUND"
   	_ " FROM [OBJT_INVENTORYRECORD] ir"
     _ " join objt_item it on  it.OID=itemoid"
   	_ " join OBJT_WAREHOUSE wh on ir.WAREHOUSEOID=wh.OID "
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
- 
- 
- 
- 
-	
- 
- 
- 
- 
- 
 
-
-