FishEye: Tag 62750 refers to a dead (removed) revision in file `DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/Kostenplaats.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/KostenPlaatsWaardeInfo.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/KostenPlaatsWaardeInfo.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/KostenPlaatsWaardeInfo.cls.xml	(revision 62750)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostenPlaatsWaardeInfo">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>0</ProcedureBlock>
+<SqlRowIdPrivate>1</SqlRowIdPrivate>
+<SqlTableName>KostenPlaatsWaardeInfo</SqlTableName>
+<StorageStrategy>GSQLStorage</StorageStrategy>
+<Super>TECH.Persistent</Super>
+
+<Parameter name="CONNECTION">
+<Default>DOTNET,NOCREATE</Default>
+</Parameter>
+
+<Parameter name="EXTERNALTABLENAME">
+<Default>dbo.KostenPlaatsWaardeInfo</Default>
+</Parameter>
+
+<Property name="GeldigTot">
+<Type>%TimeStamp</Type>
+<SqlColumnNumber>3</SqlColumnNumber>
+<SqlFieldName>GeldigTot</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="GeldigTot"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="GeldigVan">
+<Type>%TimeStamp</Type>
+<SqlColumnNumber>4</SqlColumnNumber>
+<SqlFieldName>GeldigVan</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="GeldigVan"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="KostPerTijd">
+<Type>%Float</Type>
+<Required>1</Required>
+<SqlColumnNumber>5</SqlColumnNumber>
+<SqlFieldName>KostPerTijd</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="KostPerTijd"/>
+<Parameter name="EXTERNALSQLTYPE" value="6"/>
+</Property>
+
+<Property name="KostenPlaatsID">
+<Type>%String</Type>
+<Required>1</Required>
+<SqlColumnNumber>2</SqlColumnNumber>
+<SqlFieldName>KostenPlaatsID</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="KostenPlaatsID"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<Property name="LaatstAangepast">
+<Type>%TimeStamp</Type>
+<Required>1</Required>
+<SqlColumnNumber>7</SqlColumnNumber>
+<SqlFieldName>LaatstAangepast</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="LaatstAangepast"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="Tag">
+<Type>%String</Type>
+<SqlColumnNumber>6</SqlColumnNumber>
+<SqlFieldName>Tag</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="Tag"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<Index name="MainIndex">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>KostenPlaatsID</Properties>
+</Index>
+
+<Storage name="GSQLStorage">
+<Type>%CacheSQLStorage</Type>
+<StreamLocation>^DOM.PM.MaaD76B.KostenPlaatECB2S</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r62744 -r62750
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62744)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62750)
@@ -1240,10 +1240,10 @@
 	}
 	Quit
 	
-SyncKostenplaatsen ; Sync kostenplaatsen naar DotNet databank
+SyncKostenplaatsWaardeInfo ; Sync kostenplaatsen naar DotNet databank
 	Try {
 		Do InitRuntimeContext
-		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.Kostenplaats).%New().SyncKostenPlaatsen()
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostenplaatsWaardeInfo).%New().SyncKostenPlaatsen()
 	} Catch {
 		Do OnError
 	}
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/KostenplaatsWaardeInfo.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/KostenplaatsWaardeInfo.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/KostenplaatsWaardeInfo.cls.xml	(revision 62750)
@@ -0,0 +1,133 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostenplaatsWaardeInfo">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostenPlaatsRepository">
+<Type>DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.KostenplaatsRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostenPlaats">
+<Type>DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeInfo</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DateTimeAPI:TECH.DateTime.impl.DateTimeAPI="",QueryAPI:TECH.Query.QueryAPI="",KostenPlaatsRepository:DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.KostenplaatsRepository="",KostenPlaats:DOM.PM.Maatwerk.Calc.Kost.impl.KostenPlaatsWaardeInfo=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())	
+	Set ..QueryAPI = $$$Inject(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..KostenPlaatsRepository = $$$Inject(KostenPlaatsRepository, ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.KostenplaatsRepository).%New())
+	Set ..KostenPlaats = KostenPlaats
+	
+	Set ..Logger = ##class(vhLib.Logger).%New("DOTNET sync")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SyncKostenPlaatsen">
+<Implementation><![CDATA[
+	#dim KostenPlaatsen As TECH.Iterator = ..KostenPlaatsRepository.GeefAlleKostenplaatsen()
+	#dim KostenPlaatsInfo As DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostenPlaatsWaardeInfo
+	#dim Filter, KostenPlaatsID, KostPerTijd, Tag As %String
+	#dim HuidigTijdstip, GeldigVan, GeldigTot As %TimeStamp
+	#dim KostenPlaatsBestaatReeds As %Boolean
+	
+	Do ..Logger.Info("DotnetSync [KostenPlaatsSyncer]", "Sync van kostenplaatsen naar DotNet wordt gestart.")
+		
+	While (KostenPlaatsen.HasNext()) {
+		Set ..KostenPlaats = KostenPlaatsen.Next()
+		try {
+			Set KostenPlaatsInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostenPlaatsWaardeInfo).%New()
+			Set KostenPlaatsID = ..KostenPlaats.GeefKostenPlaatsID()
+			Set KostenPlaatsBestaatReeds = ..BestaatViaFilter(KostenPlaatsInfo.%ClassName(1), "KostenPlaatsID = ?", $LB(KostenPlaatsID))
+			
+			If KostenPlaatsBestaatReeds {
+				Set Filter = "KostPerTijd = ?, Tag = ?, GeldigVan = ?, GeldigTot = ?, LaatstAangepast = ?"
+				
+				Set KostPerTijd 		= ..KostenPlaats.GeefKostPerTijd()
+				Set Tag 				= ..KostenPlaats.GeefTag()			
+				Set GeldigVan 			= ..DateTimeAPI.HorologToTimeStamp(..KostenPlaats.GeefGeldigVan())
+				Set GeldigTot 			= ..DateTimeAPI.HorologToTimeStamp(..KostenPlaats.GeefGeldigTot())
+				Set HuidigTijdstip 		= ..GeefHuidigeTimeStamp()
+				
+				Do ..UpdateKostenPlaatsViaFilter(KostenPlaatsInfo.%ClassName(1),Filter,$ListBuild(KostPerTijd, Tag, GeldigVan, GeldigTot, HuidigTijdstip, KostenPlaatsID))			
+			} Else {
+				Set KostenPlaatsInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostenPlaatsWaardeInfo).%New()
+				
+				Set KostenPlaatsInfo.KostenPlaatsID 	= ..KostenPlaats.GeefKostenPlaatsID()
+				Set KostenPlaatsInfo.KostPerTijd 		= ..KostenPlaats.GeefKostPerTijd()
+				Set KostenPlaatsInfo.Tag 				= ..KostenPlaats.GeefTag()			
+				Set KostenPlaatsInfo.GeldigVan 			= ..DateTimeAPI.HorologToTimeStamp(..KostenPlaats.GeefGeldigVan())
+				Set KostenPlaatsInfo.GeldigTot 			= ..DateTimeAPI.HorologToTimeStamp(..KostenPlaats.GeefGeldigTot())
+				Set KostenPlaatsInfo.LaatstAangepast   	= ..GeefHuidigeTimeStamp()
+				
+				Do KostenPlaatsInfo.Save()
+			}
+		 
+		} catch {
+			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			#dim Logger = ##class(vhLib.Logger).%New("Sync naar .Net heeft gefaald!").ErrorMail("Fout bij sync van KostenplaatsWaardeInfo naar .Net. " _Exceptie.ToString())
+		}
+	}
+
+	Do ..Logger.Info("DotnetSync [KostenPlaatsSyncer]", "Sync van kostenplaatsen naar DotNet is klaar.")
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeTimeStamp">
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..DateTimeAPI.HorologToTimeStamp(..DateTimeAPI.CurrentHorolog())
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaFilter">
+<FormalSpec>KlasseNaam:%String,Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(KlasseNaam)
+	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _" WHERE " _Filter
+	
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+	
+	Quit:ResultSet.Next() 1
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="UpdateKostenPlaatsViaFilter">
+<FormalSpec>KlasseNaam:%String,Filter:%String,Params:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(KlasseNaam)
+	#dim SqlStatement As TECH.String = "UPDATE " _SqlTableName _" SET "_Filter_ " WHERE KostenPlaatsID = ?"
+	
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 62750 refers to a dead (removed) revision in file `DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/KostenPlaats.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?