Index: vhDeploy/D20180321xGLSParcelNummering3.cls.xml
===================================================================
diff -u
--- vhDeploy/D20180321xGLSParcelNummering3.cls.xml	(revision 0)
+++ vhDeploy/D20180321xGLSParcelNummering3.cls.xml	(revision 50495)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20180321xGLSParcelNummering3">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>GLS parcel range toevoegen. (Omschakeling op 16/03/2018 dan Parcel node naar 3 zetten.)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^APPS.TRANSP.GLS.Bericht.Range("Parcel",3,"Ondergrens")	= 61289090000
+	Set ^APPS.TRANSP.GLS.Bericht.Range("Parcel",3,"Bovengrens")	= 61289149999
+	Set ^APPS.TRANSP.GLS.Bericht.Range("Parcel") = 3
+	
+	Set ^APPS.TRANSP.GLS.Bericht.Range("Parcel",2,"Ondergrens")	= 61718412170
+	Set ^APPS.TRANSP.GLS.Bericht.Range("Parcel",2,"Bovengrens")	= 61718412569
+	Set ^APPS.TRANSP.GLS.Bericht.Range("ParcelCOD")	= 2
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestBase.cls.xml
===================================================================
diff -u -r40633 -r50495
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 40633)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 50495)
@@ -12,8 +12,10 @@
 </Parameter>
 
 <Parameter name="ParcelCustomerID">
+<Description>
+100670616;</Description>
 <Type>%String</Type>
-<Default>100670616</Default>
+<Default>100610778</Default>
 </Parameter>
 
 <Parameter name="FreightCustomerID">
Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r49888 -r50495
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 49888)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 50495)
@@ -124,7 +124,7 @@
 		Set Inhoud = Inhoud_"Nu is ID '"_VolgendeID_"' gebruikt, reeds "_Procent_" opgebruikt."
 		Set Inhoud = Inhoud_$$$CRLF_$$$CRLF		
 		Set Inhoud = Inhoud_"Er moeten nieuwe ranges aan GLS aangevraagd worden."
-		Set Inhoud = Inhoud_"Mail hiervoor naar christa.vanlijsebeth@gls-belgium.com en vermeld het klantnummer van VanHoecke: 1202109(Freight) of 100670616(Parcel)"
+		Set Inhoud = Inhoud_"Mail hiervoor naar christa.vanlijsebeth@gls-belgium.com en vermeld het klantnummer van VanHoecke: 1202109(Freight) of 100610778(Parcel)"
 		Set Inhoud = Inhoud_$$$CRLF_$$$CRLF
 		Set Inhoud = Inhoud_"Als nieuwe ranges aangepast zijn in code moet deze code worden uitgevoerd : Set ^APPS.TRANSP.GLS.Bericht.UnitID("""_VerzendWijze_""",""IsICTVerwittigd"","_ProcentOpgebruikt_")=0"
 
Index: APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml
===================================================================
diff -u -r49888 -r50495
--- APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 49888)
+++ APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 50495)
@@ -21,18 +21,24 @@
 </Parameter>
 
 <Parameter name="ParcelGebruikerID">
+<Description>
+KCA old : 100670616;</Description>
 <Type>%String</Type>
-<Default>100670616</Default>
+<Default>100610778</Default>
 </Parameter>
 
 <Parameter name="ParcelGLSContactID">
+<Description>
+KCA old : "056aaabECi";</Description>
 <Type>%String</Type>
-<Default>056aaabECi</Default>
+<Default>056aaacDzv</Default>
 </Parameter>
 
 <Parameter name="ParcelGLSGebruikerID">
+<Description>
+KCA old : 0560005353;</Description>
 <Type>%String</Type>
-<Default>0560005353</Default>
+<Default>0560010910</Default>
 </Parameter>
 
 <Property name="DienstBepaler">
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaMetColli.cls.xml
===================================================================
diff -u -r40633 -r50495
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaMetColli.cls.xml	(.../TestLeveringEuropaMetColli.cls.xml)	(revision 40633)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringEuropaMetColli.cls.xml	(.../TestLeveringEuropaMetColli.cls.xml)	(revision 50495)
@@ -34,9 +34,9 @@
 	Do $$$AssertEquals(Request.T8904,"001","VolgNr")
 	Do $$$AssertEquals(Request.T8905,"001","Aantal")
 	
-	Do $$$AssertEquals(Request.T805,"100670616","GebruikerID")
-	Do $$$AssertEquals(Request.T8914,"056aaabECi","GLSContactID")
-	Do $$$AssertEquals(Request.T8915,"0560005353","GLSGebruikerID")
+	Do $$$AssertEquals(Request.T805,"100610778","GebruikerID")
+	Do $$$AssertEquals(Request.T8914,"056aaacDzv","GLSContactID")
+	Do $$$AssertEquals(Request.T8915,"0560010910","GLSGebruikerID")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/TRANSP/GLS/GLSv1/Bericht/impl/RequestDataBouwer.cls.xml
===================================================================
diff -u -r40892 -r50495
--- 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 50495)
@@ -311,8 +311,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. 
 	}
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetColli.cls.xml
===================================================================
diff -u -r40633 -r50495
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetColli.cls.xml	(.../TestLeveringMetColli.cls.xml)	(revision 40633)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/RequestDataBouwer/TestLeveringMetColli.cls.xml	(.../TestLeveringMetColli.cls.xml)	(revision 50495)
@@ -36,8 +36,8 @@
 	Do $$$AssertEquals(Request.T8905,"001","Aantal")
 	
 	Do $$$AssertEquals(Request.T805,..#ParcelCustomerID,"GebruikerID")
-	Do $$$AssertEquals(Request.T8914,"056aaabECi","GLSContactID")
-	Do $$$AssertEquals(Request.T8915,"0560005353","GLSGebruikerID")
+	Do $$$AssertEquals(Request.T8914,"056aaacDzv","GLSContactID")
+	Do $$$AssertEquals(Request.T8915,"0560010910","GLSGebruikerID")
 ]]></Implementation>
 </Method>
 </Class>