Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r71677 -r71681
--- APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 71677)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 71681)
@@ -48,8 +48,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BarcodeService">
+<Type>APPS.algemeen.BarcodeService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI=""</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",ToeleveringApi:DOM.AKP.ToeleveringAPI="",MaatwerkProductEtiketBuilder:APPS.Halux.Docs.impl.LadeKlantEtiketBuilder="",PartijApi:DOM.PARTIJ.PartijAPI="",BarcodeService:APPS.algemeen.BarcodeService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -65,6 +70,7 @@
 	Set ..VHossService = ##class(APPS.Halux.common.impl.VHossService).%New()
 	Set ..DnaCodeService =  ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
 	Set ..ProjectSettingsAPI = ##class(DOM.common.impl.ProjectSettingsAPI).%New()
+	Set ..BarcodeService = $$$Inject(BarcodeService, ##class(APPS.algemeen.BarcodeService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -125,7 +131,7 @@
 </Method>
 
 <Method name="MaakExtraMaatwerkProductVoorBewerkingscenter">
-<FormalSpec>DnaCode:%String="",LadeCode:%String="",Layout:%String,Device:%String</FormalSpec>
+<FormalSpec>DnaCode:%String="",ProductId:%String,Layout:%String,Device:%String</FormalSpec>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
 	Set Etiket = ##class(BL.Etiket.LadeKlantEtiket).%New("")
@@ -134,7 +140,7 @@
 	Set Etiket.DnaCode = DnaCode
 	Set Etiket.Layout = Layout
 	Set Etiket.Device = Device
-	Set Etiket.LadeCode = LadeCode
+	Set Etiket.BarcodeTekst = ..BarcodeService.GeefLeesbaarDossierBarcodeVanProduct(ProductId)
 	
 	Quit Etiket
 ]]></Implementation>