cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-19 21:59:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se agregó la version de la aplicacion a TMP_DROP

Browse Source 
- Se cambió el query de conexión para poder deshabilitar las versiones viejas.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-28 12:39:53 -06:00
parent c8af852285
commit 8aea8fc70c
4 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Principal.bas
View File

@@ -737,8 +737,8 @@ Sub Subir_Click
sTime=DateTime.Time(DateTime.Now)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name ="insert_drop_MARDS_2"
cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN)
cmd.Name ="insert_drop_MARDS_3" 'Se cambio el query de 2 a 3 para agregar la version de la app al tmp_drop
cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"ENVIO",ALMACEN,Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_noventa")
img2.Visible =True
PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
@@ -843,8 +843,8 @@ Sub cargar_Click
' imei = P.GetDeviceId
imei = "yyyy"
cmd.Initialize
cmd.Name ="insert_drop_MARDS_2"
cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGA",ALMACEN)
cmd.Name ="insert_drop_MARDS_3" 'Se cambio el query de 2 a 3 para agregar la version de la app al tmp_drop
cmd.Parameters = Array As Object(usuario,l_ruta.Text,sDate & sTime, l_porvisitar.Text,l_drop.Text,l_efectiva.Text,l_cuantosc.Text,l_cuantosn.Text, L_MONTOD.Text,"CARGA",ALMACEN,Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_noventa")
cmd.Initialize
@@ -1840,7 +1840,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_MARDS_6"
cmd.Name = "select_ruta_MARDS_PV" 'Se cambio de "select_ruta_MARDS_6" a "PV", para poder deshabilitar el query de conexion de variosnes viejas!
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "ruta")