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

Version: 4:11:02

Browse Source 
Se arrglo el resumen dia, ahora puedes entrar sin necesidad de hacer algun pedido sin que truene, se muestra la cantidad de clientes visitados sin importar si tienen o no tienen venta y tambien se le agrego la cantidad de clientes que si tienen venta.
This commit is contained in:
IsR0d
2024-11-04 12:36:27 -06:00
parent 65319638b4
commit f9f3ff7d6e
545 changed files with 22807 additions and 103664 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/Starter.bas
View File

@@ -91,7 +91,18 @@ Sub ENVIA_ULTIMA_GPS
cmd.Name = "UPDATE_MEDI_ACTUAL2_GPS"
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
'isaacPrueba
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)
Private cursor As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT Sum(montoVentav) AS MONTO_VENTA FROM VENTA_NO_VENTA")
cursor.Position = 0
Private cursor2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT (*) AS CUENTA_TODO FROM VENTA_NO_VENTA")
cursor2.Position = 0
Private cursor3 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT COUNT (*) AS CUENTA_VENTA FROM VENTA_NO_VENTA WHERE montoVentaV <> 0")
cursor3.Position = 0
cmd.Parameters = Array As String(cursor.GetString("MONTO_VENTA"), cursor2.GetString("CUENTA_TODO"), cursor3.GetString("CUENTA_VENTA"),B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
cursor.Close
cursor2.Close
cursor3.Close
' 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}"$)
reqManager.ExecuteCommand(cmd, "inst_visitas")
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))