Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/HalffabSpec.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/HalffabSpec.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/dto/HalffabSpec.cls.xml	(revision 62768)
@@ -0,0 +1,108 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.HalffabSpec">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>0</ProcedureBlock>
+<SqlRowIdPrivate>1</SqlRowIdPrivate>
+<SqlTableName>HalffabSpec</SqlTableName>
+<StorageStrategy>GSQLStorage</StorageStrategy>
+<Super>TECH.Persistent</Super>
+
+<Parameter name="CONNECTION">
+<Default>DOTNET,NOCREATE</Default>
+</Parameter>
+
+<Parameter name="EXTERNALTABLENAME">
+<Default>dbo.HalffabSpec</Default>
+</Parameter>
+
+<Property name="BerekeningWijze">
+<Type>%String</Type>
+<Required>1</Required>
+<SqlColumnNumber>5</SqlColumnNumber>
+<SqlFieldName>BerekeningWijze</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="BerekeningWijze"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<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>
+<Required>1</Required>
+<SqlColumnNumber>6</SqlColumnNumber>
+<SqlFieldName>GeldigTot</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="GeldigTot"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="GeldigVan">
+<Type>%TimeStamp</Type>
+<Required>1</Required>
+<SqlColumnNumber>7</SqlColumnNumber>
+<SqlFieldName>GeldigVan</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="GeldigVan"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="HalffabSpecKlasseNaam">
+<Type>%String</Type>
+<Required>1</Required>
+<SqlColumnNumber>4</SqlColumnNumber>
+<SqlFieldName>HalffabSpecKlasseNaam</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="HalffabSpecKlasseNaam"/>
+<Parameter name="EXTERNALSQLTYPE" value="-9"/>
+<Parameter name="MAXLEN" value="128"/>
+</Property>
+
+<Property name="LaatstAangepast">
+<Type>%TimeStamp</Type>
+<Required>1</Required>
+<SqlColumnNumber>9</SqlColumnNumber>
+<SqlFieldName>LaatstAangepast</SqlFieldName>
+<Parameter name="EXTERNALSQLNAME" value="LaatstAangepast"/>
+<Parameter name="EXTERNALSQLTYPE" value="93"/>
+</Property>
+
+<Property name="Tag">
+<Type>%String</Type>
+<SqlColumnNumber>8</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,HalffabSpecKlasseNaam,BerekeningWijze</Properties>
+</Index>
+
+<Storage name="GSQLStorage">
+<Type>%CacheSQLStorage</Type>
+<StreamLocation>^DOM.PM.MaatwerD76B.HalffabSpecS</StreamLocation>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r62750 -r62768
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62750)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62768)
@@ -1257,6 +1257,15 @@
 		Do OnError
 	}
 	Quit
+	
+SyncHalffabSpec ; Sync HalffabSpec naar DotNet databank
+	Try {
+		Do InitRuntimeContext
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.HalffabSpec).%New().SyncHalffabSpec()
+	} Catch {
+		Do OnError
+	}
+	Quit
 		
 OnError 
 	set $ztrap="EndErrorTrapping"
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/HalffabSpec.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/HalffabSpec.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/HalffabSpec.cls.xml	(revision 62768)
@@ -0,0 +1,141 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.HalffabSpec">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabSpecInfoRepository">
+<Type>DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.HalffabSpecInfoRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabSpecInfo">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo</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="",HalffabSpecInfoRepository:DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.HalffabSpecInfoRepository="",HalffabSpecInfo:DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo=""</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 ..HalffabSpecInfoRepository = $$$Inject(HalffabSpecInfoRepository, ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.HalffabSpecInfoRepository).%New())
+	Set ..HalffabSpecInfo = HalffabSpecInfo
+	
+	Set ..Logger = ##class(vhLib.Logger).%New("DOTNET sync")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SyncHalffabSpec">
+<Implementation><![CDATA[
+	#dim HalffabSpecInfoIterator As TECH.Iterator = ..HalffabSpecInfoRepository.GeefAlleHalffabSpecInfo()
+	#dim HalffabSpecInfo As DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.HalffabSpec
+	#dim Filter, Familie, Variant, HalffabSpec, BerekeningWijze, Tag, Id As %String
+	#dim HuidigTijdstip, GeldigVan, GeldigTot As %TimeStamp
+	#dim HalffabSpecInfoBestaatReeds As %Boolean
+	
+	Do ..Logger.Info("DotnetSync HalffabSpecInfo]", "Sync van HalffabSpecInfo naar DotNet wordt gestart.")
+	try {		
+		While (HalffabSpecInfoIterator.HasNext()) {
+			Set ..HalffabSpecInfo = HalffabSpecInfoIterator.Next()
+			Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.HalffabSpec).%New()
+			If $$$HasLength(..HalffabSpecInfo.BerekeningWijze)
+				{
+					Set BerekeningWijze 		= ..HalffabSpecInfo.BerekeningWijze
+				} Else {
+					Set BerekeningWijze 		= "NULL"
+				}
+			
+			Set HalffabSpecInfoBestaatReeds = ..BestaatViaFilter(HalffabSpecInfo.%ClassName(1), "Familie = ? AND Variant = ? AND HalffabSpecKlasseNaam = ? AND BerekeningWijze = ?", $LB(..HalffabSpecInfo.Familie, ..HalffabSpecInfo.Variant, ..HalffabSpecInfo.HalffabSpec, BerekeningWijze))
+			
+			If HalffabSpecInfoBestaatReeds {
+				Set Filter = "Tag = ?, GeldigVan = ?, GeldigTot = ?, LaatstAangepast = ?"
+				
+				Set Familie 			= ..HalffabSpecInfo.Familie
+				Set Variant 			= ..HalffabSpecInfo.Variant
+				Set HalffabSpec 		= ..HalffabSpecInfo.HalffabSpec
+				Set Tag 				= ..HalffabSpecInfo.Tag
+				Set GeldigVan 			= ..DateTimeAPI.HorologToTimeStamp(..HalffabSpecInfo.GeldigVan)
+				Set GeldigTot 			= ..DateTimeAPI.HorologToTimeStamp(..HalffabSpecInfo.GeldigTot)
+				Set HuidigTijdstip 		= ..GeefHuidigeTimeStamp()
+				
+				Do ..UpdateHalffabSpecViaFilter(HalffabSpecInfo.%ClassName(1),Filter,$ListBuild(Tag, GeldigVan, GeldigTot, HuidigTijdstip, HalffabSpec, Familie, Variant, BerekeningWijze))			
+			} Else {
+				Set HalffabSpecInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.HalffabSpec).%New()
+				
+				Set HalffabSpecInfo.Familie 				= ..HalffabSpecInfo.Familie
+				Set HalffabSpecInfo.Variant 				= ..HalffabSpecInfo.Variant
+				Set HalffabSpecInfo.HalffabSpecKlasseNaam	= ..HalffabSpecInfo.HalffabSpec
+				Set HalffabSpecInfo.BerekeningWijze 		= BerekeningWijze
+				Set HalffabSpecInfo.Tag 					= ..HalffabSpecInfo.Tag
+				Set HalffabSpecInfo.GeldigVan 				= ..DateTimeAPI.HorologToTimeStamp(..HalffabSpecInfo.GeldigVan)
+				Set HalffabSpecInfo.GeldigTot 				= ..DateTimeAPI.HorologToTimeStamp(..HalffabSpecInfo.GeldigTot)
+				Set HalffabSpecInfo.LaatstAangepast 		= ..GeefHuidigeTimeStamp()
+				
+				Do HalffabSpecInfo.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 HalffabSpecInfo .Net. " _Exceptie.ToString())
+	}
+	
+	Do ..Logger.Info("DotnetSync HalffabSpecInfo]", "Sync van HalffabSpecInfo 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="UpdateHalffabSpecViaFilter">
+<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 HalffabSpecKlasseNaam = ? AND Familie = ? AND Variant = ? AND BerekeningWijze = ?"
+	
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>