Index: APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r29059 -r34438
--- APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 34438)
@@ -1,38 +1,66 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler">
-<Super>TECH.Mockable</Super>
+<Super>TECH.Mockable,DOM.PM.Maatwerk.TAX.impl.Base,DOM.PM.enu.TAORConcept.Verwerker</Super>
 
+<Property name="LijmProgramma">
+<Type>APPS.Halux.Machine.Kantenband.enu.LijmProgramma.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ZijkantRol">
+<Type>DOM.PM.Maatwerk.Lade.enu.ZijkantRol.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Zijkant">
+<Type>DOM.PM.Maatwerk.LadeInfo.Zijkant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ZijkantLijmProgramma">
+<Type>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="BepaalProgramma">
 <FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
 <Implementation><![CDATA[
-	#dim LijmProgramma As APPS.Halux.Machine.Kantenband.enu.LijmProgramma = ##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).X()
-	if Zijkant.GeefConcept() = ##class(APPS.Halux.PPS.enu.TAORConcept).Baliko() {
-		if ..IsLinkseZijkant(Zijkant) {
-			set LijmProgramma = ##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).A()
-		} else {
-			set LijmProgramma = ##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).B()
-		}
-	} elseif Zijkant.GeefConcept() = ##class(APPS.Halux.PPS.enu.TAORConcept).Valinge() {
-		if ..IsLinkseZijkant(Zijkant) {
-			set LijmProgramma = ##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).L()
-		} else {	
-			set LijmProgramma = ##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).R()
-		}
+	Set ..Zijkant = Zijkant
+	Set ..ZijkantLijmProgramma = ..LijmProgramma.X
+	
+	Do ..Verwerk(Zijkant.GeefConcept())
+	
+	Quit ..ZijkantLijmProgramma
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBaliko">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (..Zijkant.GeefZijkantRol() = ..ZijkantRol.Links) {
+		Set ..ZijkantLijmProgramma = ..LijmProgramma.A
+	} Else {
+		Set ..ZijkantLijmProgramma = ..LijmProgramma.B
 	}
-		
-	quit LijmProgramma
 ]]></Implementation>
 </Method>
 
-<Method name="IsLinkseZijkant">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
+<Method name="VerwerkValinge">
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit Zijkant.GeefZijkantRol()=##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links()
+<Implementation><![CDATA[
+	If (..Zijkant.GeefZijkantRol() = ..ZijkantRol.Links) {
+		Set ..ZijkantLijmProgramma = ..LijmProgramma.L
+	} Else {
+		Set ..ZijkantLijmProgramma = ..LijmProgramma.R
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkValingeBaliko">
+<Private>1</Private>
+</Method>
 </Class>