Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/KostSpec.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/KostSpec.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/KostSpec.cls.xml	(revision 62744)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostSpec">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>0</ProcedureBlock>
+<SqlRowIdPrivate>1</SqlRowIdPrivate>
+<SqlTableName>KostSpec</SqlTableName>
+<StorageStrategy>GSQLStorage</StorageStrategy>
+<Super>TECH.Persistent</Super>
+
+<Parameter name="CONNECTION">
+<Default>DOTNET,NOCREATE</Default>
+</Parameter>
+
+<Parameter name="EXTERNALTABLENAME">
+<Default>dbo.KostSpec</Default>
+</Parameter>
+
+<Property name="Familie">
+<Type>%String</Type>
+<Required>1</Required>
+<SqlColumnNumber>2</SqlColumnNumber>
+<SqlFieldName>Familie</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="Familie"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<Property name="GeldigTot">
+<Type>%TimeStamp</Type>
+<SqlColumnNumber>5</SqlColumnNumber>
+<SqlFieldName>GeldigTot</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="GeldigTot"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="GeldigVan">
+<Type>%TimeStamp</Type>
+<SqlColumnNumber>6</SqlColumnNumber>
+<SqlFieldName>GeldigVan</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="GeldigVan"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="KostSpecKlasseNaam">
+<Type>%String</Type>
+<Required>1</Required>
+<SqlColumnNumber>4</SqlColumnNumber>
+<SqlFieldName>KostSpecKlasseNaam</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="KostSpecKlasseNaam"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<Property name="LaatstAangepast">
+<Type>%TimeStamp</Type>
+<Required>1</Required>
+<SqlColumnNumber>8</SqlColumnNumber>
+<SqlFieldName>LaatstAangepast</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="LaatstAangepast"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="Tag">
+<Type>%String</Type>
+<SqlColumnNumber>7</SqlColumnNumber>
+<SqlFieldName>Tag</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="Tag"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<Property name="Variant">
+<Type>%String</Type>
+<Required>1</Required>
+<SqlColumnNumber>3</SqlColumnNumber>
+<SqlFieldName>Variant</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="Variant"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<Index name="MainIndex">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>Familie,Variant,KostSpecKlasseNaam</Properties>
+</Index>
+
+<Storage name="GSQLStorage">
+<Type>%CacheSQLStorage</Type>
+<StreamLocation>^DOM.PM.Maatwerk.SD76B.KostSpecS</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/KostSpecInfoRepository.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/KostSpecInfoRepository.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/KostSpecInfoRepository.cls.xml	(revision 62744)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.KostSpecInfoRepository">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefAlleKostSpecInfo">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/KostSpecInfo.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/KostSpecInfo.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/KostSpecInfo.cls.xml	(revision 62744)
@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostSpecInfo">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostSpecInfoRepository">
+<Type>DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.KostSpecInfoRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KostSpecInfo">
+<Type>DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo</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="",KostSpecInfoRepository:DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.KostSpecInfoRepository="",KostSpecInfo:DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo=""</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 ..KostSpecInfoRepository = $$$Inject(KostSpecInfoRepository, ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.KostSpecInfoRepository).%New())
+	Set ..KostSpecInfo = KostSpecInfo
+	
+	Set ..Logger = ##class(vhLib.Logger).%New("DOTNET sync")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SyncKostSpec">
+<Implementation><![CDATA[
+	#dim KostenSpecInfoIterator As TECH.Iterator = ..KostSpecInfoRepository.GeefAlleKostSpecInfo()
+	#dim KostSpecInfo As DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostSpec
+	#dim Filter, Familie, Variant, KostSpec, Tag As %String
+	#dim HuidigTijdstip, GeldigVan, GeldigTot As %TimeStamp
+	#dim KostSpecInfoBestaatReeds As %Boolean	
+	
+	Do ..Logger.Info("DotnetSync [KostSpecInfo]", "Sync van KostSpecInfo naar DotNet wordt gestart.")
+	
+	try {		
+		While (KostenSpecInfoIterator.HasNext()) {
+			Set ..KostSpecInfo = KostenSpecInfoIterator.Next()
+			Set KostSpecInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostSpec).%New()
+			Set KostSpecInfoBestaatReeds = ..BestaatViaFilter(KostSpecInfo.%ClassName(1), "Familie = ? AND Variant = ? AND KostSpecKlasseNaam = ?", $LB(..KostSpecInfo.Familie, ..KostSpecInfo.Variant, ..KostSpecInfo.KostSpec))
+			
+			If KostSpecInfoBestaatReeds {
+				Set Filter = "Tag = ?, GeldigVan = ?, GeldigTot = ?, LaatstAangepast = ?"
+				
+				Set Familie 			= ..KostSpecInfo.Familie
+				Set Variant 			= ..KostSpecInfo.Variant
+				Set KostSpec 			= ..KostSpecInfo.KostSpec
+				Set Tag 				= ..KostSpecInfo.Tag
+				Set GeldigVan 			= ..DateTimeAPI.HorologToTimeStamp(..KostSpecInfo.GeldigVan)
+				Set GeldigTot 			= ..DateTimeAPI.HorologToTimeStamp(..KostSpecInfo.GeldigTot)
+				Set HuidigTijdstip 		= ..GeefHuidigeTimeStamp()
+				
+				Do ..UpdateKostSpecInfoViaFilter(KostSpecInfo.%ClassName(1),Filter,$ListBuild(Tag, GeldigVan, GeldigTot, HuidigTijdstip, KostSpec, Familie, Variant))			
+			} Else {
+				Set KostSpecInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.KostSpec).%New()
+				
+				Set KostSpecInfo.Familie 			= ..KostSpecInfo.Familie
+				Set KostSpecInfo.Variant 			= ..KostSpecInfo.Variant
+				Set KostSpecInfo.KostSpecKlasseNaam	= ..KostSpecInfo.KostSpec
+				Set KostSpecInfo.Tag 				= ..KostSpecInfo.Tag
+				Set KostSpecInfo.GeldigVan 			= ..DateTimeAPI.HorologToTimeStamp(..KostSpecInfo.GeldigVan)
+				Set KostSpecInfo.GeldigTot 			= ..DateTimeAPI.HorologToTimeStamp(..KostSpecInfo.GeldigTot)
+				Set KostSpecInfo.LaatstAangepast 	= ..GeefHuidigeTimeStamp()
+				
+				Do KostSpecInfo.Save()
+			}
+		} 
+	} catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(Tools.Wlip).%New(110).String(Exceptie.ToString())
+		#dim Logger = ##class(vhLib.Logger).%New("Sync naar .Net heeft gefaald!").ErrorMail("Fout bij sync van KostSpecInfo naar .Net. " _Exceptie.ToString())
+	}
+	
+	Do ..Logger.Info("DotnetSync [KostSpecInfo]", "Sync van KostSpecInfo 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="UpdateKostSpecInfoViaFilter">
+<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 KostSpecKlasseNaam = ? AND Familie = ? AND Variant = ?"
+	
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r62743 -r62744
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62743)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62744)
@@ -1249,6 +1249,15 @@
 	}
 	Quit
 	
+SyncKostSpec ; Sync KostSpec naar DotNet databank
+	Try {
+		Do InitRuntimeContext
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.KostSpecInfo).%New().SyncKostSpec()
+	} Catch {
+		Do OnError
+	}
+	Quit
+		
 OnError 
 	set $ztrap="EndErrorTrapping"
 	new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/KostSpecInfoRepository.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/KostSpecInfoRepository.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/Data/impl/KostSpecInfoRepository.cls.xml	(revision 62744)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.KostSpecInfoRepository">
+<Super>TECH.Persistentie.impl.Repository,TECH.Mockable,DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.KostSpecInfoRepository</Super>
+
+<Parameter name="DataClassName">
+<Type>%String</Type>
+<Default>DOM.PM.Maatwerk.Calc.Kost.impl.KostSpecInfo</Default>
+</Parameter>
+
+<Method name="GeefAlleKostSpecInfo">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekAlle()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>