cheveguerra/Guna_Preventa_BAT
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa_BAT.git synced 2026-04-17 21:06:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

version 6.02.10

Browse Source
This commit is contained in:
cvaldes1201
2026-02-23 10:47:59 -06:00
parent 83a53c02ab
commit 5c250388dc
1125 changed files with 97905 additions and 300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
B4A/Starter.bas
View File

@@ -115,8 +115,25 @@ Sub ENVIA_ULTIMA_GPS
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "UPDATE_GUNA_ACTUAL2_GPS2"
Private s7 As Cursor = B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_CANT) AS PE_CANT, PE_PROID FROM PEDIDO WHERE PE_PROID IN (SELECT CAT_GP_ID FROM CAT_GUNAPROD WHERE CAT_GP_TIPO = 'CIGARRO') GROUP BY PE_PROID")
If s7.RowCount > 0 Then
Dim totalstick As Int = 0
For sfsdf = 0 To s7.RowCount -1
s7.Position= sfsdf
Log("ENTRE AQUI")
Dim s8 As Cursor = B4XPages.MainPage.skmt.ExecQuery($"SELECT ifnull(CAT_GP_CONVERSION3,0) as CAT_GP_CONVERSION3 FROM CAT_GUNAPROD WHERE CAT_GP_ID = '${s7.GetString("PE_PROID")}'"$)
s8.Position = 0
totalstick = totalstick + (s7.GetString("PE_CANT")* s8.GetString("CAT_GP_CONVERSION3"))
Dim totalpaquete As Int = 0
totalpaquete = totalpaquete +(totalstick/200)
Log(totalpaquete)
Next
End If
cmd.Parameters = Array As Object(NumberFormat2(B4XPages.MainPage.montoActual,0,2,2,False), B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,encuesta,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
cmd.Parameters = Array As Object(NumberFormat2(B4XPages.MainPage.montoActual,0,2,2,False), B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, totalpaquete,totalstick,encuesta,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
' 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, "actualizaUltimaGPS")
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))