Index: PV.mac.rou
===================================================================
diff -u -r74827 -r74842
--- PV.mac.rou	(.../PV.mac.rou)	(revision 74827)
+++ PV.mac.rou	(.../PV.mac.rou)	(revision 74842)
@@ -3,30 +3,7 @@
 #include BL.Derde.KlantSpecifiek
 #include BL.Derde.LevSpecifiek
 q
-MESStockage
-	;Resource stockagegrp
-	s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMC")="5`Objt MES component"
-	s ^RES("PRODUKT","PI","STOCKAGEGRP","D","OMS")="6`Objt MES samengesteld"
-	; Aanpassen stockagegroep in Admin
-	Set PRNr=5000000
-	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
-	. Set KT=$$$PRGet($$$KortTekst)
-	. Set LEVNr=$$$PRGet($$$LeveranciersNr)
-	. ;If (";VF2;"[(";"_$E(KT,1,3)_";")) && (LEVNr=7631) Do ;Europal fanfold
-	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
-	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
-	. ;If (";VPK;"[(";"_$E(KT,1,3)_";")) && (KT'["TAX") && (KT'["SYF") && (LEVNr=6317) Do ;Lefevere 
-	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
-	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
-	. ;If (";SLE.;SLME;SME.;SPE.;"[(";"_$E(KT,1,4)_";")) && (LEVNr=7802) Do ;spaanplaat egger
-	. . Write PRNr,*9,$$$PRGet($$$KortTekst)," OMC",$$$PRGet($$$ProductGroepWMS),!
-	. . D $$$PRSet($$$ProductGroepWMS,"OMC")
-	. If ("GEN.HAL"=$E(KT,1,7)) && (";TBX;LBX;MVX;"[(";"_$P($$GENTYP^HAD(PRNr,,1),"\")_";")) Do
-	. . Write PRNr,*9,$$$PRGet($$$KortTekst),*9,$P($$GENTYP^HAD(PRNr,,1),"\")," OMS",$$$PRGet($$$ProductGroepWMS),!
-	. . D $$$PRSet($$$ProductGroepWMS,"OMS")
-	
 
-	q
 
 HFL
 	Read "Klant:",HflKlant
Index: APPS/PM/enu/ProductGroep.cls.xml
===================================================================
diff -u -r74827 -r74842
--- APPS/PM/enu/ProductGroep.cls.xml	(.../ProductGroep.cls.xml)	(revision 74827)
+++ APPS/PM/enu/ProductGroep.cls.xml	(.../ProductGroep.cls.xml)	(revision 74842)
@@ -6,11 +6,11 @@
 <Super>%EnumString</Super>
 
 <Parameter name="VALUELIST">
-<Default>,???,BLUM,HAL,OL,REST,TBX,TA.B,TA.C,LBX,MVX,RVG</Default>
+<Default>,???,BLUM,HAL,OL,REST,TBX,TA.B,TA.C,LBX,MVX</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,Onbekend,Blum,Halux,Orgalux,Rest,Tandembox,TA'OR BOX, TA'OR Indeling,Legrabox,Merivobox,Revego</Default>
+<Default>,Onbekend,Blum,Halux,Orgalux,Rest,Tandembox,TA'OR BOX, TA'OR Indeling,Legrabox,Merivobox</Default>
 </Parameter>
 
 <Method name="Onbekend">
@@ -82,13 +82,6 @@
 <Implementation><![CDATA["MVX"
 ]]></Implementation>
 </Method>
-
-<Method name="Revego">
-<ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["RVG"
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: OBJTimpl/MES/TestVoorraadWijziging.cls.xml
===================================================================
diff -u -r74827 -r74842
--- OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(.../TestVoorraadWijziging.cls.xml)	(revision 74827)
+++ OBJTimpl/MES/TestVoorraadWijziging.cls.xml	(.../TestVoorraadWijziging.cls.xml)	(revision 74842)
@@ -11,21 +11,13 @@
 <Super>TECH.RegisteredObject</Super>
 
 <Property name="pxWijzigingen">
-<Type>OBJTimpl.MES.dtoCorrelateVoorraadWijzigingen</Type>
+<Type>dtoCorrelateVoorraadWijzigingen</Type>
 </Property>
 
 <Property name="pxWijziging">
-<Type>%RegisteredObject</Type>
+<Type>dtoCorrelateVoorraadWijziging</Type>
 </Property>
 
-<Property name="ProductieSysteem">
-<Type>%String</Type>
-</Property>
-
-<Property name="OorsprongWijziging">
-<Type>%String</Type>
-</Property>
-
 <Property name="CheckOBJTFase">
 <Type>OBJTimpl.CheckObjectiveFase</Type>
 </Property>
@@ -42,120 +34,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestAX">
+<Method name="Test1">
 <Description>
-D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().TestAX()</Description>
+D ##class(OBJTimpl.MES.TestVoorraadWijziging).%New().Test1()</Description>
 <Implementation><![CDATA[
-	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)
+	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()
-	
-	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,RedenWijziging:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,OorsprongWijziging:%String,RedenWijziging:%String</FormalSpec>
 <Implementation><![CDATA[
-	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)
+	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="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)
-		Write pxWijziging.ProductieSysteem," ",pxWijziging.OorsprongWijziging
-		Write " ",pxWijziging.Entiteit, " ", pxWijziging.ItemIdAX, " ",$s(pxWijziging.Fout="":"OK",1:"Fout:"_pxWijziging.Fout)
-		Write !
+		Do DumpObject^%apiOBJ(pxWijziging)
 	}
-	Write "alle fouten: ",..pxWijzigingen.Fout,!!
+	Write !,..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>
 
 
Index: OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r74827 -r74842
--- OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74827)
+++ OBJTimpl/MES/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74842)
@@ -4,9 +4,9 @@
 <Description>
 Verwerken van de door AX gegenereerde voorraadcorrecties.
 Sommige van deze correcties hebben hun oorsprong in OBJT MES
-- StockCorrectie (oorsprong MES)
-- Replenishment (oorsprong MES)
-- SOPR reconciliatie (oorsprong AX)</Description>
+- StockCorrectie
+- Replenishment
+- SOPR reconciliatie</Description>
 <IncludeCode>Prod.Product</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
@@ -56,9 +56,9 @@
 
 <Method name="PropagateFout">
 <Implementation><![CDATA[
-	If (..pxWijziging.Fout'="") &&(..pxWijzigingen.Fout'[..pxWijziging.Fout)
+	If ..pxWijziging.Fout'=""
 	{
-		Set ..pxWijzigingen.Fout=..pxWijzigingen.Fout_$S(..pxWijzigingen.Fout'="":"; ",1:"")_..pxWijziging.Fout
+		Set ..pxWijzigingen.Fout=..pxWijziging.Fout
 	}
 ]]></Implementation>
 </Method>
@@ -91,7 +91,7 @@
 		Do ##class(vhLib.OldSchool).InitVars()
 		Set CUserId="OBJT MES"
 		
-	 	Do ..Logger.Warning("Voorraadniveau ",..pxWijziging.ProductieSysteem," PRNr:"_..pxWijziging.PRNr_" Entiteit:"_..pxWijziging.Entiteit_" Delta:"_..pxWijziging.Delta_" Actie:"_..pxWijziging.OorsprongWijziging_" Oms:"_..pxWijziging.RedenWijziging) 
+	 	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()
 		
@@ -112,7 +112,7 @@
 <Implementation><![CDATA[
 	Quit:..pxWijziging.OorsprongWijziging="SOPR Reconciliatie" "O" ; optimalisatie
 	Quit:..pxWijziging.OorsprongWijziging="CycleCount" "M" ; manuele correctie
-	Quit:..pxWijziging.OorsprongWijziging="Replenishment" "T" ; transfer
+	Quit:..pxWijziging.OorsprongWijziging="Replenish" "T" ; transfer
 	Set ..pxWijziging.Fout="Onbekende oorsprong"
 	Quit "X"
 ]]></Implementation>
@@ -121,9 +121,8 @@
 <Method name="BepaalGeldig">
 <Implementation><![CDATA[
 	Set:..pxWijziging.Entiteit="" ..pxWijziging.Fout="Entiteit niet ingevuld"
-	Set:(..pxWijziging.ProductieSysteem'="MES")&&(..pxWijziging.ProductieSysteem'="AX") ..pxWijziging.Fout="ProductieSysteem niet ingevuld"
 	Set:..pxWijziging.PRNr="" ..pxWijziging.Fout="Onbekend product"
-	If (..pxWijziging.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxWijziging.PRNr,..pxWijziging.Entiteit,..pxWijziging.ProductieSysteem))
+	If (..pxWijziging.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxWijziging.PRNr,..pxWijziging.Entiteit,..pxWijziging.BronSysteem))
 	{
 		Set ..pxWijziging.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
 	}
Index: HADOPV.mac.rou
===================================================================
diff -u -r74827 -r74842
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 74827)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 74842)
@@ -40,7 +40,6 @@
  Set FabKeyGlobRef=$G(FabKeyGlobRef)
  Set SubPRNr=""
  Do INIT^vhLIST("HADOPV","OVZ",.LD)
- Set IsObjtFase3=##class(OBJTimpl.CheckObjectiveFase).IsFase3()
  Quit
  
 REFRESH 
@@ -654,7 +653,7 @@
  Quit
  
 MARKBEG(Mode)  ; Markeringstype opslaan 
- Set JaNee="1" ;$$JaNee^vhTXTPOP("Waarschuwing", "Vanaf fase M2 mag dit niet meer gebruikt worden voor TBX, LBX en MVX! Wil je toch verdergaan?") //Leeg of 1
+ Set JaNee=$$JaNee^vhTXTPOP("Waarschuwing", "Vanaf fase M2 mag dit niet meer gebruikt worden voor TBX, LBX en MVX! Wil je toch verdergaan?") //Leeg of 1
  If JaNee="1" Do
  . If $L(Batches,";")>1&(Mode'="BATCH")&("AKGBFTPZMV"'[Mode) Do WARN^vhTXTPOP("Meerdere batches door elkaar~dan is markering niet mogelijk") Quit
  . If $G(MarkTyp)'="" Do MARKEND(1) 
Index: MRPRES.mac.rou
===================================================================
diff -u -r74827 -r74842
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74827)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 74842)
@@ -17,8 +17,6 @@
  ;Do ONERES(CRef,FabKey,PRNr,QtyToe,"FPW",.Status) ; De hercalculatie gebeurt globaal op voorhand, niet meer individueel
   ; Nakijken of een transfer order nodig is
  ;If ((Status["W")!(Status["F")!(Status["P")),(Status'["X") Do 
- 
- Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr) ; deze producten worden verwerkt door het OBJT MES 
  Set Status=""
  Set ForeCastDagen=3 ; aantal forecast dagen voor werkvloerproducten op voorraad
  Do BLDTORD(CRef,FabKey,PRNr,ForeCastDagen)
@@ -64,8 +62,6 @@
  ; Status via .Local
  ; Opties: wat te controleren F=Fysische stock,Praktische stock, W=werkvloer magazijn, T=toelevering, Z = Alles of niets
  Set Status=""
- Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr) ; deze producten worden verwerkt door het OBJT MES 
-
  Do DELONE(FabKey,PRNr,.Status,$G(NoResDel))
  Quit:Status="LCK"  ; HF gelockt
  Do CHKONE(CRef,FabKey,PRNr,QtyToe,Opties,.Status)
@@ -389,7 +385,6 @@
  Set Status=""
  Quit:$P($G(^HADPR("F",FabKey,"K")),D,3)="A"  ; Reeds productie klaar
  Quit:$P($G(^HADPR("F",FabKey,"A")),D,3)'="A"  ; Niet actief
- 
  Set QtyRes=QtyToe  ; veronderstelling, dat alles kan geleverd worden
  Set HFCode=""
  Set Stop=0
Index: vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml
===================================================================
diff -u -r74827 -r74842
--- vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74827)
+++ vhTest/Mock/APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74842)
@@ -3,7 +3,8 @@
 <Class name="vhTest.Mock.APPS.Halux.Voorbereiding.VoorbereidingService">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.Voorbereiding.VoorbereidingService,Tools.Mock.MockClassBase</Super>
 
Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r74827 -r74842
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74827)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 74842)
@@ -55,31 +55,21 @@
 </UDLText>
 
 <Method name="VerwerkWebservice">
-<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String,ProductieSysteem:%String</FormalSpec>
+<FormalSpec>Entiteit:%String,ItemId:%String,ItemIdAX:%String,VoorraadWijziging:%Decimal,Lossing:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..pxVoorraad=##class(dtoCorrelateVoorraadWijziging).%New()
 	Set ..pxVoorraad.Entiteit=Entiteit
 	Set ..pxVoorraad.ItemId=ItemId
 	Set ..pxVoorraad.ItemIdAX=$G(ItemIdAX)
 	Set ..pxVoorraad.Delta=VoorraadWijziging
 	Set ..pxVoorraad.Lossing = $G(Lossing)
-	Set ..pxVoorraad.ProductieSysteem = $G(ProductieSysteem)
 	
 	Do ..VerwerkVoorraad()
 	
 	Quit ..pxVoorraad.Fout
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkObject">
-<FormalSpec>pxWijziging:dtoCorrelateVoorraadWijziging</FormalSpec>
-<Implementation><![CDATA[
-	
-	Set ..pxVoorraad=pxWijziging
-	Do ..VerwerkVoorraad()
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkVoorraad">
 <Implementation><![CDATA[
 	Do ..BepaalPRNr()
@@ -189,10 +179,9 @@
 
 <Method name="BepaalGeldig">
 <Implementation><![CDATA[
-	Set:(..pxVoorraad.Entiteit'="VHBE")&&(..pxVoorraad.Entiteit'="HLX") ..pxVoorraad.Fout="Entiteit ongeldig:"_..pxVoorraad.Entiteit
-	Set:(..pxVoorraad.ProductieSysteem'="")&&(..pxVoorraad.ProductieSysteem'="WMS") ..pxVoorraad.Fout="ProductieSysteem ongeldig:"_..pxVoorraad.ProductieSysteem
+	Set:..pxVoorraad.Entiteit="" ..pxVoorraad.Fout="Entiteit niet ingevuld"
 	Set:..pxVoorraad.PRNr="" ..pxVoorraad.Fout="Onbekend product"
-	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxVoorraad.PRNr,..pxVoorraad.Entiteit,..pxVoorraad.ProductieSysteem))
+	If (..pxVoorraad.Fout="") && ('..CheckOBJTFase.VoorraadWijziging(..pxVoorraad.PRNr,..pxVoorraad.Entiteit))
 	{
 		Set ..pxVoorraad.Fout="Sync niet toegelaten. Fase:"_..CheckOBJTFase.GeefFase()
 	}
Index: PRHF.mac.rou
===================================================================
diff -u -r74827 -r74842
--- PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 74827)
+++ PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 74842)
@@ -2,7 +2,6 @@
  ;
 HADPR(TOENr,TLUNr,PRNr,AantWMS,RCPODate) 
  New R,HFCode,HFPRNr,Aantal,KLNr,WVAantal,DimUitV,QtyWVRes,ResRec,FabKey
- Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr) ; geen backflush in Admin wordt verwerkt door MES
  Do LogMoeder("M",PRNr,PRNr_D_TOENr_D_TLUNr_D_AantWMS)
  If '$$ISHALUX^PRODUKT2(PRNr),'$$ISNV^PRODUKT2(PRNr) Quit
  Set HFCode="",KLNr=$$GETALG^DEFAULTS("MRP","KLNR")
Index: PRODUKT4.mac.rou
===================================================================
diff -u -r74827 -r74842
--- PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 74827)
+++ PRODUKT4.mac.rou	(.../PRODUKT4.mac.rou)	(revision 74842)
@@ -100,7 +100,6 @@
  Set U2=""
  Set (TotaalH,TotaalK)=0
  For  Set MPRNr=$O(^TO("IP",MPRNr)) Quit:MPRNr=""  Do  ;loop over moederproducten in toeleveringen
- . Quit:##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(MPRNr) ; goederen worden verwerkt door MES
  . Quit:'$D(^PRBS("IP",PRNr,MPRNr)) ;Moederproduct bevat bouwsteen niet  
  . Set (FaktorH,FaktorK)=0
  . Set BSKey=""
Index: OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u -r74827 -r74842
--- OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74827)
+++ OBJTimpl/MES/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74842)
@@ -52,11 +52,11 @@
 <Parameter name="XMLITEMNAME" value="OorsprongWijziging"/>
 </Property>
 
-<Property name="ProductieSysteem">
+<Property name="BronSysteem">
 <Description>
 MES of WMS</Description>
 <Type>%String</Type>
-<Parameter name="XMLITEMNAME" value="ProductieSysteem"/>
+<Parameter name="XMLITEMNAME" value="BronSysteem"/>
 </Property>
 
 <Property name="Fout">
Index: PRODUKT.mac.rou
===================================================================
diff -u -r74827 -r74842
--- PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 74827)
+++ PRODUKT.mac.rou	(.../PRODUKT.mac.rou)	(revision 74842)
@@ -27,7 +27,7 @@
  Lock  ZD
  Quit LScreen_D_LElement_D_Aktie
  ;
- ;Opvragen klassificatie bij Afdrukken Prijsuitzondering
+ ;Opvragen klassificatie bij Afdrukken  Prijsuitzondering
  ;***** Te vervangen door SELECT^KLAS
 KLASKEY(Ref,Key) 
  New H,G,S,h,g,s,R
@@ -340,7 +340,6 @@
  .If GenTyp["LBX" Set Groep=##class(APPS.PM.enu.ProductGroep).Legrabox()
  .If GenTyp["TAO" Set Groep=##class(APPS.PM.enu.ProductGroep).TAORBOX()
  .If GenTyp["MVX" Set Groep=##class(APPS.PM.enu.ProductGroep).Merivobox()
- .If GenTyp["RVG" Set Groep=##class(APPS.PM.enu.ProductGroep).Revego()
  Set Key=$O(^KPR(PRNr,"I"))
  If $E(Key)="I" Quit:$P(^KPR(PRNr,Key),"\")["OL" "OL"
  Else  If $G(CheckOldProducts)  Set Key=$O(^KPRO(PRNr,"I")) If $E(Key)="I" Quit:$P(^KPRO(PRNr,Key),"\")["OL" "OL"  
Index: APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml
===================================================================
diff -u -r74827 -r74842
--- APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74827)
+++ APPS/Halux/Voorbereiding/VoorbereidingService.cls.xml	(.../VoorbereidingService.cls.xml)	(revision 74842)
@@ -35,10 +35,7 @@
 <Method name="IsVolledigKlaarGezet">
 <FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set ViaMES=##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMESViaToelevering(ToeleveringID, ToeleveringLijnID)  ; Producten worden uitgevoerd door MES
-	Quit:ViaMES 1
-	Quit $P($G(^HADPR("F",##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(ToeleveringID, ToeleveringLijnID),"K")),"\",3)="A"
+<Implementation><![CDATA[	Quit $P($G(^HADPR("F",##class(BL.Legacy.HaluxProductieOpvolging).FABKEYT(ToeleveringID, ToeleveringLijnID),"K")),"\",3)="A"
 ]]></Implementation>
 </Method>
 </Class>
Index: HADSTAT2.mac.rou
===================================================================
diff -u -r74827 -r74842
--- HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 74827)
+++ HADSTAT2.mac.rou	(.../HADSTAT2.mac.rou)	(revision 74842)
@@ -122,7 +122,6 @@
  Set GenRec=$$GENTYP^HAD(PRNr)
  If $L($P(GenRec,D)) Do
  .Set:$P(GenRec,D)="KAD" Montage="KZ"  ; Kaderdeur ongemonteerd
- .Set:$P(GenRec,D)="RVG" Montage="RV"  ; Revego
  .Set:Montage="KZ"&($P(GNode,D,11)!($P(GNode,D,11)["K")) Montage="KM" ; Kaderdeur gemonteerd
  .Set:$P(GenRec,D)="BAN" Montage="BA" ; Banco
  .Set:$P(GenRec,D)="GLA" Montage="DV" ; Glas
@@ -166,9 +165,8 @@
  Quit
  
 DTLPR(Soort) 
- New VolgNr,Rec,FabKey,IsMES
+ New VolgNr,Rec,FabKey
  Set FabKey=$$FABKEYT^HADOPV(TOENr,TLUNr)
- Set IsMES=##class(OBJTimpl.CheckObjectiveFase).IsProductieSysteemMES(PRNr)
  If $P($G(^HADPR("F",FabKey),"\\\1"),"\",4) Do 
  . Kill ^HADPR("F",FabKey) ; Opkuis van oude data bij hergebruik van toeleveringsnummer (round robin)
  . Do MARKDEF^HADOPV(PRNr,TOENr,TLUNr) ; Indien eerste maal default markeringen
@@ -184,8 +182,6 @@
  .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:Soort="RV" Batch="RVG"
- .Set:IsMES Batch="MES" ; alle lades die in OBJT MES verwerkt worden
  .Set $P(Rec,D,1)=Batch
  .Set:LevWk=ProdWk $P(Rec,D,2)="A"
  .Set $P(Rec,D,3)=PRNr
@@ -199,9 +195,7 @@
  .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:Soort="RV" Rec="Revego"
- .Set:IsMES Rec="Verwerkt door MES" ; alle lades die in OBJT MES verwerkt worden
- .Set $P(Rec,D,2)=$H
+  .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/CheckObjectiveFase.cls.xml
===================================================================
diff -u -r74827 -r74842
--- OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 74827)
+++ OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 74842)
@@ -6,7 +6,6 @@
 0. Voor live gang OBJT
 1. OBJT beheert alleen de vertikale liften. Verder verloopt het WMS in Admin
 2. OBJT beheert alleen de beslag producten (geen maatwerk).
-3. OBJT MES beheert het plaatmateriaal TLM en maakt de eindproducten
 5. OBJT beheert het ganse WMS en de transferorders voor productie worden doorgegeven van Admin naar OBJT voor picking</Description>
 <IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
 <Super>%RegisteredObject</Super>
@@ -19,107 +18,49 @@
 </UDLText>
 
 <Parameter name="OBJTFaseDefault">
-<Default>2</Default>
+<Default>0</Default>
 </Parameter>
 
-<Parameter name="OBJTMESSamengesteld">
-<Default>OMS</Default>
-</Parameter>
-
 <Method name="PickingDoorOBJT">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
 	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3) ;OBJT 1ste fase : Opslagzone=Langgoed dan VERT liften
 	Quit:..GeefFase()=2 ($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1) ||($$$PRGet($$$OpslagZone)=3) ;OBJT 2de fase : alleen beslag
-	Quit:..GeefFase()=3 ($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1) ||($$$PRGet($$$OpslagZone)=3) ;OBJT 2de fase : alleen beslag
-	Quit 0 ;
+	Quit:..GeefFase()=5 1 ;OBJT 5de fase : alle pickings lopen via OBJT en Admin
+	Quit 0 ; voor live gang OBJT
 ]]></Implementation>
 </Method>
 
 <Method name="ReceptieNaarOBJT">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr:%Integer,ProductieSysteem:%String="WMS"</FormalSpec>
-<Implementation><![CDATA[
-	If (ProductieSysteem="MES") || (ProductieSysteem="AX" )
-	{
-		Quit:..GeefFase()=3 (Entiteit="VHBE") && ($$$PRGet($$$ProductGroepWMS)=..#OBJTMESSamengesteld) ; alleen eindproducten bij creatie van LPN (ASN)
-		Quit 0 
-	} Else {
-		Quit 0
-	}
-]]></Implementation>
-</Method>
-
-<Method name="IsProductieSysteemMESViaToelevering">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ToeleveringID:%String,ToeleveringLijnID:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set FabKey=$$FABKEYT^HADOPV(ToeleveringID, ToeleveringLijnID)
-	Set TLNr=$G(^TO("IU",ToeleveringID,ToeleveringLijnID),"*")
-	Set PRNr=$P($G(^KTO($$$LevHalux,ToeleveringID,TLNr)),"\",2)
-	Quit:'PRNr 1
-	Quit ..IsProductieSysteemMES(PRNr)
-]]></Implementation>
-</Method>
-
-<Method name="IsProductieSysteemMES">
-<ClassMethod>1</ClassMethod>
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	If ..GeefFase()=3 
-	{
-		Set GenPRNr=$P($G(^KPR(PRNr,0)),"\",3)
-		If GenPRNr?4.N
-		{
-			Set IsSamengesteld=$$$ProductGet(GenPRNr,$$$ProductGroepWMS)=..#OBJTMESSamengesteld ; backflush wordt uitgevoerd door MES en AX en mag niet meer in Admin gebeuren voor bepaalde moederproducten
-		}
-	}
-	Quit $G(IsSamengesteld)
+	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3) ;OBJT 1ste fase : Opslagzone=Langgoed dan VERT liften
+	Quit 0 ; voor live gang OBJT
 ]]></Implementation>
 </Method>
 
 <Method name="VoorraadSync">
-<FormalSpec>PRNr:%Integer,Entiteit:%String,ProductieSysteem:%String="WMS"</FormalSpec>
+<FormalSpec>PRNr:%Integer,Entiteit:%String</FormalSpec>
 <Implementation><![CDATA[
-	If (ProductieSysteem="MES") || (ProductieSysteem="AX" )
-	{
-		Quit 0 ; kan niet voorkomen
-	} Else {
-		Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
-		Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE") ;OBJT 2 de fase : OBJT kent alleen de VHBE voorraad voor beslag producten
-		;Plaatmateriaal TLM en Karton wordt opgeslagen in OBJT WMS bij entiteit HLX -> wordt niet verwerkt in Admin Werkvloer
-		;Plaatmateriaal TA'OR wordt opgeslagen in de Winstore en wordt gesynced van de Winstore naar de Admin werkvloer
-		Quit:..GeefFase()=3 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE") ;OBJT 3 de fase : OBJT kent alleen de VHBE voorraad voor beslag producten 
-		Quit 0
-	}
+	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
+	Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE") ;OBJT 2 de fase : OBJT kent aleen de VHBE voorraad voor beslag producten
+	Quit:..GeefFase()=5 1 ;OBJT 5de fase : OBJT beheert de voorraad van zowel HLX als VHBE
+	Quit 0 ; voor live gang OBJT
 ]]></Implementation>
 </Method>
 
 <Method name="VoorraadWijziging">
-<FormalSpec>PRNr:%Integer,Entiteit:%String,ProductieSysteem:%String="WMS"</FormalSpec>
+<FormalSpec>PRNr:%Integer,Entiteit:%String</FormalSpec>
 <Implementation><![CDATA[
-	If (ProductieSysteem="MES") || (ProductieSysteem="AX" )
-	{
-		Quit:..GeefFase()=3 (Entiteit'="HLX")  ; alles behalve die componenten die door OBJT MES worden beheerd
-		Quit 0
-	} Else {
-		Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
-		Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3)) ;OBJT 2 de fase : OBJT doet de inboundverwerking voor zowel VHBE als HLX
-		Quit:..GeefFase()=3 ((($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3))&&(Entiteit="VHBE")) ; OBJT 3 de fase : OBJT doet de inboundverwerking voor zowel VHBE als HLX
-		Quit 0 ;
-	}
+	Quit:..GeefFase()=1 ($$$PRGet($$$OpslagZone)=3)&&(Entiteit="VHBE")  ;OBJT 1ste fase : Langgoed dan VERT liften
+	Quit:..GeefFase()=2 (($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1)||($$$PRGet($$$OpslagZone)=3)) ;OBJT 2 de fase : OBJT doet de inboundverwerking voor zowel VHBE als HLX
+	Quit:..GeefFase()=5 1 ;OBJT 5de fase : OBJT beheert de voorraad van zowel HLX als VHBE
+	Quit 0 ; voor live gang OBJT
 ]]></Implementation>
 </Method>
 
-<Method name="IsFase3">
-<Description>
-##class(OBJTimpl.CheckObjectiveFase).IsFase3()</Description>
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit ..GeefFase()>2
-]]></Implementation>
-</Method>
-
 <Method name="GeefFase">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GetString("OBJTimpl.Fase", ..#OBJTFaseDefault)
Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u -r74827 -r74842
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74827)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 74842)
@@ -34,12 +34,6 @@
 <Parameter name="XMLITEMNAME" value="Entiteit"/>
 </Property>
 
-<Property name="ProductieSysteem">
-<Type>%String</Type>
-<Parameter name="XMLITEMNAME" value="ProductieSysteem"/>
-<Parameter name="XMLNIL" value="1"/>
-</Property>
-
 <Property name="Delta">
 <Type>%Integer</Type>
 <Parameter name="XMLITEMNAME" value="Delta"/>
@@ -95,9 +89,6 @@
 <Value name="9">
 <Value>ItemIdAX</Value>
 </Value>
-<Value name="10">
-<Value>ProductieSysteem</Value>
-</Value>
 </Data>
 </Storage>
 </Class>