Index: HADWIZ.mac.rou
===================================================================
diff -u -r67804 -r68637
--- HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 67804)
+++ HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 68637)
@@ -87,10 +87,20 @@
  Quit Key
 NewIPCom2(Groep,Actie) 
  New Key,IP
- Do WLIP^vhDBG(97,"Test IP")
  Set IP = ##class(TECH.Process).GeefClientIP()
  ;Set IP=$$GetClientIP^vhLib()
- Quit:IP'?1.3N1"."1.3N1"."1.3N1"."1.3N ""
+ Set Key = $$NewIPCom2metIP(Groep,Actie,IP)
+ Quit Key
+ 
+NewIPCom2metIP(Groep,Actie,IPAdresReedsBepaald) 
+ New Key,IP
+ Set IP = IPAdresReedsBepaald
+
+ New IsGeldigIpAdres
+ #dim IsGeldigIpAdres As %Boolean = (IP?1.3N1"."1.3N1"."1.3N1"."1.3N)
+ Do:($$$Not(IsGeldigIpAdres)) ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComNewKey","IPCom2 kon geen nieuwe Key bepalen vanwege ongeldig IP-adres '"_IP_"'.")
+ Quit:($$$Not(IsGeldigIpAdres)) ""
+ 
  Lock +^IPCom("N")
  Set Key=$G(^IPCom("N"))+1
  Set ^IPCom("N")=Key