cheveguerra/Marquez_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Marquez_Reparto.git synced 2026-04-17 12:56:15 +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")
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://keymon.net:1781"
' Dim server As String = "http://192.168.100.10:1781"
' Dim server As String = "http://keymon.lat:9000"
' 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_server, p_serverList.Width)
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")
' l_server.Text = Starter.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
ModuleClosedNodes8=
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
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
Dim cedisLocation As Location
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://keymon.lat:9000"
' Dim server = "http://192.168.100.10:1781"