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

Cambios funcionamiento

Browse Source
This commit is contained in:
cvaldes1201
2023-11-06 20:11:38 -06:00
parent fd6d581422
commit 3004841676
4 changed files with 18 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
seleccion.bas
View File

@@ -198,6 +198,8 @@ Sub Activity_Resume
c=skmt.ExecQuery("select noversion from version")
c.Position=0
HORAINGRESO ="000000"
If c.RowCount > 0 Then
If c.GetString("NOVERSION") <> "2.1" Then
ToastMessageShow("EXISTE UNA NUEVA VERSION ACTUALIZA POR FAVOR." , True)
cargar.Visible = False
@@ -207,6 +209,7 @@ Sub Activity_Resume
BUSCA.Visible = False
inv.Visible = False
End If
End If
c.Close
@@ -506,7 +509,7 @@ Sub cargar_Click
'cmd.Initialize
'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"
@@ -539,15 +542,17 @@ Sub cargar_Click
reqManager.ExecuteQuery(cmd , 0, "hist_datos")
'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT
Else
Log("aqui")
cmd.Initialize
cmd.Name = "select_punteo_re_DUR"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "punteo")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "gunaprod")
' cmd.Initialize
' cmd.Name = "select_almacen_guna_re_dur"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
' reqManager.ExecuteQuery(cmd , 0, "gunaprod")
cmd.Initialize
cmd.Name = "select_almacen_guna_re_dur"
@@ -625,6 +630,7 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
@@ -754,7 +760,9 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "punteo" Then 'query tag
Log("punteo")
For Each records() As Object In RESULT.Rows
Log("punteo2")
Dim HV_CLIENTE As String = records(RESULT.Columns.Get("HV_CLIENTE"))
Dim HV_LONG As String = records(RESULT.Columns.Get("HV_LONG"))
Dim HV_LAT As String = records(RESULT.Columns.Get("HV_LAT"))