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

Version: 5.04.28

Browse Source 
Ahora se envia la version de la aplicacion a TMP_DROP
This commit is contained in:
IsR0d
2025-05-02 10:59:46 -06:00
parent 44c02757dc
commit 9f19d26c77
3 changed files with 13 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Principal.bas
View File

@@ -430,6 +430,9 @@ Sub B4XPage_Appear
B4XPage_Appear
End If
CallSub(Starter,"ENVIA_ULTIMA_GPS")
End Sub
'Sub Activity_Pause (UserClosed As Boolean)
@@ -574,8 +577,8 @@ Sub Subir_Click
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name ="insert_drop2_DUR"
cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT)
cmd.Name ="insert_drop3_DUR"
cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
d3.Close
' PEDIO_CLIENTE
@@ -882,9 +885,9 @@ Sub cargar_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name ="insert_drop2_DUR"
cmd.Name ="insert_drop3_DUR"
'cmd.Name = "UPDATE_DUR_ACTUALR2_GPS"
cmd.Parameters = Array As Object(usuario, e_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT)
cmd.Parameters = Array As Object(usuario, e_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName)
' reqManager.ExecuteQuery(cmd , 0, "inst_noventa") xxxxxxxxxxxxxxx
'sql.UPDATE_DUR_ACTUALR2_GPS=UPDATE DURAKELO.CAT_RUTAS_REPARTO SET CAT_RR_MONTO_ACT = (?),CAT_RR_MRECH_ACT =(?),CAT_RR_VISIT_ACT =(?), CAT_RR_DEV_ACT =(?), CAT_RR_LAT_ACT =(?), CAT_RR_LONG_ACT =(?), CAT_RR_BAT_ACT =(?), CAT_RR_TT = (?), CAT_RR_MONTO = (?), CAT_RR_FECHA_ACT = SYSDATE WHERE CAT_RR_IDALMACEN = (?) And CAT_RR_RUTA = (?)
@@ -2708,8 +2711,8 @@ Sub SUBIR_P_Click
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name ="insert_drop2_DUR"
cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT)
cmd.Name ="insert_drop3_DUR"
cmd.Parameters = Array As Object(usuario,l_ruta.Text,fecha, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO", ALMACEN, L_VENTA.Text, L_PREVENTA.Text, L_ABORDO.Text, l_cambios.TEXT, Application.VersionName)
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
d3.Close
cuantos_pedidosc = 0