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

...

Browse Source
This commit is contained in:
cvaldes1201
2023-11-20 08:41:28 -06:00
parent d94b8f2e77
commit a1b9b5056a
2 changed files with 36 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

67
seleccion.bas
View File

@@ -510,38 +510,7 @@ Sub cargar_Click
'cmd.Name = "Select_count_clie"
'reqManager.ExecuteQuery(cmd,0,"count_cli")
Log(ALMACEN)
If ALMACEN = "5" Or ALMACEN ="6" Or ALMACEN = "3" Then
cmd.Initialize
cmd.Name = "select_punteo_re_DUR2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_reparto_entrega_DUR2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "rechazo")
cmd.Initialize
cmd.Name = "select_cliente_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
Else
If ALMACEN = "1" Then
Log("aqui")
cmd.Initialize
@@ -574,6 +543,40 @@ Sub cargar_Click
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TO
Else
cmd.Initialize
cmd.Name = "select_punteo_re_DUR2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_reparto_entrega_DUR2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "rechazo")
cmd.Initialize
cmd.Name = "select_cliente_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN,e_ruta.text, ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
cmd.Initialize
cmd.Name = "select_ventad_guna_re_dur2"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
End If
c=skmt.ExecQuery("SELECT REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT, REP_FECHA FROM REPARTO")