Sub Application_RemoteNotification (Message As Map, CompletionHandler As CompletionHandler)
NotificacionesModule.Show
Job8.Initialize("isPush", Me)
Job8.download2("http://domain.com/app/info.php", _
Array As String ("username", "user", "action", "push", _
"title", TitlePush ))
FillData(TitlePush,HTMLv)
CompletionHandler.Complete
End Sub
Sub FillData(title As String, html As String)
Dim sqlquery As String
sqlquery = "INSERT INTO notificaciones (fecha, title, html) VALUES(datetime('now', 'localtime'), ?, ?)"
' Log(sqlquery)
SQL1.ExecNonQuery2(sqlquery, Array As Object(title, html))
' Log(title & " " & html)
' LogTable
Log("***********INSERT*************")
End Sub