Index: vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml
===================================================================
diff -u -r34373 -r34439
--- vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 34373)
+++ vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 34439)
@@ -21,8 +21,8 @@
 	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Links, ..LijmProgramma.L)
 	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts, ..LijmProgramma.R)
 	
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links, ..LijmProgramma.X)
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts, ..LijmProgramma.X)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links, ..LijmProgramma.C)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts, ..LijmProgramma.D)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r34438 -r34439
--- APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 34438)
+++ APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 34439)
@@ -60,6 +60,13 @@
 
 <Method name="VerwerkValingeBaliko">
 <Private>1</Private>
+<Implementation><![CDATA[
+	If (..Zijkant.GeefZijkantRol() = ..ZijkantRol.Links) {
+		Set ..ZijkantLijmProgramma = ..LijmProgramma.C
+	} Else {
+		Set ..ZijkantLijmProgramma = ..LijmProgramma.D
+	}
+]]></Implementation>
 </Method>
 </Class>