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

- VERSION 5.09.03

Browse Source 
- Se corrigieron textos.
- Se corrigio que a veces mandaba coordenadas en blanco a la bitacora, ahora nos aseguramos de siempre tener las coordenadas disponibles
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-09-17 13:11:19 -06:00
parent a73c9d4290
commit 003e50a6b1
14 changed files with 94 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/C_Principal.bas
View File

@@ -592,7 +592,7 @@ Sub B4XPage_Appear
End Sub
Sub b_subir_Click
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, ALMACEN, l_ruta.Text, "Enviar Dia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, "2", "", "", "")
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, ALMACEN, l_ruta.Text, "Enviar Dia", "", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "")
CARGA = "SUBIR"
p_mandaInfo.Width = Root.Width
p_mandaInfo.Height = Root.Height
@@ -2353,7 +2353,6 @@ Sub B_OK_PAS_Click
img2.Visible=False
Subs.panelVisible(p_principal, 0, 0)
If E_RUTA2.Text <> "" Then
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
End If
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTAA(RUTAA) VALUES(?)",Array As String(e_ruta.Text))
@@ -2442,7 +2441,7 @@ Sub resdia_Click
Private utr As Cursor = Starter.skmt.ExecQuery($"select ifnull(sum(pe_peso),0) as totalPesoActual,
(select count(pe_cliente) from pesos where pe_tipo = 'VENTA') as conVenta,
(select count(distinct pe_cliente) from pesos) as visitados,
(select count(cat_cl_codigo) from kmt_info) as totalAVisitar
(select count(cat_cl_codigo) from kmt_info where cat_cl_codigo not in ('0', '1')) as totalAVisitar
from pesos"$)
If utr.RowCount > 0 Then
utr.position = 0
@@ -2847,8 +2846,6 @@ Private Sub p_mandaInfo_Click
End Sub
Private Sub iv_abordo_Click
Starter.skmt.ExecNonQuery("delete from CUENTAA")
Starter.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object("0"))