diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 3cb7c90..e32c55b 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -37,8 +37,8 @@ Sub Class_Globals Dim cb_internet As CheckBox Dim cb_dbreqserver As CheckBox Dim cb_db As CheckBox - Private b_intervalo As Button - Private b_server As Button +' Private b_intervalo As Button +' Private b_server As Button Private et_server As EditText Private lv_server As ListView Private i_engrane As ImageView @@ -51,7 +51,7 @@ Sub Class_Globals Private p_timeout As Panel Private et_timeout As EditText Private l_timeout As Label - Private b_timeout As Button +' Private b_timeout As Button Private Label1 As Label Private b_notifAccess As Button Dim logger As Boolean = False @@ -59,6 +59,7 @@ Sub Class_Globals Private p_listItemServer As Panel Private l_server As Label Private l_info As Label + Private b_guardaCambios As Button End Sub Public Sub Initialize @@ -98,7 +99,7 @@ Sub B4XPage_Appear s.centraPanel(p_estatus, Root.Width) s.centraEtiqueta(l_status, Root.Width) s.centraEtiqueta(l_ultimoPing, Root.Width) - s.centraPanel(p_intervalo, Root.Width) +' s.centraPanel(p_intervalo, Root.Width) s.centraEtiqueta(Label1, Root.Width) If Not(CheckNotificationAccess) Then Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "Cancelar", "", Null, True) @@ -185,22 +186,22 @@ Private Sub clv_server_ItemClick (Index As Int, Value As Object) End Sub Private Sub b_server_Click - Starter.DBReqServer = et_server.text - Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'servidor'"$) - Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("servidor", '${et_server.text}')"$) - CallSubDelayed(Monitor, "reinicializaReqManager") - ToastMessageShow($"Servidor modificado"$, False) - p_engrane.Visible = False - CallSubDelayed(Monitor, "Timer1_Tick") +' Starter.DBReqServer = et_server.text +' Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'servidor'"$) +' Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("servidor", '${et_server.text}')"$) +' CallSubDelayed(Monitor, "reinicializaReqManager") +' ToastMessageShow($"Servidor modificado"$, False) +' p_engrane.Visible = False +' CallSubDelayed(Monitor, "Timer1_Tick") End Sub Private Sub b_intervalo_Click - Monitor.Interval = et_intervalo.text - Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'intervalo'"$) - Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("intervalo", '${et_intervalo.text}')"$) - ToastMessageShow($"Intervalo modificado"$, False) - CallSubDelayed(Monitor, "Timer1_Tick") - p_engrane.Visible = False +' Monitor.Interval = et_intervalo.text +' Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'intervalo'"$) +' Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("intervalo", '${et_intervalo.text}')"$) +' ToastMessageShow($"Intervalo modificado"$, False) +' CallSubDelayed(Monitor, "Timer1_Tick") +' p_engrane.Visible = False End Sub Private Sub i_engrane_Click @@ -232,12 +233,12 @@ Private Sub b_ping_Click End Sub Private Sub b_timeout_Click - Monitor.timeout = et_timeout.text - Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'timeout'"$) - Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("timeout", '${et_timeout.text}')"$) - ToastMessageShow($"Intervalo modificado"$, False) - CallSubDelayed(Monitor, "Timer1_Tick") - p_engrane.Visible = False +' Monitor.timeout = et_timeout.text +' Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'timeout'"$) +' Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("timeout", '${et_timeout.text}')"$) +' ToastMessageShow($"Intervalo modificado"$, False) +' CallSubDelayed(Monitor, "Timer1_Tick") +' p_engrane.Visible = False End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. @@ -279,4 +280,27 @@ End Sub Private Sub p_Main_Click l_info.Visible = False +End Sub + +Private Sub b_guardaCambios_Click + 'Guardamos Intervalo + Monitor.Interval = et_intervalo.text + Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'intervalo'"$) + Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("intervalo", '${et_intervalo.text}')"$) + CallSubDelayed(Monitor, "Timer1_Tick") + p_engrane.Visible = False + 'Guardamos DBReqServer + Starter.DBReqServer = et_server.text + Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'servidor'"$) + Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("servidor", '${et_server.text}')"$) + CallSubDelayed(Monitor, "reinicializaReqManager") + p_engrane.Visible = False + CallSubDelayed(Monitor, "Timer1_Tick") + 'Guardamos Timeout + Monitor.timeout = et_timeout.text + Starter.skmt.ExecNonQuery($"delete from cat_variables where nombre = 'timeout'"$) + Starter.skmt.ExecNonQuery($"insert into cat_variables (nombre, valor) values ("timeout", '${et_timeout.text}')"$) + CallSubDelayed(Monitor, "Timer1_Tick") + p_engrane.Visible = False + ToastMessageShow($"Cambios guardados"$, False) End Sub \ No newline at end of file diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal index b8c0b1b..28eb723 100644 Binary files a/B4A/Files/login.bal and b/B4A/Files/login.bal differ diff --git a/B4A/Monitor-Keymon.b4a b/B4A/Monitor-Keymon.b4a index e736918..bdb352f 100644 --- a/B4A/Monitor-Keymon.b4a +++ b/B4A/Monitor-Keymon.b4a @@ -42,7 +42,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Monitor Keymon #VersionCode: 1 - #VersionName: 3.10.18 + #VersionName: 3.11.21 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Monitor-Keymon.b4a.meta b/B4A/Monitor-Keymon.b4a.meta index 3d658ee..f5275ea 100644 --- a/B4A/Monitor-Keymon.b4a.meta +++ b/B4A/Monitor-Keymon.b4a.meta @@ -15,13 +15,13 @@ ModuleBreakpoints5= ModuleBreakpoints6= ModuleBreakpoints7= ModuleClosedNodes0= -ModuleClosedNodes1=7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25 +ModuleClosedNodes1=7,8,9,10,11,14,15,18,19,21,22,24 ModuleClosedNodes2= ModuleClosedNodes3= ModuleClosedNodes4= ModuleClosedNodes5=5 ModuleClosedNodes6= ModuleClosedNodes7= -NavigationStack=B4XMainPage,b_ping_Click,211,0,B4XMainPage,CreateListItem,251,0,Monitor,probamosConexion,86,0,C_Subs,Class_Globals,0,0,Monitor,reinicializaReqManager,102,0,C_Subs,fechaKMT,42,0,Monitor,JobDone,143,6,NotificationService,Process_Globals,12,0,NotificationService,Service_Create,18,0,NotificationService,MonitorKeymon_NotificationPosted,35,0 +NavigationStack=B4XMainPage,Class_Globals,39,0,B4XMainPage,B4XPage_Appear,95,0,B4XMainPage,B4XPage_Created,83,0,Main,Process_Globals,20,0,B4XMainPage,l_info_Click,254,0,B4XMainPage,l_internet_Click,266,0,Visual Designer,login.bal,-100,6,B4XMainPage,l_dbreqserver_Click,265,0,B4XMainPage,b_ping_Click,219,0,B4XMainPage,l_db_Click,260,0,B4XMainPage,b_guardaCambios_Click,283,2 SelectedBuild=0 VisibleModules=1,7,3,5,6,4