FishEye: Tag 63175 refers to a dead (removed) revision in file `APPS/Halux/PPS/Activiteit/impl/MVX/Plaatmateriaal.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/PPS/Activiteit/impl/MVX/MVXZagenBodemRug.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/MVX/MVXZagenBodemRug.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/MVX/MVXZagenBodemRug.cls.xml	(revision 63175)
@@ -0,0 +1,198 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.MVX.MVXZagenBodemRug">
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</Super>
+
+<Parameter name="InformatieID">
+<Default>Zaagmachine</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>LBXZagenBodemRug</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Legrabox bodem en/of rug zagen</Default>
+</Parameter>
+
+<Method name="MaakActiviteit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActiviteitGroepID:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Activiteit.Activiteit</ReturnType>
+<Implementation><![CDATA[
+	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.MVX.MVXZagenBodemRug = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Document.impl.LBX.Plaatmateriaal).%ClassName(1), ..#InformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringsInfo">
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.HoffmannZaagUitvoeringInfo).%New()
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerklijstItemsVoorProductieSequentieItem">
+<Description>
+Geeft een array terug met werklijstitems </Description>
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Set Resultaat = ##class(%ArrayOfDataTypes).%New()
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..MaakDefaultWerklijstItemVoorSequentieItem(Item,..#InformatieID)
+	
+	#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(Item.ProductID)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken()
+	// TODOPA: mag weg van zodra de pakketten voor De Decker opnieuw ingegeven zijn en andere vroeger ingegeven laden
+	// geproduceerd zijn.
+	Do ..HackKenmerkenZonderRugHoogte(IngegevenKenmerken)
+	#dim BerekeningSpecificatie As DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie = Item.GeefBerekeningSpecificatie()
+	#dim HalffabContext As DOM.PM.Maatwerk.Calc.HF.HalffabContext = Item.GeefHalffabContext()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
+	#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.MVXRol).Bodem())
+	#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils.impl.MVXRugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX())
+	#dim RugItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom)
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.HoffmannZaagUitvoeringInfo = WerklijstItem.UitvoeringInfo
+	
+	Set UitvoeringInfo.SubBatch = ..GeefSubBatch(Product)
+	Set UitvoeringInfo.ZaagStatus = ##class(APPS.Halux.PPS.TBXZaag.enu.Status).Wachtend()
+	Set UitvoeringInfo.Transferlijn = ""	// Als dit leeg is, kan de operator in de zaagsoftware de lijn kiezen
+	Set UitvoeringInfo.BodemRug = ..GeefBodemRug(BodemItem, RugItem, IngegevenKenmerken)
+	Set UitvoeringInfo.Opmerking1 = ""
+	Set UitvoeringInfo.Opmerking2 = ""
+	
+	If (UitvoeringInfo.BodemRug = ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug()) {
+		Do ..VulBodemInfo(UitvoeringInfo, BodemItem, IngegevenKenmerken, HalffabContext)
+		Do ..VulRugInfo(UitvoeringInfo, RugItem, IngegevenKenmerken, HalffabContext)
+	}
+	If (UitvoeringInfo.BodemRug = ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()) {
+		Do ..VulBodemInfo(UitvoeringInfo, BodemItem, IngegevenKenmerken, HalffabContext)
+	}
+	If (UitvoeringInfo.BodemRug = ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()) {
+		Do ..VulRugInfo(UitvoeringInfo, RugItem, IngegevenKenmerken, HalffabContext)
+	}
+	Do Resultaat.SetAt(WerklijstItem, ..#InformatieID)
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="PostProcessWerklijstItem">
+<FormalSpec>WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem</FormalSpec>
+<Implementation><![CDATA[
+	Set WerklijstItem.UitvoeringInfo.ZaagID = WerklijstItem.GeefID()
+	Do WerklijstItem.Save()
+]]></Implementation>
+</Method>
+
+<Method name="GeefSubBatch">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim SubBatch As APPS.Halux.PPS.TBXZaag.enu.SubBatch = ##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).Main()
+	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Product.GeefIngegevenKenmerken()
+	If (IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) || IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)){
+		Set SubBatch = ##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon()
+	} ElseIf (IngegevenKenmerkenTypeAPI.IsSmalleLade(IngegevenKenmerken)) {
+		Set SubBatch = ##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SmalleLade()
+	}
+	Quit SubBatch
+]]></Implementation>
+</Method>
+
+<Method name="GeefBodemRug">
+<FormalSpec>BodemItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,RugItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.TBXZaag.enu.BodemRug</ReturnType>
+<Implementation><![CDATA[
+	#dim BodemRug As APPS.Halux.PPS.TBXZaag.enu.BodemRug = ""
+	#dim IsBodemBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(BodemItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	If ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI().IsSifonlade(IngegevenKenmerken) {
+		If (IsBodemBewerkt) { Set BodemRug = ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem() }
+	} Else {
+		#dim IsRugBewerkt As %Boolean = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemUtils).IsBewerkingNodig(RugItem, ##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+		If (IsBodemBewerkt && IsRugBewerkt) { Set BodemRug = ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug() }
+		ElseIf (IsBodemBewerkt) { Set BodemRug = ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem() }
+		ElseIf (IsRugBewerkt) { Set BodemRug = ##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug() }
+	}
+	Quit BodemRug
+]]></Implementation>
+</Method>
+
+<Method name="VulBodemInfo">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.HoffmannZaagUitvoeringInfo,BodemItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabContext:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
+	#dim BodemAfmeting As %Decimal = BodemItem.GeefBewerkteDimensie(LengteDimensie)
+	#dim AftrekVoorBodemDiepte As %Decimal = ##class(DOM.PM.Maatwerk.MVX.BodemUtils).GeefAftrekVoorBodemDiepte(IngegevenKenmerken.RugWandMateriaal)
+
+	Set UitvoeringInfo.BodemProductNr = +BodemItem.GeefHalffab().GeefProductID()
+	Set UitvoeringInfo.BodemAanslagSensor = 1
+	Set UitvoeringInfo.BodemHoogteSensor = 1
+	Set UitvoeringInfo.BodemBewerking = ##class(DOM.PM.enu.TBXBodemBewerking).Frezing()
+	Set UitvoeringInfo.BodemKleurZichtbaar = IngegevenKenmerken.BodemKleur
+	Set UitvoeringInfo.BodemKleur2de = ##class(DOM.PM.Maatwerk.MVX.BodemUtils).GeefTweedeKleur(UitvoeringInfo.BodemProductNr, UitvoeringInfo.BodemKleurZichtbaar)
+	Set UitvoeringInfo.BodemBreedte = BodemAfmeting
+	Set UitvoeringInfo.BodemHoogte = IngegevenKenmerken.LadeDiepte - AftrekVoorBodemDiepte
+	Set UitvoeringInfo.BodemHoogteOms = IngegevenKenmerken.LadeDiepte
+	Set UitvoeringInfo.BodemImageURL = ##class(BL.Prod.ImageLink).Instantiate().GetImageURL("SPAANPLAAT",UitvoeringInfo.BodemKleurZichtbaar,"THUMBNAIL")
+	Set UitvoeringInfo.BodemPlaatLengte = ..GeefBrutoAfmeting(IngegevenKenmerken, UitvoeringInfo.BodemProductNr, LengteDimensie, HalffabContext)
+]]></Implementation>
+</Method>
+
+<Method name="VulRugInfo">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.HoffmannZaagUitvoeringInfo,RugItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,HalffabContext:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LengteDimensie As DOM.PM.enu.BewerkingDimensie = ##class(DOM.PM.enu.BewerkingDimensie).Lengte()
+	#dim RugAfmeting As %Decimal = RugItem.GeefBewerkteDimensie(LengteDimensie)
+	#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(IngegevenKenmerken.RugHoogte)
+ 	Set RHmm = RHmm \ 1		// Afkappen, de zaag kent geen decimalen
+	Set UitvoeringInfo.RugProductNr = +RugItem.GeefHalffab().GeefProductID()
+	Set UitvoeringInfo.RugAanslagSensor = 1
+	Set UitvoeringInfo.RugHoogteSensor = 1
+	Set UitvoeringInfo.RugKleurZichtbaar = IngegevenKenmerken.BodemKleur		// Rugkleur = Bodemkleur
+	Set UitvoeringInfo.RugKleur2de = ##class(DOM.PM.Maatwerk.MVX.BodemUtils).GeefTweedeKleur(UitvoeringInfo.RugProductNr, UitvoeringInfo.RugKleurZichtbaar)
+	Set UitvoeringInfo.RugBreedte = RugAfmeting
+	Set UitvoeringInfo.RugHoogte = RHmm
+	Set UitvoeringInfo.RugHoogteOms = IngegevenKenmerken.RugHoogte _ " " _ UitvoeringInfo.RugHoogte
+	Set UitvoeringInfo.RugImageURL = ##class(BL.Prod.ImageLink).Instantiate().GetImageURL("SPAANPLAAT", UitvoeringInfo.RugKleurZichtbaar, "THUMBNAIL")
+	Set UitvoeringInfo.RugPlaatLengte = ..GeefBrutoAfmeting(IngegevenKenmerken, UitvoeringInfo.RugProductNr, LengteDimensie, HalffabContext)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBrutoAfmeting">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken,ProductID:%String,Dimensie:DOM.PM.enu.BewerkingDimensie,HalffabContext:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[	Quit HalffabContext.GeefBewerkingsInfo(ProductID, Dimensie).GeefBewerkingsCalculator().GeefBrutoAfmetingHalffabrikaat()
+]]></Implementation>
+</Method>
+
+<Method name="HackKenmerkenZonderRugHoogte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	If (IngegevenKenmerken.RugHoogte = "") { Set IngegevenKenmerken.RugHoogte = IngegevenKenmerken.LadeHoogte }
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml
===================================================================
diff -u -r63076 -r63175
--- vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 63076)
+++ vhDeploy/Maatwerk/MVX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 63175)
@@ -32,7 +32,7 @@
 	
 	Do ..MaakOfVervangOudeAansturingActie("OverzichtBatch", Categorie, "Overzicht batch", ..#IsNietMogelijkZonderBatch, ActiviteitGroepProductie)
 	
-	#dim PlaatmateriaalActiviteitID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepProductie, "MVX.Plaatmateriaal")
+	#dim PlaatmateriaalActiviteitID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepProductie, "MVX.MVXZagenBodemRug")
 	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepProductie, PlaatmateriaalActiviteitID, "Plaatmateriaal", ..#IsNietMogelijkZonderBatch, , ##class(APPS.Halux.common.enu.ProductieLijn).Vier())
 	// OPGELET !!! Vergeet niet dat er voor plaatmateriaal wellicht nog extra data moet voorzien worden, 
 	// via een aan te maken klasse (vb: APPS.Halux.PPS.DocumentDefinitie.MVX.PlaatmateriaalLijst) en een eigen deployklasje (vb: vhDeploy.Deploy20201217xMvxProductieAansturingPlaatmateriaalLijst).
@@ -113,6 +113,8 @@
 
 <Method name="VerwijderOudeActiviteiten">
 <FormalSpec>Categorie:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwijderActiviteit("MVX.Plaatmateriaal")
+]]></Implementation>
 </Method>
 </Class>
 
Index: vhDeploy/Maatwerk/MVX/Deploy20201223xAansturing.cls.xml
===================================================================
diff -u
--- vhDeploy/Maatwerk/MVX/Deploy20201223xAansturing.cls.xml	(revision 0)
+++ vhDeploy/Maatwerk/MVX/Deploy20201223xAansturing.cls.xml	(revision 63175)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Maatwerk.MVX.Deploy20201223xAansturing">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default><![CDATA[MERIVOBOX Aansturing: Corrigeren foutieve 2e dataopzet => Rechtzetting activiteit MVX.Plaatmateriaal => MVX.MVXZagenBodemRug]]></Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(vhDeploy.Maatwerk.MVX.AansturingIncrementeel).ExecCode()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>