Index: APPS/TRANSP/GLS/GLSv1/data/VerzendDataList.cls.xml
===================================================================
diff -u -r41389 -r41760
--- APPS/TRANSP/GLS/GLSv1/data/VerzendDataList.cls.xml	(.../VerzendDataList.cls.xml)	(revision 41389)
+++ APPS/TRANSP/GLS/GLSv1/data/VerzendDataList.cls.xml	(.../VerzendDataList.cls.xml)	(revision 41760)
@@ -4,7 +4,7 @@
 <Super>%ListOfObjects</Super>
 
 <Parameter name="ELEMENTTYPE">
-<Default>APPS.TRANSP.GLS.dto.VerzendData</Default>
+<Default>APPS.TRANSP.GLS.GLSv1.data.VerzendData</Default>
 </Parameter>
 
 <Storage name="Custom">
Index: WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoad.cls.xml
===================================================================
diff -u -r41389 -r41760
--- WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoad.cls.xml	(.../ConfirmLoad.cls.xml)	(revision 41389)
+++ WSimpl/AX/Transport/GLS/v01/RegistrationService/ConfirmLoad.cls.xml	(.../ConfirmLoad.cls.xml)	(revision 41760)
@@ -30,14 +30,25 @@
 <FormalSpec>ConfirmLoadRequest:WS.AX.Transport.GLS.v01.dto.ConfirmLoadRequest</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.ConfirmLoadResponse</ReturnType>
 <Implementation><![CDATA[
-	#Dim VerzendDataList as APPS.TRANSP.GLS.GLSv1.data.VerzendDataList
-	Set VerzendDataList = ..ConfirmLoadRequestConvertor.ConverteerNaarVerzendDataList(ConfirmLoadRequest)
-	
-	Do ..ConfirmBerichtVerzender.VoerUit(VerzendDataList)
+	Set Response = ##class(WS.AX.Transport.GLS.v01.dto.ConfirmLoadResponse).%New()	
 
-	Set Result = ##class(WS.AX.Transport.GLS.v01.dto.ConfirmLoadResponse).%New()	
-	Set Result.IsGelukt = $$$True
-	Quit Result
+	Try {
+		#Dim VerzendDataList as APPS.TRANSP.GLS.GLSv1.data.VerzendDataList
+		Set VerzendDataList = ..ConfirmLoadRequestConvertor.ConverteerNaarVerzendDataList(ConfirmLoadRequest)
+		Do ..ConfirmBerichtVerzender.VoerUit(VerzendDataList)
+
+		Set Response.IsGelukt = $$$True
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		If Exception.%Classname(1) = ##class(APPS.TRANSP.GLS.Exceptions.CommunicatieException).%ClassName(1) {
+			Set Response = ##class(WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse).%New()
+			Set Response.IsGelukt = $$$False
+			Set Response.Melding = Exception.GeefOmschrijving()			
+		} else {
+			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+		}	
+	}
+	Quit Response
 ]]></Implementation>
 </Method>
 </Class>