cheveguerra/Guna_Reparto_Diseno_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Reparto_Diseno_Viejo.git synced 2026-04-22 15:10:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

cambios en la carga

Browse Source
This commit is contained in:
cvaldes1201
2024-04-08 10:33:25 -06:00
parent 97e92b1b2d
commit 78a8f54c1d
6 changed files with 29 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_Principal.bas
View File

@@ -631,7 +631,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_punteo_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
Log($"Pedimos Punteo"$)
reqs.Add("punteo")
@@ -639,7 +639,7 @@ Sub cargar_Click
If l_ruta.Text = "0" Then
cmd.Initialize
cmd.Name = "select_almacen_guna_re_REPG2"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
Log($"Pedimos gunaprod - ${ALMACEN}, ${e_ruta.text}"$)
reqs.Add("gunaprod")
@@ -648,14 +648,14 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_cliente_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
Log($"Pedimos kmt_datos"$)
reqs.Add("kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
Log($"Pedimos hist_datos"$)
reqs.Add("hist_datos")
@@ -665,25 +665,25 @@ Sub cargar_Click
cargo = 2
cmd.Initialize
cmd.Name = "select_punteo_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
reqs.Add("punteo")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_REPG2"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
reqs.Add("gunaprod")
cmd.Initialize
cmd.Name = "select_cliente_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN,ALMACEN,e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
reqs.Add("kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_guna_re_REPG2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
reqs.Add("hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT