Index: WS/AX/Transport/GLS/v01/dto/RegisterContainerRequest.cls.xml
===================================================================
diff -u -r40436 -r40543
--- WS/AX/Transport/GLS/v01/dto/RegisterContainerRequest.cls.xml	(.../RegisterContainerRequest.cls.xml)	(revision 40436)
+++ WS/AX/Transport/GLS/v01/dto/RegisterContainerRequest.cls.xml	(.../RegisterContainerRequest.cls.xml)	(revision 40543)
@@ -42,13 +42,6 @@
 <Type>%String</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-// volgt LeveringInfo
-
-]]></Content>
-</UDLText>
-
 <Property name="LeverAdres">
 <Type>WS.AX.Transport.GLS.v01.dto.LeveringAdres</Type>
 </Property>
@@ -88,7 +81,7 @@
 <Type>%Integer</Type>
 </Property>
 
-<Property name="Containers">
+<Property name="Container">
 <Type>WS.AX.Transport.GLS.v01.dto.VerpakkingEenheid</Type>
 </Property>
 
@@ -166,6 +159,9 @@
 <Value name="19">
 <Value>EmailVoorBevestiging</Value>
 </Value>
+<Value name="20">
+<Value>Container</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer.cls.xml
===================================================================
diff -u
--- WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer.cls.xml	(revision 0)
+++ WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainer.cls.xml	(revision 40543)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainer">
+<Super>APPS.TRANSP.GLS.GLSv1.impl.CommunicatieService</Super>
+
+<Property name="RegisterContainerRequestConverter">
+<Type>WSimpl.AX.Transport.GLS.v01.RegistrationService.RegistreerContainerRequestConverter</Type>
+</Property>
+
+<Property name="CurrentT400">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="RegisterContainer">
+<FormalSpec>Request:WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest</FormalSpec>
+<ReturnType>WS.AX.Transport.GLS.v01.dto.RegisterContainerResponse</ReturnType>
+<Implementation><![CDATA[
+	#Dim LeveringInfo as APPS.TRANSP.dto.LeveringInfo = ..RegisterContainerRequestConverteerder.ConverteerNaarLeveringInfo(Request)
+	#Dim Verzendwijze as APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze = ..CommunicatieServiceLocator.GeefVerzendWijzeBepaler().GeefVerzendWijze(LeveringInfo)
+	#Dim Dienst as APPS.TRANSP.GLS.GLSv1.enu.Dienst = ..CommunicatieServiceLocator.GeefDienstBepaler.GeefDienst(Verzendwijze)
+	
+	#dim Requests As List Of APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request = ..RequestBouwer.MaakRequests(LeveringInfo,Verzendwijze)
+	set RequestIt = ##class(TECH.ListIterator).%New(Requests)
+	while (RequestIt.HasNext()) {
+		#Dim request = RequestIt.Next()
+		Set ..CurrentT400  = request.T400
+		do ..VerwerkRequest(request)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkVerzendDataID">
+<FormalSpec>VerzendDataID:%String</FormalSpec>
+<Implementation><![CDATA[	//opslaan verzenddataid + plus T400
+]]></Implementation>
+</Method>
+
+<Method name="GeefRequestType">
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.RequestType).Registratie()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WS/AX/Transport/GLS/v01/dto/VerpakkingEenheid.cls.xml
===================================================================
diff -u -r40376 -r40543
--- WS/AX/Transport/GLS/v01/dto/VerpakkingEenheid.cls.xml	(.../VerpakkingEenheid.cls.xml)	(revision 40376)
+++ WS/AX/Transport/GLS/v01/dto/VerpakkingEenheid.cls.xml	(.../VerpakkingEenheid.cls.xml)	(revision 40543)
@@ -3,24 +3,10 @@
 <Class name="WS.AX.Transport.GLS.v01.dto.VerpakkingEenheid">
 <Super>%SerialObject,%XML.Adaptor</Super>
 
-<UDLText name="T">
-<Content><![CDATA[
-// terugkoppeling AX
-
-]]></Content>
-</UDLText>
-
 <Property name="VerpakkingEenheidId">
 <Type>%String</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-// 
-
-]]></Content>
-</UDLText>
-
 <Property name="Aantal">
 <Type>%Integer</Type>
 </Property>
@@ -29,9 +15,8 @@
 <Type>DOM.TRANSP.enu.VerpakkingEenheidType</Type>
 </Property>
 
-<Property name="Lengtes">
+<Property name="Lengte">
 <Type>%Integer</Type>
-<Collection>list</Collection>
 </Property>
 
 <Property name="Gewicht">
@@ -47,23 +32,25 @@
 <State>VerpakkingEenheidState</State>
 <StreamLocation>^WS.AX.TranF250.VerpakkingEen2DS</StreamLocation>
 <Data name="VerpakkingEenheidState">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
-<Value>Aantal</Value>
+<Value>VerpakkingEenheidId</Value>
 </Value>
 <Value name="2">
-<Value>Type</Value>
+<Value>Aantal</Value>
 </Value>
 <Value name="3">
-<Value>Lengtes</Value>
+<Value>Type</Value>
 </Value>
 <Value name="4">
-<Value>Gewicht</Value>
+<Value>Lengte</Value>
 </Value>
 <Value name="5">
-<Value>Volgnummer</Value>
+<Value>Gewicht</Value>
 </Value>
 <Value name="6">
-<Value>VerpakkingEenheidId</Value>
+<Value>Volgnummer</Value>
 </Value>
 </Data>
 </Storage>
Index: WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor.cls.xml
===================================================================
diff -u
--- WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor.cls.xml	(revision 0)
+++ WSimpl/AX/Transport/GLS/v01/RegistrationService/RegisterContainerRequestConvertor.cls.xml	(revision 40543)
@@ -0,0 +1,72 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.AX.Transport.GLS.v01.RegistrationService.RegisterContainerRequestConvertor">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerpakkingEenheidFactory">
+<Type>APPS.TRANSP.impl.VerpakkingEenheidFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerpakkingEenheidFactory:APPS.TRANSP.impl.VerpakkingEenheidFactory</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerpakkingEenheidFactory = $$$Inject(VerpakkingEenheidFactory,##class(APPS.TRANSP.impl.VerpakkingEenheidFactory).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNaarLeveringInfo">
+<FormalSpec>Request:WS.AX.Transport.GLS.v01.dto.RegisterContainerRequest</FormalSpec>
+<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 AfzenderAdres = ##class(APPS.common.dto.Adres).%New()		
+	Set AfzenderAdres.Naam = "VAN HOECKE"
+	Set AfzenderAdres.Toenaam = "HOECKE"
+	Set AfzenderAdres.Straat = "EUROPARK NOORD 9"
+	Set AfzenderAdres.LandCode = "BE"
+	Set AfzenderAdres.Postcode = 9100
+	Set AfzenderAdres.Woonplaats = "SINT-NIKLAAS"
+	Set LeveringInfo.AfzenderAdres = AfzenderAdres
+	
+	Set LeveringInfo.GeleverdAanKlantNummer = Request.GeleverdAanKlantNummer
+	Set LeveringInfo.Gewicht = Request.Gewicht
+	Set LeveringInfo.GewichtReedsVerdeeld = Request.GewichtReedsVerdeeld
+	Set LeveringInfo.OphaalTijdstip = Request.OphaalTijdstip	
+	Set LeveringInfo.Referentie = Request.Referentie
+	
+	Set LeveringInfo.Telefoon = Request.Telefoon
+	Set LeveringInfo.AantalVerpakkingEenhedenTotaal = Request.AantalVerpakkingEenhedenTotaal
+	Set LeveringInfo.AantalVerpakkingEenhedenReedsVerdeeld = Request.AantalVerpakkingEenhedenReedsVerdeeld
+	
+	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.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() {
+		Set VerpakkingEenheid.Lengte = Request.Container.Lengte
+		Set VerpakkingEenheid.Gewicht = Request.Container.Gewicht
+	}
+	Do LeveringInfo.VerpakkingEenheden.insert(VerpakkingEenheid)
+	
+	Set LeveringInfo.BedragRembours = Request.BedragRembours
+	Set LeveringInfo.MuntRembours = Request.MuntRembours
+	Set LeveringInfo.EmailVoorBevestiging = Request.EmailVoorBevestiging
+
+	Quit LeveringInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>