Index: DOM/PM/impl/DataM/MATLangteksten.cls.xml
===================================================================
diff -u -r65270 -r65271
--- DOM/PM/impl/DataM/MATLangteksten.cls.xml	(.../MATLangteksten.cls.xml)	(revision 65270)
+++ DOM/PM/impl/DataM/MATLangteksten.cls.xml	(.../MATLangteksten.cls.xml)	(revision 65271)
@@ -65,32 +65,6 @@
 	#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) { 
-			Set ..MatUitsparingSnijPositieBepaler = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.impl.MVX.MatUitsparingSnijPositieBepaler).%New()
-		} 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) { 
@@ -115,117 +89,6 @@
 ]]></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) { 
-		Set IngegevenLadeKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).%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.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()) {
-			Set IngegevenLadeKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Sifon()
-		} 
-		
-		If (..IngegevenKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade()) {
-			Set IngegevenLadeKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Spoelbak()
-		}
-	} 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 "****"
@@ -280,48 +143,6 @@
 	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>