Index: vhTest/Utils/APPS/TRANSP/GLS/GLSv1/data/VerzendData.cls.xml
===================================================================
diff -u -r40892 -r41088
--- vhTest/Utils/APPS/TRANSP/GLS/GLSv1/data/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 40892)
+++ vhTest/Utils/APPS/TRANSP/GLS/GLSv1/data/VerzendData.cls.xml	(.../VerzendData.cls.xml)	(revision 41088)
@@ -3,7 +3,7 @@
 <Class name="vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="GeefVerzendData">
+<Method name="GeefVerzendDataRegistratieParcel">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set VerzendData = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).%New()
@@ -18,6 +18,38 @@
 	Quit VerzendData
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerzendDataAnnulatieParcel">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set VerzendData = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).%New()
+	Set VerzendData.LaatsteRequestType= "Annulatie"
+	Set VerzendData.Referentie = ""
+	Set VerzendData.Response = ""
+	Set VerzendData.Status = "Finished"
+	Set VerzendData.TijdstipLaatsteWijziging = "2017-03-28 15:50:50.0"
+	Set VerzendData.TrackAndTraceID = ""
+	Set VerzendData.UnitID = "123456789012"
+	Set VerzendData.VerzendWijze = "Parcel"
+	Quit VerzendData
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerzendDataRegistratieParcelFailed">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set VerzendData = ##class(APPS.TRANSP.GLS.GLSv1.data.VerzendData).%New()
+	Set VerzendData.LaatsteRequestType= "Registratie"
+	Set VerzendData.Referentie = "12345X123456P"
+	Set VerzendData.Response = ""
+	Set VerzendData.Status = "Failed"
+	Set VerzendData.TijdstipLaatsteWijziging = "2017-03-28 15:50:50.0"
+	Set VerzendData.TrackAndTraceID = ""
+	Set VerzendData.UnitID = "123456789012"
+	Set VerzendData.VerzendWijze = "Parcel"
+	Quit VerzendData
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer/Test.cls.xml
===================================================================
diff -u -r40928 -r41088
--- vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer/Test.cls.xml	(.../Test.cls.xml)	(revision 40928)
+++ vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer/Test.cls.xml	(.../Test.cls.xml)	(revision 41088)
@@ -15,7 +15,7 @@
 	Do RegisterContainerRequestConvertorMock.VerwachtMethodCall("ConverteerNaarLeveringInfo", ..Matches.DataTransferObject(Request)).DanReturn(LeveringInfo)
 	
 	#Dim VerzendData as APPS.TRANSP.GLS.GLSv1.data.VerzendData
-	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendData()
+	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendDataRegistratieParcel()
  
  	Set BerichtVerzenderMock = ##class(vhTest.Mock.WSimpl.AX.Transport.GLS.v01.RegistrationService.RegistreerBerichtVerzender).%New()
 	Do BerichtVerzenderMock.VerwachtMethodCall("VoerUit",LeveringInfo).DanReturn(VerzendData)
@@ -27,10 +27,10 @@
 	Do EtiketPrinterMock.VerwachtMethodCall("PrintEtiket",VerzendData.Response,"computernaam","labelprinterid").DanDoeNiks()
 	 
 	Set ResponseControleur = ##class(vhTest.Mock.APPS.TRANSP.GLS.GLSv1.impl.ResponseControleur).%New()
-	Do ResponseControleur.VerwachtMethodCall("ResponseBevatFout",VerzendData.Response).DanReturn(0)
+	Do ResponseControleur.VerwachtMethodCall("ResponseBevatFout",VerzendData.Response).DanReturn($$$false)
  
 	Set VerzendDataConvertorMock = ##class(vhTest.Mock.WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor).%New()
-	Do VerzendDataConvertorMock.VerwachtMethodCall("ConverteerNaarRegisterContainerResponse",VerzendData,0,"").DanReturn(Response) 
+	Do VerzendDataConvertorMock.VerwachtMethodCall("ConverteerNaarRegisterContainerResponse",VerzendData,$$$False,"").DanReturn(Response) 
 	 
 	Set RegisterContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainer).%New(RegisterContainerRequestConvertorMock,BerichtVerzenderMock,VerzendDataConvertorMock,EtiketPrinterMock,,ResponseControleur)
 	Do RegisterContainer.RegisterContainer(Request)
@@ -55,7 +55,7 @@
 	Do RegisterContainerRequestConvertorMock.VerwachtMethodCall("ConverteerNaarLeveringInfo", ..Matches.DataTransferObject(Request)).DanReturn(LeveringInfo)
 	
 	#Dim VerzendData as APPS.TRANSP.GLS.GLSv1.data.VerzendData
-	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendData()
+	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendDataRegistratieParcelFailed()
  
  	Set BerichtVerzenderMock = ##class(vhTest.Mock.WSimpl.AX.Transport.GLS.v01.RegistrationService.RegistreerBerichtVerzender).%New()
 	Do BerichtVerzenderMock.VerwachtMethodCall("VoerUit",LeveringInfo).DanReturn(VerzendData)
@@ -66,11 +66,11 @@
 	Set EtiketPrinterMock = ##class(vhTest.Mock.APPS.TRANSP.GLS.GLSv1.impl.EtiketPrinter).%New()
 	 
 	Set ResponseControleur = ##class(vhTest.Mock.APPS.TRANSP.GLS.GLSv1.impl.ResponseControleur).%New()
-	Do ResponseControleur.VerwachtMethodCall("ResponseBevatFout",VerzendData.Response).DanReturn(1)
+	Do ResponseControleur.VerwachtMethodCall("ResponseBevatFout",VerzendData.Response).DanReturn($$$True)
 	Do ResponseControleur.VerwachtMethodCall("GeefFoutInResponse",VerzendData.Response).DanReturn("GLS foutmelding")
  
 	Set VerzendDataConvertorMock = ##class(vhTest.Mock.WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor).%New()
-	Do VerzendDataConvertorMock.VerwachtMethodCall("ConverteerNaarRegisterContainerResponse",VerzendData,1,"GLS foutmelding").DanReturn(Response) 
+	Do VerzendDataConvertorMock.VerwachtMethodCall("ConverteerNaarRegisterContainerResponse",VerzendData,$$$True,"GLS foutmelding").DanReturn(Response) 
 	 
 	Set RegisterContainer = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainer).%New(RegisterContainerRequestConvertorMock,BerichtVerzenderMock,VerzendDataConvertorMock,EtiketPrinterMock,,ResponseControleur)
 	Do RegisterContainer.RegisterContainer(Request)
Index: vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml
===================================================================
diff -u -r40892 -r41088
--- vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml	(.../Test.cls.xml)	(revision 40892)
+++ vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml	(.../Test.cls.xml)	(revision 41088)
@@ -9,7 +9,7 @@
 	Do DateTimeApi.IndienMethodCall("CurrentHorolog").DanReturn("64372,36477")
 	
 	#Dim VerzendData as APPS.TRANSP.GLS.GLSv1.data.VerzendData
-	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendData()
+	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendDataRegistratieParcel()
 	
 	Set Convertor = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor).%New(,DateTimeApi)
 	
@@ -27,7 +27,7 @@
 	Do DateTimeApi.IndienMethodCall("CurrentHorolog").DanReturn("64372,36477")
 	
 	#Dim VerzendData as APPS.TRANSP.GLS.GLSv1.data.VerzendData
-	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendData()
+	Set VerzendData = ##class(vhTest.Utils.APPS.TRANSP.GLS.GLSv1.data.VerzendData).GeefVerzendDataRegistratieParcel()
 	
 	Set Convertor = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor).%New(,DateTimeApi)
 	
@@ -41,6 +41,7 @@
 
 <Method name="AssertResponse">
 <FormalSpec>Response:WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Response.GLSParcelNumber,"123456789012")
 	Do $$$AssertEquals(Response.GLSUnitNumber ,"123456789012")
@@ -57,6 +58,7 @@
 
 <Method name="AssertZonderFout">
 <FormalSpec>Response:WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Response.IsGelukt ,1)
 	Do $$$AssertEquals(Response.Melding ,"")
@@ -65,6 +67,7 @@
 
 <Method name="AssertMetFout">
 <FormalSpec>Response:WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do $$$AssertEquals(Response.IsGelukt ,0)
 	Do $$$AssertEquals(Response.Melding ,"reden van fout")