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

4.11.28

Browse Source
This commit is contained in:
Javier
2025-09-01 13:58:00 -06:00
parent 854e3f8f3b
commit 04089d5859
3 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/B4XMainPage.bas
View File

@@ -196,7 +196,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT") Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT")
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://keymon.net:1781"
' Dim server As String = "http://192.168.100.10:1781" ' Dim server As String = "http://192.168.100.10:1781"
' Dim server As String = "http://keymon.lat:9000" ' Dim server As String = "http://keymon.lat:9000"
' server = "http://10.0.0.205:1782" ' server = "http://10.0.0.205:1782"
@@ -527,7 +527,7 @@ Private Sub i_engrane_Click
Subs.centraBoton(b_regesar, Root.Width) Subs.centraBoton(b_regesar, Root.Width)
Subs.centraBoton(b_server, p_serverList.Width) Subs.centraBoton(b_server, p_serverList.Width)
lv_server.Clear lv_server.Clear
lv_server.AddSingleLine("http://keymon.lat:1782") lv_server.AddSingleLine("http://keymon.lat:1781")
If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782") If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
' l_server.Text = Starter.server ' l_server.Text = Starter.server
et_server.Text = server et_server.Text = server

2
B4A/Marquez_Reparto.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=2,3,7,8,9,10,13,15,16 ModuleClosedNodes7=2,3,7,8,9,10,13,15,16
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=5,6,7,8,9,15,16,20 ModuleClosedNodes9=5,6,7,8,9,15,16,20
NavigationStack=C_Cliente,B4XPage_Appear,120,0,C_DetalleVenta,CreateListItem2,491,6,C_DetalleVenta,CreateListItem,458,0,C_Principal,B4XPage_Appear,418,0,B4XMainPage,b_arqueocieego_Click,718,0,B4XMainPage,enviarmonto,699,0,B4XMainPage,b_aceptar_Click,915,0,B4XMainPage,B_Aceptar_Monto_Click,634,0,B4XMainPage,b_CargarMonto_Click,618,0,B4XMainPage,JobDone,384,0 NavigationStack=C_DetalleVenta,CreateListItem,458,0,C_Principal,B4XPage_Appear,418,0,B4XMainPage,b_arqueocieego_Click,718,0,B4XMainPage,enviarmonto,699,0,B4XMainPage,b_aceptar_Click,915,0,B4XMainPage,B_Aceptar_Monto_Click,634,0,B4XMainPage,b_CargarMonto_Click,618,0,B4XMainPage,JobDone,384,0,B4XMainPage,B4XPage_Created,192,3,B4XMainPage,i_engrane_Click,523,0,Starter,Process_Globals,29,3
SelectedBuild=0 SelectedBuild=0
VisibleModules=28,2,16,7,27,29,5,17,6,9 VisibleModules=28,2,16,7,27,29,5,17,6,9

2
B4A/Starter.bas
View File

@@ -33,7 +33,7 @@ Sub Process_Globals
Public SharedFolder As String 'Para actualizar apk Public SharedFolder As String 'Para actualizar apk
Dim cedisLocation As Location Dim cedisLocation As Location
Dim reqManager As DBRequestManager Dim reqManager As DBRequestManager
Dim server As String = "http://187.189.244.154:1781" Dim server As String = "http://keymon.net:1781"
' Dim server As String = "http://192.168.100.10:1781" ' Dim server As String = "http://192.168.100.10:1781"
' Dim server As String = "http://keymon.lat:9000" ' Dim server As String = "http://keymon.lat:9000"
' Dim server = "http://192.168.100.10:1781" ' Dim server = "http://192.168.100.10:1781"