Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken/EventListener.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken/EventListener.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken/EventListener.cls.xml	(revision 63401)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.PPSKenmerken.EventListener">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="SyncPPSKenmerkenEventListener">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Event:TECH.Events.PPSKenmerkGemaaktEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set Syncer = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.PPSKenmerken).%New()
+	Do Syncer.SyncPPSKenmerk(Event.Data.PPSKenmerk)
+]]></Implementation>
+</Method>
+
+<Method name="InitSubscriptions">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ModifiedSubscription = ##class(TECH.PubSub.EventSubscription).%New("PPSKenmerkGemaaktEvent","DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.PPSKenmerken.EventListener","SyncPPSKenmerkenEventListener")
+	Do ModifiedSubscription.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/PPSKenmerken.cls.xml	(revision 63401)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.PPSKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Connectie">
+<Type>%SQLGatewayConnection</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=""</FormalSpec>
+<ReturnType>%Library.Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..DateTimeAPI = $$$Inject(DateTimeAPI, ##class(TECH.Context).Instance().GeefDateTimeAPI())	
+	Set ..Connectie = ##class(%SQLGatewayConnection).%New()
+	Set ..Logger = ##class(vhLib.Logger).%New("DOTNET sync")
+ 	Set sc = ..Connectie.GetConnection("DOTNET")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SyncPPSKenmerk">
+<FormalSpec>PPSKenmerk:Prod.Kenmerk.DataDefinitie</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductId As %String 		= PPSKenmerk.PRNr
+	#dim KenmerkGroep As %String 	= PPSKenmerk.KenmerkGroep
+	#dim KenmerkNaam As %String		= PPSKenmerk.KenmerkNaam
+	#dim Kenmerkwaarden = ##class(TECH.ListUtils).ListToPieces(PPSKenmerk.Waarden, ",")
+	
+	try {
+		If $$$Not(..BestaatPPSKenmerkInDotNet(ProductId, KenmerkGroep, KenmerkNaam)) {
+			Do ..MaakPPSKenmerk(ProductId, KenmerkGroep, KenmerkNaam, Kenmerkwaarden)
+		} Else {
+			Do ..UpdatePPSKenmerk(ProductId, KenmerkGroep, KenmerkNaam, Kenmerkwaarden)
+		}
+	} catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger.Error("DotnetSync [PPSSyncer]","Fout bij sync van PPS kenmerk naar .Net. " _Exceptie.ToString())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BestaatPPSKenmerkInDotNet">
+<FormalSpec>ProductId:%String,KenmerkGroep:%String,KenmerkNaam:%String,KenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Statement As %String = "Select ProductId FROM "_..GeefPPSTabelNaam()_" where ProductId = '"_ProductId_"' AND KenmerkGroep = '"_KenmerkGroep_"' AND KenmerkNaam = '"_KenmerkNaam_"'"
+	#dim Result As TECH.ResultSet = ..VoerUitSql(Statement)
+	
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(Result)
+	
+	Quit ResultSetIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="MaakPPSKenmerk">
+<FormalSpec>ProductId:%String,KenmerkGroep:%String,KenmerkNaam:%String,KenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Statement As %String = "INSERT INTO "_..GeefPPSTabelNaam()_" (ProductId, KenmerkGroep ,KenmerkNaam, KenmerkWaarde, LaatstAangepast)"
+	Set Statement = Statement_" VALUES ('"_ProductId_"', '"_KenmerkGroep_"', '"_KenmerkNaam_"', '"_KenmerkWaarde_"', '"_..GeefHuidigeTimeStamp()_"')"
+	Do ..VoerUitSql(Statement)
+]]></Implementation>
+</Method>
+
+<Method name="UpdatePPSKenmerk">
+<FormalSpec>ProductId:%String,KenmerkGroep:%String,KenmerkNaam:%String,KenmerkWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Statement As %String = "UPDATE "_..GeefPPSTabelNaam()_" SET KenmerkWaarde = '"_KenmerkWaarde_"', LaatstAangepast = '"_..GeefHuidigeTimeStamp()_"'"
+	Set Statement = Statement_" where ProductId = '"_ProductId_"' AND KenmerkGroep = '"_KenmerkGroep_"' AND KenmerkNaam = '"_KenmerkNaam_"'"
+	Do ..VoerUitSql(Statement)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPPSTabelNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "dbo.PpsKenmerk"
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeTimeStamp">
+<Private>1</Private>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..DateTimeAPI.CurrentTimeStamp()
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitSql">
+<FormalSpec>Statement:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ResultSet</ReturnType>
+<Implementation><![CDATA[
+	Do ..Logger.Debug("DotnetSync [PPSSyncer]", "SQL: " _ Statement)
+	Set res = ##class(TECH.ResultSet).%New("%DynamicQueryGW:SQLGW")
+    Set sc = res.Prepare(Statement,,..Connectie)
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+    Set sc = res.Execute()
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc)
+	Quit res
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>