cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-21 06:39:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

5/11/23 - Cambios en engrane para modificar el server directamente

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-06 10:03:00 -06:00
parent b929a7dc86
commit dbb98c8f27
7 changed files with 43 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
B4A/B4XMainPage.bas
View File

@@ -99,6 +99,8 @@ Sub Class_Globals
Dim ime As IME
Dim MES1 As ManageExternalStorage
Dim device As Phone
Private et_server As EditText
Private b_guardar As Button
End Sub
Public Sub Initialize
@@ -259,6 +261,7 @@ Sub B4XPage_Appear
LogColor($"////////////////// DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue)
DBReqServer = Starter.DBReqServer
reqManager.Initialize(Me, Starter.DBReqServer)
Log(Starter.DBReqServer)
tgl.Initialize()
If Not(Starter.gps.GPSEnabled) Then
ToastMessageShow("Es necesario tener el GPS encendido", True)
@@ -319,6 +322,7 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub Entrar_Click
Log(Starter.DBReqServer)
Dim r As Reflector
Dim Api As Int
Dim PP As Phone
@@ -421,9 +425,15 @@ Sub Entrar_Click
End Sub
Sub JobDone(Job As HttpJob)
Log(Job.Success)
If B4XPages.MainPage.reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
If B4XPages.MainPage.reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
B4XPages.MainPage.reqManager.reqsList.RemoveAt(B4XPages.MainPage.reqManager.reqsList.IndexOf(Job.tag))
LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
End If
LogColor(">>>>>> " & B4XPages.MainPage.reqManager.reqsList.Size & " - " & B4XPages.MainPage.reqManager.reqsList, Colors.Blue)
End If
If Job.Success = False Then
ToastMessageShow("Error: " & Job.ErrorMessage, True)
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
Else
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
If Job.JobName = "DBRequest" Then
@@ -662,6 +672,7 @@ End Sub
Sub i_engrane_Click
lv_server.Clear
ime.HideKeyboard
lv_server.AddSingleLine("http://keymon.lat:1781")
lv_server.AddSingleLine("http://keymon.lat:1782")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
' lv_server.AddSingleLine("http://40.123.36.38:1782")
@@ -685,6 +696,7 @@ End Sub
Private Sub lv_server_ItemClick (Position As Int, Value As Object)
Starter.DBReqServer = Value
l_server.Text = Value
et_server.Text = Value
Starter.reinicializaReqManager(Value)
' Starter.reqManager.Initialize(Me, Value)
ToastMessageShow("Servidor modificado", False)
@@ -716,3 +728,9 @@ Private Sub b_importarBD_Click
B4XPages.MainPage.skmt.Initialize(Starter.ruta,"kmt.db", True) 'Reiniciliza la base de datos con la recien importada.
ToastMessageShow("¡BD importada!", False)
End Sub
Private Sub b_guardar_Click
Starter.reinicializaReqManager(et_server.Text.Trim)
p_appUpdate.Visible = False
End Sub