Index: WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoadRequestConvertor.cls.xml
===================================================================
diff -u
--- WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoadRequestConvertor.cls.xml	(revision 0)
+++ WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoadRequestConvertor.cls.xml	(revision 41362)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.Transport.GLS.v01.RegistrationService.ConfirmLoadRequestConvertor">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerzendDataRepository">
+<Type>APPS.TRANSP.GLS.GLSv1.impl.VerzendDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerzendDataRepository:APPS.TRANSP.GLS.GLSv1.impl.VerzendDataRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerzendDataRepository = $$$Inject(VerzendDataRepository,##class(APPS.TRANSP.GLS.GLSv1.impl.VerzendDataRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNaarVerzendDataList">
+<FormalSpec>ConfirmLoadRequest:WS.AX.Transport.GLS.v01.dto.ConfirmLoadRequest</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set ResultList = ##class(%ListOfObjects).%New()
+	Set itContainers = ##class(TECH.ListIterator).%New(ConfirmLoadRequest.Containers)
+	while itContainers.HasNext(){
+		#Dim Container as WS.AX.Transport.GLS.v01.dto.LoadContainer
+		set Container = itContainers.Next()
+		if ..VerzendDataRepository.BestaatViaUnitID(Container.GLSUnitNumber){
+			#Dim VerzendData as APPS.TRANSP.GLS.GLSv1.data.VerzendData
+			Set VerzendData = ..VerzendDataRepository.GeefViaUnitID(Container.GLSUnitNumber)
+			if (VerzendData.LaatsteRequestType = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Registratie()){ 
+				If (VerzendData.Status = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.Status).Finished()) {
+					Do ResultList.Insert(VerzendData)
+				} else {
+					Do ##class(TECH.ExceptionHandler).Throw(##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.GLSUnitException).%New("Het doorsturen van het registreer bericht voor GLSUnit '"_Container.GLSUnitNumber_"' is niet goed verstuurd."))
+				}
+			} else {
+				Do ##class(TECH.ExceptionHandler).Throw(##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.GLSUnitException).%New("Het laatste bericht voor GLSUnit '"_Container.GLSUnitNumber_"' was geen registratie"))
+			}
+		} else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.GLSUnitException).%New("Het registreer bericht voor GLSUnit '"_Container.GLSUnitNumber_"' bestaat niet"))			
+		}
+	}
+	Quit ResultList
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoadRequestConvertor/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoadRequestConvertor/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoadRequestConvertor/Test.cls.xml	(revision 41362)
@@ -0,0 +1,84 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.Transport.GLS.v01.RegistrationService.ConfirmLoadRequestConvertor.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="VerzendDataRepositoryMock">
+<Type>vhTest.Mock.APPS.TRANSP.GLS.GLSv1.impl.VerzendDataRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfirmLoadRequestConvertor">
+<Type>WSimpl.AX.Transport.GLS.v01.RegistrationService.ConfirmLoadRequestConvertor</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..VerzendDataRepositoryMock = ##class(vhTest.Mock.APPS.TRANSP.GLS.GLSv1.impl.VerzendDataRepository).%New()	
+	set ..ConfirmLoadRequestConvertor = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.ConfirmLoadRequestConvertor).%New(..VerzendDataRepositoryMock)
+]]></Implementation>
+</Method>
+
+<Method name="Test alleen gelukte registered containers">
+<Implementation><![CDATA[
+	
+	#Dim ConfirmLoadRequest as WS.AX.Transport.GLS.v01.dto.ConfirmLoadRequest = ..GeefConfirmLoadRequest(3)
+	#Dim VerzenddataList as List of APPS.TRANSP.GLS.GLSv1.data.VerzendData
+	
+	Do ..VerzendDataRepositoryMock.VerwachtMethodCall("BestaatViaUnitID","GLSUnitID1").DanReturn($$$True)
+	Do ..VerzendDataRepositoryMock.VerwachtMethodCall("GeefViaUnitID","GLSUnitID1").DanReturn(##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendDataRegistratieParcel())
+
+	Do ..VerzendDataRepositoryMock.VerwachtMethodCall("BestaatViaUnitID","GLSUnitID2").DanReturn($$$True)
+	Do ..VerzendDataRepositoryMock.VerwachtMethodCall("GeefViaUnitID","GLSUnitID2").DanReturn(##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendDataRegistratieParcel())
+
+	Do ..VerzendDataRepositoryMock.VerwachtMethodCall("BestaatViaUnitID","GLSUnitID3").DanReturn($$$True)
+	Do ..VerzendDataRepositoryMock.VerwachtMethodCall("GeefViaUnitID","GLSUnitID3").DanReturn(##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendDataRegistratieParcel())
+
+	Set VerzenddataList = ..ConfirmLoadRequestConvertor.ConverteerNaarVerzendDataList(ConfirmLoadRequest)
+	
+	Do $$$AssertEquals(VerzenddataList.Count(),3)
+	Do ..VerzendDataRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test met 1 mislukte registered containers">
+</Method>
+
+<Method name="Test met niet gevonden GLSUnitID">
+</Method>
+
+<Method name="GeefConfirmLoadRequest">
+<FormalSpec>AantalContainers:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.ConfirmLoadRequest</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Request = ##class(WS.AX.Transport.GLS.v01.dto.ConfirmLoadRequest).%New()
+	#Dim i as %Integer
+	for i=1:1:AantalContainers{
+		Do Request.Containers.Insert(..GeefContainer("GLSUnitID"_i,##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli(),(i=AantalContainers)))
+	}
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="GeefContainer">
+<FormalSpec>GLSUnitId:%String,ContainerType:DOM.TRANSP.enu.VerpakkingEenheidType,IsLaatste:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.LoadContainer</ReturnType>
+<Implementation><![CDATA[
+	Set Container = ##class(WS.AX.Transport.GLS.v01.dto.LoadContainer).%New()
+	Set Container.ContainerType = ContainerType
+	Set Container.GLSUnitNumber = GLSUnitId
+	Set Container.IsLaatste = IsLaatste
+	Quit Container
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>