Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r57604 -r57606
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 57604)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 57606)
@@ -6,6 +6,21 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.VisiDot.Tech</Super>
 
+<Parameter name="MaximumBatchId">
+<Type>%Numeric</Type>
+<Default>999999</Default>
+</Parameter>
+
+<Parameter name="MaximumProductId">
+<Type>%Numeric</Type>
+<Default>9999999</Default>
+</Parameter>
+
+<Parameter name="Honderdduizend">
+<Type>%Numeric</Type>
+<Default>100000</Default>
+</Parameter>
+
 <Method name="ZoekSleutel">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>List:%ListOfObjects,Sleutel:%String</FormalSpec>
@@ -93,19 +108,22 @@
 <FormalSpec>Batch:%Integer,VHossSeqNr:%List,VHossZijkant:APPS.VisiDot.enu.Zijkant,Product:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	If Batch > 999999 {
+	If Batch > ..#MaximumBatchId {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BatchId '"_Batch_"' mag niet groter zijn dan 999999 (i.e. max 6 cijfers).")
 	}
-	If Product > 9999999 {
+	If Product > ..#MaximumProductId {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("ProductId '"_Product_"' mag niet groter zijn dan 9999999 (i.e. max 7 cijfers).")
 	}
-
+	
+	// Als BatchId de 100000 overschrijdt, dan het Honderdduizendtal afsplitsen, en op positie 9 van de LadeID invoegen.
+	// Dit om backward compatibel te blijven met de huidige LadeIDs. 
 	#dim BatchVanMax5cijfers As %Integer = Batch
 	#dim BatchHonderdduizendtal As %Integer = 0
-	If Batch > 99999 {
-		Set BatchHonderdduizendtal = (Batch \ 100000)
-		Set BatchVanMax5cijfers = (Batch # 100000)
+	If Batch > (..#Honderdduizend - 1) {
+		Set BatchHonderdduizendtal = (Batch \ ..#Honderdduizend)
+		Set BatchVanMax5cijfers = (Batch # ..#Honderdduizend)
 	}
+	
 	Quit ..Justify(BatchVanMax5cijfers,5)_..Justify(VHossSeqNr,2)_..Justify(VHossZijkant,1)_..Justify(BatchHonderdduizendtal,1)_..Justify(Product,7)
 ]]></Implementation>
 </Method>
@@ -132,7 +150,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>LadeID:%String</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit +$E(LadeID,1,5) + (..GeefBatchHonderdduizendtalVanLadeID(LadeID) * 100000)
+<Implementation><![CDATA[	Quit +$E(LadeID,1,5) + (..GeefBatchHonderdduizendtalVanLadeID(LadeID) * ..#Honderdduizend)
 ]]></Implementation>
 </Method>