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

3
intmex_reparto.b4a
View File

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

4
intmex_reparto.b4a.meta
View File

@@ -56,7 +56,7 @@ ModuleClosedNodes14=
ModuleClosedNodes15= ModuleClosedNodes15=
ModuleClosedNodes16= ModuleClosedNodes16=
ModuleClosedNodes17= ModuleClosedNodes17=
ModuleClosedNodes18=2,3,4,6,7,8,9 ModuleClosedNodes18=3,6,7,8,9
ModuleClosedNodes19=3,4,5,6,7,8 ModuleClosedNodes19=3,4,5,6,7,8
ModuleClosedNodes2= ModuleClosedNodes2=
ModuleClosedNodes20= ModuleClosedNodes20=
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=2,7,11 ModuleClosedNodes8=2,7,11
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=19,23,20,18,4,5,8,15,6,9 VisibleModules=19,23,20,18,4,5,8,15,6,9

25
seleccion.bas
View File

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