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

Importacion base y otra cosa

Browse Source
This commit is contained in:
cvaldes1201
2024-05-13 19:43:44 -06:00
parent 5f700af26c
commit 201ffb113f
5 changed files with 125 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
seleccion.bas
View File

@@ -457,15 +457,19 @@ 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
Log("Enviamos reprogramados: " & r.RowCount)
For rx = 0 To r.RowCount - 1
r.Position = rx
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_reprogramar_INTMEX"
cmd.Parameters = Array As Object(r.GetString("NV_CLIENTE"),r.GetString("NV_REPROGRAMAR"))
reqManager.ExecuteCommand(cmd , "ins_reprogramar")
Next
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
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_reparto_reprogramar2_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
r.Close
'd.Position=0