cheveguerra/ADM2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM2.git synced 2026-04-17 19:36:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 6.01.20

Browse Source 
- Se agrego un "mandaPendientes" en bitacora para cuando por problemas de red no se puede enviar el evento.
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-01-27 16:21:22 -06:00
parent 6875e0a244
commit eebc8a81c1
9 changed files with 104 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Principal.bas
View File

@@ -315,7 +315,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
l_rutasuplencia.Text = s.GetString("RS_RUTA")
End If
Starter.Skmt.ExecNonQuery($"create table if not exists kmt_info2 (${getTableColumnList(Starter.skmt, "kmt_info")})"$)
bitacora.Initialize("bitacora", "bitacora", Root, Starter.skmt, reqManager)
bitacora.Initialize("bitacora", "bitacora", Root, Starter.skmt, Starter.DBReqServer)
p_mandaInfo.Top = 0 : p_mandaInfo.Left = 0
End Sub
@@ -564,7 +564,8 @@ Sub B4XPage_Appear
' Log(d.GetString("CAT_GP_NOMBRE"))
' Next
' d.Close
Sleep(500)
bitacora.mandaPendientes
End Sub
Sub Subir_Click
@@ -616,7 +617,7 @@ Sub Subir_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "UPDATE_ADM3_ACTUAL2_GPS"
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),NumberFormat2(LPT,1,5,2,False), STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
reqManager.ExecuteCommand(cmd , "update_gps")
Next
End If
@@ -1253,7 +1254,7 @@ Sub JobDone(Job As HttpJob)
For Each records() As Object In RESULT.Rows
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
Log("-" &CAT_CL_RUTA)
' Log("-" &CAT_CL_RUTA)
Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1"))
Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2"))
@@ -2217,6 +2218,7 @@ Sub e_ruta_EnterPressed
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CLIENTES_NUEVOS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM ENV_MONTO_LIQ")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_UBICACIONES")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM BITACORAGPS")
Starter.skmt.ExecNonQuery("update CAT_VARIABLES set CAT_VA_VALOR = '' where CAT_VA_DESCRIPCION = 'FOTO_INICIAL'")
B4XPage_Appear
l_rutasuplencia.Visible = False
@@ -2224,6 +2226,7 @@ Sub e_ruta_EnterPressed
l_rutasuplencia.Text = ""
End If
End If
If e_ruta.Text = "IWL" Then
' trabajar.Visible = False
NUEVO.Visible =False
@@ -2232,6 +2235,7 @@ Sub e_ruta_EnterPressed
' img3.Visible =True
Resumen.Visible= False
End If
If e_ruta.Text = "SUPLENCIA" Then
E_RUTA2.Visible = True
Panel11.Visible = True