Index: WSimpl/PM/Maatwerk/MaatwerkService/Encoway.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/MaatwerkService/Encoway.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/MaatwerkService/Encoway.cls.xml	(revision 72745)
@@ -0,0 +1,178 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.MaatwerkService.Encoway">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New("BOMBOL Encoway")
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkDetails">
+<FormalSpec>CID:TECH.String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim VhConfig As APPS.PM.Maatwerk.dto.VhConfig = ""
+	#dim BomBol As %Stream.GlobalBinary
+	
+	Try {
+		#dim GeefMaatwerkDetailsRequest As WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsRequest = ..GeefMaatwerkDetailsRequest(CID)
+		#dim GeefMaatwerkDetailsJson As %String = ..ObjectToJson(GeefMaatwerkDetailsRequest)
+		#dim JsonStream = ##class(%Stream.GlobalBinary).%New()
+		
+		Do JsonStream.Write(GeefMaatwerkDetailsJson)
+		
+		Do ..Logger.Info("BOMBOL Encoway request JsonStream", JsonStream)
+		
+		#dim HttpRequest As %Net.HttpRequest = ..GeefEncowayHttpRequest()	
+		Do HttpRequest.EntityBody.CopyFrom(JsonStream)
+		
+		#dim StatusCode As %Status = HttpRequest.Get(..GeefEndpointOphalenVhConfig(CID),0)
+		Do ..ValidateResponse(StatusCode, HttpRequest)
+		
+		Set BomBol = HttpRequest.HttpResponse.Data
+		Do ..Logger.Info("BOMBOL Encoway response JsonStream", BomBol)
+		
+		Set VhConfig = ..ParseJsonStreamNaarVhConfig(BomBol)
+		
+		Do ..Logger.Info("BOMBOL Encoway VHConfig", $$ObjToText^vhLib(VhConfig))
+	} Catch {
+		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		If $IsObject($G(HttpRequest)) {
+			Do Exceptie.VoegToeExtraInfo("HttpRequest : "_$$$CRLF_ $$ObjToText^vhLib(HttpRequest))
+			If $IsObject(HttpRequest.HttpResponse) {
+				Do Exceptie.VoegToeExtraInfo("HttpResponse : "_$$$CRLF_ $$ObjToText^vhLib(HttpRequest.HttpResponse))
+				Do ..Logger.Error("BOMBOL via Encoway niet gelukt; HttpResponse Statuscode: "_HttpRequest.HttpResponse.StatusCode, Exceptie.ToStream())
+			}
+			Else {
+				Do ..Logger.Error("BOMBOL via Encoway niet gelukt; Geen HttpResponse object!", Exceptie.ToStream())
+			}
+		}
+		Else {
+			Do ..Logger.Error("BOMBOL via Encoway niet gelukt.", Exceptie.ToStream())
+		}
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+	
+	Quit VhConfig
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkDetailsRequest">
+<FormalSpec>CID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsRequest</ReturnType>
+<Implementation><![CDATA[
+	Set GeefMaatwerkDetailsRequest = ##class(WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsRequest).%New()
+	Set GeefMaatwerkDetailsRequest.CID = ##class(TECH.StringUtils).ToLower(CID)
+	Set GeefMaatwerkDetailsRequest.salesContext = ##class(WSimpl.PM.Maatwerk.MaatwerkService.Encoway.Dto.SalesContext).%New()
+	
+	Quit GeefMaatwerkDetailsRequest
+]]></Implementation>
+</Method>
+
+<Method name="ObjectToJson">
+<FormalSpec>GeefProductRestRequest:WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsRequest</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OutputJsonString As %String	
+	#dim ParseStatus As %Status = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSON(GeefProductRestRequest,,,.OutputJsonString)
+	
+	Quit OutputJsonString
+]]></Implementation>
+</Method>
+
+<Method name="GeefEncowayHttpRequest">
+<Private>1</Private>
+<ReturnType>%Net.HttpRequest</ReturnType>
+<Implementation><![CDATA[
+	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	Set HttpRequest.Server = ..GeefEncowayServerNaam()
+ 	Set HttpRequest.ContentType = "application/json"
+ 	Set HttpRequest.Port = 1880
+	Set HttpRequest.Https = 0
+	Set HttpRequest.Timeout = 120
+    	
+	Quit HttpRequest
+]]></Implementation>
+</Method>
+
+<Method name="GeefEncowayServerNaam">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "docker01-acp"
+]]></Implementation>
+</Method>
+
+<Method name="GeefEndpointOphalenVhConfig">
+<FormalSpec>CID:TECH.String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "/VH-ConfiguratorService/VhConfig?CID=" _ CID
+]]></Implementation>
+</Method>
+
+<Method name="ValidateResponse">
+<FormalSpec>Status:%Status,HttpRequest:%Net.HttpRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Fout bij opvragen van de BOMBOL via Encoway HttpRequest to "_HttpRequest.Server_" failed.")
+	
+	If ($IsObject(HttpRequest.HttpResponse)) {
+		If (HttpRequest.HttpResponse.StatusCode '= 200) {
+			#dim ErrorInfo as %String = HttpRequest.HttpResponse.Data.Read(HttpRequest.HttpResponse.Data.Size)
+			Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("Fout bij opvragen van de BOMBOL via Encoway: HttpRequest to "_HttpRequest.Server_" failed. " _ $$$CRLF _ HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}
+	Else {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout bij opvragen van de BOMBOL via Encoway: HttpResponse is onverwacht leeg. HttpRequest to "_HttpRequest.Server_" failed.")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ParseJsonStreamNaarVhConfig">
+<FormalSpec>JsonStream:%Stream</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.VhConfig</ReturnType>
+<Implementation><![CDATA[
+	
+	#dim VhConfigParsedFromJson As APPS.PM.Maatwerk.dto.VhConfig = ..ParseJsonStreamNaarObject(JsonStream, ##class(APPS.PM.Maatwerk.dto.VhConfig).%ClassName(1))
+	
+	Quit VhConfigParsedFromJson
+]]></Implementation>
+</Method>
+
+<Method name="ParseJsonStreamNaarObject">
+<FormalSpec>JsonStream:%Stream,RootObjectClassname:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	#dim Object As TECH.RegisteredObject = ""
+	
+	Do JsonStream.Rewind()
+		
+	If $$$Not($IsObject(Object)) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("De method ParseJsonStreamNaarObject() heeft geen object opgeleverd voor klasse '"_RootObjectClassname_"' (JsonStream.length = '"_JsonStream.Size_"').")
+	}
+	
+	Quit Object
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/MaatwerkService/Encoway/GeefMaatwerkDetailsRequest.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/MaatwerkService/Encoway/GeefMaatwerkDetailsRequest.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/MaatwerkService/Encoway/GeefMaatwerkDetailsRequest.cls.xml	(revision 72745)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.MaatwerkService.Encoway.GeefMaatwerkDetailsRequest">
+<Super>TECH.JSON.RegisteredObject</Super>
+
+<Property name="CID">
+<Type>%String</Type>
+</Property>
+
+<Property name="salesContext">
+<Description>
+Geen UpperCamelCase wegens incompabiliteit Caché</Description>
+<Type>WSimpl.PM.Maatwerk.MaatwerkService.Encoway.Dto.SalesContext</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/MaatwerkService/Encoway/Dto/SalesContext.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/MaatwerkService/Encoway/Dto/SalesContext.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/MaatwerkService/Encoway/Dto/SalesContext.cls.xml	(revision 72745)
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.MaatwerkService.Encoway.Dto.SalesContext">
+<Super>TECH.JSON.RegisteredObject</Super>
+</Class>
+
+
+</Export>