diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index 3308ef4..9013e4f 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -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
diff --git a/B4A/Marquez_Reparto.b4a.meta b/B4A/Marquez_Reparto.b4a.meta
index 801868d..20fb5d2 100644
--- a/B4A/Marquez_Reparto.b4a.meta
+++ b/B4A/Marquez_Reparto.b4a.meta
@@ -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
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index afbc18c..1276319 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -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"