Index: APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml
===================================================================
diff -u -r42796 -r54568
--- APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 42796)
+++ APPS/Halux/Machine/Kantenband/impl/KantenbandBepaler.cls.xml	(.../KantenbandBepaler.cls.xml)	(revision 54568)
@@ -18,16 +18,22 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LadeKleur">
+<Type>DOM.PM.enu.TAORKantenbandKleur.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KantenBandProgrammaRepository:APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository</FormalSpec>
+<FormalSpec>KantenBandProgrammaRepository:APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository="",DikteCodeBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler="",BreedteCodeBepaler:APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KantenBandProgrammaRepository = $$$Implementation(KantenBandProgrammaRepository,##class(APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New())
-	set ..DikteCodeBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler).%New()
-	set ..BreedteCodeBepaler = ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler).%New()
+	Set ..KantenBandProgrammaRepository = $$$Inject(KantenBandProgrammaRepository,##class(APPS.Halux.Machine.Kantenband.impl.KantenBandProgrammaRepository).%New())
+	Set ..DikteCodeBepaler = $$$Inject(DikteCodeBepaler, ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.DikteCodeBepaler).%New())
+	Set ..BreedteCodeBepaler = $$$Inject(BreedteCodeBepaler, ##class(APPS.Halux.Machine.Kantenband.impl.KantenbandDataBepaler.BreedteCodeBepaler).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -38,35 +44,21 @@
 <Implementation><![CDATA[
 	#dim Kantenband As %String = ""	
 
-	if ..HeeftKantenbandNodig(KantenbandData,Programma) { 
+	If ..HeeftKantenbandNodig(Programma) { 
 		#dim LadeKleur As %String = KantenbandData.LadeKleur
-		set:(LadeKleur="W") LadeKleur = "W1"
-		set:(LadeKleur="S") LadeKleur = "Z8"
-		set Kantenband =   LadeKleur_ ..GeefDikteCode(KantenbandData.Decor)_ ..GeefBreedteCode(KantenbandData.Decor)
+		
+		Set:(KantenbandData.LadeKleur = ..LadeKleur.Wit) LadeKleur = "W1"
+		Set:(KantenbandData.LadeKleur = ..LadeKleur.Zwart) LadeKleur = "Z8"
+		
+		Set Kantenband = LadeKleur _ ..DikteCodeBepaler.BepaalCode(KantenbandData.Decor) _ ..BreedteCodeBepaler.BepaalCode(KantenbandData.Decor)
 	}
 	
-	quit Kantenband
+	Quit Kantenband
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDikteCode">
-<FormalSpec>PlaatAfwerking:DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.enu.TAORLadeZijkantDecor.Verwerker</ReturnType>
-<Implementation><![CDATA[	quit ..DikteCodeBepaler.BepaalCode(PlaatAfwerking)
-]]></Implementation>
-</Method>
-
-<Method name="GeefBreedteCode">
-<FormalSpec>PlaatAfwerking:DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..BreedteCodeBepaler.BepaalCode(PlaatAfwerking)
-]]></Implementation>
-</Method>
-
 <Method name="HeeftKantenbandNodig">
-<FormalSpec>KantenbandData:APPS.Halux.PPS.Activiteit.impl.common.dto.KantenbandData,Programma:TECH.String</FormalSpec>
+<FormalSpec>Programma:TECH.String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[