cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-20 14:19:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

23/9/23 - Reinicialización de DBReqServer

Browse Source 
- Cambio pequeño para la reinicilaización del DBReqServer cuando se cambia desde el engrane.
This commit is contained in:
cheveguerra
2023-09-24 00:17:10 -06:00
parent 3b3f808653
commit 6040a2ab5c
4 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/B4XMainPage.bas
View File

@@ -723,7 +723,8 @@ Private Sub lv_server_ItemClick (Position As Int, Value As Object)
Starter.DBReqServer = Value Starter.DBReqServer = Value
' l_server.Text = Value ' l_server.Text = Value
et_server.Text = Value et_server.Text = Value
Starter.reqManager.Initialize(Me, Value) Starter.reinicializaReqManager(Value)
' Starter.reqManager.Initialize(Me, Value)
ToastMessageShow("Servidor modificado", False) ToastMessageShow("Servidor modificado", False)
End Sub End Sub

5
B4A/C_RespaldoDiario.bas
View File

@@ -8,7 +8,7 @@ Sub Class_Globals
Private Root As B4XView 'ignore Private Root As B4XView 'ignore
Private xui As XUI 'ignore Private xui As XUI 'ignore
Dim skmt, rkmt As SQL Dim skmt, rkmt As SQL
Dim rp As RuntimePermissions ' Dim rp As RuntimePermissions
Dim safePath As String Dim safePath As String
Dim fechaHoy As String Dim fechaHoy As String
Dim skmtAttached As Boolean = False Dim skmtAttached As Boolean = False
@@ -19,7 +19,7 @@ Public Sub Initialize As Object
' Log("************************** " & safePath) ' Log("************************** " & safePath)
Dim Dirp As String = File.DirRootExternal Dim Dirp As String = File.DirRootExternal
Dim Dir As String Dim Dir As String
Dim Dir2 As String ' Dim Dir2 As String
Try Try
File.MakeDir(Dirp,"/kmts") File.MakeDir(Dirp,"/kmts")
Dir = "/kmts" Dir = "/kmts"
@@ -30,6 +30,7 @@ Public Sub Initialize As Object
End Try End Try
' safePath = rp.GetSafeDirDefaultExternal("./") ' safePath = rp.GetSafeDirDefaultExternal("./")
safePath = Dirp & Dir safePath = Dirp & Dir
private name =
rkmt.Initialize(safePath,"md.rkmt.km", True) rkmt.Initialize(safePath,"md.rkmt.km", True)
skmt.Initialize(File.DirInternal,"kmt.db", False) skmt.Initialize(File.DirInternal,"kmt.db", False)
'############################################################################################################# '#############################################################################################################

2
B4A/Mariana.b4a
View File

@@ -750,7 +750,7 @@ Module9=C_NoVenta
NumberOfFiles=347 NumberOfFiles=347
NumberOfLibraries=26 NumberOfLibraries=26
NumberOfModules=26 NumberOfModules=26
Version=12.5 Version=12.2
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Mariana #ApplicationLabel: Mariana

4
B4A/Mariana.b4a.meta
View File

@@ -69,7 +69,7 @@ ModuleClosedNodes20=
ModuleClosedNodes21= ModuleClosedNodes21=
ModuleClosedNodes22= ModuleClosedNodes22=
ModuleClosedNodes23= ModuleClosedNodes23=
ModuleClosedNodes24=9 ModuleClosedNodes24=9,10,11
ModuleClosedNodes25= ModuleClosedNodes25=
ModuleClosedNodes26= ModuleClosedNodes26=
ModuleClosedNodes3= ModuleClosedNodes3=
@@ -79,6 +79,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=NotificationService,Service_Start,25,0,NotificationService,getShortcut,157,0,NotificationService,getNumberOrGroupWA,148,0,NotificationService,Process_Globals,8,5,NotificationService,esMensajeWAValido,56,0,Starter,Service_Start,54,0,B4XMainPage,B4XPage_Created,226,0,Starter,Process_Globals,9,5,NotificationService,NotiMon_NotificationPosted,48,6,B4XMainPage,b_regesar_Click,693,6 NavigationStack=Starter,reinicializaReqManager,122,0,B4XMainPage,JobDone,481,0,B4XMainPage,muestraProgreso,676,0,B4XMainPage,i_engrane_Click,690,0,B4XMainPage,ocultaProgreso,681,0,C_RespaldoDiario,Class_Globals,9,0,C_RespaldoDiario,Initialize,26,2,B4XMainPage,Entrar_LongClick,714,0,Starter,ENVIA_ULTIMA_GPS,74,0,B4XMainPage,lv_server_ItemClick,719,3
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,24,23,12,16,25,13,15,6,8 VisibleModules=2,24,23,12,16,25,13,15,6,8