Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/DataRepository.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/DataRepository.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/DataRepository.cls.xml	(revision 74867)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.ZijkantTester.DataRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Data</Default>
+</Parameter>
+
+<Method name="ZoekViaBarcodeId">
+<FormalSpec>BarcodeId:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("AServerBarcodeID = ? ", $LB(BarcodeId))
+]]></Implementation>
+</Method>
+
+<Method name="ZoekAllenVanJaartal">
+<FormalSpec>Jaartal:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("AServerTijdstipTest like ? ", $LB(Jaartal _ "%"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/ZijkantTester.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester.cls.xml	(revision 74867)
@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.ZijkantTester">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Query name="MetingData">
+<Type>%Query</Type>
+<SqlProc>1</SqlProc>
+<Parameter name="ROWSPEC" value="AServerAantalKeerGetest:%Integer,AServerBarcodeID:%String,AServerBatchID:%String,AServerKlantID:%String,AServerKlantNaam:%String,AServerLadeCode:%String,AServerOpmerking:%String,AServerProductID:%String,AServerTijdstipTest:%TimeStamp,AServerToeleveringID:%String,FoutDiepte:%Boolean,FoutDikte:%Boolean,FoutFraxinusGatFout:%Boolean,FoutFrontHaakAfstandBovenLP:%Boolean,FoutFrontHaakAfstandOnderLP:%Boolean,FoutFrontHaakBovenGeblokkeerd:%Boolean,FoutFrontHaakBovenVerschoven:%Boolean,FoutFrontHaakOnderGeblokkeerd:%Boolean,FoutFrontHaakOnderVerschoven:%Boolean,FoutGrendelboogVeerBovenAanwezig:%Boolean,FoutGrendelboogVeerOnderAanwezig:%Boolean,FoutHoogteAchter:%Boolean,FoutHoogteVoor:%Boolean,FoutReserve1:%Boolean,FoutReserve2:%Boolean,FoutStelSchroefAanwezig:%Boolean,GewenstDiepte:%Numeric,GewenstDikte:%Numeric,GewenstFrontHaakAfstand:%Numeric,GewenstFrontHaakBovenAanwezig:%Numeric,GewenstFrontHaakOnderAanwezig:%Numeric,GewenstHoogte:%Numeric,GewenstHoogteCode:%String,GewenstLinksRechts:%String,GewenstStelSchroef:%Numeric,GewenstVB:%String,MetingDiepte:%Numeric,MetingDikte:%Numeric,MetingFrontHaakAfstandBoven:%Numeric,MetingFrontHaakAfstandOnder:%Numeric,MetingFrontHaakBovenAanwezig:%Numeric,MetingFrontHaakBovenIn:%Numeric,MetingFrontHaakBovenVerschoven:%Numeric,MetingFrontHaakOnderAanwezig:%Numeric,MetingFrontHaakOnderIn:%Numeric,MetingFrontHaakOnderVerschoven:%Numeric,MetingHoogteAchter:%Numeric,MetingHoogteVoor:%Numeric,MetingStelSchroef:%Numeric,TolDiepteNeg:%Numeric,TolDieptePos:%Numeric,TolDikteNeg:%Numeric,TolDiktePos:%Numeric,TolFrontHaakAfstand:%Numeric,TolFrontHaakBovenAanwezig:%Numeric,TolFrontHaakBovenVerschoven:%Numeric,TolFrontHaakOnderAanwezig:%Numeric,TolFrontHaakOnderVerschoven:%Numeric,TolHoogteNeg:%Numeric,TolHoogtePos:%Numeric,TolStelSchroef:%Numeric"/>
+</Query>
+
+<Method name="MetingDataExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Try {
+		Set %MetingData = ##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.DataRepository).%New().ZoekAllenVanJaartal("2025")
+		If $$$Not($IsObject(%MetingData)) {
+			Do ##class(TECH.ExceptionHandler).Throw( ##class(TECH.Exceptions.GeneralErrorException).%New( "Ophalen van MetingData via 'APPS.Halux.PPS.TAORProductie.ZijkantTester' is niet gelukt!" ) )
+		}
+	} Catch {
+		#Dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("EXCEL").ErrorMail("Ophalen van MetingData Execute failed", Exception.ToString())
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MetingDataClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>MetingDataExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %MetingData
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MetingDataFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>MetingDataExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Row = ""
+	
+	#dim MetingDataIterator As TECH.Iterator = %MetingData
+	Set AtEnd = $$$Not(MetingDataIterator.HasNext())
+	
+	#Dim DateTimeAPI As TECH.DateTime.impl.DateTimeAPI = ##class(TECH.DateTime.impl.DateTimeAPI).%New()
+	If (MetingDataIterator.HasNext())
+	{
+		#Dim MetingData = MetingDataIterator.Next()
+			
+		Set Row = $LB(MetingData.AServerAantalKeerGetest,
+					  MetingData.AServerBarcodeID,
+					  MetingData.AServerBatchID,
+					  MetingData.AServerKlantID,
+					  MetingData.AServerKlantNaam,
+					  MetingData.AServerLadeCode,
+					  MetingData.AServerOpmerking,
+					  MetingData.AServerProductID,
+					  MetingData.AServerTijdstipTest,
+					  MetingData.AServerToeleveringID,
+					  MetingData.FoutDiepte,
+					  MetingData.FoutDikte,
+					  MetingData.FoutFraxinusGatFout,
+					  MetingData.FoutFrontHaakAfstandBovenLP,
+					  MetingData.FoutFrontHaakAfstandOnderLP,
+					  MetingData.FoutFrontHaakBovenGeblokkeerd,
+					  MetingData.FoutFrontHaakBovenVerschoven,
+					  MetingData.FoutFrontHaakOnderGeblokkeerd,
+					  MetingData.FoutFrontHaakOnderVerschoven,
+					  MetingData.FoutGrendelboogVeerBovenAanwezig,
+					  MetingData.FoutGrendelboogVeerOnderAanwezig,
+					  MetingData.FoutHoogteAchter,
+					  MetingData.FoutHoogteVoor,
+					  MetingData.FoutReserve1,
+					  MetingData.FoutReserve2,
+					  MetingData.FoutStelSchroefAanwezig,
+					  MetingData.GewenstDiepte,
+					  MetingData.GewenstDikte,
+					  MetingData.GewenstFrontHaakAfstand,
+					  MetingData.GewenstFrontHaakBovenAanwezig,
+					  MetingData.GewenstFrontHaakOnderAanwezig,
+					  MetingData.GewenstHoogte,
+					  MetingData.GewenstHoogteCode,
+					  MetingData.GewenstLinksRechts,
+					  MetingData.GewenstStelSchroef,
+					  MetingData.GewenstVB,
+					  MetingData.MetingDiepte,
+					  MetingData.MetingDikte,
+					  MetingData.MetingFrontHaakAfstandBoven,
+					  MetingData.MetingFrontHaakAfstandOnder,
+					  MetingData.MetingFrontHaakBovenAanwezig,
+					  MetingData.MetingFrontHaakBovenIn,
+					  MetingData.MetingFrontHaakBovenVerschoven,
+					  MetingData.MetingFrontHaakOnderAanwezig,
+					  MetingData.MetingFrontHaakOnderIn,
+					  MetingData.MetingFrontHaakOnderVerschoven,
+					  MetingData.MetingHoogteAchter,
+					  MetingData.MetingHoogteVoor,
+					  MetingData.MetingStelSchroef,
+					  MetingData.TolDiepteNeg,
+					  MetingData.TolDieptePos,
+					  MetingData.TolDikteNeg,
+					  MetingData.TolDiktePos,
+					  MetingData.TolFrontHaakAfstand,
+					  MetingData.TolFrontHaakBovenAanwezig,
+					  MetingData.TolFrontHaakBovenVerschoven,
+					  MetingData.TolFrontHaakOnderAanwezig,
+					  MetingData.TolFrontHaakOnderVerschoven,
+					  MetingData.TolHoogteNeg,
+					  MetingData.TolHoogtePos,
+					  MetingData.TolStelSchroef)
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>