Index: vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml
===================================================================
diff -u -r40742 -r40746
--- vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml	(.../Test.cls.xml)	(revision 40742)
+++ vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml	(.../Test.cls.xml)	(revision 40746)
@@ -15,18 +15,35 @@
 	
 	#Dim Response as WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse
 	
-	Set Response = Convertor.ConverteerNaarRegisterContainerResponse(VerzendData,0,"" )
+	Set Response = Convertor.ConverteerNaarRegisterContainerResponse(VerzendData,0,"")
 	Do ..AssertResponse(Response)
+	Do ..AssertZonderFout(Response)
 ]]></Implementation>
 </Method>
 
+<Method name="Test Convert VerzendData met fout en reden">
+<Implementation><![CDATA[
+	Set DateTimeApi = ##class(vhTest.Mock.TECH.DateTime.DateTimeAPI).%New()
+	Do DateTimeApi.IndienMethodCall("CurrentHorolog").DanReturn("64372,36477")
+	
+	#Dim VerzendData as APPS.TRANSP.GLS.data.VerzendData
+	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.data.VerzendData).GeefVerzendData()
+	
+	Set Convertor = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor).%New(,DateTimeApi)
+	
+	#Dim Response as WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse
+	
+	Set Response = Convertor.ConverteerNaarRegisterContainerResponse(VerzendData,1,"reden van fout")
+	Do ..AssertResponse(Response)
+	Do ..AssertMetFout(Response)
+]]></Implementation>
+</Method>
+
 <Method name="AssertResponse">
 <FormalSpec>Response:WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</FormalSpec>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Response.GLSParcelNumber,"123456789012")
 	Do $$$AssertEquals(Response.GLSUnitNumber ,"123456789012")
-	Do $$$AssertEquals(Response.IsGelukt ,1)
-	Do $$$AssertEquals(Response.Melding ,"")
 	
 	Do $$$AssertEquals(Response.RequestDate ,"30032017")
 	Do $$$AssertEquals(Response.RequestTime ,"10:07")
@@ -37,6 +54,22 @@
 	Do $$$AssertEquals(Response.VerzendWijze ,"Parcel")
 ]]></Implementation>
 </Method>
+
+<Method name="AssertZonderFout">
+<FormalSpec>Response:WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</FormalSpec>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Response.IsGelukt ,1)
+	Do $$$AssertEquals(Response.Melding ,"")
+]]></Implementation>
+</Method>
+
+<Method name="AssertMetFout">
+<FormalSpec>Response:WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</FormalSpec>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Response.IsGelukt ,0)
+	Do $$$AssertEquals(Response.Melding ,"reden van fout")
+]]></Implementation>
+</Method>
 </Class>