Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/MetingData.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/MetingData.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/MetingData.cls.xml	(revision 51707)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.MetingData">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="BarcodeID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Diepte">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteVoor">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteAchter">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Dikte">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="FrontHaakOnder">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="FrontHaakBoven">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="GestoptOpStap">
+<Type>%Integer</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/dto/InstellenData.cls.xml	(revision 51707)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="BarcodeID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+</Property>
+
+<Property name="BatchID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Diepte">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteCode">
+<Description>
+N, M, K, C, F</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Rol">
+<Type>DOM.PM.Maatwerk.Lade.enu.ZijkantRol</Type>
+</Property>
+
+<Property name="HeeftLaserLogo">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Opmerking">
+<Type>%String</Type>
+</Property>
+
+<Property name="DossierCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalHakenCode">
+<Type>%String</Type>
+<Parameter name="VALUELIST" value=";D;E;L"/>
+</Property>
+
+<Property name="AantalKeerGetest">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ValingeOfBalikoRug">
+<Description>
+V of B</Description>
+<Type>%String</Type>
+<Parameter name="VALUELIST" value=";V;B"/>
+</Property>
+
+<Property name="TijdstipLaatsteTest">
+<Type>%TimeStamp</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/OphalenData.cls.xml	(revision 51707)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData">
+<Description>
+De gegevens van een zijkant moeten opgehaald worden voor de TA'OR zijkanttester.
+Met deze gegevens weet de machine welke afmetingen het moet testen en ook welke informatie er aan de gebruiker moet getoond worden.</Description>
+<Super>%RegisteredObject</Super>
+
+<Property name="Werkpost">
+<Type>%String</Type>
+</Property>
+
+<Property name="InstellenData">
+<Type>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OphalenData">
+<Description>
+Do DumpObject^%apiOBJ(##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New("TZT1").OphalenData("ZMV35L96023"))</Description>
+<FormalSpec>BarcodeID:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData</ReturnType>
+<Implementation><![CDATA[
+	If $E(BarcodeID)'="Z" Quit "Geen zijkant"
+	
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo
+	Set InfoID=""
+	&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo Where VerwerkingID=:BarcodeID)
+	If InfoID'=""
+	{
+		Set UitvoeringInfo=##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).%OpenId(InfoID)
+		Set ..InstellenData=##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData).%New()
+		
+		Set ..InstellenData.BarcodeID = BarcodeID
+		Set ..InstellenData.ProductID = UitvoeringInfo.ProductID
+		Set ..InstellenData.BatchID = UitvoeringInfo.BatchID
+		Set ..InstellenData.KlantID = UitvoeringInfo.PartijID
+		Set ..InstellenData.ToeleveringID=UitvoeringInfo.ToeleveringID
+		Set ..InstellenData.DossierCode=UitvoeringInfo.DossierCode	
+		Do ..OphalenKlantInfo()
+		Do ..OphalenProductInfo()
+		Do ..OphalenLaatsteKeer()
+	}
+	
+	Quit ..InstellenData
+]]></Implementation>
+</Method>
+
+<Method name="OphalenKlantInfo">
+<Implementation><![CDATA[
+	Set Klant=##class(Derde.Klant.Klant).%OpenId($P(..InstellenData.KlantID,"||",2))
+	Set ..InstellenData.KlantNaam=Klant.Naam
+]]></Implementation>
+</Method>
+
+<Method name="OphalenProductInfo">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Service as APPS.Halux.common.impl.ProductieAansturingService = ##class(APPS.Halux.common.impl.ProductieAansturingService).%New()
+	#dim IngegevenKenmerken as DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = Service.GeefIngegevenKenmerken(..InstellenData.BatchID,..InstellenData.ProductID)
+	#dim Lade as DOM.PM.Maatwerk.LadeInfo.Lade = Service.GeefLade(..InstellenData.BatchID,..InstellenData.ProductID)
+	;Do DumpObject^%apiOBJ(Lade)
+	;Do DumpObject^%apiOBJ(IngegevenKenmerken)
+	
+
+	Set ..InstellenData.Rol=..BepaalZijkantRol()
+	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkant(..InstellenData.Rol)
+	
+	Set ..InstellenData.ValingeOfBalikoRug = Zijkant.GeefConcept()
+	Set ..InstellenData.HoogteCode = Lade.GeefHoogte()
+	Set ..InstellenData.Hoogte = Lade.GeefHoogteInMM()
+	Set ..InstellenData.Diepte = Lade.GeefDiepteInMM()
+	Set ..InstellenData.AantalHakenCode=..BepaalAantalHaken()
+	Set ..InstellenData.HeeftLaserLogo=''(IngegevenKenmerken.ZijkantLogoID) ; als ID leeg of nul is dan geen log
+]]></Implementation>
+</Method>
+
+<Method name="BepaalZijkantRol">
+<Implementation><![CDATA[
+	Set LinksRechts=$E(..InstellenData.BarcodeID,6)
+	If (LinksRechts="R") ||(LinksRechts="B")
+	{
+		Set Rol=##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts()
+	}
+	Else
+	{
+		Set Rol=##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links()
+	}
+	Quit Rol
+]]></Implementation>
+</Method>
+
+<Method name="BepaalAantalHaken">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ..InstellenData.HoogteCode="C"||(..InstellenData.HoogteCode="F") {
+		Set AantalHakenCode="D"
+	} ElseIf ..InstellenData.HoogteCode="N" {
+		Set AantalHakenCode="L"
+	} Else {
+		Set AantalHakenCode="E"
+	}
+	Quit AantalHakenCode
+]]></Implementation>
+</Method>
+
+<Method name="OphalenLaatsteKeer">
+<Implementation><![CDATA[
+	Set BarcodeID=..InstellenData.BarcodeID
+	Set (LaatsteKeer, AantalKeer)=""
+	&SQL(Select max(TijdstipTest), count(*) into :LaatsteKeer, :AantalKeer from APPS_Halux_PPS_TAORProductie_ZijkantTester_impl.Metingen where BarcodeId=:BarcodeID)
+	Set ..InstellenData.TijdstipLaatsteTest=LaatsteKeer
+	Set ..InstellenData.AantalKeerGetest=AantalKeer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/Metingen.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/Metingen.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/Metingen.cls.xml	(revision 51707)
@@ -0,0 +1,176 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Metingen">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="BarcodeID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+</Property>
+
+<Property name="BatchID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Diepte">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="LinksRechts">
+<Type>%String</Type>
+</Property>
+
+<Property name="LaserLogo">
+<Type>%String</Type>
+</Property>
+
+<Property name="Opmerking">
+<Type>%String</Type>
+</Property>
+
+<Property name="DossierCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="TijdstipTest">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="DiepteMeting">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteMetingVoor">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="HoogteMetingAchter">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="DikteMeting">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="FrontHaakOnder">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="FrontHaakBoven">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="GestoptOpStap">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Werkpost">
+<Type>%String</Type>
+</Property>
+
+<Index name="Barcode">
+<Properties>BarcodeID</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.PPS.TA90E2.MetingenD</DataLocation>
+<DefaultData>MetingenDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.PPS.TA90E2.MetingenD</IdLocation>
+<IndexLocation>^APPS.Halux.PPS.TA90E2.MetingenI</IndexLocation>
+<StreamLocation>^APPS.Halux.PPS.TA90E2.MetingenS</StreamLocation>
+<Data name="MetingenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>BarcodeID</Value>
+</Value>
+<Value name="3">
+<Value>ToeleveringID</Value>
+</Value>
+<Value name="4">
+<Value>BatchID</Value>
+</Value>
+<Value name="5">
+<Value>ProductID</Value>
+</Value>
+<Value name="6">
+<Value>KlantID</Value>
+</Value>
+<Value name="7">
+<Value>Diepte</Value>
+</Value>
+<Value name="8">
+<Value>HoogteCode</Value>
+</Value>
+<Value name="9">
+<Value>Hoogte</Value>
+</Value>
+<Value name="10">
+<Value>LinksRechts</Value>
+</Value>
+<Value name="11">
+<Value>LaserLogo</Value>
+</Value>
+<Value name="12">
+<Value>Opmerking</Value>
+</Value>
+<Value name="13">
+<Value>DossierCode</Value>
+</Value>
+<Value name="14">
+<Value>TijdstipTest</Value>
+</Value>
+<Value name="15">
+<Value>DiepteMeting</Value>
+</Value>
+<Value name="16">
+<Value>HoogteMetingVoor</Value>
+</Value>
+<Value name="17">
+<Value>HoogteMetingAchter</Value>
+</Value>
+<Value name="18">
+<Value>DikteMeting</Value>
+</Value>
+<Value name="19">
+<Value>FrontHaakOnder</Value>
+</Value>
+<Value name="20">
+<Value>FrontHaakBoven</Value>
+</Value>
+<Value name="21">
+<Value>GestoptOpStap</Value>
+</Value>
+<Value name="22">
+<Value>Werkpost</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/MetingOpslaan.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/MetingOpslaan.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/ZijkantTester/impl/MetingOpslaan.cls.xml	(revision 51707)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.MetingOpslaan">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Property name="Werkpost">
+<Type>%String</Type>
+</Property>
+
+<Property name="MetingData">
+<Type>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.MetingData</Type>
+</Property>
+
+<Property name="InstellenData">
+<Type>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData</Type>
+</Property>
+
+<Property name="Meting">
+<Type>APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Metingen</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="test">
+<Description>
+d ##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.MetingOpslaan).test()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set md=##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.MetingData).%New()
+	Set md.BarcodeID="ZMV35L96023"
+	Set md.Diepte=444
+	Set md.HoogteAchter=333
+	Set md.HoogteVoor=222
+	Set md.FrontHaakOnder=1
+	Set md.GestoptOpStap=99
+	d ##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.MetingOpslaan).%New("TZT1").OpslaanMeting(md)
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanMeting">
+<FormalSpec>MetingData:APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.MetingData</FormalSpec>
+<Implementation><![CDATA[
+	Set ..MetingData=MetingData
+	Set ..InstellenData=##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New(..Werkpost).OphalenData(..MetingData.BarcodeID)
+	Set ..Meting=##class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.Metingen).%New()
+	
+	Do ..CopierenBasisData()
+	Do ..CopierenMetingData()
+	Do ..Meting.Save()
+]]></Implementation>
+</Method>
+
+<Method name="CopierenBasisData">
+<Implementation><![CDATA[
+	Set ..Meting.BarcodeID=..InstellenData.BarcodeID
+	Set ..Meting.BatchID=..InstellenData.BatchID
+	Set ..Meting.KlantID=..InstellenData.KlantID
+	Set ..Meting.ProductID=..InstellenData.ProductID
+	Set ..Meting.DossierCode=..InstellenData.DossierCode
+	Set ..Meting.Diepte=..InstellenData.Diepte
+	Set ..Meting.Hoogte=..InstellenData.Hoogte
+	Set ..Meting.LinksRechts=..InstellenData.LinksRechts
+	Set ..Meting.LaserLogo=..InstellenData.LaserLogo
+	Set ..Meting.Opmerking=..InstellenData.Opmerking
+]]></Implementation>
+</Method>
+
+<Method name="CopierenMetingData">
+<Implementation><![CDATA[
+	Set ..Meting.TijdstipTest =$$$CurrentTimeStamp
+	Set ..Meting.Werkpost=..Werkpost
+	Set ..Meting.DiepteMeting=..MetingData.Diepte
+	Set ..Meting.HoogteMetingVoor=..MetingData.HoogteVoor
+	Set ..Meting.HoogteMetingAchter=..MetingData.HoogteAchter
+	Set ..Meting.DikteMeting=..MetingData.Dikte
+	Set ..Meting.FrontHaakOnder=..MetingData.FrontHaakOnder
+	Set ..Meting.FrontHaakBoven=..MetingData.FrontHaakBoven
+	Set ..Meting.GestoptOpStap=..MetingData.GestoptOpStap
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/Halux/PPS/TAXZijkantTesterServer.cls.xml
===================================================================
diff -u
--- WS/Halux/PPS/TAXZijkantTesterServer.cls.xml	(revision 0)
+++ WS/Halux/PPS/TAXZijkantTesterServer.cls.xml	(revision 51707)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.PPS.TAXZijkantTesterServer">
+<Description><![CDATA[
+<b>OptiBox : Box cutting optimization</b>
+<br>The methods gets called from the Optimizer (server) to the Caché clients]]></Description>
+<ClassType/>
+<IncludeCode>BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.Resources,TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="SERVICENAME">
+<Description>
+URL for invoking the WebService..
+Parameter LOCATION = "http://PV_vmcache/vhintra";
+Name of the WebService.</Description>
+<Default>ZijkantTester</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://vhintra.vanhoecke.be</Default>
+</Parameter>
+
+<Property name="iWerkpost">
+<Type>APPS.Halux.PPS.TBXZaag.IWerkpost</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OphalenData">
+<FormalSpec>Werkpost:%String,Barcode:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.InstellenData</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.OphalenData).%New(Werkpost).OphalenData(Barcode)
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanMeting">
+<FormalSpec>Werkpost:%String,MetingData:APPS.Halux.PPS.TAORProductie.ZijkantTester.dto.MetingData</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Do ##Class(APPS.Halux.PPS.TAORProductie.ZijkantTester.impl.MetingOpslaan).%New(Werkpost).OpslaanMeting(MetingData)
+	Quit "OK"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>