Index: DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/ProductInfo.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/ProductInfo.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Syncs/DotNet/MaatwerkCalculator/impl/ProductInfo.cls.xml	(revision 62722)
@@ -0,0 +1,336 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.ProductInfo">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SelectieKenmerkenRepository">
+<Type>DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.SelectieKenmerkenRepository</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="",SelectieKenmerkenRepository:DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.SelectieKenmerkenRepository=""</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 = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Set ..SelectieKenmerkenRepository = $$$Inject(SelectieKenmerkenRepository, ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.SelectieKenmerkenRepository).%New())
+	
+	Set ..Logger = ##class(vhLib.Logger).%New("DOTNET sync")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SyncProductenGewichtEnPrijs">
+<Implementation><![CDATA[
+	Do ..Logger.Info("DotnetSync [GewichtEnPrijs]", "Sync van prijzen en gewichten naar DotNet wordt gestart.")
+	
+	try {
+		Do ..SyncProductGewichtEnPrijsVanSelectieKenmerken()
+		Do ..SyncProductGewichtEnPrijsVanNietSelectieKenmerken()
+	} 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 prijzen en gewichten naar .Net. " _Exceptie.ToString())
+	}
+	
+	Do ..Logger.Info("DotnetSync [GewichtEnPrijs]", "Sync van prijzen en gewichten naar DotNet is klaar.")
+]]></Implementation>
+</Method>
+
+<Method name="SyncProductGewichtEnPrijsVanNietSelectieKenmerken">
+<Implementation><![CDATA[
+	#dim ProductIds As %ListOfDataTypes = ..GeefLijstVanProductIdVanNietSelectieKenmerken()
+	#dim Producten As TECH.Iterator= ##class(TECH.ListIterator).%New(ProductIds)
+	#dim ProductId As %Integer
+	
+	While (Producten.HasNext()) {
+		Set ProductId = Producten.Next()
+		Do ..MaakOfUpdateProductPrijsEnGewicht(ProductId)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SyncProductGewichtEnPrijsVanSelectieKenmerken">
+<Implementation><![CDATA[
+	#dim SelectieKenmerken As TECH.Iterator = ..SelectieKenmerkenRepository.GeefAlleSelectiekenmerken()
+	#dim Producten As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim KenmerkGroep As APPS.PM.Kenmerk.impl.KenmerkGroepRepository
+	#dim HalffabKlasse, Rol, Variant As %String
+	#dim ProductBestaatReeds As %Boolean	
+	#dim ProductID As %Integer	
+	
+	While (SelectieKenmerken.HasNext()) {
+		Set KenmerkGroep = SelectieKenmerken.Next()
+		
+		Set Variant = $Piece(KenmerkGroep.KenmerkGroep,"_",1)
+		Set Rol = $Piece(KenmerkGroep.KenmerkGroep,"_",3)
+		
+		Set HalffabKlasse = ..GeefKlasseNaamVanRol(Rol,Variant)
+		
+		If $$$HasLength(HalffabKlasse) { 
+			Set Producten = ..GeefProductenVanSelectieKenmerk(KenmerkGroep,HalffabKlasse)			
+			Set ProductIterator = ##class(TECH.ListIterator).%New(Producten)
+			
+			While (ProductIterator.HasNext()) {
+				Set ProductID = ProductIterator.Next()
+				Do ..MaakOfUpdateProductPrijsEnGewicht(ProductID)
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakOfUpdateProductPrijsEnGewicht">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim ProductBestaatReeds As %Boolean
+	#dim Filter, Korttekst, HuidigTijdstip As %String
+	#dim Prijs, Gewicht As %Numeric
+	
+	Set ProductInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.ProductInfo).%New()			
+	Set ProductBestaatReeds = ..BestaatViaFilter(ProductInfo.%ClassName(1), "ProductId = ?", $LB(ProductID))
+	
+	If ProductBestaatReeds {
+		Set Filter = "AankoopPrijs = ?, Gewicht = ?, Korttekst = ?, LaatstAangepast = ?"
+		
+		Set Prijs = ..GeefPrijsVanProduct(ProductID)
+		Set Gewicht = ..GeefGewichtVanProduct(ProductID)
+		Set Korttekst = ..GeefKorttekstVanProduct(ProductID)
+		Set HuidigTijdstip = ..GeefHuidigeTimeStamp()
+		
+		Do ..UpdateProductViaFilter(ProductInfo.%ClassName(1),Filter,$ListBuild(Prijs, Gewicht, Korttekst, HuidigTijdstip, ProductID))
+		
+	} Else {
+		Set ProductInfo = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.dto.ProductInfo).%New()
+		
+		Set ProductInfo.AankoopPrijs 	= ..GeefPrijsVanProduct(ProductID)
+		Set ProductInfo.Gewicht 		= ..GeefGewichtVanProduct(ProductID)
+		Set ProductInfo.ProductId 		= ProductID
+		Set ProductInfo.Korttekst 		= ..GeefKorttekstVanProduct(ProductID)
+		Set ProductInfo.LaatstAangepast = ..GeefHuidigeTimeStamp()
+		
+		Do ProductInfo.Save()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductenVanSelectieKenmerk">
+<FormalSpec>Selectiekenmerk:%String,KlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductPerSelectieKenmerkRepository As DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.ProductPerSelectieKenmerkRepository = ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.Data.impl.ProductPerSelectieKenmerkRepository).%New(,,KlasseNaam)
+	#dim ProductIDsVanSelectieKenmerk As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	#dim Product As TECH.Iterator = ProductPerSelectieKenmerkRepository.GeefProductenVoorSelectiekenmerk()
+	
+	While (Product.HasNext()) {
+		Do ProductIDsVanSelectieKenmerk.Insert($Piece(Product.Next().GemaaktVoorKenmerkenSetID,".",1))	//Voor producten met meerdere opties op zelfde lijn in selectiekenmerken
+	}
+	
+	Quit ProductIDsVanSelectieKenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlasseNaamVanRol">
+<FormalSpec>Rol:%String,Variant:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabClassNameFactory As DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory 
+	#dim KlasseNaam As %String = ""
+	
+	If (Variant = "LBX") { Set HalffabClassNameFactory = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.HalffabClassNameFactory).%New() }
+	ElseIf (Variant = "TAOR") {Set HalffabClassNameFactory = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabClassNameFactory).%New() }
+	ElseIf (Variant = "MAT") {Set HalffabClassNameFactory = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MAT.HalffabClassNameFactory).%New() }
+	ElseIf (Variant = "SST") {Set HalffabClassNameFactory = ##class(DOM.PM.Maatwerk.Calc.HF.impl.SST.HalffabClassNameFactory).%New() }
+	ElseIf (Variant = "MVX") {Set HalffabClassNameFactory = ##class(DOM.PM.Maatwerk.Calc.HF.impl.MVX.HalffabClassNameFactory).%New() }
+	Else { 
+		Set HalffabClassNameFactory = ""
+		If $$$Not(Variant = "PLT") {
+			#dim Logger = ##class(vhLib.Logger).%New("Sync prijs en gewicht naar DotNet").WarningMail("Selectiekenmerk "_Variant_"_SEL_"_Rol_" is correct gesynct.")
+		}		
+	}
+		
+	If ($$$HasLength(HalffabClassNameFactory) && HalffabClassNameFactory.BestaatHalffabKlasseVoor(Rol)) {
+		Set KlasseNaam = HalffabClassNameFactory.GeefHalffabKlasseNaamVoor(Rol)
+	}
+
+	
+	Quit KlasseNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefGewichtVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim DataMProduct As DOM.PM.impl.DataM.DataMProduct = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+	Do DataMProduct.Open(ProductID)
+	
+	Quit DataMProduct.GeefGewichtInGram()
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrijsVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	Quit +($Piece(($$PRIJSGEG^KPRIJS(ProductID,"N")),"\",6))
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekstVanProduct">
+<FormalSpec>ProductID:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DataMProduct As DOM.PM.impl.DataM.DataMProduct = ##class(DOM.PM.impl.DataM.DataMProduct).%New()
+	Do DataMProduct.Open(ProductID)
+	
+	Quit DataMProduct.GeefKorttekst()
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeTimeStamp">
+<Private>1</Private>
+<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="UpdateProductViaFilter">
+<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 ProductId = ?"
+	
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstVanProductIdVanNietSelectieKenmerken">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductIds As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	//LBX
+	Do ProductIds.Insert(1194375) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieSetv000
+	Do ProductIds.Insert(88775) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFTiponSynchronisatieStangv000
+	Do ProductIds.Insert(987705) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFVerpakkingTussenschotv001
+	Do ProductIds.Insert(1268112) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFZijstabiliseringv000
+	Do ProductIds.Insert(906180) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFSchroevenManueleMontagev001
+	Do ProductIds.Insert(1108497) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFPalletKartonvulstukv000
+	Do ProductIds.Insert(1108481) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFPalletKartonUProfielv000
+	Do ProductIds.Insert(69056)
+	Do ProductIds.Insert(1802578) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFBevestigingBodemFrontv000
+	Do ProductIds.Insert(2011340)
+	Do ProductIds.Insert(165716)
+	Do ProductIds.Insert(1125085) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFTransportZekerheidv000
+	Do ProductIds.Insert(1096952) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFTiponBlumotionSynchronisatieAdapterv000
+	Do ProductIds.Insert(906180) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFRugWandHouderSchroefv000
+	Do ProductIds.Insert(113091) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFRugBodemSchroefv000
+	Do ProductIds.Insert(69056) //DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFBevestigingBodemFrontv000
+	
+	//MVX
+	Do ProductIds.Insert(1096952) //TiponBlumotionAdapters
+	Do ProductIds.Insert(665626) //Probox bodemdoos
+	Do ProductIds.Insert(709825) //Probox dekseldoos
+	Do ProductIds.Insert(1604655) //Probox pallet 
+	Do ProductIds.Insert(1646755) //Probox wikkel
+	Do ProductIds.Insert(1646785)
+	Do ProductIds.Insert(1646794)
+	Do ProductIds.Insert(1646798)
+	Do ProductIds.Insert(906180) //RugWandHouderSchroef
+	Do ProductIds.Insert(113091) //RugBodemSchroef
+	Do ProductIds.Insert(69056) //BevestigingBodemFront
+
+	//SST
+	Do ProductIds.Insert(337491) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFVeerdemperv001
+	Do ProductIds.Insert(2442774) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFStelpootv001
+	Do ProductIds.Insert(2442645) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFSokkelschroefv001
+	Do ProductIds.Insert(1447733) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFSetSysteemschroevenv001
+	Do ProductIds.Insert(1346414) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFServodriveUitwerperv001
+	Do ProductIds.Insert(2448288) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFSchroefOpvullijstv001
+	Do ProductIds.Insert(2448500) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFPlaatmateriaalTabletv001
+	Do ProductIds.Insert(372146) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFOpnameRechtsHorDraagprofielv001
+	Do ProductIds.Insert(372134) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFOpnameLinksHorDraagprofielv001
+	Do ProductIds.Insert(621551) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFKabelKoppelstukINSERTAv001
+	Do ProductIds.Insert(372159) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFHorizontaalDraagprofielv001
+	Do ProductIds.Insert(284897) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFElektroKabelv001
+	Do ProductIds.Insert(284896) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFEindkapv001
+	Do ProductIds.Insert(2442795) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFDrevelv001
+	Do ProductIds.Insert(3770) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFBevestigingschroefv001
+	Do ProductIds.Insert(2474039) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFAluminiumLatv001
+	Do ProductIds.Insert(372150) //DOM.PM.Maatwerk.Calc.HF.impl.SST.Builder.HFAdapterUitwerperHorizontaalProfielv001
+
+	//MAT
+	Do ProductIds.Insert(360515) //DOM.PM.Maatwerk.Calc.HF.impl.MAT.HFVerpakkingv001
+	Do ProductIds.Insert(1649081)
+
+	//TAOR
+	Do ProductIds.Insert(1118152) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFZijkantBevestigingVeerv000
+	Do ProductIds.Insert(1096952) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFTiponBlumotionSynchronisatieAdapterv000
+	Do ProductIds.Insert(681563) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFRugWandHouderSchroefv000
+	Do ProductIds.Insert(1168369) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFKoppelingSchroefv000
+	Do ProductIds.Insert(1668235) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFHulsInsteekpenGeleiderv000
+	Do ProductIds.Insert(1447733) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFGeleiderBevestigingSchroevenv000
+	Do ProductIds.Insert(1071984) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFFrontBevestigingSchroefv000
+	Do ProductIds.Insert(1168369) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFDiepteVerstellingSchroefv000
+	Do ProductIds.Insert(1168369) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Generated.HFBodemOndersteuningSchroefv000
+	Do ProductIds.Insert(2498448) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001PalletInzetstuk
+	Do ProductIds.Insert(2206969) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001FlatpackV1Hoekprofiel
+	Do ProductIds.Insert(1234456) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdHorizontaalTussenschot
+	Do ProductIds.Insert(1234485)
+	Do ProductIds.Insert(1234463)
+	Do ProductIds.Insert(1230395)
+	Do ProductIds.Insert(1108497) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFPalletKartonvulstukv000
+	Do ProductIds.Insert(10479) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFLijmv001
+	Do ProductIds.Insert(10479) //DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFEtiketv001
+
+	
+	Quit ProductIds
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r62600 -r62722
--- vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62600)
+++ vhCARETAKER.mac.rou	(.../vhCARETAKER.mac.rou)	(revision 62722)
@@ -1234,7 +1234,7 @@
 SyncGewichtenEnPrijzen ; Sync gewichten en prijzen per product naar DotNet databank
 	Try {
 		Do InitRuntimeContext
-		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.GewichtEnPrijs).%New().SyncProductenGewichtEnPrijs()
+		Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.ProductInfo).%New().SyncProductenGewichtEnPrijs()
 	} Catch {
 		Do OnError
 	}