TECH.RegisteredObject TECH.XMLCorrelater 1 TECH.File.FileAPI 1 TECH.DateTime.DateTimeAPI 1 TECH.File.FileUtils 1 APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo 1 APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker 1 vhLib.Logger 1 DateTimeAPI:TECH.DateTime.DateTimeAPI,FileAPI:TECH.File.FileAPI,FileUtils:TECH.File.FileUtils,VrachtwagenBestandenRepo:APPS.AKP.AankoopControle.BLUM.impl.VrachtwagenBestandenRepo,XmlCorrelater:TECH.XMLCorrelater,VrachtwagenVerwerker:APPS.AKP.AankoopControle.BLUM.VrachtwagenVerwerker 1 1 %Status 1 %Boolean %Integer = 2 { try { if ..VrachtwagenVerwerker.VerwerkVrachtwagen(VrachtwagenBestand.Vrachtwagen) { Do ..VrachtwagenVerwerker.KopieerBestandenVrachtwagenNaarArchiefMap(VrachtwagenBestand.Vrachtwagen) Do ..VrachtwagenBestandenRepo.VerwijderViaVrachtwagen(VrachtwagenBestand.Vrachtwagen) set count = count + 1 } } catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() #Dim BerichtVoorGebruiker As %String = "Een vrachtwagen met mogelijk meerdere DESADV berichten van BLUM kon niet verwerkt worden. : " _ VrachtwagenBestand.Vrachtwagen Do ##class(vhLib.Logger).%New("").ErrorMail("VerwerkVrachtwagens",(BerichtVoorGebruiker _" " _Exception.ToString())) Do ..VrachtwagenVerwerker.KopieerBestandenVrachtwagenNaarErrorMap(VrachtwagenBestand.Vrachtwagen) Do ..VrachtwagenBestandenRepo.VerwijderViaVrachtwagen(VrachtwagenBestand.Vrachtwagen) } } else { Quit } } else { Quit } } Do ..Logger.Info("Transportberichten verwerken V2","Einde verwerken " _ count _ " vrachtwagens") quit $$$Not(count = 0) ]]> BestandsNaam:%String 1 BestandVolledigeNaam:%String APPS.AKP.AankoopControle.BLUM.XML.Transport.Despatch.DELVRY03 1 1 %String