Index: DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml
===================================================================
diff -u -r30639 -r31097
--- DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 30639)
+++ DOM/PM/impl/DataM/DataMTAORLadeCreator.cls.xml	(.../DataMTAORLadeCreator.cls.xml)	(revision 31097)
@@ -3,13 +3,27 @@
 <Class name="DOM.PM.impl.DataM.DataMTAORLadeCreator">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
+<Super>DOM.PM.impl.DataM.DataMProductCreator,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Property name="BestelService">
+<Type>DOM.VKP.Maatwerk.BestelService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="BestelServiceGet">
+<Private>1</Private>
+<ReturnType>DOM.VKP.Maatwerk.BestelService</ReturnType>
+<Implementation><![CDATA[
+	set r%BestelService = $$$LazyLoad(r%BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
+	quit r%BestelService
+]]></Implementation>
+</Method>
+
 <Method name="BepaalKortTekst">
 <FormalSpec>DossierNummer:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.KorttekstUtils).BepaalKorttekstTAOR(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom)
+<Implementation><![CDATA[	quit ##class(DOM.PM.KorttekstUtils).BepaalKorttekstTAOR(DossierNummer, ..ProductSpecificatie.GeefIngegevenKenmerken(), ..HalffabItemsBoom)
 ]]></Implementation>
 </Method>
 
@@ -19,31 +33,32 @@
 <ReturnType>DOM.PM.ProductLangtekst</ReturnType>
 <Implementation><![CDATA[
 	#dim LangtekstCreator As DOM.PM.impl.TAORLangtekstCreator = ##class(DOM.PM.impl.TAORLangtekstCreator).%New()
-	Quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal,..KortTekst)
+	quit LangtekstCreator.GeefLangtekst(..ProductSpecificatie.GeefIngegevenKenmerken(),..HalffabItemsBoom, Taal,..KortTekst)
 ]]></Implementation>
 </Method>
 
 <Method name="VulTemplate">
 <Private>1</Private>
 <Implementation><![CDATA[
 	do ##super()
-	if ..ProductSpecificatie.GeefIngegevenKenmerken().VerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk() {
-		Do ..ZetWaarde("J",6,..BestelService.GeefBestelEenheid(..ProductSpecificatie.GeefIngegevenKenmerken()))	
+	
+	#dim IsZijkantLinks As %Boolean = (..ProductSpecificatie.GeefIngegevenKenmerken().ProductieWijze = ..Enum.ProductieWijze.ZijkantLinks)
+	#dim IsZijkantRechts As %Boolean = (..ProductSpecificatie.GeefIngegevenKenmerken().ProductieWijze = ..Enum.ProductieWijze.ZijkantRechts)
+	#dim IsBodem As %Boolean = (..ProductSpecificatie.GeefIngegevenKenmerken().ProductieWijze = ..Enum.ProductieWijze.Bodem)
+	#dim IsFront As %Boolean = (..ProductSpecificatie.GeefIngegevenKenmerken().ProductieWijze = ..Enum.ProductieWijze.Front)
+	#dim IsRug As %Boolean = (..ProductSpecificatie.GeefIngegevenKenmerken().ProductieWijze = ..Enum.ProductieWijze.Rug)
+
+	if (IsZijkantLinks || IsZijkantRechts) {
+		do ..ZetWaarde(1, 7, 0.5)
 	}
-]]></Implementation>
-</Method>
 
-<Property name="BestelService">
-<Type>DOM.VKP.Maatwerk.BestelService</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="BestelServiceGet">
-<Private>1</Private>
-<ReturnType>DOM.VKP.Maatwerk.BestelService</ReturnType>
-<Implementation><![CDATA[
-	set r%BestelService = $$$LazyLoad(r%BestelService,##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
-	quit r%BestelService
+	if (IsBodem || IsFront || IsRug) {
+		do ..ZetWaarde(1, 7, "V")
+	}
+	
+	if (..ProductSpecificatie.GeefIngegevenKenmerken().VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk) {
+		do ..ZetWaarde("J", 6, ..BestelService.GeefBestelEenheid(..ProductSpecificatie.GeefIngegevenKenmerken()))
+	}
 ]]></Implementation>
 </Method>
 </Class>