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

Version: 5.05.18

Browse Source 
Se corrigió el como se estaba enviando la información de las promociones.
Se agrego al config propertis el query de actualizaGPS3.
This commit is contained in:
IsR0d
2025-05-22 11:01:13 -06:00
parent ec9e4b8f8d
commit 47919c670a
7 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Principal.bas
View File

@@ -601,8 +601,8 @@ Sub Subir_Click
c.Position=i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "UPDATE_INTMEX_ACTUAL2_GPS"
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text,l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"),batterystatus(0),LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text )
cmd.Name = "UPDATE_INTMEX_ACTUAL3_GPS"
cmd.Parameters = Array As Object(L_MONTOD.Text, L_CUANTOST.Text, l_cuantosc.Text, l_porvisitar.TEXT,c.GetString("hglat"),c.GetString("hglon"), batterystatus(0), Application.VersionName,Starter.senial,LPT, STEYIN, STEYOUT,ALMACEN,l_ruta.Text)
reqManager.ExecuteCommand(cmd , "update_gps")
Next
End If