Index: DOM/PM/impl/TAORLangtekstCreator.cls.xml
===================================================================
diff -u -r53081 -r54600
--- DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 53081)
+++ DOM/PM/impl/TAORLangtekstCreator.cls.xml	(.../TAORLangtekstCreator.cls.xml)	(revision 54600)
@@ -38,6 +38,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OnderdeelTekstBepaler">
+<Type>DOM.PM.impl.Langtekst.TAOREnkelOnderdeelTekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IngegevenKenmerkenTypeAPI">
 <Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
 <Private>1</Private>
@@ -54,19 +59,21 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler,ZijkantLogoRepository:DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository</FormalSpec>
+<FormalSpec>LadeInfoAPI:DOM.PM.Maatwerk.impl.LadeInfoAPI,LosseComponentFactory:DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory,KleurCodeBepaler:DOM.PM.ProductTekst.impl.KleurcodeBepaler,ZijkantLogoRepository:DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository,OnderdeelTekstBepaler:DOM.PM.impl.Langtekst.TAOREnkelOnderdeelTekstBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..LadeInfoAPI = $$$Implementation(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
+	Set ..LadeInfoAPI = $$$Inject(LadeInfoAPI,##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New())
 	Set ..BodemSlicedTypeBepaler = ##class(zTryout.WV.FPV1.DOM.impl.BodemSlicedTypeBepaler).%New()
-	Set ..LosseComponentFactory = $$$Implementation(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
+	Set ..LosseComponentFactory = $$$Inject(LosseComponentFactory,##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New())
 	Set ..ProductieWijzeNaarLosseComponentConverter = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New()
-	Set ..KleurCodeBepaler = $$$Implementation(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New())
+	Set ..KleurCodeBepaler = $$$Inject(KleurCodeBepaler, ##class(DOM.PM.ProductTekst.impl.KleurcodeBepaler).%New())
 	Set ..ZijkantLogoRepository = $$$Inject(ZijkantLogoRepository, ##class(DOM.PM.Maatwerk.TAX.Data.ZijkantLogoRepository).%New())
 
+	Set ..OnderdeelTekstBepaler = $$$Inject(OnderdeelTekstBepaler, ##class(DOM.PM.impl.Langtekst.TAOREnkelOnderdeelTekstBepaler).%New())
+
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
 	Set ..UitsparingTekstFormatter = ##class(DOM.PM.Maatwerk.TAX.impl.UitsparingTekstFormatter).%New()
 	
@@ -111,7 +118,7 @@
 <Method name="VoegToeBasisGegevens">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ((..IngegevenKenmerken.ProductieWijze = "") && $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk)) {
+	If $$$Not(..IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk) {
 		Do ..VoegToeStandaardBasisGegevens()
 	} Else {
 		#dim LosseComponentDetailBepaler As DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler = ##class(DOM.PM.impl.TAORLangtekstCreator.LosseComponentDetailBepaler).%New(..Vertaler, ..KleurCodeVertaler)
@@ -141,28 +148,39 @@
 	}
 	
 	Set Paragraaf = ""
-	Do ..VoegToeStandaardKleuren()
 	
-	If (..IngegevenKenmerken.IsBinnenlade) {
-		Set Paragraaf = ..GeefTekstVoorRol(..Enum.Rol.Front _ "->" _ ..Enum.Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator
-	} 
-		
-	#dim ConceptBepaler As DOM.PM.Maatwerk.TAX.ConceptBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.ConceptBepaler).%New()
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.TAORProductieWijze).Volledig()) {	
+
+		Do ..VoegToeStandaardKleuren()
 	
-	If (ConceptBepaler.Bepaal(..IngegevenKenmerken) = ..Enum.Concept.Baliko) {
-		Do ..VoegToeLangtekstParagraaf(..GeefRugHoogteTekst(..IngegevenKenmerken))
+		If (..IngegevenKenmerken.IsBinnenlade) {
+			Set Paragraaf = ..GeefTekstVoorRol(..Enum.Rol.Front _ "->" _ ..Enum.Rol.FrontEindkap, ..GeefFrontEindkapTekst(), $$$False) _ ..#KenmerkSeparator
+		} 
+			
+		#dim ConceptBepaler As DOM.PM.Maatwerk.TAX.ConceptBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.ConceptBepaler).%New()
+		
+		If (ConceptBepaler.Bepaal(..IngegevenKenmerken) = ..Enum.Concept.Baliko) {
+			Do ..VoegToeLangtekstParagraaf(..GeefRugHoogteTekst(..IngegevenKenmerken))
+		}
+
+		Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"", 1:"Niet") _ "GemonteerdeLade")
+		Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
+		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.GeleiderBevestigingSchroeven, ..Vertaler.GeefVertaling("GeleiderBevestigingSchroeven"), $$$True)
+		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
+		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
+		Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
+		
+		Do ..VoegToeLangtekstParagraaf(Paragraaf)
+		Do ..VoegToeGekoppeldeInfoIndienNodig()
+		Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
+		
+	} Else {
+		
+		Do ..VoegToeLangtekstParagraaf(Paragraaf)
+		Do ..VoegToeEnkelOnderdeelTekst()
+		
 	}
 	
-	Set Paragraaf = Paragraaf _ ..Vertaler.GeefVertaling("Bevat") _ ": " _ ..Vertaler.GeefVertaling($Select(..IsLadeGemonteerd():"", 1:"Niet") _ "GemonteerdeLade")
-	Set Paragraaf = Paragraaf _ ..GeefGeleiderTekst()
-	Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.GeleiderBevestigingSchroeven, ..Vertaler.GeefVertaling("GeleiderBevestigingSchroeven"), $$$True)
-	Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.FrontBevestiging, ..GeefFrontBevestigingTekst(), $$$True)
-	Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Zijstabilisering, ..Vertaler.GeefVertaling("Zijstabilisering"), $$$True)
-	Set Paragraaf = Paragraaf _ ..GeefTekstVoorRol(..Enum.Rol.Opvullijst, ..GeefOpvullijstTekst(), $$$True)
-	
-	Do ..VoegToeLangtekstParagraaf(Paragraaf)
-	Do ..VoegToeGekoppeldeInfoIndienNodig()
-	Do ..VoegToeLangtekstParagraaf(..GeefVerpakkingTekst())
 	Do ..VoegToeLangtekstParagraaf(..GeefZijkantLogoTekst())
 ]]></Implementation>
 </Method>
@@ -243,6 +261,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeEnkelOnderdeelTekst">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#define Scheiding "******"
+	
+	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
+	
+	#Dim OnderdeelTekst As TECH.String = ..OnderdeelTekstBepaler.BepaalOnderdeelTekst(..Taal, ..IngegevenKenmerken, ..HalffabItemsBoom)
+	
+	Do ..VoegToeLangtekstParagraaf(OnderdeelTekst)
+	Do ..VoegToeLangtekstParagraaf($$$Scheiding)
+]]></Implementation>
+</Method>
+
 <Method name="GeefZijkantLogoTekst">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>