cheveguerra/Intmex_Reparto_Vieja
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Reparto_Vieja.git synced 2026-04-17 21:06:13 +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

3
intmex_reparto.b4a
View File

@@ -134,7 +134,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Intmex-Reparto
#VersionCode: 1
#VersionName: 4.05.08
#VersionName: 4.05.19
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
@@ -226,6 +226,7 @@ Sub Activity_Create(FirstTime As Boolean)
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
Dim server As String = "http://187.189.244.154:1781"
' Dim server As String = "http://11.0.0.107:1781"
' server = "http://10.0.0.205:1782"
' server = "http://11.0.0.44:1782"
If FirstTime Then

4
intmex_reparto.b4a.meta
View File

@@ -56,7 +56,7 @@ ModuleClosedNodes14=
ModuleClosedNodes15=
ModuleClosedNodes16=
ModuleClosedNodes17=
ModuleClosedNodes18=2,3,4,6,7,8,9
ModuleClosedNodes18=3,6,7,8,9
ModuleClosedNodes19=3,4,5,6,7,8
ModuleClosedNodes2=
ModuleClosedNodes20=
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=2,7,11
ModuleClosedNodes9=
NavigationStack=seleccion,Subir_Click,445,6,seleccion,cargar_Click,486,0,Main,Activity_Create,76,0,Main,i_engrane_Click,262,2,Main,b_envioBD_Click,277,0,Main,Globals,73,0,Main,Activity_Resume,116,0,Diseñador Visual,login.bal,-100,6,Main,b_server_Click,302,1,Main,b_regesar_Click,277,0
NavigationStack=nopago,cb_reprogramar_CheckedChange,124,0,nopago,GUARDA_Click,80,0,seleccion,JobDone,798,0,Diseñador Visual,nopago.bal,-100,4,Diseñador Visual,seleccion.bal,-100,1,seleccion,Activity_Create,102,0,seleccion,Activity_Resume,246,0,seleccion,Subir_Click,451,6,seleccion,cargar_Click,559,0,Main,Activity_Create,94,3
SelectedBuild=0
VisibleModules=19,23,20,18,4,5,8,15,6,9

17
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")))
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)
For rx = 0 To r.RowCount - 1
r.Position = rx
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
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