Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml
===================================================================
diff -u -r61757 -r62361
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 61757)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 62361)
@@ -19,14 +19,14 @@
 <Method name="CopieerViaVerwerkingID">
 <FormalSpec>VerwerkingID:%String</FormalSpec>
 <Implementation><![CDATA[
-	
 	Set BatchID=..GeefBathIDViaVerwerkingID(VerwerkingID)
 	
 	If BatchID'=""
 	{
 		If ..ToegelatenVerwerkingID(BatchID,VerwerkingID)
 		{
 			Do ..CopieerViaBatchID(BatchID)
+			Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.CopieerSpoelbakExtras).%New().MaakExtrasIndienInArdis(BatchID)
 		}
 	}
 ]]></Implementation>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerSpoelbakExtras.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerSpoelbakExtras.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerSpoelbakExtras.cls.xml	(revision 62361)
@@ -0,0 +1,203 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.CopieerSpoelbakExtras">
+<IncludeCode>vhLib.Macro,BL.Derde.LevSpecifiek</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Property name="BodemLogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="LogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="BatchID">
+<Type>%String</Type>
+</Property>
+
+<Property name="IsRugVerwijderd">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Machine">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+//D ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.CopieerSpoelbakExtras).%New().MaakExtrasIndienInArdis("121551")
+
+]]></Content>
+</UDLText>
+
+<Method name="MaakExtrasIndienInArdis">
+<FormalSpec>BatchID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..BatchID=BatchID
+	
+	If ..ExistExtra()
+	{	
+		Do ..MaakExtras()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakExtras">
+<Implementation><![CDATA[
+	#dim itBodems as TECH.ResultSetIterator=..GeefBodemIterator(..BatchID)
+	#dim rs as %ResultSet
+	While itBodems.HasNext()
+	{
+		Set rs=itBodems.Next()
+		Set arr($Increment(arr))=$Lb(rs.Data("BatchEnKar"),rs.Data("VerwerkingID"),rs.Data("LabelRef2"),rs.Data("VakInKar"))
+	}
+	Set itBodems="" ; Slechts 1 connectie per ODBC connectie, daarom verwijderen van deze iterator
+	
+ 	For I=1:1:arr
+ 	{
+		Set ..BodemLogItem=""
+		Set ..IsRugVerwijderd=0
+		Do ..MaakExtrasVanBodem($li(arr(I),1),$li(arr(I),2),$li(arr(I),3),$li(arr(I),4))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakExtrasVanBodem">
+<FormalSpec>BatchEnKar:%String,BodemVerwerkingID:%String,LabelRef2:%String,VakInKar:%String</FormalSpec>
+<Implementation><![CDATA[
+		#dim itExtras as TECH.ResultSetIterator = ..GeefExtrasIterator(BatchEnKar, LabelRef2, VakInKar)
+		#dim rs as %ResultSet
+		While itExtras.HasNext()
+		{
+			set rs=itExtras.Next()
+			Do:..BodemLogItem="" ..GetBodemLogItem(BatchEnKar,BodemVerwerkingID)			
+			Do ..MaakLogItem(rs.Data("VerwerkingID"),rs.Data("Onderdeel"),rs.Data("ExtraCode"))
+		}
+]]></Implementation>
+</Method>
+
+<Method name="ExistExtra">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select count(*) as Aantal FROM APPS_Halux_Machine_Opdeelzaag_data.ArdisParts WHERE PartGroup like ? and partext09 like 'SP%' ")
+	
+ 	Set sc=rs.Execute(..BatchID_"%")
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit:'it.HasNext() 0
+	Quit it.Next().Data("Aantal")
+]]></Implementation>
+</Method>
+
+<Method name="GeefBodemIterator">
+<FormalSpec>BatchID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select PartGroup as BatchEnKar,PartCalc As VerwerkingID,PartLevel as RefDatum, PartExt02 as LabelRef2,PartRemark2 as VakInKar from  APPS_Halux_Machine_Opdeelzaag_data.ArdisParts where PartRef='Bodem' and PartGroup like ? ")
+ 	Set sc=rs.Execute(BatchID_"%")
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="GeefExtrasIterator">
+<FormalSpec>BatchEnKar:%String,LabelRef2:%String,VakInKar:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select PartCalc as VerwerkingID,PartRef as Onderdeel,PartExt09 as ExtraCode  from  APPS_Halux_Machine_Opdeelzaag_data.ArdisParts where PartGroup = ? and PartRemark2 = ?  and partext09 like 'SP%'")
+	w "iterator extra ",BatchEnKar," ", VakInKar,!
+ 	Set sc=rs.Execute(BatchEnKar, VakInKar)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="GetBodemLogItem">
+<FormalSpec>BatchEnKar:%String,BodemVerwerkingID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set InfoID=""
+	Set BatchID=..BatchID
+	&SQL(SELECT TOP 1 ID INTO :InfoID FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE BatchID = :BatchID and VerwerkingID=:BodemVerwerkingID  ORDER BY TijdstipProductie DESC)
+	If InfoID'=""
+	{
+		Write "BodemID "_InfoID
+		Set ..BodemLogItem=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem).%OpenId(InfoID)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogItem">
+<FormalSpec>VerwerkingID:%String,Onderdeel:%String,ExtraCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	w "extra ",VerwerkingID
+	Quit:..BodemLogItem=""
+	Set ..LogItem=..BodemLogItem.%ConstructClone()
+	
+	Set ..LogItem.VerwerkingID=VerwerkingID
+	Set ..LogItem.Onderdeel=..BepaalOnderdeel(VerwerkingID, Onderdeel,ExtraCode)
+	Set ..LogItem.StapNummer=..BepaalStapNummer()
+	;Do DumpObject^%apiOBJ(..LogItem)
+	If ..ToegelatenExtra(ExtraCode)
+	{
+		Do ..VerwijderStandaardRug()
+		Do ..LogItem.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderStandaardRug">
+<Implementation><![CDATA[
+	Quit:..LogItem.Onderdeel'="Rug"
+	Quit:..IsRugVerwijderd
+
+	Set BatchID=..LogItem.BatchID
+	Set Onderdeel=..LogItem.Onderdeel
+	Set SequentieNummer=..LogItem.SequentieNummer
+	; Verwijderen van de standaard brede rug om deze te vervangen door 2 of 3 kleine spoelbak ruggen
+	&SQL(DELETE FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE BatchID = :BatchID and SequentieNummer=:SequentieNummer and Onderdeel=:Onderdeel)
+	Set ..IsRugVerwijderd=1
+]]></Implementation>
+</Method>
+
+<Method name="ToegelatenExtra">
+<FormalSpec>ExtraCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	; ExtraCode='SPB' niet opnemen, dit is het 2de plaatje van een zijkant
+	Quit (ExtraCode="SPA") || (ExtraCode="SPR")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalOnderdeel">
+<FormalSpec>VerwerkingID:%String,OnderdeelArdis:%String,ExtraCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Onderdeel as %String =""
+	If (OnderdeelArdis="ZijkantPlaat") 
+	{
+		Set Onderdeel="Zijkant "_$Case($E(VerwerkingID,6),"L":"Li","A":"Li","R":"Re","B":"Re","C":"LiS","E":"LiS","D":"ReS","F":"ReS",:"xx")
+	}
+	ElseIf (OnderdeelArdis="Rug") && (ExtraCode="SPR")
+	{
+		Set Onderdeel="Rug"
+	}
+	Quit Onderdeel
+]]></Implementation>
+</Method>
+
+<Method name="BepaalStapNummer">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit 0
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml
===================================================================
diff -u -r52025 -r62361
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 52025)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 62361)
@@ -63,15 +63,28 @@
 		Set ..Status=rs.Data("Status")
 		If (..Status=0) || (..Status=2) || (..Status=4)
 		{
-			;w Barcode," ",..MachineTijdstip," ",..Status," ",..Rework,!
-			Do ..VoegToeProductieStap(Barcode)
+			; opslaan in cache omdat geen gelijktijdige ODBC connectie toegelaten is
+			Set arr($Increment(arr))=$lb(Barcode,..MachineTijdstip,..Status,..Rework)
 		
 			Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
 		}
 	}
 	;w "Einde ARDIS ",..VanafTijdstip,!
 
 	Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).OpslaanLaatsteUpdateVoorMachine(..#MachineID,..VanafTijdstip)
+	
+	; sluiten van ODBC connectie er kan maar een connectie open zijn. 
+	Set rs="",it="" 
+	;Via de method VoegToeProductieStap kan het zijn dat er terug een Query wordt uitgevoerd op dezelfde tabel
+	
+	For I=1:1:$g(arr)
+	{
+		Set Barcode=$LI(arr(I),1)
+		Set ..MachineTijdstip=$LI(arr(I),2)		
+		Set ..Status=$LI(arr(I),3)
+		Set ..Rework=$LI(arr(I),4)
+		Do ..VoegToeProductieStap(Barcode)	
+	}
 ]]></Implementation>
 </Method>