Index: vhDeploy/Maatwerk/LBX/AansturingIncrementeel.cls.xml
===================================================================
diff -u -r71888 -r73939
--- vhDeploy/Maatwerk/LBX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 71888)
+++ vhDeploy/Maatwerk/LBX/AansturingIncrementeel.cls.xml	(.../AansturingIncrementeel.cls.xml)	(revision 73939)
@@ -137,6 +137,9 @@
 	
 	#dim SifonTiponSynchronisatiestangInkortenActieID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoorBewerkingsCenter, "LBX.BewerkingsCenterTiponSynchrostangInkorten")
 	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoorBewerkingsCenter, SifonTiponSynchronisatiestangInkortenActieID, "Inkorten: tiponsynchronisatiestang", ..#IsNietMogelijkZonderBatch)
+	
+	#dim FreesActieID As %String = ..MaakOfGeefActiviteitID(ActiviteitGroepVoorBewerkingsCenter, "LBX.DataVoorFreesMachine")
+	Do ..MaakOfVervangAansturingActie(Categorie, ActiviteitGroepVoorBewerkingsCenter, FreesActieID, "Genereren bestanden voor freesmachine", ..#IsNietMogelijkZonderBatch,,,..#IsGeenStandaardActie)
 ]]></Implementation>
 </Method>
 
Index: vhDeploy/Deploy20241014xToevoegenLBXAansturingActieFreesBestanden.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20241014xToevoegenLBXAansturingActieFreesBestanden.cls.xml	(revision 0)
+++ vhDeploy/Deploy20241014xToevoegenLBXAansturingActieFreesBestanden.cls.xml	(revision 73939)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20241014xToevoegenLBXAansturingActieFreesBestanden">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Toevoegen LBX AansturingActie Bestanden voor huidige Freesmachine</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	Do ##class(vhDeploy.Maatwerk.LBX.AansturingIncrementeel).ExecCode()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Document/impl/LBX/DataVoorFreesMachine.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/LBX/DataVoorFreesMachine.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/LBX/DataVoorFreesMachine.cls.xml	(revision 73939)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.LBX.DataVoorFreesMachine">
+<Super>APPS.Halux.PPS.Document.impl.common.DataVoorFreesMachine</Super>
+
+<Method name="VerwerkUitvoeringInfoLijst">
+<FormalSpec>Lijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters,ActieParameters:%ListOfDataTypes="",IsTriggerResetBatch:%Boolean=0</FormalSpec>
+<ReturnType>APPS.Halux.PPS.dto.UitvoeringResultaat</ReturnType>
+<Implementation><![CDATA[
+	#dim Actie As APPS.Halux.PPS.Activiteit.impl.LBX.DataVoorFreesMachine = ##class(APPS.Halux.PPS.Activiteit.impl.LBX.DataVoorFreesMachine).%New()
+	#dim ProductieSequentieRepo As APPS.Halux.common.impl.ProductieSequentieRepository = ##class(APPS.Halux.common.impl.ProductieSequentieRepository).%New()	
+	#dim Iterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Lijst)
+	
+	while Iterator.HasNext()
+	{
+		#dim Item As APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo = Iterator.Next()
+		#dim ProductieSequentieItemList As %ListOfDataTypes = ProductieSequentieRepo.GeefSequentieItemIDsMetDossierCode(Item.BatchID, Item.DossierCode, Item.DeelAantal)
+		#dim ProductieSequentieItemIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(ProductieSequentieItemList)
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
+		while ProductieSequentieItemIterator.HasNext()
+		{
+			Set ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%OpenId(ProductieSequentieItemIterator.Next())
+			#dim Product As  DOM.PM.impl.MaatwerkProductImpl = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(ProductieSequentieItem.ProductID)
+			Do ProductieSequentieItem.ZetIngegevenKenmerken(Product.GeefIngegevenKenmerken())
+			Do ProductieSequentieItem.ZetHalffabItemsBoom(Product.GeefHalffabItemsBoom())
+		}
+		
+		Do Actie.VerwerkGroepSequentieItem(ProductieSequentieItem,,$$$True)
+	}
+	
+	#dim UitvoeringStatus As %String = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
+	
+	Quit UitvoeringStatus
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/LBX/DataVoorFreesMachine.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/LBX/DataVoorFreesMachine.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/DataVoorFreesMachine.cls.xml	(revision 73939)
@@ -0,0 +1,144 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.LBX.DataVoorFreesMachine">
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit</Super>
+
+<Parameter name="InformatieID">
+<Default>LBXDataVoorFreesMachine</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>LBXDataVoorFreesMachine</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Legrabox data voor Homag freesmachine</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.LBX.DataVoorFreesMachine = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Document.impl.MVX.DataVoorFreesMachine).%ClassName(1), ..#InformatieID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringsInfo">
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo).%New()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepSequentieItem">
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken()
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Item.GeefHalffabItemsBoom()
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim ProductId As %String = Item.ProductID
+	#dim Product As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductId)
+	#dim DossierCode As %String = Product.GeefDossierCode()
+	#dim SequenceNr As %Integer = Item.SequentieNummer
+	
+	#dim BevatBodem As %Boolean = ##class(TECH.StringUtils).Equals(IngegevenKenmerken.ProductieWijze, ##class(DOM.PM.enu.LBXProductieWijze).Volledig(), ##class(DOM.PM.enu.LBXProductieWijze).Bodem(), ##class(DOM.PM.enu.LBXProductieWijze).BodemEnRug())	
+	#dim IngegevenKenmerkenTypeAPI As DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	#dim IsLadeMetUitsparing As %Boolean = IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)
+	
+	If (IsLadeMetUitsparing && BevatBodem) {
+		#dim BodemItem As DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem = HalffabItemsBoom.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.HF.enu.LBXRol).Bodem())	
+		Do ..GenerateFile(Item.BatchID, ProductId, SequenceNr, DossierCode, IngegevenKenmerken, BodemItem)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GenerateFile">
+<FormalSpec>BatchID:%String,PRNr:%String,SequenceNr:%String,DossierNr:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,BodemItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ProcessProduct(BatchID, PRNr, SequenceNr, DossierNr, IngegevenKenmerken, BodemItem)	
+	
+	Do ##class(APPS.PM.Maatwerk.TBX.Frees.BAT.BATFile).%New(BatchID)
+	Do ##class(APPS.PM.Maatwerk.TBX.Frees.BAT.ListFile).%New(BatchID)
+]]></Implementation>
+</Method>
+
+<Method name="ProcessProduct">
+<FormalSpec>BatchID:%String,PRNr:%Integer,SequenceNr:%Integer,DossierNr:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken,BodemItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</FormalSpec>
+<Implementation><![CDATA[
+	#dim TemplateNameMpr As %String = ""
+
+	#dim Breedte As %Decimal = BodemItem.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Lengte())
+	#dim Diepte As %Decimal = IngegevenKenmerken.LadeDiepte - 26
+	#dim Variabelen As %String  ; Multi-dimensional
+	Set Variabelen("l") = Breedte
+	Set Variabelen("b") = Diepte	
+
+	#dim FileSuffix As %String = ""
+	Set FileSuffix = FileSuffix_"-Recht-LBX"
+	
+	Set LadeUitsparingHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New()
+	#dim BreedteZ1 As %Integer
+	#dim BreedteZ2 As %Integer
+	#dim BreedteM As %Integer
+	#dim DiepteZ1 As %Integer
+	#dim BreedteY As %Integer
+	#dim BreedteX As %Integer
+	#dim BreedteRugY As %Integer
+	#dim BreedteRugX As %Integer
+	#dim BreedteRugM As %Integer
+	#dim AftrekRugVerbindingMetSifonkap As %Integer = 8.5
+	#dim AftrekRugVerbindingMetZijkant As %Decimal = 19
+	#dim FreesPositieCorrectie As %Integer
+	
+	Set FreesPositieCorrectie = 21
+	Do ##class(Tools.Wlip).%New(110).ObjToText(IngegevenKenmerken.UitsparingData)
+	If (IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel())
+	{
+		Set BreedteZ1 = LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData)
+		Set BreedteY = LadeUitsparingHelper.GeefBreedteRugY(IngegevenKenmerken.UitsparingData)
+		Set BreedteRugX = LadeUitsparingHelper.GeefBreedteRugX(IngegevenKenmerken.UitsparingData) - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap)
+		
+		Set TemplateNameMpr = "Legrabox\LBXEnkeleSifon.mpr"
+		
+		Set Variabelen("Positie1") =  BreedteRugX + 5.5
+		Set Variabelen("KapZ1") = $Select(BreedteZ1=160:1, 1:2)
+	} ElseIf (IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel())
+	{
+		Set BreedteZ1 = LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData)
+		Set BreedteZ2 = LadeUitsparingHelper.GeefBreedteUitsparingZ2(IngegevenKenmerken.UitsparingData)
+		Set BreedteM = LadeUitsparingHelper.GeefBreedteRugM(IngegevenKenmerken.UitsparingData)
+		Set BreedteY = LadeUitsparingHelper.GeefBreedteRugY(IngegevenKenmerken.UitsparingData)
+		Set BreedteRugX = LadeUitsparingHelper.GeefBreedteRugX(IngegevenKenmerken.UitsparingData) - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap)
+		Set BreedteRugM = LadeUitsparingHelper.GeefBreedteRugM(IngegevenKenmerken.UitsparingData) - (2 * AftrekRugVerbindingMetSifonkap)
+		Set BreedteRugY = LadeUitsparingHelper.GeefBreedteRugY(IngegevenKenmerken.UitsparingData) - (AftrekRugVerbindingMetZijkant + AftrekRugVerbindingMetSifonkap)
+		
+		Set TemplateNameMpr = "Legrabox\LBXDubbeleSifon.mpr" 
+			
+		Set Variabelen("Positie1") = BreedteRugX + 5.5 + BreedteZ1 - 10 + BreedteRugM + FreesPositieCorrectie //10 is correctie sifonkap (de sifonkap is onderaan smaller)
+		Set Variabelen("KapZ1") = $Select(BreedteZ1=160:1, 1:2)
+		Set Variabelen("Positie2") = BreedteRugX + 5.5
+		Set Variabelen("KapZ2") = $Select(BreedteZ2=160:1, 1:2)
+	}
+		
+	If (FileSuffix '= "") && (TemplateNameMpr '= "") {
+		Set MRGFile = ##class(APPS.PM.Maatwerk.TBX.Frees.MRG.MRGFile).%New(BatchID, SequenceNr, DossierNr, FileSuffix, .Variabelen, TemplateNameMpr)
+	}
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>