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

- VERSION 4.10.02

Browse Source 
- Se agregó el almacen a todas las tablas necesarias y a los queries de envio de información.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-10-03 15:24:11 -06:00
parent e85f953e73
commit ead56c8758
16 changed files with 2900 additions and 358 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
B4A/B4XMainPage.bas
View File

@@ -85,6 +85,11 @@ Sub Class_Globals
Public Provider As FileProvider
Public rutaBDBackup As String = ""
Dim rutarep As String
Private p_ruteo As Panel
' Private lv_algoritmo As ListView
' Private lv_matriz As ListView
Private s_algoritmo As Spinner
Private s_matriz As Spinner
End Sub
Public Sub Initialize
@@ -146,10 +151,17 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("REPARTO", "REP_CLI_ORIG", "TEXT")
Subs.agregaColumna("REPARTO", "REP_PRECIO", "TEXT")
Subs.agregaColumna("REPARTO", "REP_RECHAZO", "INTEGER")
Subs.agregaColumna("REPARTO", "REP_IDALMACEN", "TEXT")
Subs.agregaColumna("RECHAZOS", "R_PRECIO", "TEXT")
Subs.agregaColumna("VENTAS", "V_PRECIO", "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)")
Subs.agregaColumna("kmt_info", "CAT_CL_IDALMACEN", "TEXT")
Subs.agregaColumna("HIST_VENTAS", "HVD_IDALMACEN", "TEXT")
Subs.agregaColumna("HIST_VENTAS2", "HVD_IDALMACEN", "TEXT")
Subs.agregaColumna("NOVENTA", "NV_IDALMACEN", "TEXT")
Subs.agregaColumna("RECHAZOS", "R_IDALMACEN", "TEXT")
Subs.agregaColumna("VENTAS", "V_IDALMACEN", "TEXT")
' Dim server As String = "http://11.0.0.151:1782"
Dim server As String = "http://187.189.244.154:1782"
' Dim server As String = "http://11.0.0.12:1782"
@@ -161,7 +173,19 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Dim P As PhoneId
Log("provider")
Provider.Initialize
s_algoritmo.AddAll(Array As String("Nearest Neighbor", "Nearest Insertion"))
s_algoritmo.TextSize = 13
s_matriz.AddAll(Array As String("OSRM", "LOCAL"))
s_matriz.TextSize = 13
Subs.centraPanel(p_ruteo, Root.Width)
' lv_algoritmo.AddSingleLine2("Nearest Neighbor","NN")
' lv_algoritmo.AddSingleLine2("Nearest Insertion", "NI")
' lv_algoritmo.SingleLineLayout.Label.TextColor = Colors.black
' lv_algoritmo.SingleLineLayout.Label.TextSize = 11
' lv_matriz.AddSingleLine("OSRM")
' lv_matriz.AddSingleLine("LOCAL")
' lv_matriz.SingleLineLayout.Label.TextColor = Colors.black
' lv_matriz.SingleLineLayout.Label.TextSize = 11
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
@@ -201,11 +225,18 @@ Sub B4XPage_Appear
' If Result Then
' Log("Con permisos de escritura externa")
' End If
Private al As String = "Nearest Neighbor"
If Subs.traeAlgoritmoRuteo <> "NN" Then al = "Nearest Insertion"
s_algoritmo.SelectedIndex = s_algoritmo.IndexOf(al)
s_matriz.SelectedIndex = s_matriz.IndexOf(Subs.traeMatrizRuteo)
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub Entrar_Click
If user.Text = "x" And pass.Text = "" Then
user.Text = "CAPACITACIONR"
End If
If pass.Text = "YA" Then
Starter.skmt.ExecNonQuery("delete from usuarioa")
Starter.skmt.ExecNonQuery("delete from VERSION")
@@ -242,6 +273,7 @@ Sub Entrar_Click
End Sub
Sub JobDone(Job As HttpJob)
Log("JobDone MainPage: " & Job.Success)
If Job.Success = False Then
ToastMessageShow("Error: " & Job.ErrorMessage, True)
Else
@@ -309,7 +341,10 @@ Private Sub i_engrane_Click
Subs.centraBoton(b_server, p_serverList.Width)
lv_server.Clear
lv_server.AddSingleLine("http://keymon.lat:1782")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.222:1782")
If user.Text = "KMTS1" Then
lv_server.AddSingleLine("http://11.0.0.222:1782")
p_ruteo.Visible = True
End If
' l_server.Text = Starter.server
et_server.Text = server
Subs.panelVisible(p_appUpdate, 0, 0)
@@ -391,4 +426,26 @@ End Sub
'appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
Sub ocultaProgreso
ProgressDialogHide
End Sub
'Private Sub lv_algoritmo_ItemClick (Position As Int, Value As Object)
' Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("ALGORITMO_RUTEO"))
' Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("ALGORITMO_RUTEO",Value))
'End Sub
'
'Private Sub lv_matriz_ItemClick (Position As Int, Value As Object)
' Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MATRIZ_RUTEO"))
' Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MATRIZ_RUTEO",Value))
'End Sub
Private Sub s_algoritmo_ItemClick (Position As Int, Value As Object)
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("ALGORITMO_RUTEO"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("ALGORITMO_RUTEO",Value))
Log(Value)
End Sub
Private Sub s_matriz_ItemClick (Position As Int, Value As Object)
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("MATRIZ_RUTEO"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("MATRIZ_RUTEO",Value))
Log(Value)
End Sub