Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveau.cls.xml
===================================================================
diff -u -r66284 -r66843
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveau.cls.xml	(.../dtoCorrelateVoorraadNiveau.cls.xml)	(revision 66284)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveau.cls.xml	(.../dtoCorrelateVoorraadNiveau.cls.xml)	(revision 66843)
@@ -16,7 +16,7 @@
 
 <Property name="ItemId">
 <Type>%String</Type>
-<Parameter name="XMLITEMNAME" value="ItemId"/>
+<Parameter name="XMLNAME" value="ItemId"/>
 </Property>
 
 <Property name="PRNr">
@@ -26,12 +26,12 @@
 
 <Property name="Entiteit">
 <Type>%String</Type>
-<Parameter name="XMLITEMNAME" value="Entiteit"/>
+<Parameter name="XMLNAME" value="Entiteit"/>
 </Property>
 
 <Property name="Aantal">
 <Type>%Integer</Type>
-<Parameter name="XMLITEMNAME" value="Aantal"/>
+<Parameter name="XMLNAME" value="Aantal"/>
 </Property>
 
 <Property name="AantalAdmin">
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveauKardex.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveauKardex.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveauKardex.cls.xml	(revision 66843)
@@ -0,0 +1,167 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.ImporteerVoorraadNiveauKardex">
+<Description>
+Verwerken van de door OBJT gegenereerde voorraadlijst.
+Eerst wordt de voorraad uit de lijst verwerkt 
+en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet</Description>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="OntvangMap">
+<Default>\\kardex01-prd\Kardex_Data\Export</Default>
+</Parameter>
+
+<Parameter name="OntvangArchiefMap">
+<Default>\\kardex01-prd\Kardex_Data\Export\Archive</Default>
+</Parameter>
+
+<Parameter name="OpkuisNaDagen">
+<Default>30</Default>
+</Parameter>
+
+<Property name="pxVoorraad">
+<Type>dtoCorrelateVoorraadNiveauKardex</Type>
+</Property>
+
+<Property name="CheckOBJTFase">
+<Type>OBJTimpl.CheckObjectiveFase</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="UitlezenOntvangenBestanden">
+<Description>
+Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveauKardex).%New().UitlezenOntvangenBestanden()</Description>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Set Error=0
+ Do GETFILES^vhDEV(..#OntvangMap,.Files,"STOCK_SYNC*.XML","F")
+ Hang 1
+ ; Verwerking in volgorde van creatie van de bestanden
+ Set File=$O(Files(""))
+ While File'="" 
+ {   Set PathAndFile=$TR($P(Files(File),"\"),"/","\")
+ 		
+ 	 Do ..VerwerkBestand(PathAndFile)
+	 ;Do MOVEFILE^vhDEV(PathAndFile,,..#OntvangArchiefMap)
+
+ 	 Set File=$O(Files(File))
+ }
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBestand">
+<FormalSpec>PathAndFile:%String</FormalSpec>
+<Implementation><![CDATA[
+	#include %occStatus
+	Set reader = ##class(%XML.Reader).%New()
+	Set sc=reader.OpenFile(PathAndFile)
+	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc)  Quit  
+	Do reader.Correlate("DataExport","OBJTimpl.WMSOrder.dtoCorrelateVoorraadNiveauKardex")
+	
+	While reader.Next(.pxVoorraad,.sc)
+	{
+		If $$$ISOK(sc)
+		{	
+			Set ..pxVoorraad=pxVoorraad
+			
+			Set ..pxVoorraad.Entiteit="VHBE"
+			Do ..VerwerkVoorraad()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveauKardex).%New().test()
+
+]]></Content>
+</UDLText>
+
+<Method name="test">
+<Implementation><![CDATA[
+	Set pxVoorraad=##class(OBJTimpl.WMSOrder.dtoCorrelateVoorraadNiveauKardex).%New()
+	Set pxVoorraad.Aantal=125843
+	Set pxVoorraad.ItemId="0.328.376.3"
+	Set pxVoorraad.Entiteit="VHBE"
+	Set ..pxVoorraad=pxVoorraad
+	Do ..VerwerkVoorraad()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVoorraad">
+<Implementation><![CDATA[
+	#dim rs as %ResultSet
+	;Do ..BepaalPRNr()
+	Set itVerdeler=##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).%New(..pxVoorraad.Entiteit,..pxVoorraad.ItemId)
+	;Do ..BepaalGeldig()
+	w !,..pxVoorraad.Entiteit,"  ",..pxVoorraad.ItemId
+	Set ..pxVoorraad.AantalAdmin=itVerdeler.GeefOudeVoorraad()
+	If ..pxVoorraad.Aantal'=..pxVoorraad.AantalAdmin
+	{
+		Write " = ",..pxVoorraad.Aantal," <-> ", ..pxVoorraad.AantalAdmin
+		Do itVerdeler.Verdeelvoorraad(..pxVoorraad.Aantal-..pxVoorraad.AantalAdmin,"N","OBJT Kardex nachtelijk sync")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigVoorraad">
+<FormalSpec>Entiteit:%String,PRNr:%String,TeVerdelenVoorraad:%Decimal</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	w !,"    ",PRNr," ",$$$PRGet($$$KortTekst)," ",TeVerdelenVoorraad
+	Quit:TeVerdelenVoorraad=0 ;geen wijziging
+	
+	Do ##class(vhLib.OldSchool).InitVars()
+	Set CUserId="OBJT"
+ 	;Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Nieuw:"_NieuweVoorraad_" Oud:"_OudeVoorraad) 
+
+	;Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),"N",PRNr,TeVerdelenVoorraad,"OBJT Nachtelijk update")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGeldig">
+<Implementation><![CDATA[
+	Set:..pxVoorraad.Entiteit="" ..pxVoorraad.Fout="Entiteit niet ingevuld"
+	Set:..pxVoorraad.PRNr="" ..pxVoorraad.Fout="Onbekend product"
+	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadSync(..pxVoorraad.PRNr,..pxVoorraad.Entiteit))
+	{
+		Set ..pxVoorraad.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPRNr">
+<Implementation><![CDATA[
+	Quit:..pxVoorraad.ItemId="" ""
+	Set ..pxVoorraad.PRNr=$P($G(^KPR2($TR(..pxVoorraad.ItemId,".")_" ")),"\")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAdminVoorraad">
+<Implementation><![CDATA[
+	If ..pxVoorraad.Entiteit="HLX"
+	{
+		Set ..pxVoorraad.AantalAdmin=$P(^PRSTOCK("D",..pxVoorraad.PRNr),"\",5)
+	}
+	Else
+	{
+		Set ..pxVoorraad.AantalAdmin=$P(^PRSTOCK("D",..pxVoorraad.PRNr),"\",1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r66284 -r66843
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 66284)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 66843)
@@ -84,6 +84,8 @@
 <FormalSpec>Entiteit:%String,PRNr:%String,VoorraadWijziging:%Decimal</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+ 	Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Voorraadwijziging","PRNr:"_PRNr_" Delta:"_VoorraadWijziging) 
+
 	Do ##class(vhLib.OldSchool).InitVars()
 	Set CUserId="OBJT"
 	Set %Q1="^KBA(""%1"",$I)"
Index: OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml
===================================================================
diff -u -r66310 -r66843
--- OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml	(.../ZendOpslagOntvangst.cls.xml)	(revision 66310)
+++ OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml	(.../ZendOpslagOntvangst.cls.xml)	(revision 66843)
@@ -92,7 +92,7 @@
 	Set Ontvangst=##class(dtoOntvangst).%New()
 	Do Ontvangst.VulInVanuitEWMSControle(.C)
 	Do Ontvangsten.Voegtoe(Ontvangst)
-	Do ##class(OBJTimpl.BestandVerwerker).%New().MaakBestandVoorOBJT(Ontvangsten,"Creatie Voorraad")
+	Do ##class(OBJTimpl.BestandVerwerker).%New().MaakBestandVoorOBJT(Ontvangsten,"AanmakenVoorraad")
 ]]></Implementation>
 </Method>
 </Class>
Index: OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(revision 66843)
@@ -0,0 +1,195 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.VerdeelSOPRVoorraad">
+<Description>
+Verwerken van de door OBJT gegenereerde voorraadlijst.
+Eerst wordt de voorraad uit de lijst verwerkt 
+en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet</Description>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Entiteit">
+<Type>%String</Type>
+</Property>
+
+<Property name="TotaalVerkoop">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="TotaalAantalProducten">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="TotaalVHBEVoorraad">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="TotaalHLXVoorraad">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="VerwerktAantalProducten">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="itAdminItemIDs">
+<Type>TECH.ResultSetIterator</Type>
+</Property>
+
+<Property name="TeVerdelenVoorraad">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="ReedsVerdeeldeVoorraad">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="ResultSet">
+<Type>%ResultSet</Type>
+</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")
+	Do ..BepaalTotalen()
+	
+	Set ..itAdminItemIDs=..GeefAdminItemIDsIterator(OBJTItemID)
+
+	Set ..ReedsVerdeeldeVoorraad=0
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOudeVoorraad">
+<Implementation><![CDATA[
+	If ..Entiteit="HLX"
+	{
+		Set Voorraad=..TotaalHLXVoorraad
+	}
+	Else
+	{
+		Set Voorraad=..TotaalVHBEVoorraad
+	}
+	Quit Voorraad
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdminItemIDsIterator">
+<FormalSpec>OBJTItemID:%String</FormalSpec>
+<ReturnType>TECH.ResultSetIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ResultSet as %ResultSet
+	Set ResultSet=##class(%ResultSet).%New("%DynamicQuery:SQL")
+	Set sc=ResultSet.Prepare("select Product,ItemID,Product->GewogenGemiddeldeWeekVerkoop, Product->WerkvloerEenheid, Product->WerkvloerNettoAfm from OBJTimpl_PM.OBJTIdentNrMapping where Geldig=1 and OBJTItemID=? order by Product->GewogenGemiddeldeWeekVerkoop asc")
+	If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+	Set sc=ResultSet.Execute(OBJTItemID) If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+	Quit ##class(TECH.ResultSetIterator).%New(ResultSet)
+]]></Implementation>
+</Method>
+
+<Method name="Verdeelvoorraad">
+<FormalSpec>TeVerdelenVoorraad:%Decimal,Actie:%String,Omschrijving:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..TeVerdelenVoorraad=TeVerdelenVoorraad
+	While ..itAdminItemIDs.HasNext()
+	{
+		Set ..ResultSet = ..itAdminItemIDs.Next()
+		Set TeVerdelenVoorraadPerProduct=..GeefTeVerdelenVoorraadPerProduct()
+			
+		Do ..WijzigVoorraad(..ResultSet.Data("Product"),TeVerdelenVoorraadPerProduct,Actie,Omschrijving)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefTeVerdelenVoorraadPerProduct">
+<Implementation><![CDATA[
+	Set ..VerwerktAantalProducten=..VerwerktAantalProducten+1
+	If ..IsLaatsteProduct()
+	{
+		; Bij het laatste pruduct in de lijst (indien geen SOPRS dan is er maar 1)
+		Set AdminVoorraad=..TeVerdelenVoorraad-..ReedsVerdeeldeVoorraad
+			;w !,"Laatste",AdminVoorraad,..ReedsVerdeeldeVoorraad
+
+	} Else {
+		If ..TotaalVerkoop=0
+		{
+			; Nog geen verkopen voor het product
+			Set AdminVoorraad=..TeVerdelenVoorraad / ..TotaalAantalProducten
+		} Else {
+			; Regel van drie toepassen voor verkoop
+			Set AdminVoorraad=..TeVerdelenVoorraad * ..ResultSet.Data("GewogenGemiddeldeWeekVerkoop") / ..TotaalVerkoop
+		}
+		;w !,AdminVoorraad,..ReedsVerdeeldeVoorraad
+		Set AdminVoorraad=AdminVoorraad\1 ; Geheel getal de rest gaat naar het laatste product
+		Set ..ReedsVerdeeldeVoorraad=..ReedsVerdeeldeVoorraad+AdminVoorraad
+
+	}
+	Quit AdminVoorraad
+]]></Implementation>
+</Method>
+
+<Method name="WijzigVoorraad">
+<FormalSpec>PRNr:%String,Voorraadwijziging:%Decimal,Actie:%String,Omschrijving:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	w !,"    ",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($S(..Entiteit="HLX":"W",1:"F"),Actie,PRNr,Voorraadwijziging,Omschrijving)
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..itAdminItemIDs.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>%ResultSet</ReturnType>
+<Implementation><![CDATA[
+	Set ..VerwerktAantalProducten=..VerwerktAantalProducten+1
+	Set ..ResultSet=..itAdminItemIDs.Next()
+	Quit ..ResultSet
+]]></Implementation>
+</Method>
+
+<Method name="IsLaatsteProduct">
+<Implementation><![CDATA[	Quit ..VerwerktAantalProducten=..TotaalAantalProducten
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTotalen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..TotaalVerkoop=0
+	Set ..TotaalAantalProducten=0
+	
+	While ..itAdminItemIDs.HasNext()
+	{
+		#dim rs as %ResultSet = ..itAdminItemIDs.Next()
+		Set ..TotaalAantalProducten=..TotaalAantalProducten+1
+		Set Verkoop=rs.Data("GewogenGemiddeldeWeekVerkoop")
+		Set ..TotaalVerkoop=..TotaalVerkoop+$S(Verkoop>0:Verkoop,1:0)
+		Set ..TotaalVHBEVoorraad=..TotaalVHBEVoorraad+$P($G(^PRSTOCK("D",rs.Data("Product"))),"\",1)
+		Set ..TotaalHLXVoorraad=..TotaalHLXVoorraad+$P($G(^PRSTOCK("D",rs.Data("Product"))),"\",5)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r66638 -r66843
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 66638)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml	(.../ImporteerPicking.cls.xml)	(revision 66843)
@@ -30,7 +30,6 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Do ##class(dtoCorrelateVoorraadNiveau).%KillExtent()
-	Kill ^||OBJTVoorraad
 	Set ..CheckOBJTFase=##class(OBJTimpl.CheckObjectiveFase).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -81,10 +80,8 @@
 <Implementation><![CDATA[
 	Set ..pxPicking.ConsNr=$E(..pxPicking.ConsNr,5,10) ; YYMM moet erafgehaald worden
 	
-	// TODO : Priner definieren in de ^RES("LABELPRINTER","PI","VLM",...)
 	// Alleen in de eerste fase moet er een etiket afgedrukt worden
 	If (..CONSNr="")&&(..pxPicking.ConsNr)&&(..CheckOBJTFase.GeefFase()=1) {
-		;Do EXTERN^FLOWBON4(..pxPicking.ConsNr, "DEFAULT") ; zo snel mogelijk het label printen
 		Do EXTERN^FLOWBON4(..pxPicking.ConsNr, "KARDEX") ; zo snel mogelijk het label printen
 	}
 
@@ -109,8 +106,10 @@
  	Set C("SOURCEPALID")=""
  	Set C("USER")=""
  	Set C("LOCMSTR")=""
-    
+
     Do ##class(vhLib.OldSchool).InitVars()
+ 	Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Pick lijn",$$ArrayToText^vhLib("C",.C)) 
+    
     Do OL^EWORDF(.C)
 ]]></Implementation>
 </Method>
@@ -128,6 +127,8 @@
     Set C("STATUS")="POK"
 
 	Do ##class(vhLib.OldSchool).InitVars()
+ 	Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Pick einde",$$ArrayToText^vhLib("C",.C)) 
+
     Do PICKEND^EWORDF(.C)
 ]]></Implementation>
 </Method>
@@ -141,7 +142,7 @@
  	
  	Quit:'ORDNr||'OLNr||'SOLNr "" 
  	Set Rec=$G(^ORDW("D",..CONSNr,"D",ORDNr,OLNr,SOLNr))
- 	Set Status=$S(..pxPicking.Aantal=$P(Rec,"\",3):"POK",1:"PNOK")
+ 	Set Status="POK" ;$S(..pxPicking.Aantal=$P(Rec,"\",3):"POK",1:"PNOK")
  	Quit Status
 ]]></Implementation>
 </Method>
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml
===================================================================
diff -u -r66284 -r66843
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 66284)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 66843)
@@ -32,7 +32,7 @@
 <FormalSpec>XMLreader:%XML.Reader</FormalSpec>
 <Implementation><![CDATA[
 	Do ..VerwerkBestand(XMLreader)
-	Do ..VerwerkOntbrekendeVoorraden()
+	;Do ..VerwerkOntbrekendeVoorraden()
 	;zw ^||OBJTVoorraad
 ]]></Implementation>
 </Method>
@@ -58,36 +58,20 @@
 
 <Method name="VerwerkVoorraad">
 <Implementation><![CDATA[
-	w !,..pxVoorraad.ItemId
-	Do ..BepaalPRNr()
-	Do ..BepaalGeldig()
-
-	If ..pxVoorraad.Fout=""
-	{	
-
-		Do ..BepaalAdminVoorraad()
-		w "    ",..pxVoorraad.Aantal," <-> ", ..pxVoorraad.AantalAdmin
-		Do ..WijzigVoorraad(..pxVoorraad.Entiteit,..pxVoorraad.PRNr,..pxVoorraad.AantalAdmin, ..pxVoorraad.Aantal)
-		Set ^||OBJTVoorraad(..pxVoorraad.PRNr,..pxVoorraad.Entiteit)=""
-	} else {
-		W " FOUT ",..pxVoorraad.Fout
+	#dim rs as %ResultSet
+	;Do ..BepaalPRNr()
+	Set itVerdeler=##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).%New(..pxVoorraad.Entiteit,..pxVoorraad.ItemId)
+	;Do ..BepaalGeldig()
+	w !,..pxVoorraad.Entiteit,"  ",..pxVoorraad.ItemId
+	Set ..pxVoorraad.AantalAdmin=itVerdeler.GeefOudeVoorraad()
+	If ..pxVoorraad.Aantal'=..pxVoorraad.AantalAdmin
+	{
+		Write " = ",..pxVoorraad.Aantal," <-> ", ..pxVoorraad.AantalAdmin
+		;Do itVerdeler.Verdeelvoorraad(..pxVoorraad.Aantal-..pxVoorraad.AantalAdmin,"N","OBJT nachtelijk sync")
 	}
-	Do ..pxVoorraad.%Save()
 ]]></Implementation>
 </Method>
 
-<Method name="WijzigVoorraad">
-<FormalSpec>Entiteit:%String,PRNr:%String,OudeVoorraad:%Decimal,NieuweVoorraad:%Decimal</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	Quit:(NieuweVoorraad-OudeVoorraad)=0 ;geen wijziging
-
-	Do ##class(vhLib.OldSchool).InitVars()
-	Set CUserId="OBJT"
-	Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),"N",PRNr,(NieuweVoorraad-OudeVoorraad),$S(NieuweVoorraad=0:"OBJT Ontbrekende voorraad info",1:"OBJT Nachtelijk update"))
-]]></Implementation>
-</Method>
-
 <Method name="BepaalGeldig">
 <Implementation><![CDATA[
 	Set:..pxVoorraad.Entiteit="" ..pxVoorraad.Fout="Entiteit niet ingevuld"
@@ -106,21 +90,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalAdminVoorraad">
-<Implementation><![CDATA[
-	If ..pxVoorraad.Entiteit="HLX"
-	{
-		Set ..pxVoorraad.AantalAdmin=$P(^PRSTOCK("D",..pxVoorraad.PRNr),"\",5)
-	}
-	Else
-	{
-		Set ..pxVoorraad.AantalAdmin=$P(^PRSTOCK("D",..pxVoorraad.PRNr),"\",1)
-	}
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkOntbrekendeVoorraden">
 <Implementation><![CDATA[
+
 	Set PRNr=$O(^PRSTOCK("D",0))
 	While PRNr'=""
 	{
@@ -129,6 +101,7 @@
 		Set Entiteit="HLX"
 		If (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^||OBJTVoorraad(PRNr,Entiteit))
 		{
+ 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
 			;Do ..WijzigVoorraad(Entiteit,PRNr,AdminVoorraad,0)
 		}
 		
@@ -137,6 +110,7 @@
 		Set Entiteit="VHBE"
 		If (+AdminVoorraad'=0) && ..CheckOBJTFase.VoorraadSync(PRNr,Entiteit) && '$D(^||OBJTVoorraad(PRNr,Entiteit))
 		{
+ 			Do ##class(vhLib.Logger).%New("OBJT_WMS").Warning("Voorraadniveau op nul gezet","PRNr:"_PRNr_" Entiteit:"_Entiteit_" Oud:"_AdminVoorraad) 
 			;Do ..WijzigVoorraad(Entiteit,PRNr,AdminVoorraad,0)
 		}
 		
Index: OBJTimpl/WMSOrder/ZendManueelVoorraad.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ZendManueelVoorraad.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/ZendManueelVoorraad.cls.xml	(revision 66843)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.ZendManueelVoorraad">
+<Description>
+Doorgeven van ontvangen goederen naar OBJT. De receptielijn wordt automatisch gestockeerd.</Description>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Property name="Ontvangsten">
+<Type>dtoOntvangsten</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(OBJTimpl.WMSOrder.ZendManueelVoorraad).TransferVoorraad()
+
+]]></Content>
+</UDLText>
+
+<Method name="TransferVoorraad">
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ Write @F11,@F1,"Doorsturen goederen naar OBJT Kardex"
+ 
+ If ##class(OBJTimpl.CheckObjectiveFase).GeefFase()'=1 Do WARN^vhTXTPOP("Alleen voor OBJT Fase 1","") Quit   ;OBJT
+ 
+ Do STORE^vhTERMINA()
+ Set PRNr=$$SELECT^PRODUKT6()
+ Do REFRESH^vhTERMINA()
+ Quit:PRNr'?4.10N
+ Set FP=0401
+ Write @F,$$$PRGet($$$IdentNummer)_" "_$$$PRGet($$$KortTekst)
+ 
+ Do STORE^vhTERMINA()
+ If $$$PRGet($$$OpslagZone)'=3 Do WARN^vhTXTPOP("Product "_$$$PRGet($$$KortTekst)_" heeft Opslagzone <> Vert.liften","") Quit   ;OBJT
+ Set Aantal=+$$ASK^vhINP("Geef aantal naar OBJT: ",10,"")
+ Do REFRESH^vhTERMINA(21,24)
+ Set FP=0601
+ Write @F,"Aantal: ",Aantal
+ Quit:Aantal'>0
+
+ Do STORE^vhTERMINA()
+ Set PaletId=$$ASK^vhINP("Geef Paletid voor OBJT: ",10,"")
+ Do REFRESH^vhTERMINA(21,24)
+ Quit:PaletId=""  Quit:$E(PaletId)="-"
+ SEt FP=0801
+ Write @F,"PaletId: ",PaletId
+ 
+ Do STORE^vhTERMINA()
+ Set Bevestig=$$ASK^vhINP("Versturen naar OBJT: ",1,"", "J[] voor bevestigen")
+ Do REFRESH^vhTERMINA(21,24)
+ Quit:$zcvt(Bevestig,"U")'="J"
+ Do ##class(OBJTimpl.WMSOrder.ZendInitieleVoorraad).ZendProductEnPallet(PRNr ,PaletId, Aantal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveauKardex.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveauKardex.cls.xml	(revision 0)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveauKardex.cls.xml	(revision 66843)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.WMSOrder.dtoCorrelateVoorraadNiveauKardex">
+<ClassType>persistent</ClassType>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>%Persistent,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>DataExport</Default>
+</Parameter>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Default>1</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Materialbase.
+
+]]></Content>
+</UDLText>
+
+<Property name="ItemId">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="Materialbase.MaterialName"/>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
+<Property name="Aantal">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="Materialbase.StockTotal"/>
+</Property>
+
+<Property name="Entiteit">
+<Type>%String</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
+<Property name="AantalAdmin">
+<Type>%Integer</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
+<Property name="Fout">
+<Type>%String</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^OBJTimpl.W6F17.dtoCorrelat1A99D</DataLocation>
+<DefaultData>dtoCorrelateVoorraadNiveauKardexDefaultData</DefaultData>
+<IdLocation>^OBJTimpl.W6F17.dtoCorrelat1A99D</IdLocation>
+<IndexLocation>^OBJTimpl.W6F17.dtoCorrelat1A99I</IndexLocation>
+<StreamLocation>^OBJTimpl.W6F17.dtoCorrelat1A99S</StreamLocation>
+<Data name="dtoCorrelateVoorraadNiveauKardexDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ItemId</Value>
+</Value>
+<Value name="3">
+<Value>Aantal</Value>
+</Value>
+<Value name="4">
+<Value>AantalAdmin</Value>
+</Value>
+<Value name="5">
+<Value>Fout</Value>
+</Value>
+<Value name="6">
+<Value>PRNr</Value>
+</Value>
+<Value name="7">
+<Value>Entiteit</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>