Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml
===================================================================
diff -u -r73335 -r73361
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 73335)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml	(.../ProductOptiesGenerator.cls.xml)	(revision 73361)
@@ -28,6 +28,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VHossService">
+<Type>APPS.Halux.common.impl.VHossService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>ProductApi:DOM.PM.ProductAPI="",DnaCodeService:APPS.Halux.AAP.DnaCodeService="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper="",Logger:vhLib.Logger="",HoutCertificaatService:DOM.PM.HoutCertificaatService=""</FormalSpec>
 <Private>1</Private>
@@ -40,6 +45,7 @@
 	Set ..IngegevenKenmerkenSpaceStepHelper = $$$Inject(IngegevenKenmerkenSpaceStepHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New())
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("CalculatedProduct"))
 	Set ..HoutCertificaatService = $$$Inject(HoutCertificaatService, ##class(DOM.PM.HoutCertificaatService).%New())
+	Set ..VHossService = ##class(APPS.Halux.common.impl.VHossService).%New()
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -164,7 +170,7 @@
 	#dim VhossInfo As %String = ""
 	
 	If $Length(UitvoeringInfo.VHOSSID) {
-		Set VhossInfo = UitvoeringInfo.VHOSSID _ "." _ UitvoeringInfo.ZijVlakID _ "." _ UitvoeringInfo.SlotID
+		Set VhossInfo = UitvoeringInfo.VHOSSID _ "." _ ..VHossService.GeefZijkantCodeVanZijkantID(UitvoeringInfo.ZijVlakID) _ "." _ UitvoeringInfo.SlotID
 	}
 	
 	Quit VhossInfo