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.08.29

Browse Source 
- Se limpió la pantalla de "Resumen Dia".
- Se revisó que se envien bien los datos de la ubicacion en tiempo real a CAT_RUTAS
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-08-29 17:23:58 -06:00
parent 36012f89ec
commit 2a64f8cb6e
5 changed files with 257 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
B4A/Starter.bas
View File

@@ -93,7 +93,7 @@ Sub Service_Destroy
End Sub
Sub ENVIA_ULTIMA_GPS
Dim logger As Boolean = False
Dim logger As Boolean = True
If logger Then LogColor("Iniciamos ENVIA_ULTIMA_GPS", Colors.Magenta)
Dim cmd As DBCommand
' cmd.Initialize
@@ -102,9 +102,37 @@ Sub ENVIA_ULTIMA_GPS
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "UPDATE_ADM_ACTUAL2_GPS"
' En el campo CAT_RU_MONTO_ACT necesito que Me mandes el monto total de peso que llevan al momento. 1
' En el campo CAT_RU_TTOTAL_ACT necesito saber si Me estas mandando los clientes totales por día. 4
' En el campo CAT_RU_TVISIT_ACT necesito que Me mandes el total de visitas realizadas. 2
' En el campo CAT_RU_TVENTA_ACT necesito que Me mandes el total de visitas con venta. 3
Private totalPesoActual As String = 0
Private conVenta As String = 0
Private visitados As String = 0
Private totalAVisitar As String = 0
Private utr As Cursor = skmt.ExecQuery($"select sum(pe_peso) 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
from pesos"$)
If utr.RowCount > 0 Then
utr.position = 0
If logger Then Log("totalPesoActual: " & utr.GetString("totalPesoActual"))
totalPesoActual = utr.GetString("totalPesoActual")
conVenta = utr.GetString("conVenta")
If logger Then Log("conVenta: " & utr.GetString("conVenta"))
visitados = utr.GetString("visitados")
If logger Then Log("visitados: " & utr.GetString("visitados"))
totalAVisitar = utr.GetString("totalAVisitar")
If logger Then Log("totalAVisitar: " & utr.GetString("totalAVisitar"))
End If
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
If logger Then Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
cmd.Parameters = Array As Object(totalPesoActual, visitados, conVenta, totalAVisitar, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.batt, 0, 0, 0, B4XPages.MainPage.ALMACEN, B4XPages.MainPage.rutapreventa)
If logger Then Log($"Ruta: ${B4XPages.MainPage.rutapreventa}, pesoActual: ${totalPesoActual}, cTotal: ${totalAVisitar}, cVenta: ${conVenta}, cVisitados: ${visitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
reqManager.ExecuteCommand(cmd, "ubicacionTiempoReal")
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"