Index: APPS/Halux/Opvolging/ProductieStap/TAOR/dto/SelcoPart.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/dto/SelcoPart.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/dto/SelcoPart.cls.xml	(revision 62598)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.dto.SelcoPart">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="VerwerkingID">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="IDesc"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Desc1">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="IIDesc"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Desc2">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="Desc1"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Desc3">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="Material"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Desc4">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="InfoDraw_1"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Desc5">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="InfoDraw_2"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Desc6">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="InfoDraw_3"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="id">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="id"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="SizeNo">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="SizeNo"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Lengte">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="L"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Breedte">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="W"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Aantal">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="qMin"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Code">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="Code"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="MatNo">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="MatNo"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+
+<Property name="Grain">
+<Type>%String</Type>
+<Parameter name="TRUNCATE" value="1"/>
+<Parameter name="XMLNAME" value="Grain"/>
+<Parameter name="XMLPROJECTION" value="ATTRIBUTE"/>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisPrioAanpassen.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisPrioAanpassen.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisPrioAanpassen.cls.xml	(revision 62598)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisPrioAanpassen">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Property name="Body">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileNaam:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Body="Bestand:"_FileNaam
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Verwerk">
+<FormalSpec>VerwerkingID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set (AantalBodems,AantalVerwerkteBodems,DueOut)=""
+	
+	If $E(VerwerkingID)="B" ; Alleen bodems
+	{
+		Set BatchID=..GeefBatch(VerwerkingID)
+		If BatchID'=""
+		{
+			Do ..GeefAantalBodems(BatchID, .AantalBodems, .AantalVerwerkteBodems, .DueOut)
+			Do ..MarkVerwerkt(VerwerkingID)
+			Do ..UpdatePrioriteitBodem(BatchID,DueOut)
+			If AantalBodems=AantalVerwerkteBodems
+			{
+				Do ..UpdatePrioriteitNietBodem(BatchID,DueOut)
+			}
+		}
+		Set ..Body=..Body_$$$CRLF_"VerwerkingID:"_VerwerkingID_", BatchID:"_BatchID_", Aantal:"_AantalBodems_", AantalVerwerkt:"_AantalVerwerkteBodems_", DueOut:"_DueOut
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Close">
+<Implementation><![CDATA[	Do ##class(vhLib.Logger).%New("HALUX.TAX.ARDIS").Warning("AanpassingPrioriteit",..Body)
+]]></Implementation>
+</Method>
+
+<Method name="GeefBatch">
+<FormalSpec>VerwerkingID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select PartGroup,PartLevel FROM APPS_Halux_Machine_Opdeelzaag_data.ArdisParts WHERE PartCalc=?")
+ 	Set sc=rs.Execute(VerwerkingID)
+ 	Set BatchID=""
+	If rs.Next()
+	{
+	 Set BatchID = rs.Data("PartGroup")
+	 Set BatchID = $E(BatchID,1,$L(BatchID)-3)
+	}
+	Quit BatchID
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantalBodems">
+<FormalSpec>BatchID:%String,*AantalBodems:%Integer,*AantalVerwerkteBodems:%Integer,*DueOut:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select count(*) as Aantal, sum(convert(int,case when PartExt09 = 'PARSED' then 1 else 0 end)) as AantalVerwerkt, max(PartLevel) as DueOut FROM APPS_Halux_Machine_Opdeelzaag_data.ArdisParts WHERE PartGroup like ? and PartRef='Bodem' and PartRemark3='NoRework'")
+ 	Set sc=rs.Execute(BatchID_"%")
+	If rs.Next()
+	{
+	 Set AantalBodems = rs.Data("Aantal")
+	 Set AantalVerwerkteBodems = rs.Data("AantalVerwerkt")
+	 Set DueOut = rs.Data("DueOut")
+	 Set:$L(DueOut)=10 DueOut=$E(DueOut,1,8)_"00" ; Het uur verwijderen en op nul zetten
+	}
+	;w AantalBodems," ",AantalVerwerkteBodems," ",DueOut,!
+]]></Implementation>
+</Method>
+
+<Method name="MarkVerwerkt">
+<FormalSpec>VerwerkingID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	&SQL(Update APPS_Halux_Machine_Opdeelzaag_data.ArdisParts set PartExt09 = 'PARSED' WHERE PartCalc=:VerwerkingID and PartRemark3='NoRework')
+]]></Implementation>
+</Method>
+
+<Method name="UpdatePrioriteitBodem">
+<FormalSpec>BatchID:%String,DueOut:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BatchID=BatchID_"%"
+	&SQL(Update APPS_Halux_Machine_Opdeelzaag_data.ArdisParts set PartLevel = :DueOut WHERE PartGroup like :BatchID and PartRef='Bodem' and PartRemark3='NoRework')
+]]></Implementation>
+</Method>
+
+<Method name="UpdatePrioriteitNietBodem">
+<FormalSpec>BatchID:%String,DueOut:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BatchID=BatchID_"%"
+	&SQL(Update APPS_Halux_Machine_Opdeelzaag_data.ArdisParts set PartLevel = :DueOut WHERE PartGroup like :BatchID and PartRef<>'Bodem' and PartRemark3='NoRework')
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisSelcoParser.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisSelcoParser.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisSelcoParser.cls.xml	(revision 62598)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisSelcoParser">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Property name="Directory">
+<Type>%String</Type>
+</Property>
+
+<Property name="ArchiveDirectory">
+<Type>%String</Type>
+</Property>
+
+<Property name="PrioVerwerker">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisPrioAanpassen</Type>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Directory="\\ardisserver\Ardis\Selco\"
+	Set ..ArchiveDirectory=..Directory_"Archive\"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkAlle">
+<Description>
+D ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisSelcoParser).%New().VerwerkAlle()</Description>
+<Implementation><![CDATA[
+	Do GETFILES^vhDEV(..Directory,.BestandsNamen,"*.XML","FE")
+	
+	Set PadNaam=$O(BestandsNamen(""))
+	While PadNaam'=""
+	{
+		Set FileNaam=$P(BestandsNamen(PadNaam),"\")
+		;Write !,PadNaam," : ",FileNaam,!
+
+		Set ..PrioVerwerker=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisPrioAanpassen).%New(FileNaam)
+
+		Do ..ParseXML( FileNaam)
+		Do ..MoveToArchive(FileNaam)
+
+		Do ..PrioVerwerker.Close()
+	
+		Set PadNaam=$O(BestandsNamen(PadNaam))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ParseXML">
+<Description>
+D ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisSelcoParser).%New().ParseXML("\\ardisserver\Ardis\Selco Test PV\","Z8_20200928095045.2.XML")</Description>
+<FormalSpec>FileNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+
+	#include %occStatus
+	
+	Do ##class(DS.Prod.OptiBox.sub.btBoxSelect).%DeleteExtent()
+
+
+	Set reader = ##class(%XML.Reader).%New()
+	// Begin processing of the XML input
+	Set sc=reader.OpenFile(..Directory_$G(FileNaam))
+	If $$$ISERR(sc) Do $system.OBJ.DisplayError(sc) Quit  
+	Do reader.Correlate("Part","APPS.Halux.Opvolging.ProductieStap.TAOR.dto.SelcoPart") ;Associate a class name with the XML element name
+	Set Count=0
+	For  Quit:'reader.Next(.pxPart,.sc)  Do  Quit:$$$ISERR(sc)
+	. ;Write pxPart.VerwerkingID,!
+	. Do:pxPart.VerwerkingID'="" ..PrioVerwerker.Verwerk(pxPart.VerwerkingID)
+	Quit:$$$ISERR(sc) ""
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MoveToArchive">
+<FormalSpec>FileNaam:%String</FormalSpec>
+<Implementation><![CDATA[	Do MOVEFILE^vhDEV(..Directory, FileNaam, ..ArchiveDirectory)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>