Index: APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml	(revision 63182)
@@ -0,0 +1,203 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.PlaatmateriaalHelperVoorMVX">
+<Super>%RegisteredObject</Super>
+
+<Property name="LBXHoofdBuilder">
+<Type>DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</Type>
+</Property>
+
+<Property name="HalffabContext">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	;#dim BerekeningSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),##class(DOM.common.VanHoeckePersonality).Instance())
+	;Set ..HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(##class(DOM.PM.enu.Familie).Lade(), ##class(DOM.PM.enu.LadeVariant).LBXPure(), BerekeningSpecificatie)
+	;Set ..LBXHoofdBuilder = ..HalffabContext.GeefHalffabSpec().GeefBuilder()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Query name="qPlatenLijst">
+<Type>%Query</Type>
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<SqlProc>1</SqlProc>
+<Parameter name="ROWSPEC" value="Type:%String,HoogteEnKleurOms:%String,HoogteOms:%String, Kleuren:%String, ProductID:%Integer, Korttekst:%String, ImageURL:%String,Hoogte:%Float"/>
+</Query>
+
+<Method name="qPlatenLijstExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatMateriaalLijst As List of APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal = ..%New().GeefPlaatMateriaalLijst(BodemRug)
+	Set qHandle = ##class(TECH.ListIterator).%New(PlaatMateriaalLijst)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qPlatenLijstFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>qPlatenLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If qHandle.HasNext()
+	{
+		Set Row=qHandle.Next().GeefAlsRij()
+	} Else {
+		Set Row=""
+		Set AtEnd=1
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qPlatenLijstClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>qPlatenLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill qHandle
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatMateriaalLijst">
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal"</ReturnTypeParams>
+<Implementation><![CDATA[
+	#dim PlaatMateriaalLijst As List of APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal = ##class(%ListOfObjects).%New()
+	#dim HalffabLijst As list of DOM.PM.Maatwerk.Calc.HF.Halffab
+	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
+	{
+		#dim BodemRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem()
+		Set HalffabLijst = ..GeefBewerkbareProducten(BodemRol)
+		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijst, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(), BodemRol)
+	}
+	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
+	{
+		#dim RugRol As %String = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Rug()
+		Set HalffabLijst = ..GeefBewerkbareProducten(RugRol)
+		Do ..ConvertToDto(PlaatMateriaalLijst, HalffabLijst, ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug(), RugRol)
+	}
+	Quit PlaatMateriaalLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefBewerkbareProducten">
+<FormalSpec>Rol:DOM.PM.Maatwerk.Calc.HF.enu.MVXRol</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"</ReturnTypeParams>
+<Implementation><![CDATA[
+	/*
+	#dim Builder As DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder = ..LBXHoofdBuilder.HalffabItemBuilders.GetAt(Rol)
+	Set SelectieKenmerken = ##class(%ArrayOfDataTypes).%New()
+	Do SelectieKenmerken.SetAt("Lengte","BewerkbaarOp")
+	Quit ..HalffabContext.SelecteerHalffabrikaten(Builder, SelectieKenmerken)
+	*/
+	
+	Set HalffabLijst = ##class(%ListOfObjects).%New()
+	
+	If (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem()) {
+		Do HalffabLijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabBodem).%New())
+	} ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Rug()) {
+		Do HalffabLijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabRug).%New())
+	}
+	
+	; Wat met voorstuk???
+	;Do HalffabLijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.MVX.Halffab.HalffabVoorstuk).%New())
+	
+	Quit HalffabLijst
+]]></Implementation>
+</Method>
+
+<Method name="ConvertToDto">
+<FormalSpec>PlaatMateriaalLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal"),HalffabLijst:%ListOfObjects(ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"),PlaatType:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Rol:DOM.PM.Maatwerk.Calc.HF.enu.MVXRol</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set HalffabIterator = ##class(TECH.ListIterator).%New(HalffabLijst)
+	While (HalffabIterator.HasNext()) {
+		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next()
+		// TODOPA codeduplicatie tov APPS.Halux.PPS.Activiteit.impl.LBX.LBXLadePersen
+		#dim AftrekDiepte = $S(Halffab.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal(): 21, 1: 26)
+		#dim PlaatKleuren As %List = ##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_"_Rol, Halffab.GeefProductID(), "Kleur")
+		// TODOPA FSC claim ophalen
+		#dim PlaatClaim = ""
+		#dim ProductID As %String = Halffab.GeefProductID()
+		#dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID)
+		#dim Korttekst As %String = AdministratiefProduct.GeefKorttekst()
+		Set PlaatMateriaal = ##class(APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal).%New()
+		Set PlaatMateriaal.ProductNr = ProductID
+		Set PlaatMateriaal.Type = PlaatType
+		Set PlaatMateriaal.Kleuren = ..VertaalKleuren(PlaatKleuren)
+		Set PlaatMateriaal.KortTekst = Korttekst
+		// TODOPA niet alle kleurcombinaties hebben al een thumbnail (maar niet zeker of ze gebruikt worden op de zaag)
+		// TODOPA indien gebruikt moeten we mogelijk nieuwe thumbnails maken voor LBX.
+		Set PlaatMateriaal.ImageURL =..GeefBiKleurenImageURL(PlaatKleuren)
+		// TODOPA ruggen hebben nog geen PPS-kenmerk "Kleur"
+		If (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem()) {
+			Set PlaatMateriaal.Hoogte = Halffab.LadeDiepte - AftrekDiepte
+			Set PlaatMateriaal.HoogteOms = Halffab.LadeDiepte _ " " _ PlaatMateriaal.Hoogte
+			Set PlaatMateriaal.HoogteEnKleurOms = "MVX" _ " " _ PlaatMateriaal.HoogteOms_" "_PlaatMateriaal.Kleuren_" "_ PlaatClaim _ Halffab.RugWandMateriaal
+		} ElseIf (Rol = ##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Rug()) {
+			#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX())
+			#dim RHmm As %Decimal = RugUtils.GeefRugHoogteInMm(Halffab.RugHoogte)
+			Set PlaatMateriaal.Hoogte = RHmm
+			Set PlaatMateriaal.HoogteOms = Halffab.RugHoogte _ " " _ PlaatMateriaal.Hoogte
+			Set PlaatMateriaal.HoogteEnKleurOms = "MVX" _ " " _ PlaatMateriaal.HoogteOms_" "_PlaatMateriaal.Kleuren_" "_ PlaatClaim
+		}
+		Do PlaatMateriaalLijst.Insert(PlaatMateriaal)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VertaalKleuren">
+<FormalSpec>KleurenLijst:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Kleuren As %String
+	If ($LL(KleurenLijst)>1) {
+		Set Kleuren = $$ListToPieces^vhLib(KleurenLijst,"/")
+	} Else {
+		Set Kleuren = $LG(KleurenLijst)
+	}
+	Quit Kleuren
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurImageURL">
+<FormalSpec>KleurCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	Quit ##class(BL.Prod.ImageLink).Instantiate().GetImageURL("SPAANPLAAT",KleurCode,"THUMBNAIL")
+]]></Implementation>
+</Method>
+
+<Method name="GeefBiKleurenImageURL">
+<FormalSpec>PlaatKleuren:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KleurCode2 = $LG(PlaatKleuren) _ $S($L($LG(PlaatKleuren,2)):";"_ $LG(PlaatKleuren,2),1:"")
+	#dim URL As %String = ..GeefKleurImageURL(KleurCode2)
+	If URL="" {
+		Set KleurCode2=$S($L($LG(PlaatKleuren,2)):$LG(PlaatKleuren,2)_";",1:"")_$LG(PlaatKleuren)
+		Set URL=..GeefKleurImageURL(KleurCode2)
+	}
+	Quit URL
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/TBXZaag/dto/MVXPlaatMateriaal.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/dto/MVXPlaatMateriaal.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/dto/MVXPlaatMateriaal.cls.xml	(revision 63182)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TBXZaag.dto.MVXPlaatMateriaal">
+<Super>%RegisteredObject</Super>
+
+<Property name="HoogteEnKleurOms">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="HoogteOms">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Kleuren">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="ProductNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="ImageURL">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="GeefAlsRij">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[		Quit $LB(..Type,..HoogteEnKleurOms,..HoogteOms, ..Kleuren, ..ProductNr, ..KortTekst,..ImageURL,..Hoogte)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>