VERSION 6.01.05

- Se cambio el nombre de las imagenes cuando se realiza a primera venta.
- Se agrego la fecha de la bitacora en todos lados para que siempre ponga inicioi y fin
This commit is contained in:
2026-01-08 20:51:03 -06:00
parent 4ec4846e4e
commit f4fa1e08d1
7 changed files with 36 additions and 36 deletions

View File

@@ -1173,7 +1173,7 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "update_gps" Then
For Each records() As Object In RESULT.Rows
Log("==========================REGISTROS="&RESULT.Rows)
Log("==========================REGISTROS="&RESULT.Rows.size)
For Each k As String In RESULT.Columns.Keys
Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
Next
@@ -2167,6 +2167,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")
Starter.skmt.ExecNonQuery("update CAT_VARIABLES set CAT_VA_VALOR = '' where CAT_VA_DESCRIPCION = 'FOTO_INICIAL'")
B4XPage_Appear
l_rutasuplencia.Visible = False
Label22.Visible = False