Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/DeactiveerOude.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/DeactiveerOude.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/DeactiveerOude.cls.xml	(revision 61757)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.DeactiveerOude">
+<IncludeCode>vhLib.Macro,BL.Derde.LevSpecifiek</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Property name="LogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.DeactiveerOude).%New().Verwerk()
+
+]]></Content>
+</UDLText>
+
+<Method name="Verwerk">
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("SELECT ID,BatchID,ToeleveringID,VerwerkingID,TijdstipProductie FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem")
+ 	Set sc=rs.Execute()
+ 	;w $$ParseStatus^vhLib(sc)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Set RefDatum=$H-30
+ 	While it.HasNext() 
+ 	{
+ 		Set rs=it.Next() 
+		Set BatchID=rs.Data("BatchID")
+		Set TOENr=rs.Data("ToeleveringID")
+		Set:TOENr="" TOENr="*"
+		If BatchID
+		{
+			If '$D(^KTO($$$LevHalux,TOENr)) ; Toelevering bestaat niet meer (daarom moet dit wekelijks lopen)
+			{ 
+				Set:'$D(^||TAORStapCache(BatchID,TOENr)) ^||TAORStapCache(BatchID,TOENr)=+$zdth(rs.Data("TijdstipProductie"),3,,6) ; tijdelijke global
+			 	If (rs.Data("VerwerkingID")'[";") && (^||TAORStapCache(BatchID,TOENr)<RefDatum) ; VerwerkingID nog niet aangepast en het tijdstip moet vroeger zijn dan refdatum
+				{ 
+					Do ..UpdateVerwerkingID(rs.Data("ID"),^||TAORStapCache(BatchID,TOENr)) ; alle VerwerkingsID moeten dezelfde aanpassing krijgen, belangrijk voor statische verwerking van de Logging
+				}
+			}
+		}
+ 	}
+]]></Implementation>
+</Method>
+
+<Method name="UpdateVerwerkingID">
+<FormalSpec>ID:%String,Datum:%Date</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LogItem=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem).%OpenId(ID)
+	Set ..LogItem.VerwerkingID=$P(..LogItem.VerwerkingID,";")_";"_Datum
+	Do ..LogItem.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml
===================================================================
diff -u -r50244 -r61757
--- APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 50244)
+++ APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 61757)
@@ -91,10 +91,30 @@
 <Required>1</Required>
 </Property>
 
+<Property name="TijdstipDueOut">
+<Type>%TimeStamp</Type>
+</Property>
+
 <Property name="ToeleveringID">
 <Type>%String</Type>
 </Property>
 
+<Property name="ToeleveringLijnID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AXInventTransID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AXConfigID">
+<Type>%String</Type>
+</Property>
+
+<Property name="AXItemID">
+<Type>%String</Type>
+</Property>
+
 <Property name="IsRework">
 <Description>
 Geeft aan of dit rework vertegenwoordigt of niet.</Description>
@@ -111,7 +131,6 @@
 <IndexLocation>^APPS.HaluxBF30.ProductieSt53EBI</IndexLocation>
 <StreamLocation>^APPS.HaluxBF30.ProductieSt53EBS</StreamLocation>
 <Data name="ProductieStapLogItemDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"ProductieStapLogItem"</Subscript>
 <Value name="1">
 <Value>BatchID</Value>
@@ -158,6 +177,21 @@
 <Value name="15">
 <Value>IsRework</Value>
 </Value>
+<Value name="16">
+<Value>ToeleveringLijnID</Value>
+</Value>
+<Value name="17">
+<Value>AXInventTransID</Value>
+</Value>
+<Value name="18">
+<Value>AXConfigID</Value>
+</Value>
+<Value name="19">
+<Value>AXItemID</Value>
+</Value>
+<Value name="20">
+<Value>TijdstipDueOut</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml
===================================================================
diff -u -r50244 -r61757
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 50244)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 61757)
@@ -1,7 +1,7 @@
 <?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>
+<IncludeCode>vhLib.Macro,BL.Derde.LevSpecifiek</IncludeCode>
 <Super>%RegisteredObject</Super>
 
 <Property name="LogItem">
@@ -84,23 +84,53 @@
 	Set ..LogItem.BatchID=..InfoItem.BatchID
 	Set ..LogItem.PartijID=..InfoItem.PartijID
 	Set ..LogItem.ToeleveringID=..InfoItem.ToeleveringID
+	Set ..LogItem.ToeleveringLijnID=..InfoItem.ToeleveringLijnID
+	Do ..VulAanMetAX()
 	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.TijdstipProductie=..LogItem.TijdstipCreatie
+	Set ..LogItem.TijdstipDueOut=..BepaalTijdstipDueOut()
 	Set ..LogItem.Onderdeel=..BepaalOnderdeel()
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
 	Set ..LogItem.Kar=..BepaalKar()
-	Set ..LogItem.DueOut=..BepaalDueOut()
+	Set ..LogItem.DueOut=..BepaalDueOut() ; Dag van de maand + a ofb
 	;Do DumpObject^%apiOBJ(..LogItem)
 	Do:..ToegelatenVerwerkingID(..LogItem.BatchID,..LogItem.VerwerkingID) ..LogItem.Save()
 ]]></Implementation>
 </Method>
 
+<Method name="VulAanMetAX">
+<Implementation><![CDATA[
+	If ..LogItem.ToeleveringID && ..LogItem.ToeleveringLijnID
+	{
+		Set LijnNr=$G(^TO("IU",..LogItem.ToeleveringID,..LogItem.ToeleveringLijnID))
+		If LijnNr
+		{
+			Set LijnRec=$G(^KTO($$$LevHalux,..LogItem.ToeleveringID,LijnNr))
+			Set ..LogItem.AXInventTransID=$P(LijnRec,"\",55)
+			Set ..LogItem.AXConfigID=$P(LijnRec,"\",56)
+			Set ..LogItem.AXItemID=$P(LijnRec,"\",57)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalTijdstipDueOut">
+<Implementation><![CDATA[
+	If ..LogItem.ToeleveringID
+	{
+		Set LijnRec=$G(^KTO($$$LevHalux,..LogItem.ToeleveringID,1))
+		Set DueOutTijdstip=$P(LijnRec,"\",19)
+	}
+	Quit $S($G(DueOutTijdstip):$$$Timestamp(DueOutTijdstip),1:"")
+]]></Implementation>
+</Method>
+
 <Method name="ToegelatenVerwerkingID">
-<FormalSpec>BatchID,VerwerkingID</FormalSpec>
+<FormalSpec>BatchID:%String,VerwerkingID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Quit:$E(VerwerkingID)'="Z" 1