Index: HADWIZ.mac.rou
===================================================================
diff -u -r68637 -r68655
--- HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 68637)
+++ HADWIZ.mac.rou	(.../HADWIZ.mac.rou)	(revision 68655)
@@ -89,29 +89,9 @@
  New Key,IP
  Set IP = ##class(TECH.Process).GeefClientIP()
  ;Set IP=$$GetClientIP^vhLib()
- Set Key = $$NewIPCom2metIP(Groep,Actie,IP)
+ Set Key = ##class(BL.Legacy.IPComService).GeefNieuweIpComKey(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
- Lock -^IPCom("N")
- Kill ^IPCom("D",Key)
- Set ^IPCom("IP",IP)=Key
- Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComNewKey","IPCom2 entry added : "_$Name(^IPCom("IP",IP))_" = "_Key)
- Kill ^IPCom("D",Key)
- Set ^IPCom("D",Key)=Groep_"`"_Actie_"`"_$H_"`"_IP
- Quit Key
- 
 DISPLAY(PRNr,Aantal,Munt) 
  New HalID,Groep,GenTyp,ProductTypeAPI
  New IsKaderdeurProduct,KaderdeurViaBullzipPdf,GenereerDetailBladAlsPdf