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

Correccion de reprogramados y envio de los rechazos

Browse Source
This commit is contained in:
cvaldes1201
2024-05-21 16:34:06 -06:00
parent 201ffb113f
commit 530971af11
3 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
seleccion.bas
View File

@@ -190,6 +190,7 @@ Sub Activity_Create(FirstTime As Boolean)
End Sub
Sub Activity_Resume
reqManager.Initialize(Me, Main.server)
Subs.centraPanel(p_principal, Activity.Width)
c=Starter.skmt.ExecQuery("select noversion from version")
c.Position=0
@@ -457,19 +458,20 @@ Sub Subir_Click
'Buscamos ordenes a reprogramar.
Dim r As Cursor =Starter.skmt.ExecQuery("select * from noventa where nv_reprogramar = 1")
If r.RowCount > 0 Then
Dim o As Cursor = Starter.skmt.ExecQuery2("select HVD_FECHA, CAT_CL_RUTA FROM HIST_VENTAS INNER JOIN on kmt_info on HVD_CLIENTE = cat_cl_codigo WHERE HVD_CLIENTE = ?",Array As String(r.GetString("NV_CLIENTE")))
If o.RowCount > 0 Then
o.Position = 0
Log("Enviamos reprogramados: " & r.RowCount)
For rx = 0 To r.RowCount - 1
r.Position = rx
For rx = 0 To r.RowCount - 1
r.Position = rx
Dim o As Cursor = Starter.skmt.ExecQuery2("select HVD_FECHA, CAT_CL_RUTA FROM HIST_VENTAS INNER JOIN kmt_info on HVD_CLIENTE = cat_cl_codigo WHERE HVD_CLIENTE = ?",Array As String(r.GetString("NV_CLIENTE")))
If o.RowCount > 0 Then
o.Position = 0
Log("Enviamos reprogramados: " & r.RowCount)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_reprogramar2_INTMEX"
cmd.Name = "insert_reparto_reprogramar3_INTMEX"
cmd.Parameters = Array As Object(r.GetString("NV_CLIENTE"),r.GetString("NV_REPROGRAMAR"),o.GetString("HVD_FECHA"),o.GetString("CAT_CL_RUTA"),ALMACEN)
reqManager.ExecuteCommand(cmd , "ins_reprogramar")
Next
End If
End If
Next
End If
r.Close
'd.Position=0
@@ -527,7 +529,7 @@ Sub cargar_Click
LogColor("Reqs Agregamos kmt_datos", Colors.Blue)
cmd.Initialize
cmd.Name = "select_ventad_INTMEX_re_REPG"
cmd.Name = "select_ventad2_INTMEX_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
reqs.Add("hist_datos")
@@ -565,7 +567,7 @@ Sub cargar_Click
LogColor("Reqs Agregamos kmt_datos", Colors.Blue)
cmd.Initialize
cmd.Name = "select_ventad_INTMEX_re_REPG"
cmd.Name = "select_ventad2_INTMEX_re_REPG"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
reqs.Add("hist_datos")
@@ -1024,6 +1026,7 @@ Sub connecta_Click
cmd.Name = "select_ruta_re_REPG_INTMEX"
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
reqManager.ExecuteQuery(cmd , 0, "ruta")
Log(Main.server)
ToastMessageShow("Validando Conexión." , True)
End Sub