Index: BL/Legacy/DCALG.cls.xml
===================================================================
diff -u -r29059 -r65273
--- BL/Legacy/DCALG.cls.xml	(.../DCALG.cls.xml)	(revision 29059)
+++ BL/Legacy/DCALG.cls.xml	(.../DCALG.cls.xml)	(revision 65273)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="24">
 <Class name="BL.Legacy.DCALG">
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="ZetOmschrijvingVanProductInB">
 <Description>
@@ -12,16 +12,27 @@
 <FormalSpec>ProductID:%String,Taal:%String,Korting:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
+	#dim OmschrijvingVolledig As %String
+	Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(ProductID)
+	Set OmschrijvingVolledig = ProductTekst.GetOmschrijvingInclKleur(Taal,"~")
+	Set OmschrijvingIt = ##class(TECH.PiecesIterator).%New(OmschrijvingVolledig,"~")
+	
+	While OmschrijvingIt.HasNext(){
+		#dim Omschrijving As %String = OmschrijvingIt.Next()
 		
-		Set ProductTekst = ##class(Prod.ProductTekst).%OpenId(ProductID)
-		#dim OmschrijvingVolledig As %String = ProductTekst.GetOmschrijvingInclKleur(Taal,"~")
-		Set OmschrijvingIt = ##class(TECH.PiecesIterator).%New(OmschrijvingVolledig,"~")
-		While OmschrijvingIt.HasNext(){
-			#dim Omschrijving As %String = OmschrijvingIt.Next()
-			Set Omschrijving = "   "_Omschrijving_$Justify("",45-$Length(Omschrijving))_"`2`41`CT"
-			Set Omschrijving=Omschrijving_"``41"_"\"_Korting_"``69",Korting=""
-			Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+		Set Omschrijving = "   "_Omschrijving_$Justify("",45-$Length(Omschrijving))_"`2`41`CT"
+		Set Omschrijving=Omschrijving_"``41"_"\"_Korting_"``69",Korting=""
+		Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)	
+	}
+	
+	If (##class(DOM.PM.impl.ProductTypeAPIimpl).%New().IsAntislipmatProduct(ProductID)) {
+		#dim MatKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = ##class(DOM.PM.impl.MaatwerkProductImpl).OpenId(ProductID).GeefIngegevenKenmerken()
+		#dim IsLadeMetUitsparing As %Boolean = ##class(TECH.StringUtils).Equals(MatKenmerken.LadeToepassing, ##class(DOM.PM.enu.MATLadeToepassing).SpoelbakLade(), ##class(DOM.PM.enu.MATLadeToepassing).SifonLade())
+		
+		If ($$$HasLength(MatKenmerken.LadeType) && IsLadeMetUitsparing) {
+			Do ..VoegToeExtraUitsparingInfo(MatKenmerken)
 		}
+	}
 ]]></Implementation>
 </Method>
 
@@ -32,6 +43,241 @@
 <Implementation><![CDATA[	Do BLOCK^DCALG(Omschrijving)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeExtraUitsparingInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	#dim IsLbxLade As %Boolean = ##class(TECH.StringUtils).Equals(MatKenmerken.LadeType,"LegraboxFree","LegraboxPure")
+	#dim IsMvxLade As %Boolean = (MatKenmerken.LadeType = "Merivobox")
+	#dim IsTaxLade As %Boolean = (MatKenmerken.LadeType = "Taorbox")
+	#dim IsTbxLade As %Boolean = (MatKenmerken.LadeType = "Tandembox")
+	#dim Omschrijving As %String = ""
+	
+	If ($$$HasLength(MatKenmerken.LadeType) && ($$$Not((IsLbxLade || IsTbxLade) && (MatKenmerken.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(MatKenmerken)
+		
+		Set Omschrijving = "   "_..GeefScheidingslijn()_$Justify("",45-$Length(..GeefScheidingslijn()))_"`2`41`CT"
+		Set Omschrijving=Omschrijving_"``41"_"\"_""_"``69"
+		Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+		Set Omschrijving = ""
+		
+		Set Omschrijving = "   "_..GeefMatLinksX(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)_$Justify("",45-$Length(..GeefMatLinksX(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)))_"`2`41`CT"
+		Set Omschrijving=Omschrijving_"``41"_"\"_""_"``69"
+		Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+		Set Omschrijving = ""
+		
+		Set Omschrijving = "   "_..GeefMatVooraanQ1(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)_$Justify("",45-$Length(..GeefMatVooraanQ1(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)))_"`2`41`CT"
+		Set Omschrijving=Omschrijving_"``41"_"\"_""_"``69"
+		Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+		Set Omschrijving = ""		
+		
+		If (MatKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) {			
+			Set Omschrijving = "   "_..GeefMatVooraanQ1(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)_$Justify("",45-$Length(..GeefMatMiddenM1(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)))_"`2`41`CT"
+			Set Omschrijving=Omschrijving_"``41"_"\"_""_"``69"
+			Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+			Set Omschrijving = ""
+			
+			Set Omschrijving = "   "_..GeefMatMiddenM2(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)_$Justify("",45-$Length(..GeefMatMiddenM2(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)))_"`2`41`CT"
+			Set Omschrijving=Omschrijving_"``41"_"\"_""_"``69"
+			Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+			Set Omschrijving = ""
+			
+			Set Omschrijving = "   "_..GeefMatVooraanQ2(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)_$Justify("",45-$Length(..GeefMatVooraanQ2(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)))_"`2`41`CT"
+			Set Omschrijving=Omschrijving_"``41"_"\"_""_"``69"
+			Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+			Set Omschrijving = ""
+		}
+		
+		Set Omschrijving = "   "_..GeefMatRechtsY(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)_$Justify("",45-$Length(..GeefMatRechtsY(MatUitsparingSnijPositieBepaler, IngegevenLadeKenmerken)))_"`2`41`CT"
+		Set Omschrijving=Omschrijving_"``41"_"\"_""_"``69"
+		Do ..VoegToeOmschrijvingOpNieuweLijnInB(Omschrijving)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefNodigeIngegevenLadeKenmerken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IsLbxLade As %Boolean = ##class(TECH.StringUtils).Equals(MatKenmerken.LadeType,"LegraboxFree","LegraboxPure")
+	#dim IsMvxLade As %Boolean = (MatKenmerken.LadeType = "Merivobox")
+	#dim IsTaxLade As %Boolean = (MatKenmerken.LadeType = "Taorbox")
+	#dim IsTbxLade As %Boolean = (MatKenmerken.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 = MatKenmerken.GUIKenmerken.LadeDiepte
+		
+		Set UitsparingData.AantalUitsparingen 	= MatKenmerken.UitsparingData.AantalUitsparingen
+		Set UitsparingData.RugDeelX 			= MatKenmerken.UitsparingData.RugDeelBreedteX
+		Set UitsparingData.UitsparingZ1 		= ..VoegToeLegeRugHoogtePiece(MatKenmerken.UitsparingData.UitsparingCodeZ1) // Lege RugHoogte toevoegen is nodig omdat we de LadeUitsparingHelper gebruiken
+		Set UitsparingData.RugDeelM 			= MatKenmerken.UitsparingData.RugDeelBreedteM
+		Set UitsparingData.UitsparingZ2 		= ..VoegToeLegeRugHoogtePiece(MatKenmerken.UitsparingData.UitsparingCodeZ2)
+		Set UitsparingData.RugDeelY 			= MatKenmerken.UitsparingData.RugDeelBreedteY
+		
+		Set IngegevenLadeKenmerken.UitsparingData = UitsparingData
+		
+		If (MatKenmerken.GUIKenmerken.HeeftLbxBinnenladeGlazenFront) {
+			Set IngegevenLadeKenmerken.VoorWandType = ##class(DOM.PM.enu.LBXVoorWandType).Vulling()
+		}
+		If (MatKenmerken.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 = MatKenmerken.GUIKenmerken.LadeDiepte
+		
+		Set UitsparingData.AantalUitsparingen 	= MatKenmerken.UitsparingData.AantalUitsparingen
+		Set UitsparingData.RugDeelX 			= MatKenmerken.UitsparingData.RugDeelBreedteX
+		Set UitsparingData.UitsparingZ1 		= ..VoegToeLegeRugHoogtePiece(MatKenmerken.UitsparingData.UitsparingCodeZ1) // Lege RugHoogte toevoegen is nodig omdat we de LadeUitsparingHelper gebruiken
+		Set UitsparingData.RugDeelM 			= MatKenmerken.UitsparingData.RugDeelBreedteM
+		Set UitsparingData.UitsparingZ2 		= ..VoegToeLegeRugHoogtePiece(MatKenmerken.UitsparingData.UitsparingCodeZ2)
+		Set UitsparingData.RugDeelY 			= MatKenmerken.UitsparingData.RugDeelBreedteY
+		
+		Set IngegevenLadeKenmerken.UitsparingData = UitsparingData
+		
+		If (MatKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()) {
+			Set IngegevenLadeKenmerken.Toepassing = ##class(DOM.PM.enu.MVXToepassing).Sifon()
+		} 
+		
+		If (MatKenmerken.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 = MatKenmerken.GUIKenmerken.LadeDiepte
+		Set IngegevenLadeKenmerken.InterneBreedte = ..GeefInterneBreedteVanLade(MatKenmerken)
+		
+		Set IngegevenLadeKenmerken.UitsparingBreedte1 = MatKenmerken.UitsparingData.UitsparingBreedteZ1
+		Set IngegevenLadeKenmerken.UitsparingBreedte2 = MatKenmerken.UitsparingData.UitsparingBreedteZ2
+		Set IngegevenLadeKenmerken.UitsparingPositie1 = MatKenmerken.UitsparingData.RugDeelBreedteX
+		Set IngegevenLadeKenmerken.UitsparingPositie2 = ..GeefInterneBreedteVanLade() - MatKenmerken.UitsparingData.RugDeelBreedteY - MatKenmerken.UitsparingData.UitsparingBreedteZ2
+		Set IngegevenLadeKenmerken.UitsparingDiepte = MatKenmerken.UitsparingData.UitsparingDiepte
+		
+		If (MatKenmerken.LadeToepassing = ##class(DOM.PM.enu.MATLadeToepassing).SifonLade()) {
+			Set IngegevenLadeKenmerken.Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3()
+		} 
+		
+		If (MatKenmerken.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">
+<ClassMethod>1</ClassMethod>
+<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">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim InterneBreedte As %String = MatKenmerken.GUIKenmerken.CorpusBreedte
+	
+	If $$$Not(MatKenmerken.GUIKenmerken.IsBinnenbreedte) {
+		Set InterneBreedte = InterneBreedte - 2* MatKenmerken.GUIKenmerken.WandDikte
+	}
+	
+	If (MatKenmerken.GUIKenmerken.HeeftOpvullijstLinks) {
+		Set InterneBreedte = InterneBreedte - 25
+	}
+	
+	If (MatKenmerken.GUIKenmerken.HeeftOpvullijstLinks) {
+		Set InterneBreedte = InterneBreedte - 25
+	}
+	
+	If (MatKenmerken.GUIKenmerken.HeeftTbxMinTolerantieIB) {
+		Set InterneBreedte = InterneBreedte - 1
+	}
+	
+	Quit InterneBreedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefScheidingslijn">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "****"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatLinksX">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler().GeefVertaling("Mat_Links")_" X "_ MatUitsparingSnijPositieBepaler.GeefMatLinksX(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatVooraanQ1">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler().GeefVertaling("Mat_Vooraan")_" Q1 "_ MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatMiddenM1">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler().GeefVertaling("Mat_Midden")_" M1 "_ MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatMiddenM2">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler().GeefVertaling("Mat_Midden")_" M2 "_ MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatVooraanQ2">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler().GeefVertaling("Mat_Vooraan")_" Q2 "_ MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
+
+<Method name="GeefMatRechtsY">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MatUitsparingSnijPositieBepaler:APPS.Halux.PPS.Document.ProductieDetailDocument.MatUitsparingSnijPositieBepaler,IngegevenLadeKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler().GeefVertaling("Mat_Rechts")_" Y "_ MatUitsparingSnijPositieBepaler.GeefMatRechtsY(IngegevenLadeKenmerken)_ " mm"
+]]></Implementation>
+</Method>
 </Class>