Index: Tools/Install.cls.xml
===================================================================
diff -u -r1541 -r1565
--- Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 1541)
+++ Tools/Install.cls.xml	(.../Install.cls.xml)	(revision 1565)
@@ -11,6 +11,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TePinnenPoorten">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
 <Method name="SetupLocal">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[	Do ..%New().SetupLocalInternal()
@@ -53,6 +59,27 @@
 	Do ..PoortOpComputerNaamArray.SetAt("PJE",1191)
 	Do ..PoortOpComputerNaamArray.SetAt("JCL",1195)
 	Do ..PoortOpComputerNaamArray.SetAt("FMA",1204)
+	
+	#dim PoortOpComputerArrayIt As TECH.Iterator = ##class(TECH.ListIterator).%New(..PoortOpComputerNaamArray)
+	While PoortOpComputerArrayIt.HasNext(){
+		#dim GebruikerInitialen As %String = PoortOpComputerArrayIt.Next()
+		#dim PoortNummer As %Integer = PoortOpComputerArrayIt.Key()
+		Do ..TePinnenPoorten.SetAt(GebruikerInitialen, PoortNummer)
+	}
+		
+	/// OV ook instellen voor testomgeving
+	Do ..PoortOpComputerNaamArray.SetAt("AB",2182)
+	Do ..PoortOpComputerNaamArray.SetAt("ACO",7132)
+	Do ..PoortOpComputerNaamArray.SetAt("BBE",2177)
+	Do ..PoortOpComputerNaamArray.SetAt("BDA",2126)
+	Do ..PoortOpComputerNaamArray.SetAt("CGI",2179)
+	Do ..PoortOpComputerNaamArray.SetAt("GPI",2027) /// Is met _ : GPI_W7
+	Do ..PoortOpComputerNaamArray.SetAt("HMO",7124)	
+	Do ..PoortOpComputerNaamArray.SetAt("KCO",2103)	/// is met _
+	Do ..PoortOpComputerNaamArray.SetAt("NBR",2157)
+	Do ..PoortOpComputerNaamArray.SetAt("NSL",2181)
+	Do ..PoortOpComputerNaamArray.SetAt("NWU",2061)
+	Do ..PoortOpComputerNaamArray.SetAt("WDA",2178)
 ]]></Implementation>
 </Method>
 
@@ -195,7 +222,7 @@
 <Implementation><![CDATA[
 	kill ^cLOG($$$Server,"PIN")
 	
-	Set PoortOpComputerNaamIt = ##class(TECH.ListIterator).%New(..PoortOpComputerNaamArray)
+	Set PoortOpComputerNaamIt = ##class(TECH.ListIterator).%New(..TePinnenPoorten)
 	While PoortOpComputerNaamIt.HasNext(){
 		#dim ComputerNaam As %String = PoortOpComputerNaamIt.Next()
 		#dim Poort As %Integer = PoortOpComputerNaamIt.Key()