Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r67052 -r67315
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 67052)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 67315)
@@ -128,7 +128,7 @@
 	Set CUserId="OBJT"
 	Set %Q1="^KBA(""%1"",$I)"
 	Set CifPPL=$$CifPPL^KPRIJS(PRNr)
-	If Entiteit="VHBE" ; Magazijn
+	If ##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).BepaalMagazijn(Entiteit, PRNr)="F" ; Fysiek Magazijn
 	{
 		Set R=$$EXTDATE^vhLib.DataTypes(,"DSN")_3_D_VoorraadWijziging_D_(CifPPL*VoorraadWijziging)_D_1_D_D_D_D_Referentie_D_D_D ; Record voor KPR20
 		Set PR=PRNr
Index: OBJTimpl/CheckObjectiveFase.cls.xml
===================================================================
diff -u -r67303 -r67315
--- OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 67303)
+++ OBJTimpl/CheckObjectiveFase.cls.xml	(.../CheckObjectiveFase.cls.xml)	(revision 67315)
@@ -26,7 +26,7 @@
 <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) ;OBJT 2de fase : alleen beslag
+	Quit:..GeefFase()=2 ($$$PRGet($$$LeveranciersNr)'=$$$LevHalux)||($$$PRGet($$$StockType)=1) ||($$$PRGet($$$OpslagZone)=3) ;OBJT 2de fase : alleen beslag
 	Quit:..GeefFase()=5 1 ;OBJT 5de fase : alle pickings lopen via OBJT en Admin
 	Quit 0 ; voor live gang OBJT
 ]]></Implementation>
Index: OBJTimpl/ConverteerNaarOBJT.cls.xml
===================================================================
diff -u -r66284 -r67315
--- OBJTimpl/ConverteerNaarOBJT.cls.xml	(.../ConverteerNaarOBJT.cls.xml)	(revision 66284)
+++ OBJTimpl/ConverteerNaarOBJT.cls.xml	(.../ConverteerNaarOBJT.cls.xml)	(revision 67315)
@@ -21,6 +21,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="DeleteORDW">
+<Description>
+Do ##class(OBJTimpl.ConverteerNaarOBJT).%New().DeleteORDW()</Description>
+<Implementation><![CDATA[
+	Set Q="K",D="\",U=";"
+	Set CONSNr=$O(^ORDW("D",""))
+	While CONSNr'="" 
+	{ 
+		If $P(^ORDW("D",CONSNr),"\",20)'="" && ($P(^ORDW("D",CONSNr),"\",20)'="B") ; verstuurd
+		{
+			w ^ORDW("D",CONSNr),!
+			r k
+			Do DELOBJ^EWORDST(CONSNr)
+		}
+		Set CONSNr=$O(^ORDW("D",CONSNr))
+ }
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerORDW">
 <Description>
 Do ##class(OBJTimpl.BestandVerwerker).%New().UitlezenOntvangenBestanden()</Description>
Index: OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml
===================================================================
diff -u -r67052 -r67315
--- OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(.../VerdeelSOPRVoorraad.cls.xml)	(revision 67052)
+++ OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(.../VerdeelSOPRVoorraad.cls.xml)	(revision 67315)
@@ -153,10 +153,20 @@
 	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)
+	Do STORE^PRSTOCK(..BepaalMagazijn(..Entiteit, PRNr),Actie,PRNr,Voorraadwijziging,Omschrijving)
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalMagazijn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Entiteit:%String,PRNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:Entiteit="HLX" "W"
+	Quit:$$$PRGet($$$OpslagZone)=7||(+$$$PRGet($$$OpslagZone)=0) "W"
+	Quit "F" ; VHBE
+]]></Implementation>
+</Method>
+
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit ..itAdminItemIDs.HasNext()