Index: vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor/Test.cls.xml	(revision 0)
+++ vhUnitTest/WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor/Test.cls.xml	(revision 40582)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainerRequestConvertor.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test convert Colli">
+<Implementation><![CDATA[
+	#Dim Request as WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest
+	Set Request = ##class(vhTest.Utils.WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest).GeefColliRequest("EenheidID1",5,1,0.5)
+	Set Convertor = ##class(WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainerRequestConvertor).%New()
+	
+	#Dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = Convertor.ConverteerNaarLeveringInfo(Request)
+	
+	Do ..AssertLeveringInfo(Convertor.ConverteerNaarLeveringInfo(Request),##class(vhTest.Utils.APPS.TRANSP.dto.LeveringInfo).GeefLeveringInfoColli())
+]]></Implementation>
+</Method>
+
+<Method name="AssertLeveringInfo">
+<FormalSpec>Resultaat:APPS.TRANSP.dto.LeveringInfo,Verwacht:APPS.TRANSP.dto.LeveringInfo</FormalSpec>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Resultaat.AantalVerpakkingEenhedenReedsVerdeeld,Verwacht.AantalVerpakkingEenhedenReedsVerdeeld)
+	Do $$$AssertEquals(Resultaat.AantalVerpakkingEenhedenTotaal,Verwacht.AantalVerpakkingEenhedenTotaal)
+
+	Do $$$AssertObject(Resultaat.AfzenderAdres,Verwacht.AfzenderAdres)
+
+	Do $$$AssertEquals(Resultaat.BedragRembours,Verwacht.BedragRembours)
+	Do $$$AssertEquals(Resultaat.EmailVoorBevestiging,Verwacht.EmailVoorBevestiging)
+	Do $$$AssertEquals(Resultaat.GeleverdAanKlantNummer,Verwacht.GeleverdAanKlantNummer)
+	Do $$$AssertEquals(Resultaat.Gewicht,Verwacht.Gewicht)
+	Do $$$AssertEquals(Resultaat.GewichtReedsVerdeeld,Verwacht.GewichtReedsVerdeeld)
+	
+	Do $$$AssertObject(Resultaat.LeverAdres,Verwacht.LeverAdres)
+
+	Do $$$AssertEquals(Resultaat.MuntRembours,Verwacht.MuntRembours)
+	Do $$$AssertEquals(Resultaat.OphaalTijdstip,Verwacht.OphaalTijdstip)
+	Do $$$AssertEquals(Resultaat.Referentie,Verwacht.Referentie)
+	Do $$$AssertEquals(Resultaat.Telefoon,Verwacht.Telefoon)
+	
+	Do $$$AssertEquals(Resultaat.VerpakkingEenheden.Count(),1)
+	Do $$$AssertObject(Resultaat.VerpakkingEenheden.GetAt(1),Verwacht.VerpakkingEenheden.GetAt(1))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WS/AX/Transport/GLS/v01/dto/Adres.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/AX/Transport/GLS/v01/dto/Adres.cls.xml	(revision 0)
+++ vhTest/Utils/WS/AX/Transport/GLS/v01/dto/Adres.cls.xml	(revision 40582)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.AX.Transport.GLS.v01.dto.Adres">
+<Super>%RegisteredObject</Super>
+
+<Method name="Belgisch">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.Adres</ReturnType>
+<Implementation><![CDATA[
+	Set Adres = ##class(WS.AX.Transport.GLS.v01.dto.Adres).%New()
+	Set Adres.Aanspreking = "Dhr"
+	Set Adres.Toenaam = "Toenaam"
+	Set Adres.LandCode = "BE"
+	Set Adres.Naam = "Een Belg"
+	Set Adres.Postcode = "9100"
+	Set Adres.Straat = "Ankerstraat 91"
+	Set Adres.Taal = "N"
+	Set Adres.Woonplaats = "Sint-Niklaas"
+	Quit Adres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml
===================================================================
diff -u
--- vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(revision 0)
+++ vhTest/Utils/APPS/TRANSP/dto/LeveringInfo.cls.xml	(revision 40582)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.APPS.TRANSP.dto.LeveringInfo">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefLeveringInfoColli">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
+<Implementation><![CDATA[
+	Set LeveringInfo = ##class(APPS.TRANSP.dto.LeveringInfo).%New()
+	Set LeveringInfo.AantalVerpakkingEenhedenReedsVerdeeld = 0
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = 5
+	Set LeveringInfo.AfzenderAdres = ##class(APPS.common.dto.Adres).%New()
+	Set LeveringInfo.AfzenderAdres.Aanspreking = ""
+	Set LeveringInfo.AfzenderAdres.ID = ""
+	Set LeveringInfo.AfzenderAdres.LandCode = "BE"
+	Set LeveringInfo.AfzenderAdres.Naam = "VAN HOECKE"
+	Set LeveringInfo.AfzenderAdres.Postcode = "9100"
+	Set LeveringInfo.AfzenderAdres.Straat = "EUROPARK NOORD 9"
+	Set LeveringInfo.AfzenderAdres.Taal = ""
+	Set LeveringInfo.AfzenderAdres.Toenaam = "HOECKE"
+	Set LeveringInfo.AfzenderAdres.Woonplaats = "SINT-NIKLAAS"
+	Set LeveringInfo.BedragRembours = 0
+	Set LeveringInfo.EmailVoorBevestiging = "ikke@mail.com"
+	Set LeveringInfo.GeleverdAanKlantNummer = 1000
+	Set LeveringInfo.Gewicht = .5
+	Set LeveringInfo.GewichtReedsVerdeeld = 0
+	Set LeveringInfo.LeverAdres = ##class(APPS.TRANSP.dto.LeveringAdres).%New()
+	Set LeveringInfo.LeverAdres.Aanspreking = "Dhr"
+	Set LeveringInfo.LeverAdres.ID = ""
+	Set LeveringInfo.LeverAdres.LandCode = "BE"
+	Set LeveringInfo.LeverAdres.Naam = "Een Belg"
+	Set LeveringInfo.LeverAdres.Postcode = "9100"
+	Set LeveringInfo.LeverAdres.Straat = "Ankerstraat 91"
+	Set LeveringInfo.LeverAdres.Taal = "N"
+	Set LeveringInfo.LeverAdres.Toenaam = "Toenaam"
+	Set LeveringInfo.LeverAdres.Volmacht = "Volmacht"
+	Set LeveringInfo.LeverAdres.Woonplaats = "Sint-Niklaas"
+	Set LeveringInfo.MuntRembours = ""
+	Set LeveringInfo.OphaalTijdstip = "2017-03-22 15:04:05"
+	Set LeveringInfo.Referentie = "referentie"
+	Set LeveringInfo.Telefoon = "+3221234567"
+	
+	Set VerpakkingEenheid = ##class(APPS.TRANSP.dto.VerpakkingEenheid.Colli).%New()
+	Set VerpakkingEenheid.Aantal = 1
+	Set VerpakkingEenheid.Volgnummer = 1
+
+	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor.cls.xml
===================================================================
diff -u -r40543 -r40582
--- WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor.cls.xml	(.../RegisterContainerRequestConvertor.cls.xml)	(revision 40543)
+++ WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor.cls.xml	(.../RegisterContainerRequestConvertor.cls.xml)	(revision 40582)
@@ -25,7 +25,7 @@
 <ReturnType>APPS.TRANSP.dto.LeveringInfo</ReturnType>
 <Implementation><![CDATA[
 	Set LeveringInfo = ##class(APPS.TRANSP.dto.LeveringInfo).%New()
-	Set LeveringInfo.LeverAdres = $$ConstructClone^vhLib.Class(Request.LeverAdres,"WS.AX.Transport.GLS.v01.dto.LeveringAdres")
+	Set LeveringInfo.LeverAdres = $$ConstructClone^vhLib.Class(Request.LeverAdres,"APPS.TRANSP.dto.LeveringAdres")
 
 	Set AfzenderAdres = ##class(APPS.common.dto.Adres).%New()		
 	Set AfzenderAdres.Naam = "VAN HOECKE"
@@ -34,6 +34,7 @@
 	Set AfzenderAdres.LandCode = "BE"
 	Set AfzenderAdres.Postcode = 9100
 	Set AfzenderAdres.Woonplaats = "SINT-NIKLAAS"
+
 	Set LeveringInfo.AfzenderAdres = AfzenderAdres
 	
 	Set LeveringInfo.GeleverdAanKlantNummer = Request.GeleverdAanKlantNummer
@@ -48,17 +49,18 @@
 	
 	Set LeveringInfo.VerpakkingEenheden = ##class(APPS.TRANSP.dto.VerpakkingEenheid.VerpakkingEenheidLijst).%New()
 	#Dim VerpakkingEenheid as APPS.TRANSP.dto.VerpakkingEenheid 
-	Set VerpakkingEenheid = ..VerpakkingEenheidFactory.MaakVerpakkingEenheid(Request.Container.Type)
+	Set VerpakkingEenheid = ..VerpakkingEenheidFactory.MaakVerpakkingEenheidDto(Request.Container.Type)
 	Set VerpakkingEenheid.Aantal = Request.Container.Aantal
 	Set VerpakkingEenheid.Type = Request.Container.Type
 	Set VerpakkingEenheid.Volgnummer = Request.Container.Volgnummer
 	
-	if Request.Container.Type = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).LangGoed() {
+	if Request.Container.Type = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed() {
 		Set VerpakkingEenheid.Lengte = Request.Container.Lengte
 		Set VerpakkingEenheid.Gewicht = Request.Container.Gewicht
 	}
-	Do LeveringInfo.VerpakkingEenheden.insert(VerpakkingEenheid)
 	
+	Do LeveringInfo.VerpakkingEenheden.Insert(VerpakkingEenheid)
+	
 	Set LeveringInfo.BedragRembours = Request.BedragRembours
 	Set LeveringInfo.MuntRembours = Request.MuntRembours
 	Set LeveringInfo.EmailVoorBevestiging = Request.EmailVoorBevestiging
Index: vhTest/Utils/WS/AX/Transport/GLS/v01/dto/LeveringAdres.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/AX/Transport/GLS/v01/dto/LeveringAdres.cls.xml	(revision 0)
+++ vhTest/Utils/WS/AX/Transport/GLS/v01/dto/LeveringAdres.cls.xml	(revision 40582)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.AX.Transport.GLS.v01.dto.LeveringAdres">
+<Super>%RegisteredObject</Super>
+
+<Method name="Belgisch">
+<ClassMethod>1</ClassMethod>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.LeveringAdres</ReturnType>
+<Implementation><![CDATA[
+	Set Adres = ##class(WS.AX.Transport.GLS.v01.dto.LeveringAdres).%New()
+	Set Adres.Aanspreking = "Dhr"
+	Set Adres.Toenaam = "Toenaam"
+	Set Adres.LandCode = "BE"
+	Set Adres.Naam = "Een Belg"
+	Set Adres.Postcode = "9100"
+	Set Adres.Straat = "Ankerstraat 91"
+	Set Adres.Taal = "N"
+	Set Adres.Woonplaats = "Sint-Niklaas"
+	Do Adres.Opmerkingen.Insert("opmerking1")
+	Do Adres.Opmerkingen.Insert("opmerking2")
+	Set Adres.Volmacht = "Volmacht"
+	Quit Adres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/WS/AX/Transport/GLS/v01/dto/RegisterContainerRequest.cls.xml
===================================================================
diff -u
--- vhTest/Utils/WS/AX/Transport/GLS/v01/dto/RegisterContainerRequest.cls.xml	(revision 0)
+++ vhTest/Utils/WS/AX/Transport/GLS/v01/dto/RegisterContainerRequest.cls.xml	(revision 40582)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Utils.WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefColliRequest">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>EenheidID:%String,Totaal:%Integer,Volgnummer:%Integer,Gewicht:%Decimal</FormalSpec>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest</ReturnType>
+<Implementation><![CDATA[
+	#Dim ParcelRequest as WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest
+	Set ParcelRequest = ..GeefRequest()
+	
+	Set ParcelRequest.AantalVerpakkingEenhedenTotaal = Totaal
+	Set ParcelRequest.AantalVerpakkingEenhedenReedsVerdeeld = 0		
+	Set ParcelRequest.BedragRembours = 0
+	Set ParcelRequest.MuntRembours = ""
+	Set ParcelRequest.Gewicht = 0.5
+	Set ParcelRequest.GewichtReedsVerdeeld = 0
+	Set ParcelRequest.VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()		
+	Set ParcelRequest.TransporteurDienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel()
+
+	Set ParcelRequest.Container = ..Geef1VerpakkingEenheid("containerid",Volgnummer,##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli(),Gewicht)
+	
+	Quit ParcelRequest
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequest">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest</ReturnType>
+<Implementation><![CDATA[
+	Set RegisterContainerRequest = ##class(WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest).%New()
+	
+	Set RegisterContainerRequest.GeleverdAanKlantNummer = 1000
+	Set RegisterContainerRequest.LeveringNummer = "leveringnummer"
+	Set RegisterContainerRequest.LabelPrinterId = "labelprinterid"
+	Set RegisterContainerRequest.TransportWerkpostComputerNaam = "computernaam"
+	Set RegisterContainerRequest.EmailVoorBevestiging = "ikke@mail.com"
+	
+	Set RegisterContainerRequest.LeverAdres = ##class(vhTest.Utils.WS.AX.Transport.GLS.v01.dto.LeveringAdres).Belgisch() ;
+	
+	Set RegisterContainerRequest.AfzenderAdres = ##class(vhTest.Utils.WS.AX.Transport.GLS.v01.dto.Adres).Belgisch()
+	
+	Set RegisterContainerRequest.OphaalTijdstip = "2017-03-22 15:04:05"
+	Set RegisterContainerRequest.Referentie = "referentie"
+	Set RegisterContainerRequest.Telefoon = "+3221234567"
+	quit RegisterContainerRequest
+]]></Implementation>
+</Method>
+
+<Method name="Geef1VerpakkingEenheid">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>EenheidID:%String,Volgnummer:%Integer,Type:DOM.TRANSP.enu.VerpakkingEenheidType,Gewicht:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.VerpakkingEenheid</ReturnType>
+<Implementation><![CDATA[
+	Set VerpakkingEenheid = ##class(WS.AX.Transport.GLS.v01.dto.VerpakkingEenheid).%New()
+	Set VerpakkingEenheid.VerpakkingEenheidId = EenheidID
+	Set VerpakkingEenheid.Volgnummer = Volgnummer
+	Set VerpakkingEenheid.Gewicht = Gewicht
+	Set VerpakkingEenheid.Type = Type //##class(DOM.TRANSP.enu.VerpakkingEenheidType).Colli()
+
+	Set VerpakkingEenheid.Aantal = 1
+	
+	quit VerpakkingEenheid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>