cheveguerra/Mariana-Reparto-V5
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana-Reparto-V5.git synced 2026-04-21 06:39:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se cambia la versión y el select_ruta_re_REPG4 al 5 para poder cancelar las versiones anteriores

Browse Source
This commit is contained in:
jalarakmt
2026-04-20 11:13:08 -06:00
parent 9010bc9b33
commit b9a1351150
3 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Principal.bas
View File

@@ -1122,7 +1122,7 @@ Sub cargar____Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_mards"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA")
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
' reqs.Add("inst_noventa")
@@ -1985,7 +1985,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_re_REPG4"
cmd.Name = "select_ruta_re_REPG5"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, Subs.traeUsuario)
' Log($"${ALMACEN}, ${e_ruta.text}, ${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")
@@ -1994,7 +1994,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_drop_rep_mards"
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, l_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGAR",Application.VersionName)
cmd.Parameters = Array As Object(Subs.dameUsuarioDeDB, e_ruta.Text, ALMACEN, l_ctast.text, Subs.traeEntregados, Subs.traeRechazados, "CARGA",Application.VersionName)
reqManager.ExecuteCommand(cmd , "inst_drop")
ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)