save event

Author: nsolov

src/cls/ZPM/Analytics/Event.cls

@@ -46,10 +46,11 @@ ClassMethod SaveEvent(action As %String, ip As %String = "", json As %DynamicObj
         Set event = ..%New()
         Set event.Action = action
         Set event.IP = ip
+        DO event.%JSONImport(json)
+        $$$ThrowOnError(event.%Save())
         If ##class(%Dictionary.CompiledClass).%ExistsId("ZPM.Analytics.IP") {
             Do ##class(ZPM.Analytics.IP).SetGeo(event, ip)
         }
-        DO event.%JSONImport(json)
         $$$ThrowOnError(event.%Save())
         Return $$$OK
     } Catch ex {