Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r73777 -r74474
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 73777)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 74474)
@@ -44,6 +44,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="StackingServiceRequestBuilder">
+<Type>APPS.Verpakking.StackingService.RequestBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Index name="idxBatchID">
 <Properties>BatchID</Properties>
 </Index>
@@ -59,11 +69,105 @@
 	Set ..SequentieItems = ##class(%ListOfObjects).%New()
 	Set ..Categorie = Batch.GeefCategorie()
 	Set ..DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	Set ..StackingServiceRequestBuilder = ##class(APPS.Verpakking.StackingService.RequestBuilder).%New()
+	Set ..Logger = ##class(vhLib.Logger).%New("StackingService .NET")
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefParsedStackingResponse">
+<FormalSpec>StackingServiceRequest:APPS.Verpakking.dto.StackingSerivce.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.dto.StackingSerivce.Response</ReturnType>
+<Implementation><![CDATA[
+	#dim HttpRequest As %Net.HttpRequest = ..MaakStackingServiceHttpRequest(StackingServiceRequest)
+	#dim StatusCode As %Status = HttpRequest.Post("/Stacking/GetProboxSequence",0)
+	Do ..ValideerResponse(StatusCode, HttpRequest)
+	
+	Set Response = HttpRequest.HttpResponse.Data
+	Do ..Logger.Debug("StackingService response", Response)
+	#dim StackingResponse As APPS.Verpakking.dto.StackingSerivce.Response = ..ParseJsonStreamNaarObject(Response, ##class(APPS.Verpakking.dto.StackingSerivce.Response).%ClassName(1))
+	
+	Quit StackingResponse
+]]></Implementation>
+</Method>
+
+<Method name="MaakStackingServiceHttpRequest">
+<FormalSpec>StackingServiceRequest:APPS.Verpakking.dto.StackingSerivce.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Net.HttpRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim RequestString As %String = ..ObjectToJson(StackingServiceRequest)
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+	
+	Do JSONStream.Write(RequestString)
+	
+	Do ..Logger.Debug("StackingService request", JSONStream)
+	
+	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	Set HttpRequest.Server = "stackingservice-tst.vanhoecke.be"
+ 	Set HttpRequest.ContentType = "application/json"
+ 	Set HttpRequest.ContentEncoding = "UTF-8"
+ 	Set HttpRequest.SSLConfiguration = "DotNet_MaatwerkCalculator"
+	Set HttpRequest.Https = 1
+	Set HttpRequest.Timeout = 240
+	Do HttpRequest.EntityBody.CopyFrom(JSONStream)
+	
+	Quit HttpRequest
+]]></Implementation>
+</Method>
+
+<Method name="ObjectToJson">
+<FormalSpec>StackingServiceRequest:APPS.Verpakking.dto.StackingSerivce.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OutputJsonString As %String
+	
+	#dim ParseStatus As %Status = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSONZonderKlasseNaam(StackingServiceRequest,,,.OutputJsonString)
+	
+	Quit OutputJsonString
+]]></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()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JsonStream, RootObjectClassname, .Object)
+	
+	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>
+
+<Method name="ValideerResponse">
+<FormalSpec>Status:%Status,HttpRequest:%Net.HttpRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Fout bij opvragen optimalisatie stapeling via stackingservice HttpRequest to "_HttpRequest.Server_" failed.")
+	
+	If ($IsObject(HttpRequest.HttpResponse)) {
+		If $$$Not(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 optimalisatie stapeling via stackingservice: 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 optimalisatie stapeling via stackingservice: HttpResponse is onverwacht leeg. HttpRequest to "_HttpRequest.Server_" failed.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakLegeClone">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BronSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
@@ -246,6 +350,13 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// LBX en MVX en tbx! Alle types gebruiken enkel nog deze
+
+]]></Content>
+</UDLText>
+
 <Method name="MaakVHossSequentieBlackBox">
 <FormalSpec>ToeleveringIDs:%ListOfDataTypes</FormalSpec>
 <Private>1</Private>
@@ -378,6 +489,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulAanSorteringVoorProductieSequentieItemsViaVolumetrie">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,ProductLijnIterator:TECH.Iterator,Toelevering:DOM.AKP.Toelevering]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	While (ProductLijnIterator.HasNext()) {
+		#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		Set ProductieSequentieItems = ##class(TECH.ListUtils).ConcatenateLists(ProductieSequentieItems,..MaakProductieSequentieItems(Toelevering, ProductToeleveringLijn))
+	}
+	Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductieSequentieItems)
+	#dim StackingRequest As APPS.Verpakking.dto.StackingSerivce.Request = ..StackingServiceRequestBuilder.MaakRequest(ProductLijnIterator)
+	#dim StackingResponse As APPS.Verpakking.dto.StackingSerivce.Response = ..GeefParsedStackingResponse(StackingRequest)
+	
+	#dim ProductieSequentieItemsIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductieSequentieItems)
+	#dim SequenceDataIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(StackingResponse.BoxSequence)
+	#dim MatchGevonden As %Boolean = $$$False
+	
+	While ProductieSequentieItemsIterator.HasNext() {
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemsIterator.Next()
+		
+		While SequenceDataIterator.HasNext() && $$$Not(MatchGevonden)
+		{
+			#dim SequenceData As APPS.Verpakking.dto.StackingSerivce.Response.SequenceData = SequenceDataIterator.Next()
+			
+			If (..StackingServiceRequestBuilder.GeefBoxId(ProductieSequentieItem) = SequenceData.Id) {
+				Set MatchGevonden = $$$True
+				Set Sortering(SequenceData.ProductionSequence) = ProductieSequentieItem
+				Set ProductieSequentieItem.StapelAfbeelding = SequenceData.StackingImage
+			}
+		}
+		Do SequenceDataIterator.Reset()
+		Set MatchGevonden = $$$False
+	}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Halux8081.ProductieSeqFA5D</DataLocation>
@@ -404,6 +551,12 @@
 <Value name="6">
 <Value>DnaCodeService</Value>
 </Value>
+<Value name="7">
+<Value>StackingServiceRequestBuilder</Value>
+</Value>
+<Value name="8">
+<Value>Logger</Value>
+</Value>
 </Data>
 </Storage>
 </Class>