Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r50495 -r50667
--- APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 50495)
+++ APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml	(.../RequestDataBouwer.cls.xml)	(revision 50667)
@@ -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,18 +77,18 @@
 <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>
 
@@ -99,12 +99,12 @@
 	#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)
+	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, IsLaatsteUnit)
 	}
-	quit ReleaseRequest
+	Quit ReleaseRequest
 ]]></Implementation>
 </Method>
 
@@ -113,36 +113,36 @@
 <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>
 
 <Method name="MaakParcelReleaseRequest">
-<FormalSpec>VerzendDataID:%String,UnitID:%String</FormalSpec>
+<FormalSpec>VerzendDataID:%String,UnitID:%String,IsLaatsteUnit:%Boolean</FormalSpec>
 <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 = "DAYEND"_$select(IsLaatsteUnit:"-END",1:"") /// KCA ??? ;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
@@ -209,12 +209,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>
 
@@ -237,12 +237,12 @@
 	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)
 		}
@@ -364,7 +364,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>
 
@@ -397,9 +397,9 @@
 <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," ","")
 	Quit Postcode
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/MaakReleaseRequests/Test.cls.xml
===================================================================
diff -u -r40633 -r50667
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/MaakReleaseRequests/Test.cls.xml	(.../Test.cls.xml)	(revision 40633)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/MaakReleaseRequests/Test.cls.xml	(.../Test.cls.xml)	(revision 50667)
@@ -40,7 +40,7 @@
 	
 	;Assert
 	if $$$AssertEquals(Requests.Count(),1) {
-		do ..AssertParcelReleaseRequest(Requests.GetAt(1),"UnitID0001")
+		do ..AssertParcelReleaseRequest(Requests.GetAt(1),"UnitID0001", "DAYEND-END")
 	}
 ]]></Implementation>
 </Method>
@@ -139,10 +139,10 @@
 </Method>
 
 <Method name="AssertParcelReleaseRequest">
-<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest,T400:%String</FormalSpec>
+<FormalSpec>Request:APPS.TRANSP.GLS.GLSv1.Bericht.dto.ParcelReleaseRequest,T400:%String,T090:%String="DAYEND"</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	do $$$AssertEquals(Request.T090,"UPDATE")	
+	do $$$AssertEquals(Request.T090, T090)  // KCA "UPDATE")	
 	do $$$AssertEquals(Request.T050,"VanHoecke")
 	do $$$AssertEquals(Request.T051,"V 1.0")
 	do $$$AssertEquals(Request.T084,"C")