Index: APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml
===================================================================
diff -u -r58511 -r58567
--- APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml	(.../Base.cls.xml)	(revision 58511)
+++ APPS/Halux/Machine/Kantenband/PassageDefinitieDefinieerder/Base.cls.xml	(.../Base.cls.xml)	(revision 58567)
@@ -9,16 +9,21 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Kleur">
-<Type>DOM.PM.enu.TAORKantenbandKleur.AutoComplete</Type>
+<Property name="LadeOnderdeelRol">
+<Type>APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="LadeOnderdeelRol">
-<Type>APPS.Halux.Machine.Kantenband.enu.LadeOnderdeel</Type>
+<Property name="Uitgang">
+<Type>APPS.Halux.Machine.Kantenband.enu.Uitgang</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="Kleur">
+<Type>DOM.PM.enu.TAORKantenbandKleur.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Passage">
 <Type>APPS.Halux.Machine.Kantenband.enu.Passage.AutoComplete</Type>
 <Private>1</Private>
@@ -34,11 +39,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Uitgang">
-<Type>APPS.Halux.Machine.Kantenband.enu.Uitgang.AutoComplete</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="Definieer">
 <Abstract>1</Abstract>
 </Method>
@@ -71,6 +71,14 @@
 	Do ..DataDefinitie.Save()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefKantenbandDefinitie">
+<FormalSpec>PlaatAfwerking:DOM.PM.enu.TAORPlaatAfwerking,KleurBoven:DOM.PM.enu.TAORKantenbandKleur,KleurOnder:DOM.PM.enu.TAORKantenbandKleur,ProgrammaNaamBoven:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam,ProgrammaNaamOnder:APPS.Halux.Machine.Kantenband.enu.ProgrammaNaam</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.Machine.Kantenband.PassageDefinitieDefinieerder.KantenbandDefinitie).%New(PlaatAfwerking, KleurBoven, KleurOnder, ProgrammaNaamBoven, ProgrammaNaamOnder)
+]]></Implementation>
+</Method>
 </Class>