Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml
===================================================================
diff -u -r39939 -r39961
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml (.../ProductieZijkantFrees.cls.xml) (revision 39939)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml (.../ProductieZijkantFrees.cls.xml) (revision 39961)
@@ -16,6 +16,10 @@
%TimeStamp
+
+%Date
+
+
%TimeStamp
@@ -28,6 +32,7 @@
%Status
@@ -36,18 +41,23 @@
Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieZijkantFrees).%New().VerwerkRecente()
0
- Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6)) ..VanafTijdstip=..MachineTijdstip
+ #dim BarcodeLeft as %String=$ZSTRIP(rs.Data("PrintBarcodeLeft"),">W")
+ #dim BarcodeRight as %String=$ZSTRIP(rs.Data("PrintBarcodeRight"),">W")
+ w BarcodeLeft," ",BarcodeRight," ",..MachineTijdstip," ", ..VanafTijdstip,!
+ Do:$L(BarcodeLeft) ..VoegToeProductieStap(BarcodeLeft)
+ Do:$L(BarcodeRight) ..VoegToeProductieStap(BarcodeRight)
+
+ Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
}
+ w "Einde zijkant ",..VanafTijdstip,!
Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).OpslaanLaatsteUpdateVoorMachine(..#MachineID,..VanafTijdstip)
]]>
@@ -56,7 +66,7 @@
1
? ")
+ Do rs.Prepare("Select PickTimeStamp, PrintBarcodeLeft,PrintBarcodeRight from APPS_Halux_Machine_ZijkantFrees_data.ZijkantFreesHistoriek where PickTimeStamp>? ")
Set sc=rs.Execute(..VanafTijdstip)
Set it=##class(TECH.ResultSetIterator).%New(rs)
Quit it
Index: APPS/Halux/Machine/ZijkantFrees/data/ZijkantFreesHistoriekRemote.cls.xml
===================================================================
diff -u -r39903 -r39961
--- APPS/Halux/Machine/ZijkantFrees/data/ZijkantFreesHistoriekRemote.cls.xml (.../ZijkantFreesHistoriekRemote.cls.xml) (revision 39903)
+++ APPS/Halux/Machine/ZijkantFrees/data/ZijkantFreesHistoriekRemote.cls.xml (.../ZijkantFreesHistoriekRemote.cls.xml) (revision 39961)
@@ -4,7 +4,7 @@
persistent
0
1
-ZijkantFreesHistoriekRemote
+ZijkantFreesHistoriek
GSQLStorage
%Library.Persistent
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml
===================================================================
diff -u -r39939 -r39961
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml (.../ProductieAfkanter.cls.xml) (revision 39939)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml (.../ProductieAfkanter.cls.xml) (revision 39961)
@@ -41,31 +41,31 @@
Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieAfkanter).%New().VerwerkRecente()
0
-
+ Set Tijdstip=$ZDTH(EndTime,1) ; formaat M/DD/YYYY HH:MM:SS
+ Continue:$$DIFFTIME^vhLib.DataTypes(..StartTijdstip,Tijdstip)'>0
Set ..MachineTijdstip=$$$Timestamp(Tijdstip)
- #dim Barcode as %String=rs.Data("ID")
- w Barcode," ",..MachineTijdstip," ",..VanafTijdstip,!
+
+ #dim Barcode as %String=$ZSTRIP(rs.Data("ID"),">W")
+ w Barcode," ",..MachineTijdstip,!
Do ..VoegToeProductieStap(Barcode)
- Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6)) ..VanafTijdstip=..MachineTijdstip
+ Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
}
+ w "Einde afkanter ",..VanafTijdstip,!
+
Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).OpslaanLaatsteUpdateVoorMachine(..#MachineID,..VanafTijdstip)
]]>
1
0 and isnull(EndTime,'')<>'' ")
Set sc=rs.Execute(..VanafTijdstip)
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml
===================================================================
diff -u -r39939 -r39961
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml (.../ProductieStapLogger.cls.xml) (revision 39939)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml (.../ProductieStapLogger.cls.xml) (revision 39961)
@@ -70,7 +70,7 @@
0)
- &SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET LaatstToegevoegd=1 WHERE VerwerkingID=:VerwerkingID and LaatstToegevoegd=0 and ID = (SELECT TOP 1 ID from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:VerwerkingID ORDER BY TijdstipProductie DESC) )
+ &SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET LaatstToegevoegd=1 WHERE VerwerkingID=:VerwerkingID and LaatstToegevoegd=0 and ID = (SELECT TOP 1 ID from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:VerwerkingID ORDER BY TijdstipProductie DESC, ID DESC) )
]]>
Index: WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml
===================================================================
diff -u -r39939 -r39961
--- WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml (.../LoggerService.cls.xml) (revision 39939)
+++ WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml (.../LoggerService.cls.xml) (revision 39961)
@@ -74,14 +74,14 @@
-d ##class(WSimpl.Halux.PPS.ProductieStap.LoggerService).test()
+d ##class(WS.Halux.Opvolging.ProductieStap.LoggerService).test()
1