mirror of
https://github.com/KeymonSoft/ReplyAutoV1---WIP.git
synced 2026-04-17 21:06:09 +00:00
45 lines
1.3 KiB
QBasic
45 lines
1.3 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Activity
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
#Region Activity Attributes
|
|
#FullScreen: False
|
|
#IncludeTitle: True
|
|
#End Region
|
|
|
|
Sub Process_Globals
|
|
'These global variables will be declared once when the application starts.
|
|
'These variables can be accessed from all modules.
|
|
Dim OldIntent As Intent
|
|
End Sub
|
|
|
|
Sub Globals
|
|
'These global variables will be redeclared each time the activity is created.
|
|
'These variables can only be accessed from this module.
|
|
|
|
End Sub
|
|
|
|
Sub Activity_Create(FirstTime As Boolean)
|
|
'Do not forget to load the layout file created with the visual designer. For example:
|
|
'Activity.LoadLayout("Layout1")
|
|
|
|
End Sub
|
|
|
|
Sub Activity_Resume
|
|
Dim in As Intent = B4XPages.GetNativeParent(Me).GetStartingIntent
|
|
If in.IsInitialized And in <> OldIntent Then
|
|
OldIntent = in
|
|
If in.HasExtra("Notification_Tag") Then
|
|
Log("Activity started from notification. Tag: " & in.GetExtra("Notification_Tag"))
|
|
Starter.historicoDB.ExecNonQuery2("update historico set clic = 1 where clic = 0 and nombre = ?", Array As Object(in.GetExtra("Notification_Tag"))) 'Ponemos en 1 las notificacion a las que ya se les dió clic.
|
|
Subs.abreWAChat(in.GetExtra("Notification_Tag"))
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Sub Activity_Pause (UserClosed As Boolean)
|
|
|
|
End Sub
|