Index: WSimpl/PM/Maatwerk/MaatwerkService/Encoway.cls.xml
===================================================================
diff -u -r72853 -r72963
--- WSimpl/PM/Maatwerk/MaatwerkService/Encoway.cls.xml	(.../Encoway.cls.xml)	(revision 72853)
+++ WSimpl/PM/Maatwerk/MaatwerkService/Encoway.cls.xml	(.../Encoway.cls.xml)	(revision 72963)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WSimpl.PM.Maatwerk.MaatwerkService.Encoway">
-<Super>TECH.RegisteredObject</Super>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
 
 <Property name="EncowayJsonConverter">
 <Type>WSimpl.PM.Maatwerk.MaatwerkService.Encoway.EncowayJsonConverter</Type>
@@ -13,51 +13,107 @@
 <Private>1</Private>
 </Property>
 
+<Property name="VhConfigRepository">
+<Type>APPS.PM.Maatwerk.impl.VhConfigRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Model">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Kenmerken">
+<Type>%ArrayOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>EncowayJsonConverter:WSimpl.PM.Maatwerk.MaatwerkService.Encoway.EncowayJsonConverter="",EncowayHttpClient:WSimpl.PM.Maatwerk.MaatwerkService.EncowayHttpClient=""</FormalSpec>
+<FormalSpec>EncowayJsonConverter:WSimpl.PM.Maatwerk.MaatwerkService.Encoway.EncowayJsonConverter="",EncowayHttpClient:WSimpl.PM.Maatwerk.MaatwerkService.EncowayHttpClient="",VhConfigRepository:APPS.PM.Maatwerk.impl.VhConfigRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..EncowayJsonConverter = $$$Inject(EncowayJsonConverter, ##class(WSimpl.PM.Maatwerk.MaatwerkService.Encoway.EncowayJsonConverter).%New())
 	Set ..EncowayHttpClient = $$$Inject(EncowayHttpClient, ##class(WSimpl.PM.Maatwerk.MaatwerkService.EncowayHttpClient).%New())
+	Set ..VhConfigRepository = $$$Inject(VhConfigRepository, ##class(APPS.PM.Maatwerk.impl.VhConfigRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMaatwerkDetails">
-<FormalSpec>CID:TECH.String</FormalSpec>
+<FormalSpec>CID:TECH.String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
 <Implementation><![CDATA[
+	#dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig = ""
+	#dim MaatwerkDetailsResponseJsonString As %Stream.GlobalBinary = ""
+	#dim IsTestRunTimeContext As %Boolean = ..IsTestRunTimeContext()
+	
 	If (CID = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ophalen VHConfig is mislukt aangezien de CID leeg is."))
 	}
 	
-	#dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig = ""
+	If (..VhConfigRepository.BestaatVhConfigVoorCID(CID, IsTestRunTimeContext))
+	{
+		Set VhConfig = ..VhConfigRepository.GeefVhConfig(CID, IsTestRunTimeContext)
+	} Else {
+		If $$$Not(IsTestRunTimeContext) {
+			Do ##class(vhLib.Logger).%New("MaatwerkService Encoway").ErrorMail("Geen VhConfig gevonden voor CID "_ CID, "Er is geen VhConfig gevonden voor CID " _ CID _". Er moet manueel opgetreden worden om een VhConfig te verkrijgen voor deze CID en om de oorzaak van het probleem te kennen.")
+		} Else {
+			#dim GeefMaatwerkDetailsRequestJsonStream As %Stream.GlobalBinary = ..EncowayJsonConverter.Stringify(..GeefMaatwerkDetailsRequest(CID, IngegevenKenmerken))
+			Set MaatwerkDetailsResponseJsonString = ..EncowayHttpClient.BerekenVhConfig(GeefMaatwerkDetailsRequestJsonStream)
+			
+			#dim MaatwerkDetailsResponse As WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsResponse = ..EncowayJsonConverter.ParseMaatwerkDetailsResponse(MaatwerkDetailsResponseJsonString)
+			
+			If ((MaatwerkDetailsResponse.isValid) && (MaatwerkDetailsResponse.isCalculated)) {
+				Set VhConfig = MaatwerkDetailsResponse.VhConfig
+				Do ..VhConfigRepository.SaveVhConfig(CID, VhConfig, IsTestRunTimeContext)
+			} Else {
+				do ##class(TECH.ExceptionHandler).Throw("Geen geldige VhConfig verkregen na berekening voor CID '" _ CID _ "'.")
+			}
+		}
+	}
 	
-	#dim GeefMaatwerkDetailsRequestJsonStream As %Stream.GlobalBinary = ..EncowayJsonConverter.Stringify(..GeefMaatwerkDetailsRequest(CID))
-	#dim VhConfigJsonString As %Stream.GlobalBinary = ..EncowayHttpClient.HaalOpVhConfig(GeefMaatwerkDetailsRequestJsonStream)	
-	#dim MaatwerkDetailsResponse As WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsResponse = ..EncowayJsonConverter.Parse(VhConfigJsonString)
-	Set VhConfig = MaatwerkDetailsResponse.VhConfig
-	
 	Quit VhConfig
 ]]></Implementation>
 </Method>
 
+<Method name="IsTestRunTimeContext">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest","IntegratieTest")
+]]></Implementation>
+</Method>
+
 <Method name="GeefMaatwerkDetailsRequest">
-<FormalSpec>CID:%String</FormalSpec>
+<FormalSpec>CID:%String,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsRequest</ReturnType>
 <Implementation><![CDATA[
+	Do IngegevenKenmerken.Accept($this)
+	
 	Set GeefMaatwerkDetailsRequest = ##class(WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsRequest).%New()
 	Set GeefMaatwerkDetailsRequest.CID = ##class(TECH.StringUtils).ToLower(CID)
+	Set GeefMaatwerkDetailsRequest.characteristics = ..Kenmerken
+	Set GeefMaatwerkDetailsRequest.magResultaatPersisteren = "false"
+	Set GeefMaatwerkDetailsRequest.model = ..Model
 	Set GeefMaatwerkDetailsRequest.salesContext = ##class(WSimpl.PM.Maatwerk.MaatwerkService.Encoway.Dto.SalesContext).%New()
 	
 	Quit GeefMaatwerkDetailsRequest
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkLBXKenmerken">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Implementation><![CDATA[
+	Set Converter = ##class(APPS.PM.Maatwerk.impl.VhConfig.Converter.DomNaarEncoway.LbxKenmerken).%New()
+	
+	Set ..Kenmerken = Converter.Converteer(LBXKenmerken)	
+	Set ..Model = "M_LBX"
+]]></Implementation>
+</Method>
 </Class>