Index: OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u
--- OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(revision 0)
+++ OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(revision 74734)
@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.MES.ImporteerVoorraadWijziging">
+<Description>
+Verwerken van de door AX gegenereerde voorraadcorrecties.
+Sommige van deze correcties hebben hun oorsprong in OBJT MES
+- StockCorrectie
+- Replenishment
+- SOPR reconciliatie</Description>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="pxWijzigingen">
+<Type>dtoCorrelateVoorraadWijzigingen</Type>
+</Property>
+
+<Property name="pxWijziging">
+<Type>dtoCorrelateVoorraadWijziging</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()
+	Set ..Logger = ##class(vhLib.Logger).%New("OBJT_WMS")
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkWijzigingen">
+<FormalSpec>dtoWijzigingen:dtoCorrelateVoorraadWijzigingen</FormalSpec>
+<Implementation><![CDATA[
+	Set ..pxWijzigingen=dtoWijzigingen
+	Set it=##class(TECH.ListIterator).%New(..pxWijzigingen.Lijst)
+	While it.HasNext()
+	{
+		Set ..pxWijziging=it.Next()
+		Do ..VerwerkVoorraad()
+		Do ..PropagateFout()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PropagateFout">
+<Implementation><![CDATA[
+	If ..pxWijziging.Fout'=""
+	{
+		Set ..pxWijzigingen.Fout=..pxWijziging.Fout
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVoorraad">
+<Implementation><![CDATA[
+	Do ..BepaalPRNr()
+	
+	Do ..BepaalGeldig()
+	
+	If ..pxWijziging.Fout=""
+	{
+		Do ..BepaalAdminVoorraad()
+		Do ..WijzigVoorraad()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="WijzigVoorraad">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+
+	Do ##class(vhLib.OldSchool).InitVars()
+	Set CUserId="OBJT MES"
+	Set %Q1="^KBA(""%1"",$I)"
+	#dim Actie As %String
+
+	If +..pxWijziging.Delta'=0
+	{
+		Do ##class(vhLib.OldSchool).InitVars()
+		Set CUserId="OBJT MES"
+		
+	 	Do ..Logger.Warning("Voorraadniveau ",..pxWijziging.BronSysteem," PRNr:"_..pxWijziging.PRNr_" Entiteit:"_..pxWijziging.Entiteit_" Delta:"_..pxWijziging.Delta_" Actie:"_..pxWijziging.OorsprongWijziging_" Oms:"_..pxWijziging.RedenWijziging) 
+		Set Magazijn=..BepaalMagazijn()
+		Set Actie=..BepaalActie()
+		
+		Do STORE^PRSTOCK(Magazijn,Actie,..pxWijziging.PRNr,..pxWijziging.Delta,..pxWijziging.RedenWijziging)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalMagazijn">
+<Implementation><![CDATA[
+	Quit:..pxWijziging.Entiteit="HLX" "W"
+	Quit:$$$ProductGet(..pxWijziging.PRNr,$$$OpslagZone)=7||(+$$$ProductGet(..pxWijziging.PRNr,$$$OpslagZone)=0) "W"
+	Quit "F" ; VHBE
+]]></Implementation>
+</Method>
+
+<Method name="BepaalActie">
+<Implementation><![CDATA[
+	Quit:..pxWijziging.OorsprongWijziging="SOPR Reconciliatie" "O" ; optimalisatie
+	Quit:..pxWijziging.OorsprongWijziging="CycleCount" "M" ; manuele correctie
+	Quit:..pxWijziging.OorsprongWijziging="Replenish" "T" ; transfer
+	Set ..pxWijziging.Fout="Onbekende oorsprong"
+	Quit "X"
+]]></Implementation>
+</Method>
+
+<Method name="BepaalGeldig">
+<Implementation><![CDATA[
+	Set:..pxWijziging.Entiteit="" ..pxWijziging.Fout="Entiteit niet ingevuld"
+	Set:..pxWijziging.PRNr="" ..pxWijziging.Fout="Onbekend product"
+	If (..pxWijziging.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxWijziging.PRNr,..pxWijziging.Entiteit,..pxWijziging.BronSysteem))
+	{
+		Set ..pxWijziging.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalPRNr">
+<Implementation><![CDATA[
+	Quit:..pxWijziging.ItemIdAX="" ""
+	
+	Quit:..pxWijziging.ItemIdAX'?1E1"."3N1"."3N1"."1.3N ""
+	
+	Set ..pxWijziging.PRNr=$P($G(^KPR2($TR(..pxWijziging.ItemIdAX,".")_" ")),"\")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAdminVoorraad">
+<Implementation><![CDATA[
+	If ..pxWijziging.Entiteit="HLX"
+	{
+		Set ..pxWijziging.AantalAdmin=$P($G(^PRSTOCK("D",..pxWijziging.PRNr)),"\",5)
+	}
+	Else
+	{
+		Set ..pxWijziging.AantalAdmin=$P($G(^PRSTOCK("D",..pxWijziging.PRNr)),"\",1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u
--- OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml	(revision 0)
+++ OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml	(revision 74734)
@@ -0,0 +1,69 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.MES.dtoCorrelateVoorraadWijziging">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>VoorraadWijziging</Default>
+</Parameter>
+
+<Parameter name="XMLIGNOREINVALIDTAG">
+<Type>BOOLEAN</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="ItemIdAX">
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="ItemIdAX"/>
+</Property>
+
+<Property name="PRNr">
+<Type>%String</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
+<Property name="Entiteit">
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="Entiteit"/>
+</Property>
+
+<Property name="Delta">
+<Type>%Integer</Type>
+<Parameter name="XMLITEMNAME" value="Delta"/>
+</Property>
+
+<Property name="AantalAdmin">
+<Type>%Integer</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+
+<Property name="RedenWijziging">
+<Description>
+Vrije tekst</Description>
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="RedenWijziging"/>
+</Property>
+
+<Property name="OorsprongWijziging">
+<Description>
+Cyclecount, Replenishment, SOPR Reconciliatie</Description>
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="OorsprongWijziging"/>
+</Property>
+
+<Property name="BronSysteem">
+<Description>
+MES of WMS</Description>
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="BronSysteem"/>
+</Property>
+
+<Property name="Fout">
+<Type>%String</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+</Class>
+
+
+</Export>
Index: OBJTimpl/MES/dtoCorrelateVoorraadWijzigingen.cls.xml
===================================================================
diff -u
--- OBJTimpl/MES/dtoCorrelateVoorraadWijzigingen.cls.xml	(revision 0)
+++ OBJTimpl/MES/dtoCorrelateVoorraadWijzigingen.cls.xml	(revision 74734)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen">
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>VoorraadWijzigingen</Default>
+</Parameter>
+
+<Property name="Lijst">
+<Type>OBJTimpl.MES.dtoCorrelateVoorraadWijziging</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Fout">
+<Type>%String</Type>
+<Parameter name="XMLNIL" value="1"/>
+</Property>
+</Class>
+
+
+</Export>
Index: OBJTimpl/MES/TestVoorraadWijziging.cls.xml
===================================================================
diff -u
--- OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(revision 0)
+++ OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(revision 74734)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="OBJTimpl.MES.TestVoorraadWijziging">
+<Description>
+Verwerken van de door AX gegenereerde voorraadcorrecties.
+Sommige van deze correcties hebben hun oorsprong in OBJT MES
+- StockCorrectie
+- Replenishment
+- SOPR reconciliatie</Description>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="pxWijzigingen">
+<Type>dtoCorrelateVoorraadWijzigingen</Type>
+</Property>
+
+<Property name="pxWijziging">
+<Type>dtoCorrelateVoorraadWijziging</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="Test1">
+<Description>
+D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().Test1()</Description>
+<Implementation><![CDATA[
+	Set ..pxWijzigingen=##class(dtoCorrelateVoorraadWijzigingen).%New()
+	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"CycleCount","Palet onvindbaar")
+	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"CycleCount","Palet onvindbaar")
+	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"CycleCount","Palet onvindbaar")
+	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"CycleCount","Palet onvindbaar")
+	Do ##class(ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
+	Do ..Show()
+]]></Implementation>
+</Method>
+
+<Method name="VoegtoeWijziging">
+<FormalSpec>Entiteit:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,OorsprongWijziging:%String,RedenWijziging:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set pxWijziging=##class(dtoCorrelateVoorraadWijziging).%New()
+	Set pxWijziging.Entiteit=Entiteit
+	Set pxWijziging.ItemIdAX=ItemIdAX
+	Set pxWijziging.Delta=VoorraadWijziging
+	Set pxWijziging.RedenWijziging = $G(RedenWijziging)
+	Set pxWijziging.OorsprongWijziging = OorsprongWijziging
+	Set pxWijziging.BronSysteem = "MES"
+	Do ..pxWijzigingen.Lijst.Insert(pxWijziging)
+]]></Implementation>
+</Method>
+
+<Method name="Show">
+<Implementation><![CDATA[
+	Set it=##class(TECH.ListIterator).%New(..pxWijzigingen.Lijst)
+	While it.HasNext()
+	{
+		Set pxWijziging=it.Next()
+		Do DumpObject^%apiOBJ(pxWijziging)
+	}
+	Write !,..pxWijzigingen.Fout,!
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>