%RegisteredObject Volg adhv een PalletID de veranderingen van de EWMS tabellen Locations en Transport. Dit met een frequentie van 1 seconde waarin alle velden van deze tabellen worden weggeschreven naar twee verschillende bestanden. Do ##class(EWMS.Logger).VolgPalletInEWMS("01Z01Z01","C:\EWMSLocations.txt","C:\EWMSTransports.txt") 1 PalletID:%String,LocatieBestandnaam:%String,TransportBestandnaam:%String Set ^zlogEWMS = 1",! w "De logging afzetten kan door ^zlogEWMS op 0 te zetten. => Set ^zlogEWMS = 0",! w "Of wachten totdat transport gedaan is.",!! Set InventarisService = ##class(APPS.MAG.Inventaris.impl.InventarisService).%New() #dim LocatieFileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter() do LocatieFileWriter.Open(LocatieBestandnaam) #dim TransportFileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter() do TransportFileWriter.Open(TransportBestandnaam) #dim Header As %String = "PalletID"_$C(9)_"LocID"_$C(9)_"Magazijn"_$C(9)_"Gang"_$C(9) Set Header = Header_"X"_$C(9)_"Y"_$C(9)_"Status"_$C(9)_"InsertTime"_$C(13,10) w Header Do LocatieFileWriter.Write(Header) Set Header = "PalletID"_$C(9)_"LocID"_$C(9)_"type_transport"_$C(9)_"flow_nr"_$C(9)_"present_m"_$C(9)_"present_g"_$C(9)_"present_x"_$C(9)_"present_y"_$C(9)_"present_z"_$C(9)_"next_m"_$C(9)_"next_g"_$C(9)_"next_x"_$C(9)_"next_y"_$C(9)_"next_z"_$C(9)_"final_m"_$C(9)_"final_g"_$C(9)_"final_x"_$C(9)_"final_y"_$C(9)_"final_z"_$C(9)_"auto_id"_$C(9)_"auto_confirm"_$C(9)_"check_free"_$C(9)_"transport_means"_$C(9)_"transport_ordered"_$C(9)_"transport_confirmed"_$C(9)_"do_confirm"_$C(9)_"do_cancel"_$C(9)_"sender"_$C(9)_"abc"_$C(9)_"product"_$C(9)_"owner"_$C(9)_"product_group"_$C(9)_"carrier_type"_$C(9)_"carrier_dwh"_$C(9)_"carrier_weight"_$C(9)_"priority"_$C(9)_"last_id_time"_$C(9)_"last_co_time"_$C(9)_"transport_reason"_$C(9)_"is_full"_$C(9)_"route_sequence"_$C(9)_"extra_int_1"_$C(9)_"extra_int_2"_$C(9)_"extra_char_1"_$C(9)_"extra_float_1"_$C(9)_"ts" Do TransportFileWriter.Write(Header) While (($G(^zlogEWMS)=1)){ #dim LocatieInfoLijst As %ListOfObjects = InventarisService.GeefLocatieInfoVoorPallet(PalletID) #dim LocatieInfoIt As TECH.Iterator = ##class(TECH.ListIterator).%New(LocatieInfoLijst) While LocatieInfoIt.HasNext(){ #dim LocatieInfo As APPS.MAG.Inventaris.dto.LocatieInfo = LocatieInfoIt.Next() #dim FileLijn As %String = PalletID_$C(9)_LocatieInfo.LocatieID_$C(9)_LocatieInfo.Magazijn_$C(9)_LocatieInfo.Gang_$C(9) Set FileLijn = FileLijn_LocatieInfo.X_$C(9)_LocatieInfo.Y_$C(9)_LocatieInfo.Status_$C(9)_LocatieInfo.InsertTime_$C(13,10) w FileLijn Do LocatieFileWriter.Write(FileLijn) } Do LocatieFileWriter.Write("--------------"_$C(13,10)) Do ..VolgTransport(PalletID,TransportFileWriter) hang 1 } Do LocatieFileWriter.Close() Do TransportFileWriter.Close() w !,"Bestand EWMS.Locations: "_LocatieBestandnaam,! w "Bestand EWMS.Transport "_TransportBestandnaam,! ]]> 1 PalletID:%String,FileWriter:TECH.File.impl.FileWriter 1