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