Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml
===================================================================
diff -u -r59879 -r60013
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml	(.../Inhoud.cls.xml)	(revision 59879)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud.cls.xml	(.../Inhoud.cls.xml)	(revision 60013)
@@ -264,6 +264,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetProductDetailLijnen">
+<FormalSpec>ProductDetailLijnen:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailLijnList</FormalSpec>
+<Implementation><![CDATA[	Set ..ProductDetailLijnen = ProductDetailLijnen
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeGroepLijn">
 <FormalSpec>GroepLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailGroepLijn</FormalSpec>
 <Implementation><![CDATA[	do ..ProductDetailLijnen.Insert(GroepLijn)
@@ -276,14 +282,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakTekstBoldWaarNodig">
+<Implementation><![CDATA[
+	#dim FrontbevestigingIsBold As %Boolean = $$$False
+	#dim EindVanLijstBereikt 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)) {
+			
+			#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)
+						Set FrontbevestigingIsBold = $$$True
+					}			
+				}
+				Set EindVanLijstBereikt = $$$True
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetBoldKorttekstVoorFrontbevestiging">
 <FormalSpec>DetailLijn:APPS.Halux.PPS.Document.ProductieDetailDocument.common.Inhoud.ProductDetailLijn</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-					
 	#dim ItemKortTekst As %String = DetailLijn.GeefKorttekst().GeefTekst()
-	#dim ItemNieuweKortTekst As %String				
-	If (##class(TECH.StringUtils).Contains(..Langtekst,"EXPANDO-T")) {
+	#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,*)
@@ -293,31 +328,6 @@
 	Quit DetailLijn
 ]]></Implementation>
 </Method>
-
-<Method name="MaakTekstBoldWaarNodig">
-<Implementation><![CDATA[
-	#dim FrontbevestigingIsBold As %Boolean = $$$False
-	#dim GezochtLadeType As %String = "LEGRABOX"
-	If ($Extract(..Langtekst,1,8) = GezochtLadeType) {
-		#dim ProdDetailLijnIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen)
-		While (ProdDetailLijnIterator.HasNext()){
-			Set DataLijn =  ProdDetailLijnIterator.Next()
-			If ($Extract(DataLijn.GeefOmschrijving().GeefTekst(),1,2) = "V1"){				
-				#dim ProdDetailLijnIterator2 As TECH.ListIterator = ##class(TECH.ListIterator).%New(..ProductDetailLijnen)
-				Set Filter = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijnFilter).%New()
-				#dim ProdDetailLijnDynamicIterator As TECH.Iterator = ##class(TECH.DynamicIterator).%New(ProdDetailLijnIterator2,,Filter)
-				While ProdDetailLijnDynamicIterator.HasNext(){
-					#dim DetailLijn As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn = ProdDetailLijnDynamicIterator.Next()
-					If (($Extract(DetailLijn.GeefOmschrijving().GeefTekst(),1,16) = "Frontbevestiging") && $$$Not(FrontbevestigingIsBold)){
-						Set DetailLijn = ..ZetBoldKorttekstVoorFrontbevestiging(DetailLijn)
-						Set FrontbevestigingIsBold = $$$True
-					}			
-				}			
-			}
-		}
-	}
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Document/ProductieDetailDocument/impl/common/Inhoud/Test.cls.xml	(revision 60013)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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">
+<Implementation><![CDATA[
+	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.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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zet 1 karakter van korttekst in bold indien zowel Frontbevestiging als V1">
+<Implementation><![CDATA[
+	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.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")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zet 0 karakters van korttekst in bold indien geen frontbevestiging en geen V1">
+<Implementation><![CDATA[
+	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.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[
+	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.MaakTekstBoldWaarNodig()
+	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(1).GeefKorttekst().GeefTekst(), "Korttekst Probox ladedoos")
+	Do $$$AssertEquals(ProductieDetailDocumentAanpasser.GeefProductDetailLijnen().GetAt(2).GeefKorttekst().GeefTekst(), "Korttekst frontbevestiging Exp T")
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductDetailLijnen">
+<FormalSpec>IsV1Aanwezig:%Boolean,FrontbevestigingAanwezig:%Boolean,FrontbevestigingExpandoTAanwezig:%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))
+	}
+		
+	Quit ProductDetailLijnen
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductDetailLijnVerpakking">
+<FormalSpec>IsV1:%Boolean</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 IsV1 {
+		Do ProductDetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New("V1 ladedoos"))
+		Do ProductDetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("Korttekst V1 ladedoos"))
+	} Else {
+		Do ProductDetailLijn.ZetOmschrijving(##class(APPS.common.Document.impl.TagBasedTekst).%New("Probox"))
+		Do ProductDetailLijn.ZetKorttekst(##class(APPS.common.Document.impl.TagBasedTekst).%New("Korttekst Probox ladedoos"))
+	}
+	
+	Quit ProductDetailLijn
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductDetailLijnOnderdeel">
+<FormalSpec>HeeftFrontBevestigingExpandoT:%Boolean,FrontbevestigingExandoT:%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 HeeftFrontBevestigingExpandoT && FrontbevestigingExandoT{
+		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 HeeftFrontBevestigingExpandoT && $$$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"))
+	} 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>
+</Class>
+
+
+</Export>