Index: WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml
===================================================================
diff -u -r40697 -r40742
--- WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml	(.../VerzendDataConvertor.cls.xml)	(revision 40697)
+++ WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml	(.../VerzendDataConvertor.cls.xml)	(revision 40742)
@@ -3,10 +3,48 @@
 <Class name="WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor">
 <Super>TECH.Mockable</Super>
 
+<Property name="FormatApi">
+<Type>TECH.Format.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DateTimeApi">
+<Type>TECH.DateTime.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FormatApi:TECH.Format.FormatAPI,DateTimeApi:TECH.DateTime.DateTimeAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..FormatApi = $$$Inject(FormatApi,##class(TECH.Context).Instance().GeefFormatAPI())
+	set ..DateTimeApi = $$$Inject(DateTimeApi,##class(TECH.Context).Instance().GeefDateTimeAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerNaarRegisterContainerResponse">
-<FormalSpec>VerzendData:APPS.TRANSP.GLS.data.VerzendData</FormalSpec>
+<FormalSpec>VerzendData:APPS.TRANSP.GLS.data.VerzendData,BevatFout:%Boolean,FoutMelding:%String</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</ReturnType>
-<Implementation><![CDATA[	quit ##class(WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse).%New()
+<Implementation><![CDATA[
+	Set Result = ##class(WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse).%New()
+	Set Result.GLSParcelNumber = VerzendData.UnitID
+	Set Result.GLSUnitNumber = VerzendData.UnitID
+	Set Result.IsGelukt = (BevatFout = $$$False )
+	Set Result.Melding = FoutMelding
+	Set Result.RoutingDate = ..FormatApi.FormatDate(..DateTimeApi.CurrentHorolog(),"ddmmyyyy")
+	Set Result.RequestDate = ..FormatApi.FormatDate(..DateTimeApi.CurrentHorolog(),"ddmmyyyy")
+	Set Result.RequestTime = ..FormatApi.FormatDate(..DateTimeApi.CurrentHorolog(),"hh:nn")	
+	Set Result.ShipmentId = "" 
+	Set Result.ContainerId = "" 
+	Set Result.TrackAndTraceUrlVoorKlant = VerzendData.TrackAndTraceID
+	Set Result.TrackAndTraceUrlVoorVH  = VerzendData.TrackAndTraceID
+	Set Result.VerzendWijze = VerzendData.VerzendWijze
+	
+	Quit Result
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor/Test.cls.xml	(revision 40742)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Convert VerzendData zonder fout">
+<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,0,"" )
+	Do ..AssertResponse(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")
+	Do $$$AssertEquals(Response.RoutingDate ,"30032017")
+	Do $$$AssertEquals(Response.ShipmentId ,"")
+	Do $$$AssertEquals(Response.TrackAndTraceUrlVoorKlant ,"12345678901234")
+	Do $$$AssertEquals(Response.TrackAndTraceUrlVoorVH ,"12345678901234")
+	Do $$$AssertEquals(Response.VerzendWijze ,"Parcel")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml
===================================================================
diff -u -r40697 -r40742
--- vhTest/Fake/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml	(.../VerzendDataConvertor.cls.xml)	(revision 40697)
+++ vhTest/Fake/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml	(.../VerzendDataConvertor.cls.xml)	(revision 40742)
@@ -8,7 +8,7 @@
 <Super>WSimpl.AX.Transport.GLS.v01.RegistrationService.VerzendDataConvertor</Super>
 
 <Method name="ConverteerNaarRegisterContainerResponse">
-<FormalSpec>VerzendData:APPS.TRANSP.GLS.data.VerzendData</FormalSpec>
+<FormalSpec>VerzendData:APPS.TRANSP.GLS.data.VerzendData,BevatFout:%Boolean,FoutMelding:%String</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: vhTest/Mock/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml
===================================================================
diff -u -r40697 -r40742
--- vhTest/Mock/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml	(.../VerzendDataConvertor.cls.xml)	(revision 40697)
+++ vhTest/Mock/WSimpl/AX/Transport/GLS/v01/RegistrationService/VerzendDataConvertor.cls.xml	(.../VerzendDataConvertor.cls.xml)	(revision 40742)
@@ -10,9 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="ConverteerNaarRegisterContainerResponse">
-<FormalSpec>VerzendData:APPS.TRANSP.GLS.data.VerzendData</FormalSpec>
+<FormalSpec>VerzendData:APPS.TRANSP.GLS.data.VerzendData,BevatFout:%Boolean,FoutMelding:%String</FormalSpec>
 <ReturnType>WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConverteerNaarRegisterContainerResponse",VerzendData)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ConverteerNaarRegisterContainerResponse",VerzendData,BevatFout,FoutMelding)
 ]]></Implementation>
 </Method>
 </Class>