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

- VERSION 5.05.27

Browse Source 
- Se cambio el servidor de DBReq a keymon.net
- Se hizo que el envio de ubicacion en tiempo real siempre inicialize el servidor de DBReq con la ip correcta, porque si se modificaba la direccion desde el engrane, no enviaba bien la informacion!
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-05-28 16:40:29 -06:00
parent 75ac8e75af
commit 22c0be4b6d
4 changed files with 18 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/B4XMainPage.bas
View File

@@ -388,7 +388,7 @@ Sub Entrar_Click
End Sub
Sub JobDone(Job As HttpJob)
Log(Job.Success)
Log("Main.JobDone: " & Job.Success)
If Job.Success = False Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
@@ -632,7 +632,7 @@ Sub i_engrane_Click
b_mandaUsrs.Visible = False
cb_importarBDWA.Checked = Subs.traeUsarIntentBDWA
p_importarBDWA.Visible = False
lv_server.AddSingleLine("http://keymon.lat:1781")
lv_server.AddSingleLine("http://keymon.net:1781")
If user.Text = "KMTS1" Then
lv_server.AddSingleLine("http://10.0.0.205:1781")
b_mandaUsrs.Visible = True
@@ -720,7 +720,7 @@ Private Sub b_mandaUsrs_Click
Private c As Cursor = Starter.skmt.ExecQuery($"select * from kmt_info"$)
Private dbr As DBRequestManager
Private cmd1 As DBCommand
dbr.Initialize(Me, "http://keymon.lat:1781")
dbr.Initialize(Me, "http://keymon.net:1781")
If c.RowCount > 0 Then
subirClientes = c.RowCount - 1
Subs.centraPanel(p_avanceSubirUsrs, p_appUpdate.Width)