Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r40892 -r51933
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 40892)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 51933)
@@ -20,7 +20,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..T854SuffixBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.T854SuffixBepaler).%New()
+	Set ..T854SuffixBepaler = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.T854SuffixBepaler).%New()
 	Set ..CommunicatieServiceLocator = $$$Inject(CommunicatieServiceLocator,##class(APPS.TRANSP.GLS.GLSv1.impl.CommunicatieServiceLocator).%New())
 	Quit $$$OK
 ]]></Implementation>
@@ -33,18 +33,18 @@
 <Implementation><![CDATA[
 	Set ReleaseRequests = ##class(%ListOfObjects).%New()
 	
-	set itLijstVerzendDataPerVerzendWijze = ##class(TECH.ListIterator).%New(..LijstVerzendDataPerVerzendWijze(LijstVerzendData))
-	while itLijstVerzendDataPerVerzendWijze.HasNext() {		
-		set itVerzendDataPerVerzendWijze = ##class(TECH.ListIterator).%New(itLijstVerzendDataPerVerzendWijze.Next())
-		while itVerzendDataPerVerzendWijze.HasNext() {
+	Set itLijstVerzendDataPerVerzendWijze = ##class(TECH.ListIterator).%New(..LijstVerzendDataPerVerzendWijze(LijstVerzendData))
+	While itLijstVerzendDataPerVerzendWijze.HasNext() {		
+		Set itVerzendDataPerVerzendWijze = ##class(TECH.ListIterator).%New(itLijstVerzendDataPerVerzendWijze.Next())
+		While itVerzendDataPerVerzendWijze.HasNext() {
 			#dim VerzendData As APPS.TRANSP.GLS.dto.VerzendData = itVerzendDataPerVerzendWijze.Next()
 			#dim IsLaatsteBericht As Boolean = ( itVerzendDataPerVerzendWijze.HasNext() = $$$false)
 			#dim IsLaatsteLevering As %Boolean = ..IsLaatsteLevering(VerzendData)	
 			#dim IsLaatsteUnit = (IsLaatsteBericht  && IsLaatsteLevering)
-			do ReleaseRequests.Insert(..MaakReleaseRequest(VerzendData,IsLaatsteUnit))
+			Do ReleaseRequests.Insert(..MaakReleaseRequest(VerzendData,IsLaatsteUnit))
 		}
 	}
-	quit ReleaseRequests
+	Quit ReleaseRequests
 ]]></Implementation>
 </Method>
 
@@ -77,34 +77,34 @@
 <ReturnType>%ArrayOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="LijstVerzendData"</ReturnTypeParams>
 <Implementation><![CDATA[
-	set VerzendDataPerVerzendWijze = ##class(%ArrayOfObjects).%New()
-	set itLijstVerzendData = ##class(TECH.ListIterator).%New(LijstVerzendData)
-	while itLijstVerzendData.HasNext() {
+	Set VerzendDataPerVerzendWijze = ##class(%ArrayOfObjects).%New()
+	Set itLijstVerzendData = ##class(TECH.ListIterator).%New(LijstVerzendData)
+	While itLijstVerzendData.HasNext() {
 		#dim VerzendData As APPS.TRANSP.GLS.dto.VerzendData = itLijstVerzendData.Next()
 		#dim VerzendWijze As APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze = VerzendData.VerzendWijze
-		if $$$Not(VerzendDataPerVerzendWijze.IsDefined(VerzendWijze)) { 
-			do VerzendDataPerVerzendWijze.SetAt(##class(%ListOfObjects).%New(),VerzendWijze)
+		If $$$Not(VerzendDataPerVerzendWijze.IsDefined(VerzendWijze)) { 
+			Do VerzendDataPerVerzendWijze.SetAt(##class(%ListOfObjects).%New(),VerzendWijze)
 		}
-		do VerzendDataPerVerzendWijze.GetAt(VerzendWijze).Insert(VerzendData)
+		Do VerzendDataPerVerzendWijze.GetAt(VerzendWijze).Insert(VerzendData)
 	}
 	
-	quit VerzendDataPerVerzendWijze
+	Quit VerzendDataPerVerzendWijze
 ]]></Implementation>
 </Method>
 
 <Method name="MaakReleaseRequest">
 <FormalSpec>VerzendData:APPS.TRANSP.GLS.dto.VerzendData,IsLaatsteUnit:%Boolean=0</FormalSpec>
-<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest</ReturnType>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest</ReturnType>
 <Implementation><![CDATA[
 	#dim Dienst As APPS.TRANSP.GLS.GLSv1.enu.Dienst = ..CommunicatieServiceLocator.GeefDienstBepaler().GeefDienst(VerzendData.VerzendWijze)
 	
-	#dim ReleaseRequest As APPS.TRANSP.GLS.GLSv1.Bericht.dto.ReleaseRequest
-	if Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight() {
-		 set ReleaseRequest = ..MaakFreightReleaseRequest(VerzendData.ID,VerzendData.UnitID , IsLaatsteUnit)
-	} elseif Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel() {
-		 set ReleaseRequest = ..MaakParcelReleaseRequest(VerzendData.ID,VerzendData.UnitID)
+	#dim ReleaseRequest As APPS.TRANSP.GLS.GLSv1.Bericht.dto.AbstractRequest
+	If Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight() {
+		 Set ReleaseRequest = ..MaakFreightReleaseRequest(VerzendData.ID,VerzendData.UnitID, IsLaatsteUnit)
+	} ElseIf Dienst = ##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel() {
+		 Set ReleaseRequest = ..MaakParcelReleaseRequest(VerzendData.ID,VerzendData.UnitID)
 	}
-	quit ReleaseRequest
+	Quit ReleaseRequest
 ]]></Implementation>
 </Method>
 
@@ -113,11 +113,11 @@
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest</ReturnType>
 <Implementation><![CDATA[
-	set ReleaseRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest).%New(VerzendDataID)
-	set ReleaseRequest.T090 = "DAYEND"_$select(IsLaatsteUnit:"-END",1:"")
-	set ReleaseRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight())
-	set ReleaseRequest.T400 = UnitID
-	quit ReleaseRequest
+	Set ReleaseRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.FreightReleaseRequest).%New(VerzendDataID)
+	Set ReleaseRequest.T090 = "DAYEND"_$select(IsLaatsteUnit:"-END",1:"")
+	Set ReleaseRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Freight())
+	Set ReleaseRequest.T400 = UnitID
+	Quit ReleaseRequest
 ]]></Implementation>
 </Method>
 
@@ -126,23 +126,23 @@
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest</ReturnType>
 <Implementation><![CDATA[
-	set ReleaseRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest).%New(VerzendDataID)
-	set ReleaseRequest.T090 = "UPDATE"
-	set ReleaseRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel())
-	set ReleaseRequest.T400 = UnitID
-	set ReleaseRequest.T545 = ..GeefGeformateerdeDatum(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
-	quit ReleaseRequest
+	Set ReleaseRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest).%New(VerzendDataID)
+	Set ReleaseRequest.T090 = "UPDATE"
+	Set ReleaseRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(##class(APPS.TRANSP.GLS.GLSv1.enu.Dienst).Parcel())
+	Set ReleaseRequest.T400 = UnitID
+	Set ReleaseRequest.T545 = ..GeefGeformateerdeDatum(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate())
+	Quit ReleaseRequest
 ]]></Implementation>
 </Method>
 
 <Method name="MaakAnnulatieRequest">
 <FormalSpec>VerzendData:APPS.TRANSP.GLS.dto.VerzendData</FormalSpec>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest</ReturnType>
 <Implementation><![CDATA[
-	set AnnulatieRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest).%New(VerzendData.ID)
-	set AnnulatieRequest.T000 = VerzendData.UnitID
-	set AnnulatieRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(VerzendData.VerzendWijze)
-	quit AnnulatieRequest
+	Set AnnulatieRequest = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.dto.AnnulatieRequest).%New(VerzendData.ID)
+	Set AnnulatieRequest.T000 = VerzendData.UnitID
+	Set AnnulatieRequest.T805 = ##class(APPS.ApplicatieContext).Instance().GeefTransportAPI().GeefGLSEigenschappen().GeefGebruikerID(VerzendData.VerzendWijze)
+	Quit AnnulatieRequest
 ]]></Implementation>
 </Method>
 
@@ -154,20 +154,20 @@
 	Set Requests = ##class(%ListOfObjects).%New()
 	
 	#dim VolgNr As %Integer = 1
-	set itVerpakkingEenheden = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden)
+	Set itVerpakkingEenheden = ##class(TECH.ListIterator).%New(LeveringInfo.VerpakkingEenheden)
 	#dim VerpakkingEenheidType As DOM.TRANSP.enu.VerpakkingEenheidType = ""
-	while itVerpakkingEenheden.HasNext() {
+	While itVerpakkingEenheden.HasNext() {
 		#dim VerpakkingEenheid As APPS.TRANSP.dto.VerpakkingEenheid = itVerpakkingEenheden.Next()		
 		If ($Length(VerpakkingEenheidType) && (VerpakkingEenheidType '= VerpakkingEenheid.Type)) && (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery()){
 			Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
 		}		
 		Set:($Length(VerpakkingEenheid.Volgnummer) & (VerpakkingEenheid.Aantal=1)  & (LeveringInfo.VerpakkingEenheden.Count() = 1)) VolgNr = VerpakkingEenheid.Volgnummer
 		#dim i As %Integer
 		For i=1:1:VerpakkingEenheid.Aantal {
-			if VerpakkingEenheid.Type = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed() {
+			If VerpakkingEenheid.Type = ##class(DOM.TRANSP.enu.VerpakkingEenheidType).Langgoed() {
 				#dim Lengte As TECH.Integer = VerpakkingEenheid.Lengtes.GetAt(i)				
 				Do Requests.Insert(..MaakRequest(VerzendWijze,VerpakkingEenheid,LeveringInfo,VolgNr,Lengte))
-			} else {
+			} Else {
 				Do Requests.Insert(..MaakRequest(VerzendWijze,VerpakkingEenheid,LeveringInfo,VolgNr))
 			}
 			Set VolgNr = VolgNr + 1
@@ -181,6 +181,7 @@
 <Method name="MaakRequest">
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze,VerpakkingEenheid:APPS.TRANSP.dto.VerpakkingEenheid,LeveringInfo:APPS.TRANSP.dto.LeveringInfo,VolgNr:%Integer,Lengte:%Integer=0</FormalSpec>
 <Private>1</Private>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.Request</ReturnType>
 <Implementation><![CDATA[
 	If (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery() && (VolgNr '= 1)){
 		Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()
@@ -209,12 +210,12 @@
 	Set Request.T8904 = ..VulGetalAan(VolgNr)
 	Set Request.T8905 = ..VulGetalAan(LeveringInfo.AantalVerpakkingEenhedenTotaal)
 	
-	set Request.T854 = Request.T854_..T854SuffixBepaler.GeefSuffix(VerzendWijze)
+	Set Request.T854 = Request.T854_..T854SuffixBepaler.GeefSuffix(VerzendWijze)
 	
 	#dim VerpakkingEenheidVisitorDtoMaker = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.impl.VerpakkingEenheidVisitorDtoMaker).%New(Request,LeveringInfo)
 	Do VerpakkingEenheidVisitorDtoMaker.Maak(VerpakkingEenheid)
 	
-	quit Request
+	Quit Request
 ]]></Implementation>
 </Method>
 
@@ -230,19 +231,19 @@
 	#dim LeveringAdres As APPS.TRANSP.dto.LeveringAdres = LeveringInfo.LeverAdres
 	Set Request.T100 = LeveringAdres.LandCode
 	Set Request.T330 = ..GeefGeformateerdePostcode(LeveringAdres.LandCode,LeveringAdres.Postcode)
-	Set Request.T860 = LeveringAdres.Naam
+	Set Request.T860 = ..BeperktLengteTot(LeveringAdres.Naam, 35)
 	Set Request.T759 = LeveringAdres.Naam 	/// mag ingevuld worden, maar uit eigen data hebben we geen nuttige contactnaam, dus ook Naam 
 	Set Request.T861 = $Select($Length(LeveringAdres.Toenaam):LeveringAdres.Toenaam,1:" ")
 	Set Request.T863 = LeveringAdres.Straat
 	Set Request.T864 = LeveringAdres.Woonplaats
 	
 	If $IsObject(LeveringAdres.Opmerkingen){
-		if $$$HasLength(LeveringAdres.Volmacht) {
+		If $$$HasLength(LeveringAdres.Volmacht) {
 			Set:(LeveringAdres.Opmerkingen.Count()>=1) Request.T920 = LeveringAdres.Opmerkingen.GetAt(1)
 			Set:(LeveringAdres.Opmerkingen.Count()>=2) Request.T920 = $$$IfLength(Request.T920,""," ")_LeveringAdres.Opmerkingen.GetAt(2)
 			set Request.T920 = ..BeperktLengteTot(Request.T920,50)
 			set Request.T921 = ..BeperktLengteTot(LeveringAdres.Volmacht,50)
-		} else {
+		} Else {
 			Set:(LeveringAdres.Opmerkingen.Count()>=1) Request.T920 = ..BeperktLengteTot(LeveringAdres.Opmerkingen.GetAt(1),50)
 			Set:(LeveringAdres.Opmerkingen.Count()>=2) Request.T921 = ..BeperktLengteTot(LeveringAdres.Opmerkingen.GetAt(2),50)
 		}
@@ -311,8 +312,10 @@
 <Private>1</Private>
 <ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelRequest</ReturnType>
 <Implementation><![CDATA[
-	Set ParcelRequest.T8700 = "BE6700" // vraag aan GLS gesteld op 25/06/2013 : T8700 moet zijn BE 610 ipv BE 061 (foutje in de documentatie) 
+	Set ParcelRequest.T8700 = "BE 610" // KCA Update : Op 21/03/18 stuurden we jullie een e-mail met de PRODUCTIE parameters gelink aan depot 61 (Puurs). Hierdoor zijn we genoodzaakt om het klantennumer en de ranges te wijzigen. 
+									   // vraag aan GLS gesteld op 25/06/2013 : T8700 moet zijn BE 610 ipv BE 061 (foutje in de documentatie) 
 									   // Update : Op 16/7 stuurden we jullie een e-mail met de PRODUCTIE parameters gelink aan depot 61 (Puurs). Operationele zullen jullie goederen afgehandeld worden door het depot 67 (Gent), wat reeds nu het geval is. Hierdoor zijn we genoodzaakt om het klantennumer en de ranges te wijzigen. 
+									   
 	If ..IsLeveringInLand(LeveringInfo,##class(TECH.ListUtils).CreateListOfDataTypes("BE","DE","PL","PT","AT","LU","IE")){
 		Set ParcelRequest.T8748 = " " // vraag aan GLS gesteld op 25/06/2013 :  T8748:No value -> de "No value" weglaten, dezetag is gewoon leeg maar moet wel gestuurd worden in request. 
 	}
@@ -362,7 +365,7 @@
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..CommunicatieServiceLocator.GeefUnitIDBepaler().GeefUnitID(VerzendWijze)
+<Implementation><![CDATA[	Quit ..CommunicatieServiceLocator.GeefUnitIDBepaler().GeefUnitID(VerzendWijze)
 ]]></Implementation>
 </Method>
 
@@ -395,9 +398,11 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set Postcode = $Replace(Postcode,"-"," ")
-	if Landcode = "PT" set Postcode = $extract(Postcode,1,4)
-	if Landcode = "SE" set Postcode = $replace(Postcode," ","")
+	Set Postcode = $Replace(Postcode,"-"," ")
+	If Landcode = "PT" Set Postcode = $Extract(Postcode,1,4)
+	If Landcode = "SE" Set Postcode = $Replace(Postcode," ","")
+	If Landcode = "DE" Set Postcode = $Replace(Postcode,"DE","D")
+	If Landcode = "FR" Set Postcode = $Replace(Postcode,"FR","F")
 	Quit Postcode
 ]]></Implementation>
 </Method>