Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml
===================================================================
diff -u -r60013 -r60028
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml	(.../Inhoud.cls.xml)	(revision 60013)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml	(.../Inhoud.cls.xml)	(revision 60028)
@@ -285,47 +285,45 @@
 <Method name="MaakTekstBoldWaarNodig">
 <Implementation><![CDATA[
 	#dim FrontbevestigingIsBold As %Boolean = $$$False
-	#dim EindVanLijstBereikt As %Boolean = $$$False
+	#dim VerdereIteratieIsOnnodig As %Boolean = $$$False
 	#dim GezochtLadeType As %String = "LEGRABOX"
 	#dim ProdDetailLijnInnerIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen)
 	
 	If ($Extract(..Langtekst,1,8) = GezochtLadeType) {
 		#dim ProdDetailLijnOuterIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen)
 		Set Filter = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijnFilter).%New()
 		#dim ProdDetailLijnOuterDynamicIterator As TECH.ListIterator = ##class(TECH.DynamicIterator).%New(ProdDetailLijnOuterIterator,,Filter)
-		While ((ProdDetailLijnOuterDynamicIterator.HasNext()) && $$$Not(FrontbevestigingIsBold) && $$$Not(EindVanLijstBereikt)) {
-			
+		While ((ProdDetailLijnOuterDynamicIterator.HasNext()) && $$$Not(FrontbevestigingIsBold) && $$$Not(VerdereIteratieIsOnnodig)) {			
 			#dim DetailLijn As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn = ProdDetailLijnOuterDynamicIterator.Next()
 			If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,2) = "V1") {
 				Do ProdDetailLijnInnerIterator.Reset()
 				While (ProdDetailLijnInnerIterator.HasNext() && $$$Not(FrontbevestigingIsBold)) {
 					Set DetailLijn = ProdDetailLijnInnerIterator.Next()
 					If ($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,16) = "Frontbevestiging") {
-						Set DetailLijn = ..ZetBoldKorttekstVoorFrontbevestiging(DetailLijn)
+						Do ..ZetBoldKaraktersInKorttekstVoorFrontbevestiging(DetailLijn)
 						Set FrontbevestigingIsBold = $$$True
 					}			
 				}
-				Set EindVanLijstBereikt = $$$True
+				Set VerdereIteratieIsOnnodig = $$$True
 			}
 		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ZetBoldKorttekstVoorFrontbevestiging">
-<FormalSpec>DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailLijn</FormalSpec>
+<Method name="ZetBoldKaraktersInKorttekstVoorFrontbevestiging">
+<FormalSpec>DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ItemKortTekst As %String = DetailLijn.GeefKorttekst().GeefTekst()
 	#dim ItemNieuweKortTekst As %String
+	
 	If (##class(TECH.StringUtils).Contains(DetailLijn.GeefOmschrijving().GeefTekst(),"EXPANDO-T")) {
 		Set ItemNieuweKortTekst = $Extract(ItemKortTekst,1,3)_"<b>"_$Extract(ItemKortTekst,4,4)_"</b>"_$Extract(ItemKortTekst,5,6)_"<b>"_$Extract(ItemKortTekst,7,7)_"</b>"_$Extract(ItemKortTekst,8,*)				
 	} Else {
 		Set ItemNieuweKortTekst = $Extract(ItemKortTekst,1,3)_"<b>"_$Extract(ItemKortTekst,4,4)_"</b>"_$Extract(ItemKortTekst,5,*)
 	}
-	Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst))		
-	
-	Quit DetailLijn
+	Do DetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New(ItemNieuweKortTekst))
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/ProductDetailDataLijnFilter.cls.xml
===================================================================
diff -u -r59879 -r60028
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/ProductDetailDataLijnFilter.cls.xml	(.../ProductDetailDataLijnFilter.cls.xml)	(revision 59879)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/ProductDetailDataLijnFilter.cls.xml	(.../ProductDetailDataLijnFilter.cls.xml)	(revision 60028)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijnFilter">
-<Super>TECH.Mockable,TECH.Filter</Super>
+<Super>TECH.Filter,TECH.RegisteredObject</Super>
 
 <Property name="IsValid">
 <Type>%Boolean</Type>
Index: vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/Test.cls.xml
===================================================================
diff -u -r60016 -r60028
--- vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/Test.cls.xml	(.../Test.cls.xml)	(revision 60016)
+++ vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/Test.cls.xml	(.../Test.cls.xml)	(revision 60028)
@@ -3,101 +3,105 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: Zet 2 karakters van korttekst in bold indien zowel Frontbevestiging EXPANDO-T als V1">
+<Method name="Test: Zet karakter 4 en 7 van korttekst in bold indien zowel Frontbevestiging EXPANDO-T als V1">
 <Implementation><![CDATA[
+	#dim IsV1 As %Boolean = $$$True
+	#dim HeeftFrontbevestiging As %Boolean = $$$True
+	#dim HeeftFrontbevestigingExpandoT As %Boolean = $$$True
 	Set ProductieDetailDocumentAanpasser = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud).%New()
 	
 	Do ProductieDetailDocumentAanpasser.ZetLangtekst("LEGRABOX")
-	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen($$$True, $$$True, $$$True))
+	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen(IsV1, HeeftFrontbevestiging, HeeftFrontbevestigingExpandoT))
 	
 	Do ProductieDetailDocumentAanpasser.MaakTekstBoldWaarNodig()
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(1).GeefKorttekst().GeefTekst(), "Korttekst V1 ladedoos")
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "Kor<b>t</b>te<b>k</b>st frontbevestiging Exp T")
+	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "123<b>4</b>56<b>7</b>89 frontbevestiging Exp T")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Zet 1 karakter van korttekst in bold indien zowel Frontbevestiging (maar geen EXPANDO-T eigenschap) als V1">
+<Method name="Test: Zet 4e karakter van korttekst in bold indien zowel Frontbevestiging (maar geen EXPANDO-T eigenschap) als V1">
 <Implementation><![CDATA[
+	#dim IsV1 As %Boolean = $$$True
+	#dim HeeftFrontbevestiging As %Boolean = $$$True
+	#dim HeeftFrontbevestigingExpandoT As %Boolean = $$$False
 	Set ProductieDetailDocumentAanpasser = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud).%New()
 	
 	Do ProductieDetailDocumentAanpasser.ZetLangtekst("LEGRABOX")
-	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen($$$True, $$$True, $$$False))
+	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen(IsV1, HeeftFrontbevestiging, HeeftFrontbevestigingExpandoT))
 	
 	Do ProductieDetailDocumentAanpasser.MaakTekstBoldWaarNodig()
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(1).GeefKorttekst().GeefTekst(), "Korttekst V1 ladedoos")
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "Kor<b>t</b>tekst frontbevestiging Exp")
+	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "123<b>4</b>56789 frontbevestiging Exp")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Zet 0 karakters van korttekst in bold indien geen frontbevestiging en geen V1">
 <Implementation><![CDATA[
+	#dim IsV1 As %Boolean = $$$False
+	#dim HeeftFrontbevestiging As %Boolean = $$$False
+	#dim HeeftFrontbevestigingExpandoT As %Boolean = $$$False
 	Set ProductieDetailDocumentAanpasser = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud).%New()
 	
 	Do ProductieDetailDocumentAanpasser.ZetLangtekst("LEGRABOX")
-	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen($$$False, $$$False, $$$False))
+	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen(IsV1, HeeftFrontbevestiging, HeeftFrontbevestigingExpandoT))
 	
 	Do ProductieDetailDocumentAanpasser.MaakTekstBoldWaarNodig()
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(1).GeefKorttekst().GeefTekst(), "Korttekst Probox ladedoos")
 	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "Korttekst Afdekkap")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Zet 0 karakters van korttekst in bold indien frontbevestiging en geen V1">
 <Implementation><![CDATA[
+	#dim IsV1 As %Boolean = $$$False
+	#dim HeeftFrontbevestiging As %Boolean = $$$True
+	#dim HeeftFrontbevestigingExpandoT As %Boolean = $$$True
 	Set ProductieDetailDocumentAanpasser = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud).%New()
 	
 	Do ProductieDetailDocumentAanpasser.ZetLangtekst("LEGRABOX")
-	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen($$$False, $$$True, $$$True))
+	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen(IsV1, HeeftFrontbevestiging, HeeftFrontbevestigingExpandoT))
 	
 	Do ProductieDetailDocumentAanpasser.MaakTekstBoldWaarNodig()
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(1).GeefKorttekst().GeefTekst(), "Korttekst Probox ladedoos")
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "Korttekst frontbevestiging Exp T")
+	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "123456789 frontbevestiging Exp T")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Zet 0 karakters van korttekst in bold indien zowel Frontbevestiging EXPANDO-T als V1 maar geen LBX maar wel TBX">
+<Method name="Test: Zet 0 karakters van korttekst in bold indien TBX">
 <Implementation><![CDATA[
+	#dim IsV1 As %Boolean = $$$True
+	#dim HeeftFrontbevestiging As %Boolean = $$$True
+	#dim HeeftFrontbevestigingExpandoT As %Boolean = $$$True
 	Set ProductieDetailDocumentAanpasser = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud).%New()
 	
 	Do ProductieDetailDocumentAanpasser.ZetLangtekst("TANDEMBOX")
-	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen($$$True, $$$True, $$$True))
+	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen(IsV1, HeeftFrontbevestiging, HeeftFrontbevestigingExpandoT))
 	
 	Do ProductieDetailDocumentAanpasser.MaakTekstBoldWaarNodig()
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(1).GeefKorttekst().GeefTekst(), "Korttekst V1 ladedoos")
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "Korttekst frontbevestiging Exp T")
+	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "123456789 frontbevestiging Exp T")
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Zet 0 karakters van korttekst in bold indien zowel Frontbevestiging EXPANDO-T als V1 maar geen LBX maar wel TAX">
+<Method name="Test: Zet 0 karakters van korttekst in bold indien TAX">
 <Implementation><![CDATA[
+	#dim IsV1 As %Boolean = $$$True
+	#dim HeeftFrontbevestiging As %Boolean = $$$True
+	#dim HeeftFrontbevestigingExpandoT As %Boolean = $$$True
 	Set ProductieDetailDocumentAanpasser = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.Inhoud).%New()
 	
 	Do ProductieDetailDocumentAanpasser.ZetLangtekst("TAORBOX")
-	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen($$$True, $$$True, $$$True))
+	Do ProductieDetailDocumentAanpasser.ZetProductDetailLijnen(..GeefProductDetailLijnen(IsV1, HeeftFrontbevestiging, HeeftFrontbevestigingExpandoT))
 	
 	Do ProductieDetailDocumentAanpasser.MaakTekstBoldWaarNodig()
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(1).GeefKorttekst().GeefTekst(), "Korttekst V1 ladedoos")
-	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "Korttekst frontbevestiging Exp T")
+	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "123456789 frontbevestiging Exp T")
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductDetailLijnen">
-<FormalSpec>IsV1Aanwezig:%Boolean,FrontbevestigingAanwezig:%Boolean,FrontbevestigingExpandoTAanwezig:%Boolean</FormalSpec>
+<FormalSpec>IsV1:%Boolean,HeeftFrontbevestiging:%Boolean,HeeftFrontbevestigingExpandoT:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductDetailLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	If (IsV1Aanwezig && FrontbevestigingAanwezig) {
-		Do ProductDetailLijnen.Insert(..GeefProductDetailLijnVerpakking($$$True))
-		Do ProductDetailLijnen.Insert(..GeefProductDetailLijnOnderdeel($$$True, FrontbevestigingExpandoTAanwezig))
-	} Elseif ($$$Not(IsV1Aanwezig) && FrontbevestigingAanwezig) {
-		Do ProductDetailLijnen.Insert(..GeefProductDetailLijnVerpakking($$$False))
-		Do ProductDetailLijnen.Insert(..GeefProductDetailLijnOnderdeel($$$True, FrontbevestigingExpandoTAanwezig))
-	} Else {
-		Do ProductDetailLijnen.Insert(..GeefProductDetailLijnVerpakking($$$False))
-		Do ProductDetailLijnen.Insert(..GeefProductDetailLijnOnderdeel($$$False))
-	}
+	Do ProductDetailLijnen.Insert(..GeefProductDetailLijnVerpakking(IsV1))
+	Do ProductDetailLijnen.Insert(..GeefProductDetailLijnOnderdeel(HeeftFrontbevestiging, HeeftFrontbevestigingExpandoT))	
 		
 	Quit ProductDetailLijnen
 ]]></Implementation>
@@ -123,23 +127,25 @@
 </Method>
 
 <Method name="GeefProductDetailLijnOnderdeel">
-<FormalSpec>HeeftFrontBevestiging:%Boolean,FrontbevestigingExandoT:%Boolean=0</FormalSpec>
+<FormalSpec>HeeftFrontBevestiging:%Boolean,HeeftFrontbevestigingExandoT:%Boolean=0</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn</ReturnType>
 <Implementation><![CDATA[
 	Set ProductDetailLijn = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn).%New()
 	
-	If HeeftFrontBevestiging && FrontbevestigingExandoT{
+	If HeeftFrontBevestiging {
+		If HeeftFrontbevestigingExandoT {
 		Do ProductDetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New("Frontbevestiging, EXPANDO-T"))
-		Do ProductDetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("Korttekst frontbevestiging Exp T"))
-	} Elseif HeeftFrontBevestiging && $$$Not(FrontbevestigingExandoT) {
-		Do ProductDetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New("Frontbevestiging, EXPANDO"))
-		Do ProductDetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("Korttekst frontbevestiging Exp"))
+		Do ProductDetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("123456789 frontbevestiging Exp T"))
+		} Else {
+			Do ProductDetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New("Frontbevestiging, EXPANDO"))
+			Do ProductDetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("123456789 frontbevestiging Exp"))
+		}
 	} Else {
 		Do ProductDetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New("Afdekkap"))
 		Do ProductDetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("Korttekst Afdekkap"))
 	}
-		
+			
 	Quit ProductDetailLijn
 ]]></Implementation>
 </Method>
FishEye: Tag 60028 refers to a dead (removed) revision in file `vhTest/Mock/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/ProductDetailDataLijnFilter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 60028 refers to a dead (removed) revision in file `vhTest/Fake/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/ProductDetailDataLijnFilter.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?