Index: OBJTimpl/MES/TestVoorraadWijziging.cls.xml
===================================================================
diff -u -r74842 -r74843
--- OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(.../TestVoorraadWijziging.cls.xml)	(revision 74842)
+++ OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(.../TestVoorraadWijziging.cls.xml)	(revision 74843)
@@ -11,13 +11,21 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="pxWijzigingen">
-<Type>dtoCorrelateVoorraadWijzigingen</Type>
+<Type>OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen</Type>
 </Property>
 
 <Property name="pxWijziging">
-<Type>dtoCorrelateVoorraadWijziging</Type>
+<Type>%RegisteredObject</Type>
 </Property>
 
+<Property name="ProductieSysteem">
+<Type>%String</Type>
+</Property>
+
+<Property name="OorsprongWijziging">
+<Type>%String</Type>
+</Property>
+
 <Property name="CheckOBJTFase">
 <Type>OBJTimpl.CheckObjectiveFase</Type>
 </Property>
@@ -34,45 +42,120 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test1">
+<Method name="TestAX">
 <Description>
-D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().Test1()</Description>
+D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().TestAX()</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)
+	Set ..pxWijzigingen=##class(OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen).%New()
+	Set ..ProductieSysteem="MES"
+	Set ..OorsprongWijziging="CycleCount"
+	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"Palet onvindbaar")
+	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"Palet onvindbaar")
+	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"Palet onvindbaar")
+	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"Palet onvindbaar")
+	Do ##class(OBJTimpl.MES.ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
 	Do ..Show()
+	
+	Set ..pxWijzigingen=##class(OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen).%New()
+	Set ..ProductieSysteem="MES"
+	Set ..OorsprongWijziging="Replenishment"
+	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"")
+	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"")
+	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"")
+	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"")
+	Do ##class(OBJTimpl.MES.ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
+	Do ..Show()
+
+	Set ..pxWijzigingen=##class(OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen).%New()
+	Set ..ProductieSysteem="AX"
+	Set ..OorsprongWijziging="SOPR Reconciliatie"
+	Do ..VoegtoeWijziging("VHBE","K.407.819.8",-4,"SOPR")
+	Do ..VoegtoeWijziging("VHBE","0.407.819.8",-10,"SOPR")
+	Do ..VoegtoeWijziging("HLX","K.407.819.8",+4,"SOPR")
+	Do ..VoegtoeWijziging("HLX","0.407.819.8",+10,"SOPR")
+	Do ##class(OBJTimpl.MES.ImporteerVoorraadWijziging).%New().VerwerkWijzigingen(..pxWijzigingen)
+	Do ..Show()
 ]]></Implementation>
 </Method>
 
+<Method name="TestWMS">
+<Description>
+D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().TestWMS()</Description>
+<Implementation><![CDATA[
+	; lossing
+	Set ..ProductieSysteem="WMS"
+	Do ..CreateWMSWijziging("VHBE","0.407.819.8","K.407.819.8",-4,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("VHBE","0.407.819.8","0.407.819.8",-10,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("HLX","0.407.819.8","K.407.819.8",+4,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("HLX","0.407.819.8","0.407.819.8",+10,"LosID")
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	; cyclecount
+	Do ..CreateWMSWijziging("VHBE","0.407.819.8",,-4)
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+	Do ..CreateWMSWijziging("HLX","0.407.819.8",,+4)
+	Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkObject(..pxWijziging)
+	Do ..ShowWMS()
+]]></Implementation>
+</Method>
+
 <Method name="VoegtoeWijziging">
-<FormalSpec>Entiteit:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,OorsprongWijziging:%String,RedenWijziging:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,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)
+	Set ..pxWijziging=##class(OBJTimpl.MES.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.ProductieSysteem =..ProductieSysteem
+	Do ..pxWijzigingen.Lijst.Insert(..pxWijziging)
 ]]></Implementation>
 </Method>
 
+<Method name="CreateWMSWijziging">
+<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..pxWijziging=##class(OBJTimpl.WMSOrder.dtoCorrelateVoorraadWijziging).%New()
+	Set ..pxWijziging.Entiteit=Entiteit
+	Set ..pxWijziging.ItemId=ItemId
+	Set ..pxWijziging.ItemIdAX=$G(ItemIdAX)
+	Set ..pxWijziging.Delta=VoorraadWijziging
+	Set ..pxWijziging.Lossing = $G(Lossing)
+	Set ..pxWijziging.ProductieSysteem =..ProductieSysteem
+]]></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)
+		;Do DumpObject^%apiOBJ(pxWijziging)
+		Write pxWijziging.ProductieSysteem," ",pxWijziging.OorsprongWijziging
+		Write " ",pxWijziging.Entiteit, " ", pxWijziging.ItemIdAX, " ",$s(pxWijziging.Fout="":"OK",1:"Fout:"_pxWijziging.Fout)
+		Write !
 	}
-	Write !,..pxWijzigingen.Fout,!
+	Write "alle fouten: ",..pxWijzigingen.Fout,!!
 ]]></Implementation>
 </Method>
+
+<Method name="ShowWMS">
+<Implementation><![CDATA[
+		Set pxWijziging=..pxWijziging
+		Write pxWijziging.ProductieSysteem
+		Write " ",pxWijziging.Entiteit, " ", pxWijziging.ItemIdAX, " ",$s(pxWijziging.Fout="":"OK",1:"Fout:"_pxWijziging.Fout)
+		Write !
+]]></Implementation>
+</Method>
 </Class>