Index: APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml
===================================================================
diff -u -r72356 -r72373
--- APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 72356)
+++ APPS/TRANSP/Transsmart/impl/CommunicatieService.cls.xml	(.../CommunicatieService.cls.xml)	(revision 72373)
@@ -13,16 +13,27 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConfigMgr">
+<Type>TECH.Config.ConfigMgr</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HistoryByQuery">
+<Type>APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI,UitgesteldeZendingLijst:APPS.TRANSP.VRD.UitgesteldeZendingLijst=""</FormalSpec>
+<FormalSpec>ProjectSettingsAPI:DOM.common.impl.ProjectSettingsAPI,UitgesteldeZendingLijst:APPS.TRANSP.VRD.UitgesteldeZendingLijst="",HistoryByQuery:APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery="",ConfigMgr:TECH.Config.ConfigMgr=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProjectSettingsAPI = $$$Inject(ProjectSettingsAPI, ##class(DOM.common.impl.ProjectSettingsAPI).%New())
 	Set ..UitgesteldeZendingLijst = $$$Inject(UitgesteldeZendingLijst,##class(APPS.TRANSP.VRD.UitgesteldeZendingLijst).%New())
-	
+	Set ..ConfigMgr = $$$Inject(ConfigMgr,##class(TECH.Config.ConfigMgr).%New())
+	Set ..HistoryByQuery = $$$Inject(HistoryByQuery, ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -77,10 +88,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="QueryHistory">
+<Method name="TestTwo">
 <Implementation><![CDATA[
-	Set HistoryByQuery = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery).%New()
-	Do HistoryByQuery.QueryStatusHistory("SNB","2023-08-01 00:00:00","2023-08-31 23:59:59")
+	Do ..HistoryByQuery.QueryStatusHistory("SNB","2023-08-20 00:00:00","2023-08-31 23:59:59")
+	;Set ..HistoryByQuery = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery).%New()
+	;Do ..HistoryByQuery.QueryStatusHistory("SNB","2023-08-01 00:00:00","2023-08-31 23:59:59")
+	
 	/*
 	haal de carriers op uit config item
 	per carrier
@@ -93,29 +106,49 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestLoop">
+<Method name="QueryCarrierHistory">
 <Implementation><![CDATA[
-	#dim Carriers as %String = "SNB,DAC"
+
+	Set Carriers = ##class(TECH.Config.ConfigMgr).%New().GeefString("TranssmartHistoryCarriers")
 	#dim CurrentTimeStamp as %TimeStamp = ##class(TECH.DateTime).CurrentTimeStamp()
 	
-	
 	Set CarrierIterator = ##class(TECH.PiecesIterator).%New(Carriers,",")
-	while CarrierIterator.HasNext() {
-		#dim Carrier as %String = CarrierIterator.Next()
-		#dim CarrierLastTimeStamp as %TimeStamp = "2023-12-07 12:00:00"
-		w !,Carrier_ " " _CarrierLastTimeStamp
-		while (##class(TECH.DateTime).TimeStampVerschil("hh",CarrierLastTimeStamp,CurrentTimeStamp) > 0 ){
-			w !,##class(TECH.DateTime).TimeStampVerschil("hh",CarrierLastTimeStamp,CurrentTimeStamp)
-			#dim CarrierTimeStampTo as %TimeStamp = ##class(TECH.DateTime).TimeStampBereken(CarrierLastTimeStamp,2,"hh")
-			w "   van " _ CarrierLastTimeStamp _" tot " _ CarrierTimeStampTo
+	try {	
+		while CarrierIterator.HasNext() {
+			#dim Carrier as %String = CarrierIterator.Next()
+			#dim CarrierLastTimeStamp as %TimeStamp = ..GeefCarrierLastTimeStamp(Carrier)
+			Do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,"Opvragen Transportstatus historiek voor "_ Carrier _ " sinds " _ CarrierLastTimeStamp)
+			while (##class(TECH.DateTime).TimeStampVerschil("hh",CarrierLastTimeStamp,CurrentTimeStamp) > 2 ){ 
+				#dim CarrierTimeStampTo as %TimeStamp = ##class(TECH.DateTime).TimeStampBereken(CarrierLastTimeStamp,2,"hh")
+				;Do ##class(vhLib.Logger).%New().Info(..%ClassName(1)_"::"_$$$CurrentMethod,"Opvragen Transportstatus historiek voor "_ Carrier _ " van " _ CarrierLastTimeStamp _ " tot " _ CarrierTimeStampTo)
+				Set ..HistoryByQuery = ##class(APPS.TRANSP.Transsmart.impl.CommunicatieService.HistoryByQuery).%New()
+				Do ..HistoryByQuery.QueryStatusHistory(Carrier, CarrierLastTimeStamp, CarrierTimeStampTo)
 
-			Set CarrierLastTimeStamp = CarrierTimeStampTo
+				Set CarrierLastTimeStamp = CarrierTimeStampTo
+				Do ..ZetCarrierLastTimeStamp(Carrier,CarrierLastTimeStamp)
+				hang 1
 
+			}
 		}
-		w !,CarrierLastTimeStamp
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()		
+		Do ##class(vhLib.Logger).%New().ErrorMail(..%ClassName(1)_"::"_$$$CurrentMethod,"Opvragen Transportstatus historiek  mislukt."_$C(13,10)_$C(13,10)_Exception.ToString())
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCarrierLastTimeStamp">
+<FormalSpec>Carrier:%String</FormalSpec>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[		Quit ..ConfigMgr.GeefString("TranssmartHistoryLastTimeStamp_"_Carrier,##class(TECH.DateTime).TimeStampBereken(##class(TECH.DateTime).CurrentTimeStamp(),-4,"hh"))
+]]></Implementation>
+</Method>
+
+<Method name="ZetCarrierLastTimeStamp">
+<FormalSpec>Carrier:%String,LastTimeStamp:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[		Do ..ConfigMgr.ZetString("TranssmartHistoryLastTimeStamp_"_Carrier,LastTimeStamp)
+]]></Implementation>
+</Method>
 </Class>