Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r91 -r96
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 91)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 96)
@@ -289,7 +289,7 @@
 	. // Onbekend of foutief domein - GEEN TOEGANG !!!    WSOrder moet steeds binnen WebDomein blijven !!!
 	. Set arValues(0,"ERROR")="Onbekend of foutief domein"
 	; Else   ; ==> sDomVERW=OrdDomVERW
-	Quit:(%RemoteIP?1(1"192.168.")1.3N1"."1.3N)&&(MatchKLNr=1000) 1
+	Quit:($$IsInternIPAdres^cspBasis.Library(%RemoteIP))&&(MatchKLNr=1000) 1
 	Set OrdKLNr=WSOrd.KLNummer
 	Set blnOK=0
 	If TBXContext.IsDomeinVHEPN() Do  Quit blnOK
@@ -546,9 +546,9 @@
 	; Button Process  -->  SubmitToVHEPN / SubmitToAdmin)
 	If blnProcessVH Do
 	. ; Button SubmitToAdmin
-	. Do:(%RemoteIP?1(1"192.168.".E,1"127.0.0.1")) MShowSubmitAdminVerw(TBXContext.IsDomeinVHEPN()||(VERW="VHEPN"),WSOrd)
+	. Do:($$IsInternIPAdres^cspBasis.Library(%RemoteIP)) MShowSubmitAdminVerw(TBXContext.IsDomeinVHEPN()||(VERW="VHEPN"),WSOrd)
 	. ; Button ChangeBulk
-	. Set arShow("ChangeBulk","BTN")=(%RemoteIP?1(1"192.168.".E,1"127.0.0.1"))
+	. Set arShow("ChangeBulk","BTN")=($$IsInternIPAdres^cspBasis.Library(%RemoteIP))
 	. If arShow("ChangeBulk","BTN") Do
 	. . Do ophOrdToAdminSetSesData
 	. . ;Set arShow("ChangeBulk","EXPAND")=0
@@ -1097,7 +1097,7 @@
 	. Set MinShowH=$S(VERW'="VHEPN":$$$shShownForVERW, 1:$$$shShownForVHEPN)
 	Else  If KLNrIsTestKlant Do
 	. Set MinShowH=$$$shShownForVHEPN
-	Else  If 0  && ($G(%RemoteIP)?1(1"192.168.1.",1"192.168.2.")) Do
+	Else  If 0  && $$IsInternIPAdres^cspBasis.Library($G(%RemoteIP)) Do
 	. Set MinShowH=$$$shShownForVHEPN
  
 	&SQL(DECLARE crsHist CURSOR FOR