Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepaler.cls.xml
===================================================================
diff -u -r30511 -r31960
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepaler.cls.xml	(.../RijDataBepaler.cls.xml)	(revision 30511)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/AssemblageKarOverzicht/DocumentInhoudBuilder/RijDataBepaler.cls.xml	(.../RijDataBepaler.cls.xml)	(revision 31960)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.DocumentInhoudBuilder.RijDataBepaler">
 <Abstract>1</Abstract>
-<Super>TECH.RegisteredObject</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Property name="RijDataLijstFronten">
 <Type>APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList</Type>
@@ -53,6 +53,7 @@
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ..DocumentService = ##class(APPS.Halux.PPS.impl.DocumentService).%New()
 	Set ..LadeInfoAPI = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -62,10 +63,14 @@
 <Implementation><![CDATA[
 	Set ..RijDataLijstFronten = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
 	Set ..RijDataLijstSchroefKoppeling = ##class(APPS.common.Document.TagBasedDocument.KolommenDocument.dto.RijDataList).%New()
-	Set UitvoeringInfoLijstIt = ##class(TECH.ListIterator).%New(SequentieGebaseerdeUitvoeringInfoLijst)
-	While (UitvoeringInfoLijstIt.HasNext()) {
-		Set ..SequentieGebaseerdeUitvoeringInfo = UitvoeringInfoLijstIt.Next()
+	
+	#dim UitvoeringInfoLijstIterator = ##class(TECH.ListIterator).%New(SequentieGebaseerdeUitvoeringInfoLijst)
+	
+	While (UitvoeringInfoLijstIterator.HasNext()) {
+		Set ..SequentieGebaseerdeUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
+		
 		#dim Product As DOM.PM.MaatwerkProduct = ..ProductAPI.GeefProduct(..SequentieGebaseerdeUitvoeringInfo.ProductID)
+		
 		Set ..HalffabItemsBoom = Product.GeefHalffabItemsBoom()
 		Set ..TAORKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
 		
@@ -97,16 +102,19 @@
 <Method name="VoegToeFrontData">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(..HalffabItemsBoom,..TAORKenmerken)
+	#dim Lade As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(..HalffabItemsBoom, ..TAORKenmerken)
 	#dim Fronten As %ListOfObjects = Lade.GeefFronten()
-	If Fronten.Count() > 0 {
+	
+	If (Fronten.Count() > 0) {
 		#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = Fronten.GetAt(1)
 		#dim RijData As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RijDataFront = ..GeefFrontRijData()
+		
 		Set RijData.ToeDos = ..GeefToeleveringDossierCode()
 		Set RijData.Kleur = Front.GeefKleur()
 		Set RijData.Hoogte = Front.GeefHoogte()
 		Set RijData.Lengte = Front.GeefBreedteInMM()
 		Set RijData.FronteindkapKleur = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.AfdekkapBovenKleur).LogicalToDisplay(..TAORKenmerken.FrontEindkapKleur)
+		
 		Do ..RijDataLijstFronten.Insert(RijData)
 	}
 ]]></Implementation>
@@ -115,14 +123,20 @@
 <Method name="VoegToeSchroefKoppelingData">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ..TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef() {
+	If (..TAORKenmerken.KoppelingType = ..Enum.KoppelingType.Schroef) {
 		#dim RijData As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.AssemblageKarOverzicht.dto.RijDataSchroefKoppeling = ..GeefSchroefKoppelingRijData()
+		
 		Set RijData.ToeDos = ..GeefToeleveringDossierCode()
-		If ..HalffabItemsBoom.BevatRol(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Koppeling()) {
-			Set RijData.Info = "boren & monteren"
+		
+		#dim IsKoppelingAanwezig As %Boolean = ..HalffabItemsBoom.BevatRol(..Enum.Rol.Koppeling)
+		#dim IsGemonteerdeLade As %Boolean = ..API.IngegevenKenmerkenTypeAPI.IsGemonteerdeLade(..TAORKenmerken)
+
+		If (IsKoppelingAanwezig && IsGemonteerdeLade) {
+			Set RijData.Info = "boren & monteren"	
 		} Else {
-			Set RijData.Info = "boren"
+			Set RijData.Info = "boren"	
 		}
+		
 		Do ..RijDataLijstSchroefKoppeling.Insert(RijData)
 	}
 ]]></Implementation>
@@ -143,7 +157,7 @@
 <Method name="GeefToeleveringDossierCode">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit ..DocumentService.GeefToeleveringDossierCode(..SequentieGebaseerdeUitvoeringInfo.ToeleveringID,..SequentieGebaseerdeUitvoeringInfo.DossierCode)
+<Implementation><![CDATA[	Quit ..DocumentService.GeefToeleveringDossierCode(..SequentieGebaseerdeUitvoeringInfo.ToeleveringID, ..SequentieGebaseerdeUitvoeringInfo.DossierCode)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Productie_005_TAGBASEDDOC.xml
===================================================================
diff -u -r31637 -r31960
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Productie_005_TAGBASEDDOC.xml	(.../Productie_005_TAGBASEDDOC.xml)	(revision 31637)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestFlatpackV1/StartBatch/Productie_005_TAGBASEDDOC.xml	(.../Productie_005_TAGBASEDDOC.xml)	(revision 31960)
@@ -12,7 +12,7 @@
         <FONTSIZE>12pt</FONTSIZE>
         <FONTFAMILY>Bitstream Vera Sans Mono</FONTFAMILY>
       </LAYOUT>
-      <TEKST><B>Vakken met een front :</B><BR/><NBSP/>----|----------|-------|--------|--------|-------------<BR/><NBSP/>Vak | Toe:Dos  | Kleur | Hoogte | Lengte | Fronteindkap<BR/><NBSP/>----|----------|-------|--------|--------|-------------<BR/><NBSP/>  1 | 222:LI7K |    NN |      C |    590 |           AL<BR/><NBSP/>  2 | 222:LI7L |    NN |      C |    590 |           AL<BR/><NBSP/>----|----------|-------|--------|--------|-------------<BR/><BR/><BR/><B>Vakken met bodems met schroefkoppeling :</B><BR/><NBSP/>----|----------|----------------------<BR/><NBSP/>Vak | Toe:Dos  |                      <BR/><NBSP/>----|----------|----------------------<BR/><NBSP/>  1 | 222:LI7K | boren &amp; monteren     <BR/><NBSP/>  2 | 222:LI7L | boren &amp; monteren     <BR/><NBSP/>----|----------|----------------------<BR/></TEKST>
+      <TEKST><B>Vakken met een front :</B><BR/><NBSP/>----|----------|-------|--------|--------|-------------<BR/><NBSP/>Vak | Toe:Dos  | Kleur | Hoogte | Lengte | Fronteindkap<BR/><NBSP/>----|----------|-------|--------|--------|-------------<BR/><NBSP/>  1 | 222:LI7K |    NN |      C |    590 |           AL<BR/><NBSP/>  2 | 222:LI7L |    NN |      C |    590 |           AL<BR/><NBSP/>----|----------|-------|--------|--------|-------------<BR/><BR/><BR/><B>Vakken met bodems met schroefkoppeling :</B><BR/><NBSP/>----|----------|----------------------<BR/><NBSP/>Vak | Toe:Dos  |                      <BR/><NBSP/>----|----------|----------------------<BR/><NBSP/>  1 | 222:LI7K | boren                <BR/><NBSP/>  2 | 222:LI7L | boren                <BR/><NBSP/>----|----------|----------------------<BR/></TEKST>
     </BODY>
   </OPGEMAAKTE_TEKSTDOC>
 </TAGBASEDDOCUMENTEN>
\ No newline at end of file