Index: APPS/Halux/Opvolging/ProductieStap/enu/Machines.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/enu/Machines.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/enu/Machines.cls.xml	(revision 39872)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.enu.Machines">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,KartonSnijMachine</Default>
+</Parameter>
+
+<Method name="KartonSnijMachine">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.enu.Machines</ReturnType>
+<Implementation><![CDATA[	Quit "KartonSnijMachine"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/impl/ProductieStapLogger.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/impl/ProductieStapLogger.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/impl/ProductieStapLogger.cls.xml	(revision 39872)
@@ -0,0 +1,94 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.impl.ProductieStapLogger">
+<Description>
+Een ProductieStapLogItem bevat de registratie dat een bepaald werkstuk is bewerkt door een machine en/of operator
+Tevens worden er bij reworks de rework gelogged en worden de reeds geregistreerde stappen van het werkstuk op non actief gezet</Description>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="LogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="VorigLogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="Machine">
+<Type>APPS.Halux.Opvolging.ProductieStap.enu.Machines</Type>
+</Property>
+
+<Property name="Gevonden">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Machine:APPS.Halux.Opvolging.ProductieStap.enu.Machines=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Machine = Machine
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeProductieStap">
+<FormalSpec>ZoekID:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	Do ..OphalenInfo(ZoekID)
+	If ..Gevonden
+	{
+		Do ..MaakLogItem()
+		Do ..OpkuisOudeLogItems()
+		Do ..SaveLogItem()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OphalenInfo">
+<FormalSpec>ZoekID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set InfoID=""
+	;&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo Where VerwerkingID=:ZoekID)
+	If InfoID'=""
+	{
+		Set ..VorigLogItem=##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).%OpenId(InfoID)
+		Set ..Gevonden=1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogItem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LogItem=##class(APPS.Halux.Opvolging.ProductieStap.dto.ProductieStapLogItem).%New()
+	Set ..LogItem.BatchID=..VorigLogItem.BatchID
+	; en hier komen alle andere properties
+	Set ..LogItem.MachineID=..Machine
+	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.LaatstToegevoegd=1
+]]></Implementation>
+</Method>
+
+<Method name="OpkuisOudeLogItems">
+<Private>1</Private>
+<Implementation><![CDATA[
+	;Set VerwerkingID=..VorigLogItem.VerwerkingID
+	;&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_dto.ProductieStapLogItem SET LaatstToegevoegd='0' Where VerwerkingID=:VerwerkingID)
+]]></Implementation>
+</Method>
+
+<Method name="SaveLogItem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	;Do DumpObject^%apiOBJ(..LogItem)
+	Do ..LogItem.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(revision 39872)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.dto.ProductieStapLogItem">
+<Description>
+Een ProductieStapLogItem bevat de registratie dat een bepaald werkstuk is bewerkt door een machine en/of operator
+Tevens worden er bij reworks de rework gelogged en worden de reeds geregistreerde stappen van het werkstuk op non actief gezet</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.dto.ProductGebaseerdeUitvoeringInfo</Super>
+
+<Index name="IndexOnMachineID">
+<Properties>MachineID</Properties>
+</Index>
+
+<Index name="IndexOnBatchID">
+<Properties>BatchID</Properties>
+</Index>
+
+<Index name="IndexOnPartijID">
+<Properties>PartijID</Properties>
+</Index>
+
+<Index name="IndexOnToeleveringID">
+<Properties>ToeleveringID</Properties>
+</Index>
+
+<Index name="IndexOnSequentieNummer">
+<Properties>SequentieNummer</Properties>
+</Index>
+
+<Property name="BatchID">
+<Description>
+De BatchID waar het item toe hoort.</Description>
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="PartijID">
+<Description>
+De BatchID waar het item toe hoort.</Description>
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="MachineID">
+<Type>%String</Type>
+</Property>
+
+<Property name="SequentieNummer">
+<Description>
+Het sequentienummer uit de sequentie voor de batch waar dit item toe hoort.</Description>
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="TijdstipCreatie">
+<Type>%TimeStamp</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="HerwerkAantal">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Required>1</Required>
+</Property>
+
+<Property name="LaatstToegevoegd">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Required>1</Required>
+</Property>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>ProductieStapLogItemDefaultData</DefaultData>
+<Data name="ProductieStapLogItemDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"ProductieStapLogItem"</Subscript>
+<Value name="1">
+<Value>BatchID</Value>
+</Value>
+<Value name="2">
+<Value>PartijID</Value>
+</Value>
+<Value name="3">
+<Value>MachineID</Value>
+</Value>
+<Value name="4">
+<Value>SequentieNummer</Value>
+</Value>
+<Value name="5">
+<Value>TijdstipCreatie</Value>
+</Value>
+<Value name="6">
+<Value>LaatstToegevoegd</Value>
+</Value>
+<Value name="7">
+<Value>ToeleveringID</Value>
+</Value>
+<Value name="8">
+<Value>ReworkAantal</Value>
+</Value>
+<Value name="9">
+<Value>HerwerkAantal</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/StemasLastCodeReadParser.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/StemasLastCodeReadParser.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/StemasLastCodeReadParser.cls.xml	(revision 39872)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser">
+<Description>
+De ingelezen barcodes worden op de Stemas gedropt in een tekstbestand LastCodeRead.txt
+Via een watchfolder webservice wordt de inhoud door gestuurd naar Cache
+Op de derde lijn staat de Barcode</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="VerwerkBericht">
+<FormalSpec>Bericht:%String,MachineID:%String,Label:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Barcode=$P(Bericht,$C(10),3) ; de derde lijn bevat de barcode
+	If ($L(Barcode)>8) && ($L(Barcode)<20)
+	{
+		Set bl=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieStapLogger).%New(MachineID)
+		Do bl.VoegToeProductieStap(Barcode)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/Halux/PPS/ProductieStap/LoggerService.cls.xml
===================================================================
diff -u
--- WSimpl/Halux/PPS/ProductieStap/LoggerService.cls.xml	(revision 0)
+++ WSimpl/Halux/PPS/ProductieStap/LoggerService.cls.xml	(revision 39872)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Halux.PPS.ProductieStap.LoggerService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>ProcessData</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+TODO: change this to actual SOAP namespace.
+SOAP Namespace for the WebService</Description>
+<Default>http://cache01.vanhoecke.be/taor</Default>
+</Parameter>
+
+<Method name="ProcessData">
+<FormalSpec>Data:%String="",ExtraData:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	 Quit:(Data="") "No data provided :"_$E(Data,1,200)_":"_$E(ExtraData,1,20)
+	 Set Machine=..GeefMachine(ExtraData)
+	 Quit:(Machine="") "No MachineID found :"_$E(Data,1,200)_":"_$E(ExtraData,1,20) 
+	 Set Parser =..GeefParser(Machine, ExtraData)
+	 Quit:'$isObject(Parser) "No parser found : "_$E(Data,1,200)_":"_$E(ExtraData,1,20)
+	 Do Parser.VerwerkBericht(Data, Machine, ExtraData)
+	 Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ProcessRework">
+<FormalSpec>VerwerkingID:%String="",NewVerwerkingID:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set bl=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.HerwerkLogger).%New()
+	Do bl.VoegToeProductieStap(VerwerkingID)
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefMachine">
+<FormalSpec>Label:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.enu.Machines</ReturnType>
+<Implementation><![CDATA[
+	
+	;Set Address=%request.GetCgiEnv("REMOTE_ADDR")
+	Set MachineID=Label
+	Quit MachineID
+]]></Implementation>
+</Method>
+
+<Method name="GeefParser">
+<FormalSpec>Machine:%String,Label:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser</ReturnType>
+<Implementation><![CDATA[
+	Quit:Machine=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringZijkant() ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser).%New()
+	Quit:Machine=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringRugBodemFront() ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser).%New()
+	Quit:Machine=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringBodem() ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser).%New()
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="test">
+<Description>
+d ##class(WSimpl.Halux.PPS.ProductieStap.LoggerService).test()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	s Data=$c(10)_$c(10)_"ZCW55R41869"_$c(10)
+	set bl=..%New()
+	
+	Do bl.ProcessRework("ZCW55R41869")
+	;Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringRugBodemFront())
+	q
+	s Data=$$$CRLF_$$$CRLF_"ZKV75L69906"_$$$CRLF
+	set bl=..%New()
+	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringZijkant())
+
+	s Data=$$$CRLF_$$$CRLF_"B75V11870VS71967P1"_$$$CRLF
+	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringRugBodemFront())
+	set bl=..%New()
+	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringBodem())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(revision 39872)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieStapLogger">
+<Super>APPS.Halux.Opvolging.ProductieStap.impl.ProductieStapLogger</Super>
+
+<Property name="LogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="VorigLogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="Machine">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</Type>
+</Property>
+
+<Method name="OphalenInfo">
+<FormalSpec>ZoekID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..Gevonden=0
+	Do ..ZoekLogItem(ZoekID)
+	If '..Gevonden
+	{
+		Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.CopieerBatch).%New().CopieerViaVerwerkingID(ZoekID)
+		Do ..ZoekLogItem(ZoekID)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ZoekLogItem">
+<FormalSpec>ZoekID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set InfoID=""
+	&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:ZoekID AND LaatstToegevoegd=1)
+	If InfoID'=""
+	{
+		Set ..VorigLogItem=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem).%OpenId(InfoID)
+		Set ..Gevonden=1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogItem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LogItem=..VorigLogItem.%ConstructClone()
+	Set ..LogItem.MachineID=..Machine
+	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.StapNummer=..BepaalStapNummer()
+	Set ..LogItem.LaatstToegevoegd=1
+]]></Implementation>
+</Method>
+
+<Method name="BepaalStapNummer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:..LogItem.MachineID["Prof" ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.StapNummer).LastMachine()
+	Quit ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.StapNummer).Optimalisatie()
+]]></Implementation>
+</Method>
+
+<Method name="OpkuisOudeLogItems">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set VerwerkingID=..LogItem.VerwerkingID
+	&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET LaatstToegevoegd=0 WHERE VerwerkingID=:VerwerkingID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Machines.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Machines.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Machines.cls.xml	(revision 39872)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines">
+<Description>
+TAOR productie machines</Description>
+<Super>APPS.Halux.Opvolging.ProductieStap.enu.Machines</Super>
+
+<Parameter name="VALUELIST">
+<Default>,Prof R+B+F,Prof Z,Prof B slice,Ardis</Default>
+</Parameter>
+
+<Method name="ProfileringRugBodemFront">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</ReturnType>
+<Implementation><![CDATA[	Quit "Prof R+B+F"
+]]></Implementation>
+</Method>
+
+<Method name="ProfileringZijkant">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</ReturnType>
+<Implementation><![CDATA[	Quit "Prof Z"
+]]></Implementation>
+</Method>
+
+<Method name="ProfileringBodem">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</ReturnType>
+<Implementation><![CDATA[	Quit "Prof B slice"
+]]></Implementation>
+</Method>
+
+<Method name="Ardis">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</ReturnType>
+<Implementation><![CDATA[	Quit "Ardis"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/enu/StapNummer.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/enu/StapNummer.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/enu/StapNummer.cls.xml	(revision 39872)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.enu.StapNummer">
+<Description>
+TAOR productie machines</Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,0,1,8,9</Default>
+</Parameter>
+
+<Method name="Optimalisatie">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="Aanmaak">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="LastMachine">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit 8
+]]></Implementation>
+</Method>
+
+<Method name="Finish">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit 9
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/HerwerkLogger.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/HerwerkLogger.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/HerwerkLogger.cls.xml	(revision 39872)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.HerwerkLogger">
+<Super>APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieStapLogger</Super>
+
+<Property name="LogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="VorigLogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="Machine">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</Type>
+</Property>
+
+<Method name="MaakLogItem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LogItem=..VorigLogItem.%ConstructClone()
+	Set ..LogItem.MachineID=..Machine
+	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.StapNummer=..BepaalStapNummer()
+	Set ..LogItem.LaatstToegevoegd=1
+	Set ..LogItem.HerwerkAantal=..LogItem.HerwerkAantal+1
+	d DumpObject^%apiOBJ(..LogItem)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalStapNummer">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml	(revision 39872)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.impl.StatusOpvragen">
+<Description>
+De ingelezen barcodes worden op de Stemas gedropt in een tekstbestand LastCodeRead.txt
+Via een watchfolder webservice wordt de inhoud door gestuurd naar Cache
+Op de derde lijn staat de Barcode</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Query name="StatusViaBatch">
+<Type>%SQLQuery</Type>
+<FormalSpec>BatchId:%String</FormalSpec>
+<SqlQuery>select ui.BatchID, klant.Naam,ui.ToeleveringID, ui.DossierCode, ui.VerwerkingID, TijdstipCreatie,machineID,StapNummer
+, Onderdeel,Kar,log.DueOut from APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo UI 
+left join APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log on ui.batchId=log.batchID and ui.verwerkingId=log.verwerkingID and log.laatsttoegevoegd=1
+join Derde_Klant.Klant klant on $Piece(ui.PartijID,'||',2)=klant.ID
+where ui.batchid=?</SqlQuery>
+</Query>
+
+<Query name="StatusViaToelevering">
+<Type>%SQLQuery</Type>
+<FormalSpec>ToeLeveringID:%String</FormalSpec>
+<SqlQuery>	select ui.BatchID, klant.Naam,ui.ToeleveringID, ui.DossierCode, ui.VerwerkingID, TijdstipCreatie,machineID from APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo UI 
+	left join APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log on ui.batchId=log.batchID and ui.verwerkingId=log.verwerkingID and log.laatsttoegevoegd=1
+	join Derde_Klant.Klant klant on $Piece(ui.PartijID,'||',2)=klant.ID
+	where ui.ToeleveringId=?</SqlQuery>
+</Query>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Onderdeel.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Onderdeel.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Onderdeel.cls.xml	(revision 39872)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel">
+<Description>
+TAOR productie machines</Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,Zijkant Li,Zijkant Re,Bodem,Front,Rug</Default>
+</Parameter>
+
+<Method name="ZijkantLinks">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit "Zijkant Li"
+]]></Implementation>
+</Method>
+
+<Method name="ZijkantRechts">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit "Zijkant Re"
+]]></Implementation>
+</Method>
+
+<Method name="Bodem">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit "Bodem"
+]]></Implementation>
+</Method>
+
+<Method name="Front">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit "Front"
+]]></Implementation>
+</Method>
+
+<Method name="Rug">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit "Rug"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(revision 39872)
@@ -0,0 +1,149 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.CopieerBatch">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Property name="LogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="InfoItem">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo</Type>
+</Property>
+
+<Property name="Machine">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</Type>
+</Property>
+
+<Method name="CopieerViaVerwerkingID">
+<FormalSpec>VerwerkingID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set BatchID=..GeefBathIDViaVerwerkingID(VerwerkingID)
+	If BatchID'=""
+	{
+		Do ..CopieerViaBatchID(BatchID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBathIDViaVerwerkingID">
+<FormalSpec>VerwerkingID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BatchID=""
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("SELECT BatchID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo WHERE VerwerkingID=?")
+ 	Set sc=rs.Execute(VerwerkingID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+ 	If it.HasNext() 
+ 	{
+	 	Set rs=it.Next()
+		Set BatchID=rs.Data("BatchID")
+ 	}
+ 	Quit BatchID
+]]></Implementation>
+</Method>
+
+<Method name="CopieerViaBatchID">
+<FormalSpec>BatchID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim it as TECH.ResultSet=..UitvoeringIterator(BatchID)
+	While it.HasNext()
+	{
+		Set rs=it.Next()
+		#dim InfoID as %String=rs.Data("ID") 
+		Set ..InfoItem=##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo).%OpenId(InfoID)
+		Do ..MaakLogItem()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="UitvoeringIterator">
+<FormalSpec>BatchID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("Select ID from APPS_Halux_PPS_Activiteit_impl_TAOR_dto.OpdeelzaagUitvoeringInfo Where BatchID=?")
+ 	Set sc=rs.Execute(BatchID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogItem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LogItem=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem).%New()
+	Set ..LogItem.VerwerkingID=..InfoItem.VerwerkingID
+	Set ..LogItem.BatchID=..InfoItem.BatchID
+	Set ..LogItem.PartijID=..InfoItem.PartijID
+	Set ..LogItem.ToeleveringID=..InfoItem.ToeleveringID
+	Set ..LogItem.DossierCode=..InfoItem.DossierCode
+	Set ..LogItem.ProductID=..InfoItem.ProductID
+	Set ..LogItem.SequentieNummer=..InfoItem.SequentieNummer
+	Set ..LogItem.MachineID=..Machine
+	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.Onderdeel=..BepaalOnderdeel()
+	Set ..LogItem.StapNummer=..BepaalStapNummer()
+	Set ..LogItem.Kar=..BepaalKar()
+	Set ..LogItem.DueOut=..BepaalDueOut()
+	Set ..LogItem.LaatstToegevoegd=1
+	;Do DumpObject^%apiOBJ(..LogItem)
+	Do:..ToegelatenVerwerkingID() ..LogItem.Save()
+]]></Implementation>
+</Method>
+
+<Method name="ToegelatenVerwerkingID">
+<Implementation><![CDATA[
+	Quit:$E(..LogItem.VerwerkingID)'="Z" 1
+	
+	; Controle dat of dat zijkant VerwerkingID bestaat	
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("SELECT ID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.ZijkantPlaatPickingUitvoeringInfo WHERE BatchID=? AND (KamerFreesData_PrintBarcodeLeft=? OR KamerFreesData_PrintBarcodeRight=?)")
+ 	Set sc=rs.Execute(..LogItem.BatchID,..LogItem.VerwerkingID,..LogItem.VerwerkingID)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Set ID=""
+ 	If it.HasNext() 
+ 	{
+	 	Set rs=it.Next()
+		Set ID=rs.Data("ID")
+ 	}
+ 	w ..LogItem.VerwerkingID," ",ID,!
+ 	Quit ID'=""
+]]></Implementation>
+</Method>
+
+<Method name="BepaalOnderdeel">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Onderdeel=..InfoItem.OptimalisatieData.Rol
+	If Onderdeel="ZijkantPlaat"
+	{
+		Set Onderdeel="Zijkant "_$Case($E(..InfoItem.VerwerkingID,6),"L":"Li","A":"Li","R":"Re","B":"Re",1:"xx")
+	}
+	Quit Onderdeel
+]]></Implementation>
+</Method>
+
+<Method name="BepaalStapNummer">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="BepaalDueOut">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $P(..InfoItem.OptimalisatieData.EtiketLijn2,"/",1)
+]]></Implementation>
+</Method>
+
+<Method name="BepaalKar">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $P(..InfoItem.OptimalisatieData.EtiketLijn2,"/",3,4)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/dto/ProductieStapLogItem.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/dto/ProductieStapLogItem.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/dto/ProductieStapLogItem.cls.xml	(revision 39872)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem">
+<Super>APPS.Halux.Opvolging.ProductieStap.dto.ProductieStapLogItem</Super>
+
+<Property name="Onderdeel">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</Type>
+</Property>
+
+<Property name="VerwerkingID">
+<Type>%String</Type>
+</Property>
+
+<Property name="StapNummer">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.StapNummer</Type>
+</Property>
+
+<Property name="Kar">
+<Type>%String</Type>
+</Property>
+
+<Property name="DueOut">
+<Type>%String</Type>
+</Property>
+
+<Index name="IndexOnVerwerkingID">
+<Properties>VerwerkingID</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>ProductieStapLogItemDefaultData1</DefaultData>
+<Data name="ProductieStapLogItemDefaultData1">
+<Structure>listnode</Structure>
+<Subscript>"ProductieStapLogItem1"</Subscript>
+<Value name="1">
+<Value>VerwerkingID</Value>
+</Value>
+<Value name="2">
+<Value>Onderdeel</Value>
+</Value>
+<Value name="3">
+<Value>StapNummer</Value>
+</Value>
+<Value name="4">
+<Value>KarNummer</Value>
+</Value>
+<Value name="5">
+<Value>DueOut</Value>
+</Value>
+<Value name="6">
+<Value>Kar</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>