Index: APPS/Halux/PPS/Activiteit/impl/MVX/ProductieVoorbereidingZaag/Utils.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/ProductieVoorbereidingZaag/Utils.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/ProductieVoorbereidingZaag/Utils.cls.xml	(revision 62965)
@@ -0,0 +1,194 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.ProductieVoorbereidingZaag.Utils">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BreedteBepaler">
+<Type>APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BreedteBepaler:APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BreedteBepaler = $$$Implementation(BreedteBepaler, ##class(APPS.PM.Maatwerk.impl.Verpakking.BreedteBepaler).%New())
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOpmerking">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	#dim Opmerking As %String = ""
+	
+	If ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) {
+		Set Opmerking = Opmerking_"Sifon"
+	} Else {
+		Set Opmerking = Opmerking_..GeefVerpakkingType(IngegevenKenmerken)
+		Set Opmerking = Opmerking_..GeefWikkelInfo(IngegevenKenmerken)
+		
+		If IngegevenKenmerken.IsBinnenlade {
+			Set Opmerking = Opmerking_",FRONT"
+		}
+		
+		/*
+		// NOG GEEN MATJES-IMPLEMENTATIE NODIG VOORLOPIG
+		#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+		If IngegevenKenmerkenAPI.HeeftGekoppeldeMat(IngegevenKenmerken) {
+			Set GekoppeldeMatInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.ProductieVoorbereidingZaag.GekoppeldeMatInfoBepaler).%New()
+			#dim MATKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken = IngegevenKenmerkenAPI.GeefGekoppeldeKenmerken(IngegevenKenmerken,##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX())
+			Set Opmerking = Opmerking_","_GekoppeldeMatInfoBepaler.GeefInfo(MATKenmerken)
+		}
+		*/
+	}
+	
+	Quit Opmerking
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugInfo">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,RugProductID:%String,RugLengte:%Decimal,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<Implementation><![CDATA[
+	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX())
+	#dim RugKleur As %String = RugUtils.GeefRugKleur(RugProductID)
+	#dim RugHoogte As %String = RugUtils.GeefRugHoogte(RugProductID)
+	#dim RugInfo As %String = ""
+	
+	If ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken) {
+		Set RugInfo = "Rug: Sifon"
+	} Else {
+		If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()) {
+			#dim RugHoogteInMM As %Decimal = RugUtils.GeefRugHoogteInMm(RugHoogte)
+			#dim AantalBoringen As %Integer = ..GeefAantalBoringen(IngegevenKenmerken, HalffabItemsBoom)
+			
+			If (IngegevenKenmerken.RugHoogte = IngegevenKenmerken.LadeHoogte) {
+				Set RugInfo = "Rug: "_RugHoogteInMM_" "_RugLengte_" #"_AantalBoringen
+			} Else {
+				Set RugInfo = "VRug "_RugHoogte_": "_RugHoogteInMM_" "_RugLengte_" #"_AantalBoringen
+			}
+		} ElseIf (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal()) {
+			Set RugInfo = "StalenRug: "_..StripVoorZaagEtiket(RugKleur)_" "_IngegevenKenmerken.RugHoogte_" "_RugUtils.GeefStalenRugBreedte(RugProductID)
+		} Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("RugWandMateriaal '"_IngegevenKenmerken.RugWandMateriaal_"' is niet ondersteund. RugProductID:"_RugProductID))
+		}
+	}
+	
+	Quit RugInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefRugWandHouderInfo">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,RugWandHouderProductID:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim RugWandHouderInfo As %String = "RWH: "
+	
+	If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()) {
+		#dim RugKantHoogte As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_RugWandHouder", RugWandHouderProductID, "RugKantHoogte"))
+		
+		If '$Length(RugKantHoogte){
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kenmerk 'RugKantHoogte' voor groep 'MVX_PPS_RugWandHouder' is niet ingevuld voor product '"_RugWandHouderProductID_"'"))
+		}
+		
+		#dim ZijkantHoogte As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_RugWandHouder", RugWandHouderProductID, "ZijkantHoogte"))
+		
+		If '$Length(ZijkantHoogte){
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kenmerk 'ZijkantHoogte' voor groep 'MVX_PPS_RugWandHouder' is niet ingevuld voor product '"_RugWandHouderProductID_"'"))
+		}
+		
+		#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX())
+		#dim LadeUtils As DOM.PM.Maatwerk.Lade.LadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(##class(DOM.PM.enu.LadeVariant).MVX())
+		#dim RugKantHoogteInMM As %Float = RugUtils.GeefRugHoogteInMm(RugKantHoogte)
+		#dim ZijkantHoogteInMM As %Float = LadeUtils.GeefLadeHoogteInMM(ZijkantHoogte)
+		
+		Set RugWandHouderInfo = RugWandHouderInfo_..StripVoorZaagEtiket(IngegevenKenmerken.LadeKleur)_" "_ZijkantHoogte
+		If ZijkantHoogteInMM > RugKantHoogteInMM{
+			Set RugWandHouderInfo = RugWandHouderInfo_".22"
+		}
+		
+		If ZijkantHoogteInMM < RugKantHoogteInMM{
+			Set RugWandHouderInfo = RugWandHouderInfo_"-"_RugKantHoogte
+		}
+	} ElseIf (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal()) {
+		Set RugWandHouderInfo = RugWandHouderInfo_"-- -- --"
+	} Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("RugWandMateriaal '"_IngegevenKenmerken.RugWandMateriaal_"' is niet ondersteund. RugWandHouderProductID:"_RugWandHouderProductID))
+	}
+	
+	Quit RugWandHouderInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalBoringen">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalSchroeven As %Integer = 0
+	#dim RugBodemSchroefItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).RugBodemSchroef())
+	
+	If ($IsObject(RugBodemSchroefItem)) {
+		Set AantalSchroeven = RugBodemSchroefItem.Aantal
+	}
+	
+	Quit AantalSchroeven
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingType">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Opmerking As %String = ""
+	
+	If (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).V1()) {
+		Set Opmerking = "Stuk"
+	} ElseIf (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).VHoss()) {
+		Set Opmerking = "Kast"
+	} ElseIf (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).Probox()) {
+		Set Opmerking = "Probox"
+	}
+	
+	Quit Opmerking
+]]></Implementation>
+</Method>
+
+<Method name="GeefWikkelInfo">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim WikkelOpmerking As %String = ""
+	
+	If (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.MVXVerpakkingType).Probox()) {
+		#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
+		#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(),IngegevenKenmerken.IsBinnenlade,IngegevenKenmerken.LadeHoogte,IngegevenKenmerken.LadeHoogte,Breedte,IngegevenKenmerken.LadeDiepte)
+		#dim WikkelLengte As %Float = WikkelInfo.GeefWikkelLengte()
+		#dim WikkelDiepte As %Float = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
+		#dim WikkelAfmeting As %String = WikkelLengte_"x"_WikkelDiepte
+		
+		Set WikkelOpmerking = ",Wikkel"_$Case(WikkelAfmeting,"1250x520":"A","900x520":"B","1250x650":"C","900x650":"D",1:"")_"("_WikkelInfo.GeefAantal()_")"
+	}
+	
+	Quit WikkelOpmerking
+]]></Implementation>
+</Method>
+
+<Method name="StripVoorZaagEtiket">
+<FormalSpec>Kleur:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $E(Kleur,1,2)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>