Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u -r67007 -r67052
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 67007)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml	(.../dtoCorrelateVoorraadWijziging.cls.xml)	(revision 67052)
@@ -19,6 +19,11 @@
 <Parameter name="XMLITEMNAME" value="ItemId"/>
 </Property>
 
+<Property name="ItemIdAX">
+<Type>%String</Type>
+<Parameter name="XMLITEMNAME" value="ItemIdAX"/>
+</Property>
+
 <Property name="PRNr">
 <Type>%String</Type>
 <Parameter name="XMLNIL" value="1"/>
@@ -81,6 +86,9 @@
 <Value name="8">
 <Value>Lossing</Value>
 </Value>
+<Value name="9">
+<Value>ItemIdAX</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u -r67044 -r67052
--- WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 67044)
+++ WS/OBJT/WMSService.cls.xml	(.../WMSService.cls.xml)	(revision 67052)
@@ -31,11 +31,13 @@
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
-	k ^PV
-	Set ^PV(Entiteit,ItemId,Delta)=$zdt($h,8)
 	Set Fout=""
-	If ($ZCVT(Entiteit,"U")'="VHBE") && ($ZCVT(Entiteit,"U")'="HLX") Quit "Foutieve entiteit"
-	Set Fout=##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkWebservice($ZCVT(Entiteit,"U"), ItemId, Delta, Lossing)
+	Set Entiteit=$ZCVT(Entiteit,"U")
+	Set ItemIdAx=$S($G(ItemIdAx)=$c(0):"",1:$G(ItemIdAx))
+	Set Lossing=$S($G(Lossing)=$c(0):"",1:$G(Lossing))
+	
+	If (Entiteit'?1(1"VHBE",1"HLX")) Quit "Foutieve entiteit"
+	Set Fout=##class(OBJTimpl.WMSOrder.ImporteerVoorraadWijziging).%New().VerwerkWebservice(Entiteit, ItemId, ItemIdAx,Delta,Lossing)
 	Quit $S(Fout="":"OK",1:Fout)
 ]]></Implementation>
 </Method>
@@ -68,7 +70,15 @@
 d ##class(WS.OBJT.WMSService).Test()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
+	w ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","0.833.811.9",-55,"????")
+	;w ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","0.898.836.2",33,"????")
+	;Do ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","0.898.836.2",22,"AventosSOPR ","Blumtrans SOPR","K.898.836.2")
 	
+	;Do ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("HLX","7.001.952.6",33,"SLFB270","Stylinart")
+	
+	;w ##class(WS.OBJT.WMSService).%New().VoorraadWijzigen("VHBE","9.154.776.11",44,"Z10.FLX1","Halux")
+	
+	q
 	Set PickLijst=##class(OBJTimpl.WMSOrder.dtoAfmeldenPicking).%New()
 	Set Picking=##class(OBJTimpl.WMSOrder.dtoCorrelatePicking).%New()
 	Set Picking.ConsNr="338136"
Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u -r67007 -r67052
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 67007)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml	(.../ImporteerVoorraadWijziging.cls.xml)	(revision 67052)
@@ -5,6 +5,7 @@
 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="pxVoorraad">
@@ -54,21 +55,23 @@
 </UDLText>
 
 <Method name="VerwerkWebservice">
-<FormalSpec>Entiteit:%String,ItemId:%String,VoorraadWijziging:%Decimal,Lossing:%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 = Lossing
+	Set ..pxVoorraad.Lossing = $G(Lossing)
+	
 	Do ..VerwerkVoorraad()
+	
 	Quit ..pxVoorraad.Fout
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkVoorraad">
 <Implementation><![CDATA[
-	
 	Do ..BepaalPRNr()
 	
 	Do ..BepaalGeldig()
@@ -85,22 +88,95 @@
 <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)"
+	#dim Actie As %String
 
-	#dim Referentie as %String = "OBJT wijziging"
-	#dim Actie As %String = "A" ; aanpassing
-	If ($Length(..pxVoorraad.Lossing)) {
-		Set Referentie = Referentie _ " Lossing " _ ..pxVoorraad.Lossing
-		Set Actie = "I" ; Inbound
+	If ..pxVoorraad.Lossing=""
+	{
+		Do ..AanpassenVoorraadCycleCount()
 	} 
-	Do STORE^PRSTOCK($S(Entiteit="HLX":"W",1:"F"),Actie,PRNr,VoorraadWijziging,Referentie)
+	Else
+	{
+		Set Referentie = "OBJT Lossing " _ ..pxVoorraad.Lossing
+		Set Actie = "I" ; Inbound
+		Do ..AanpassenOntvangenVoorraad(Entiteit, Actie, PRNr, VoorraadWijziging, Referentie)
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="AanpassenVoorraadCycleCount">
+<Implementation><![CDATA[
+ 	Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Voorraadwijziging",..pxVoorraad.Entiteit_" Prod:"_..pxVoorraad.ItemId_" Delta:"_..pxVoorraad.Delta_" Cyclecount (Verdeel indien SOPR)") 
+	#dim rs as %ResultSet
+	Set itVerdeler=##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).%New(..pxVoorraad.Entiteit,..pxVoorraad.ItemId)
+
+	If +..pxVoorraad.Delta'=0
+	{ 
+		Do itVerdeler.Verdeelvoorraad(..pxVoorraad.Delta,"A","OBJT Cyclecount")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AanpassenOntvangenVoorraad">
+<FormalSpec>Entiteit:%String,Actie:%String,PRNr:%String,VoorraadWijziging:%Decimal,Referentie:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+ 	Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Voorraadwijziging",..pxVoorraad.Entiteit_" Prod:"_..pxVoorraad.ItemId_" Delta:"_VoorraadWijziging_" "_Referentie) 
+	Set CUserId="OBJT"
+	Set %Q1="^KBA(""%1"",$I)"
+	Set CifPPL=$$CifPPL^KPRIJS(PRNr)
+	If Entiteit="VHBE" ; 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
+	 	Do ^KPR20
+	 	Do PUT^PRHIST(PRNr,VoorraadWijziging,Actie,"M",,,,,,Referentie,,CUserId)
+	}
+	Else ; Werkvloer
+	{
+		Set PR=PRNr
+ 		Set R=$$EXTDATE^vhLib.DataTypes(,"DSN")_1_D_VoorraadWijziging_D_D_1_D_(CifPPL*VoorraadWijziging)_D_D_D_D_D_D_D
+ 		Set RTemp=R
+ 		Set:$P(RTemp,D,2) R=$$CV2EENH^MRP(PRNr,$P(RTemp,D,2)),$P(RTemp,D,5)=$P(RTemp,D,5)/$P(RTemp,D,2)*R,$P(RTemp,D,2)=R
+ 		Set R=RTemp,$P(R,D,13)=1
+ 		Set AantalWV=$P(R,D,2)
+ 		Do WV^KPR10
+ 		Do PUT^PRHIST(PRNr,AantalWV,Actie,"W",,,,,,Referentie,,CUserId)
+	}
+	
+	
+	;Indien inbound dan backflush van verbruiken (voor producten die door HLX worden gemaakt maar bij VH op stock worden genomen)
+	If (Entiteit="VHBE") && ( Actie="I") && $$HasHalfFabr^PRBS(PRNr)
+	{
+		Set HFCode=$O(^PRBS("BS",PRNr,""))
+ 		While HFCode'=""
+ 		{ 
+ 			Set R=^PRBS("BS",PRNr,HFCode)
+		    Set HFPRNr=$P(R,D)
+			If ($P(R,D,3)="H") && $D(^KPR(HFPRNr)) && ('$P(R,D,27)) && ($$$ProductGet(HFPRNr,$$$LinkType)'?1(1"HZ",1"HHZ")) ; Bouwsteen is halffabrikaat EN Product bestaat EN stockaanpassing te verwerken voor dit product EN het product is NIET zonder stockaanpassing			Set Aantal=$P(R,D,2)
+ 			{
+	 			Set AantalComp=$P(R,D,2)
+	 			Set DimUitV=$P($G(^PRBS("BS",PRNr,HFCode,"D")),D,3)
+	 			Set AantalWV=$$CV2WV^MRP(HFPRNr,0,VoorraadWijziging*AantalComp,DimUitV)
+				Set CifPPL=$$CifPPL^KPRIJS(HFPRNr)
+
+	 			Set R=$$EXTDATE^vhLib.DataTypes(,"DSN")_3_D_AantalWV_D_(CifPPL*AantalWV)_D_1_D_D_D_D_Referentie_D_D_D ; Record voor WV^KPR10
+				Set PR=HFPRNr
+				;w !,HFPRNr,"  ",AantalWV
+				Do WV^KPR10
+	 			Do PUT^PRHIST(HFPRNr,AantalWV,"H","W",,,,,,Referentie,,CUserId,PRNr)
+ 			}
+ 			
+ 			Set HFCode=$O(^PRBS("BS",PRNr,HFCode))
+ 		}
+
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BepaalGeldig">
 <Implementation><![CDATA[
 	Set:..pxVoorraad.Entiteit="" ..pxVoorraad.Fout="Entiteit niet ingevuld"
@@ -115,6 +191,8 @@
 <Method name="BepaalPRNr">
 <Implementation><![CDATA[
 	Quit:..pxVoorraad.ItemId="" ""
+	
+	Set:..pxVoorraad.ItemIdAX?1E1"."3N1"."3N1"."1.3N ..pxVoorraad.ItemId=..pxVoorraad.ItemIdAX ; Indien ItemId is het OBJTItemId, maar in Admin en AX kunnen dit meerdere producten zijn door SOPR.
 	Set ..pxVoorraad.PRNr=$P($G(^KPR2($TR(..pxVoorraad.ItemId,".")_" ")),"\")
 ]]></Implementation>
 </Method>
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml
===================================================================
diff -u -r67007 -r67052
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 67007)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml	(.../ImporteerVoorraadNiveau.cls.xml)	(revision 67052)
@@ -63,12 +63,12 @@
 	;Do ..BepaalPRNr()
 	Set itVerdeler=##class(OBJTimpl.WMSOrder.VerdeelSOPRVoorraad).%New(..pxVoorraad.Entiteit,..pxVoorraad.ItemId)
 	;Do ..BepaalGeldig()
-	w !,..pxVoorraad.Entiteit,"  ",..pxVoorraad.ItemId
+	;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")
+		;Write " = ",..pxVoorraad.Aantal," <-> ", ..pxVoorraad.AantalAdmin
+		Do itVerdeler.Verdeelvoorraad(..pxVoorraad.Aantal-..pxVoorraad.AantalAdmin,"N","OBJT nachtelijk sync")
 	}
 ]]></Implementation>
 </Method>
Index: OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml
===================================================================
diff -u -r66843 -r67052
--- OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(.../VerdeelSOPRVoorraad.cls.xml)	(revision 66843)
+++ OBJTimpl/WMSOrder/VerdeelSOPRVoorraad.cls.xml	(.../VerdeelSOPRVoorraad.cls.xml)	(revision 67052)
@@ -89,7 +89,12 @@
 <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")
+	;Set sc=ResultSet.Prepare("select Product,ItemID,Product->GewogenGemiddeldeWeekVerkoop, Product->WerkvloerEenheid, Product->WerkvloerNettoAfm from OBJTimpl_PM.OBJTIdentNrMapping where  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)
@@ -126,7 +131,7 @@
 			Set AdminVoorraad=..TeVerdelenVoorraad / ..TotaalAantalProducten
 		} Else {
 			; Regel van drie toepassen voor verkoop
-			Set AdminVoorraad=..TeVerdelenVoorraad * ..ResultSet.Data("GewogenGemiddeldeWeekVerkoop") / ..TotaalVerkoop
+			Set AdminVoorraad=..TeVerdelenVoorraad * $P(..ResultSet.Data("GewogenGemiddeldeWeekVerkoop"),"#") / ..TotaalVerkoop
 		}
 		;w !,AdminVoorraad,..ReedsVerdeeldeVoorraad
 		Set AdminVoorraad=AdminVoorraad\1 ; Geheel getal de rest gaat naar het laatste product
@@ -141,14 +146,14 @@
 <FormalSpec>PRNr:%String,Voorraadwijziging:%Decimal,Actie:%String,Omschrijving:%String</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	w !,"    ",PRNr," ",$$$PRGet($$$KortTekst)," ",Voorraadwijziging
+	;w !," voorraadwijziging   ",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 ..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($S(..Entiteit="HLX":"W",1:"F"),Actie,PRNr,Voorraadwijziging,Omschrijving)
 ]]></Implementation>
 </Method>