Index: APPS/TRANSP/GLS/GLSv1/GLSEigenschappen.cls.xml
===================================================================
diff -u -r40505 -r41816
--- APPS/TRANSP/GLS/GLSv1/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 40505)
+++ APPS/TRANSP/GLS/GLSv1/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 41816)
@@ -36,6 +36,12 @@
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[]]></Implementation>
 </Method>
+
+<Method name="GeefBereikIdVoorVerzendWijze">
+<Abstract>1</Abstract>
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/GLSEigenschappen.cls.xml
===================================================================
diff -u -r40369 -r41816
--- vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 40369)
+++ vhUnitTest/APPS/TRANSP/GLS/Bericht/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 41816)
@@ -3,45 +3,26 @@
 <Class name="vhUnitTest.APPS.TRANSP.GLS.Bericht.impl.GLSEigenschappen">
 <Super>APPS.TRANSP.GLS.GLSv1.impl.GLSEigenschappen</Super>
 
-<Parameter name="ParcelOndergrens">
-<Type>%Integer</Type>
-<Default>61240239900</Default>
-</Parameter>
+<Method name="GeefBereikParcel">
+<Private>1</Private>
+<ReturnType>TECH.Bereik</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Bereik).%New(61240239900,61240239999)
+]]></Implementation>
+</Method>
 
-<Parameter name="ParcelBovengrens">
-<Type>%Integer</Type>
-<Default>61240239999</Default>
-</Parameter>
+<Method name="GeefBereikParcelCashOnDelivery">
+<Private>1</Private>
+<ReturnType>TECH.Bereik</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Bereik).%New(61710002500,61710002549)
+]]></Implementation>
+</Method>
 
-<Parameter name="ParcelCashOnDeliveryOndergrens">
-<Type>%Integer</Type>
-<Default>61710002500</Default>
-</Parameter>
-
-<Parameter name="ParcelCashOnDeliveryBovengrens">
-<Type>%Integer</Type>
-<Default>61710002549</Default>
-</Parameter>
-
-<Parameter name="ParcelPickEnReturnOndergrens">
-<Type>%Integer</Type>
-<Default>61896853450</Default>
-</Parameter>
-
-<Parameter name="ParcelPickEnReturnBovengrens">
-<Type>%Integer</Type>
-<Default>61896853499</Default>
-</Parameter>
-
-<Parameter name="FreightOndergrens">
-<Type>%Integer</Type>
-<Default>227201979</Default>
-</Parameter>
-
-<Parameter name="FreightBovengrens">
-<Type>%Integer</Type>
-<Default>227301978</Default>
-</Parameter>
+<Method name="GeefBereikFreight">
+<Private>1</Private>
+<ReturnType>TECH.Bereik</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.Bereik).%New(227201979,227301978)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhDeploy/D20170523xGlsRangesInData.cls.xml
===================================================================
diff -u
--- vhDeploy/D20170523xGlsRangesInData.cls.xml	(revision 0)
+++ vhDeploy/D20170523xGlsRangesInData.cls.xml	(revision 41816)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20170523xGlsRangesInData">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>gls Ranges instellen via data</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set ^APPS.TRANSP.GLS.Bericht.Range("Parcel") = 1
+	set ^APPS.TRANSP.GLS.Bericht.Range("Parcel",1,"Ondergrens")="67630730050"
+	set ^APPS.TRANSP.GLS.Bericht.Range("Parcel",1,"Bovengrens")="67630790049"
+
+	set ^APPS.TRANSP.GLS.Bericht.Range("ParcelCOD") = 1
+	set ^APPS.TRANSP.GLS.Bericht.Range("ParcelCOD",1,"Ondergrens")="67719782700"
+	set ^APPS.TRANSP.GLS.Bericht.Range("ParcelCOD",1,"Bovengrens")="67719784699"
+
+	set ^APPS.TRANSP.GLS.Bericht.Range("Freight") = 1
+	set ^APPS.TRANSP.GLS.Bericht.Range("Freight",1,"Ondergrens")="00230401479"
+	set ^APPS.TRANSP.GLS.Bericht.Range("Freight",1,"Bovengrens")="00230431478"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml
===================================================================
diff -u -r41209 -r41816
--- APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 41209)
+++ APPS/TRANSP/GLS/GLSv1/impl/UnitIdBepaler.cls.xml	(.../UnitIdBepaler.cls.xml)	(revision 41816)
@@ -34,7 +34,7 @@
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-#dim Bereik As TECH.Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
+	#dim Bereik As TECH.Bereik = ..GLSEigenschappen.GeefBereikVoorVerzendWijze(VerzendWijze)
 	
 	If VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery(){
 		Set VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
Index: APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml
===================================================================
diff -u -r41753 -r41816
--- APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 41753)
+++ APPS/TRANSP/GLS/GLSv1/impl/GLSEigenschappen.cls.xml	(.../GLSEigenschappen.cls.xml)	(revision 41816)
@@ -3,38 +3,6 @@
 <Class name="APPS.TRANSP.GLS.GLSv1.impl.GLSEigenschappen">
 <Super>TECH.RegisteredObject,APPS.TRANSP.GLS.GLSv1.GLSEigenschappen</Super>
 
-<Parameter name="ParcelOndergrens">
-<Description>
-BEREIKEN</Description>
-<Type>%String</Type>
-<Default>67630730050</Default>
-</Parameter>
-
-<Parameter name="ParcelBovengrens">
-<Type>%String</Type>
-<Default>67630790049</Default>
-</Parameter>
-
-<Parameter name="ParcelCashOnDeliveryOndergrens">
-<Type>%String</Type>
-<Default>67719782700</Default>
-</Parameter>
-
-<Parameter name="ParcelCashOnDeliveryBovengrens">
-<Type>%String</Type>
-<Default>67719784699</Default>
-</Parameter>
-
-<Parameter name="FreightOndergrens">
-<Type>%String</Type>
-<Default>00230401479</Default>
-</Parameter>
-
-<Parameter name="FreightBovengrens">
-<Type>%String</Type>
-<Default>00230431478</Default>
-</Parameter>
-
 <Parameter name="FreightGebruikerID">
 <Description>
 USER ID's</Description>
@@ -145,42 +113,76 @@
 <FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
 <ReturnType>TECH.Bereik</ReturnType>
 <Implementation><![CDATA[
-		#dim Bereik As TECH.Bereik
-		If ((VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
-			|| ( VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit())){
-			Set Bereik = ..GeefBereikParcel()
-		}ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(){
-			Set Bereik = ..GeefBereikParcelCashOnDelivery()
-		}ElseIf ((VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()) 
-			|| (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())){
-			Set Bereik = ..GeefBereikFreight()
-		}Else{
-			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"' is niet ondersteund."))	
-		}
-		Quit Bereik
+	set VerzendWijze = ..GeefInternGebruikteVerzendWijze(VerzendWijze)
+	
+	#dim Bereik As TECH.Bereik
+	
+	If (VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()) {
+		Set Bereik = ..GeefBereikParcel()
+	} ElseIf VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(){			
+		Set Bereik = ..GeefBereikParcelCashOnDelivery()
+	} ElseIf ((VerzendWijze = ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())) {
+		Set Bereik = ..GeefBereikFreight()
+	}
+	Quit Bereik
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBereikParcel">
 <Private>1</Private>
 <ReturnType>TECH.Bereik</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.Bereik).%New(..#ParcelOndergrens,..#ParcelBovengrens,##class(TECH.Comparator.IntegerComparator).%New())
+<Implementation><![CDATA[
+	#dim HuidigeRange As %Integer = ..GeefBereikIdVoorVerzendWijze(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel())
+	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel(),HuidigeRange,"Ondergrens")
+	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel(),HuidigeRange,"Bovengrens")
+	
+	Quit ##class(TECH.Bereik).%New(Ondergrens,Bovengrens,##class(TECH.Comparator.IntegerComparator).%New())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBereikParcelCashOnDelivery">
 <Private>1</Private>
 <ReturnType>TECH.Bereik</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.Bereik).%New(..#ParcelCashOnDeliveryOndergrens,..#ParcelCashOnDeliveryBovengrens,##class(TECH.Comparator.IntegerComparator).%New())
+<Implementation><![CDATA[
+	#dim HuidigeRange As %Integer = ..GeefBereikIdVoorVerzendWijze(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())	
+	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(),HuidigeRange,"Ondergrens")
+	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery(),HuidigeRange,"Bovengrens")
+
+	Quit ##class(TECH.Bereik).%New(Ondergrens,Bovengrens,##class(TECH.Comparator.IntegerComparator).%New())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBereikFreight">
 <Private>1</Private>
 <ReturnType>TECH.Bereik</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.Bereik).%New(..#FreightOndergrens,..#FreightBovengrens,##class(TECH.Comparator.IntegerComparator).%New())
+<Implementation><![CDATA[
+	#dim HuidigeRange As %Integer = ..GeefBereikIdVoorVerzendWijze(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight())	
+	#dim Ondergrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(),HuidigeRange,"Ondergrens")
+	#dim Bovengrens As %Integer = ^APPS.TRANSP.GLS.Bericht.Range(##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(),HuidigeRange,"Bovengrens")
+
+	Quit ##class(TECH.Bereik).%New(Ondergrens,Bovengrens,##class(TECH.Comparator.IntegerComparator).%New())
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBereikIdVoorVerzendWijze">
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ^APPS.TRANSP.GLS.Bericht.Range(VerzendWijze)
+]]></Implementation>
+</Method>
+
+<Method name="GeefInternGebruikteVerzendWijze">
+<FormalSpec>VerzendWijze:APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze</ReturnType>
+<Implementation><![CDATA[
+	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel(),##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelDeposit())) ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Parcel()
+	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight(),##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).FreightCashOnDelivery())) ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).Freight()
+	Quit:(##class(TECH.StringUtils).Equals(VerzendWijze,##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery())) ##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).ParcelCashOnDelivery()
+
+	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Verzendwijze '"_##class(APPS.TRANSP.GLS.GLSv1.Bericht.enu.VerzendWijze).LogicalToDisplay(VerzendWijze)_"' is niet ondersteund."))
+]]></Implementation>
+</Method>
 </Class>