Index: DOM/PM/impl/DataM/MATLangteksten.cls.xml
===================================================================
diff -u -r57634 -r64606
--- DOM/PM/impl/DataM/MATLangteksten.cls.xml	(.../MATLangteksten.cls.xml)	(revision 57634)
+++ DOM/PM/impl/DataM/MATLangteksten.cls.xml	(.../MATLangteksten.cls.xml)	(revision 64606)
@@ -1,18 +1,23 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.impl.DataM.MATLangteksten">
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Property name="Vertaler">
 <Type>DOM.common.Transl.Vertaler</Type>
 <Private>1</Private>
 </Property>
 
 <Property name="IngegevenKenmerken">
-<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MatUitsparingSnijPositieBepaler">
+<Type>APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Taal:DOM.enu.Taal</FormalSpec>
 <Private>1</Private>
@@ -49,6 +54,256 @@
 	Quit Vertaling.GetAt(Materiaal)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLadeGegevens">
+<Implementation><![CDATA[
+	Set LangtekstDetail = ##class(%ListOfDataTypes).%New()
+	
+	#dim IsLadeMetUitsparing As %Boolean = ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeToepassing, ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade(), ##class(DOM.PM.enu.MATLadeToepassing).SifonLade())
+	#dim IsLbxLade As %Boolean = ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeType,"LegraboxFree","LegraboxPure")
+	#dim IsMvxLade As %Boolean = (..IngegevenKenmerken.LadeType = "Merivobox")
+	#dim IsTaxLade As %Boolean = (..IngegevenKenmerken.LadeType = "Taorbox")
+	#dim IsTbxLade As %Boolean = (..IngegevenKenmerken.LadeType = "Tandembox")
+	
+	If (IsLadeMetUitsparing && ($$$Not((IsLbxLade || IsTbxLade) && (..IngegevenKenmerken.LadeToepassing = "SP")))) {
+		If (IsLbxLade) { 
+			Set ..MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.LBX.MatUitsparingSnijPositieBepaler).%New()
+		} ElseIf (IsMvxLade) { 
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("MatUitsparingSnijPositieBepaler voor MVX is nog niet geïmplementeerd"))
+		} ElseIf (IsTbxLade) { 
+		 	Set ..MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.TBX.MatUitsparingSnijPositieBepaler).%New()
+		} ElseIf (IsTaxLade) { 
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("MatUitsparingSnijPositieBepaler voor TAX is nog niet geïmplementeerd"))
+		} Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("MatUitsparingSnijPositieBepaler voor dit LadeType is nog niet geïmplementeerd"))
+		}
+		
+		#dim IngegevenLadeKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..GeefNodigeIngegevenLadeKenmerken()
+		Do LangtekstDetail.Insert(..GeefMatLinksX(..MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken))
+		Do LangtekstDetail.Insert(..GeefMatVooraanQ1(..MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken))
+		
+		
+		If (..IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) {
+			Do LangtekstDetail.Insert(..GeefMatMiddenM1(..MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken))
+			Do LangtekstDetail.Insert(..GeefMatMiddenM2(..MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken))
+			Do LangtekstDetail.Insert(..GeefMatVooraanQ2(..MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken))
+		}
+		Do LangtekstDetail.Insert(..GeefMatRechtsY(..MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken))
+	}
+	
+	Do LangtekstDetail.Insert(..GeefScheidingslijn())
+	
+	If (IsLbxLade) { 
+		Do LangtekstDetail.Insert("LEGRABOX")
+	} ElseIf (IsMvxLade) { 
+		Do LangtekstDetail.Insert("MERIVOBOX")
+	} ElseIf (IsTbxLade) { 
+		Do LangtekstDetail.Insert("TANDEMBOX")
+	} ElseIf (IsTaxLade) { 
+		Do LangtekstDetail.Insert("TAORBOX")
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New(..IngegevenKenmerken.LadeType_" is nog niet geïmplementeerd voor de langtekst van de matten."))
+	}
+	
+	Do LangtekstDetail.Insert(..GeefLadeDimensiesVertaling())
+	
+	If (IsLadeMetUitsparing) {
+		Do LangtekstDetail.Insert(..GeefUitsparingVertaling())
+	}
+	
+	Quit LangtekstDetail
+]]></Implementation>
+</Method>
+
+<Method name="GeefNodigeIngegevenLadeKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IsLbxLade As %Boolean = ##class(TECH.StringUtils).Equals(..IngegevenKenmerken.LadeType,"LegraboxFree","LegraboxPure")
+	#dim IsMvxLade As %Boolean = (..IngegevenKenmerken.LadeType = "Merivobox")
+	#dim IsTaxLade As %Boolean = (..IngegevenKenmerken.LadeType = "Taorbox")
+	#dim IsTbxLade As %Boolean = (..IngegevenKenmerken.LadeType = "Tandembox")
+	Set UitsparingData = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
+	
+	If (IsLbxLade) { 
+		Set IngegevenLadeKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%New()
+		Set IngegevenLadeKenmerken.LadeDiepte = ..IngegevenKenmerken.GUIKenmerken.LadeDiepte
+		
+		Set UitsparingData.AantalUitsparingen 	= ..IngegevenKenmerken.UitsparingData.AantalUitsparingen
+		Set UitsparingData.RugDeelX 			= ..IngegevenKenmerken.UitsparingData.RugDeelBreedteX
+		Set UitsparingData.UitsparingZ1 		= ..VoegToeLegeRugHoogtePiece(..IngegevenKenmerken.UitsparingData.UitsparingCodeZ1) // Lege RugHoogte toevoegen is nodig omdat we de LadeUitsparingHelper gebruiken
+		Set UitsparingData.RugDeelM 			= ..IngegevenKenmerken.UitsparingData.RugDeelBreedteM
+		Set UitsparingData.UitsparingZ2 		= ..VoegToeLegeRugHoogtePiece(..IngegevenKenmerken.UitsparingData.UitsparingCodeZ2)
+		Set UitsparingData.RugDeelY 			= ..IngegevenKenmerken.UitsparingData.RugDeelBreedteY
+		
+		Set IngegevenLadeKenmerken.UitsparingData = UitsparingData
+		
+		If (..IngegevenKenmerken.GUIKenmerken.HeeftLbxBinnenladeGlazenFront) {
+			Set IngegevenLadeKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+		}
+		If (..IngegevenKenmerken.LadeType = "LegraboxFree") {
+			Set IngegevenLadeKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Free()
+		} 
+	} ElseIf (IsMvxLade) { 
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("GeefNodigeIngegevenLadeKenmerken voor MVX is nog niet geïmplementeerd"))
+	} ElseIf (IsTbxLade) { 
+		Set IngegevenLadeKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%New()
+		Set IngegevenLadeKenmerken.LadeDiepte = ..IngegevenKenmerken.GUIKenmerken.LadeDiepte
+		Set IngegevenLadeKenmerken.InterneBreedte = ..GeefInterneBreedteVanLade()
+		
+		Set IngegevenLadeKenmerken.UitsparingBreedte1 = ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ1
+		Set IngegevenLadeKenmerken.UitsparingBreedte2 = ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ2
+		Set IngegevenLadeKenmerken.UitsparingPositie1 = ..IngegevenKenmerken.UitsparingData.RugDeelBreedteX
+		Set IngegevenLadeKenmerken.UitsparingPositie2 = ..GeefInterneBreedteVanLade() - ..IngegevenKenmerken.UitsparingData.RugDeelBreedteY - ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ2
+		Set IngegevenLadeKenmerken.UitsparingDiepte = ..IngegevenKenmerken.UitsparingData.UitsparingDiepte
+		
+		If (..IngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()) {
+			Set IngegevenLadeKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()
+		} 
+		
+		If (..IngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()) {
+			Set IngegevenLadeKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak()
+		}
+	} ElseIf (IsTaxLade) { 
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("GeefNodigeIngegevenLadeKenmerken voor TAX is nog niet geïmplementeerd"))
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("GeefNodigeIngegevenLadeKenmerken voor dit LadeType is nog niet geïmplementeerd"))
+	}
+	
+	Quit IngegevenLadeKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLegeRugHoogtePiece">
+<FormalSpec>UitsparingCode:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(UitsparingCode,"_",1,2)_"_ _"_$Piece(UitsparingCode,"_",3,5)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInterneBreedteVanLade">
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim InterneBreedte As %String = ..IngegevenKenmerken.GUIKenmerken.CorpusBreedte
+	
+	If $$$Not(..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte) {
+		Set InterneBreedte = InterneBreedte - 2* ..IngegevenKenmerken.GUIKenmerken.WandDikte
+	}
+	
+	If (..IngegevenKenmerken.GUIKenmerken.HeeftOpvullijstLinks) {
+		Set InterneBreedte = InterneBreedte - 25
+	}
+	
+	If (..IngegevenKenmerken.GUIKenmerken.HeeftOpvullijstLinks) {
+		Set InterneBreedte = InterneBreedte - 25
+	}
+	
+	If (..IngegevenKenmerken.GUIKenmerken.HeeftTbxMinTolerantieIB) {
+		Set InterneBreedte = InterneBreedte - 1
+	}
+	
+	Quit InterneBreedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefScheidingslijn">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "****"
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeDimensiesVertaling">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeDiepte As %String = ..IngegevenKenmerken.GUIKenmerken.LadeDiepte
+	#dim InterneBreedte As %String = ..IngegevenKenmerken.GUIKenmerken.CorpusBreedte
+	
+	If $$$Not(..IngegevenKenmerken.GUIKenmerken.IsBinnenbreedte) {
+		Set InterneBreedte = InterneBreedte - 2* ..IngegevenKenmerken.GUIKenmerken.WandDikte
+	}
+	
+	If (..IngegevenKenmerken.GUIKenmerken.HeeftOpvullijstLinks) {
+		Set InterneBreedte = InterneBreedte - 25
+	}
+	
+	If (..IngegevenKenmerken.GUIKenmerken.HeeftOpvullijstLinks) {
+		Set InterneBreedte = InterneBreedte - 25
+	}
+	
+	If (..IngegevenKenmerken.GUIKenmerken.HeeftTbxMinTolerantieIB) {
+		Set InterneBreedte = InterneBreedte - 1
+	}
+	
+	Quit ..Vertaler.GeefVertaling("DiepteAfkorting")_":"_LadeDiepte_"x"_..Vertaler.GeefVertaling("BreedteAfkorting")_":"_InterneBreedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitsparingVertaling">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim UitsparingVertaling As %String = ""
+	
+	If (..IngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()) {
+		Set UitsparingVertaling = ..Vertaler.GeefVertaling("Spoelbakopening") _ " = " _ ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ1 _ "mm (" _ ..IngegevenKenmerken.UitsparingData.RugDeelBreedteX _ "/" _ ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ1 _ "/" _ ..IngegevenKenmerken.UitsparingData.RugDeelBreedteY _ ")"
+	}
+	
+	If (..IngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()) {
+		If (..IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()) {
+			Set UitsparingVertaling = ..Vertaler.GeefVertaling("Sifonopening") _ " = " _ ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ1 _ "mm (" _ ..IngegevenKenmerken.UitsparingData.RugDeelBreedteX _ "/" _ ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ1 _ "/" _ ..IngegevenKenmerken.UitsparingData.RugDeelBreedteY _ ")"
+		} ElseIf (..IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) {
+			Set UitsparingVertaling = ..Vertaler.GeefVertaling("Sifonopeningen") _ " = " _ ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ1 _ "mm " _ ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ2 _ "mm (" _ ..IngegevenKenmerken.UitsparingData.RugDeelBreedteX _ "/" _ ..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ1 _ "/" _ ..IngegevenKenmerken.UitsparingData.RugDeelBreedteM _ "/" _..IngegevenKenmerken.UitsparingData.UitsparingBreedteZ2 _ "/" _ ..IngegevenKenmerken.UitsparingData.RugDeelBreedteY _ ")"
+		} Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Nog niet geïmplementeerd."))
+		}
+	}
+	
+	Quit UitsparingVertaling
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatLinksX">
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Mat_Links")_" X "_ MatUitsparingSnijPositieBepaler.GeefMatLinksX(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatVooraanQ1">
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Mat_Vooraan")_" Q1 "_ MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatMiddenM1">
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Mat_Midden")_" M1 "_ MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatMiddenM2">
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Mat_Midden")_" M2 "_ MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatVooraanQ2">
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Mat_Vooraan")_" Q2 "_ MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatRechtsY">
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Vertaler.GeefVertaling("Mat_Rechts")_" Y "_ MatUitsparingSnijPositieBepaler.GeefMatRechtsY(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
 </Class>