diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index f3cb1a7..124397c 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -405,26 +405,7 @@ End Sub
 
 Sub Entrar_Click
 	DateTime.DateFormat = "yyyyMMdd"
-	If user.Text = "ALTERNO" Then
-		c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
-		c.Position =0
-		Starter.DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
-		alterno = c.GetString("CAT_CO_RESULTADO")
-		c.Close
-		If alterno = 1 Then
-			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
-			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
-		Else if alterno = 2 Then
-			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 1 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 1", Array As String ("SERVER"))
-			Starter.skmt.ExecNonQuery2("UPDATE CAT_CODIGOS SET CAT_CO_PONDERACION = 0 WHERE CAT_CO_ACCION = ? AND CAT_CO_RESULTADO = 2", Array As String ("SERVER"))
-		End If
-		c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION, CAT_CO_RESULTADO from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
-		c.Position =0
-		Starter.DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
-		user.Text = Starter.DBReqServer
-		c.Close
-'		reqManager.Initialize(Me, Starter.DBReqServer)
-	else if user.Text = "KMTSKLL1" Then
+	If user.Text = "KMTSKLL1" Then
 		Starter.skmt.ExecNonQuery("delete from usuarioa")
 		Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?,?)", Array As Object(user.Text, pass.Text, DateTime.Date(DateTime.Now)))
 		Starter.skmt.ExecNonQuery("delete from cat_almacen")
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index ec22015..1a3fe4a 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -208,10 +208,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	ruta = File.DirInternal
 	DateTime.DateFormat = "MM/dd/yyyy"
 	fecha=DateTime.Date(DateTime.Now)
-'	c=Starter.skmt.ExecQuery2("select CAT_CO_CONFIGURACION from CAT_CODIGOS where CAT_CO_PONDERACION =1 AND CAT_CO_ACCION = ?", Array As String("SERVER"))
-'	c.Position =0
-'	Starter.DBReqServer = c.GetString("CAT_CO_CONFIGURACION")
-'	c.Close
 	b=Starter.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index f05b694..1b36e4a 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -94,6 +94,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=kms_helperSubs,dbInit,107,0,C_Principal,Class_Globals,0,0,B4XMainPage,Class_Globals,90,0,kms_helperSubs,RD_Init,50,0,kms_helperSubs,agregaColumna,286,3,kms_helperSubs,RD_vacuum,272,0,B4XMainPage,B4XPage_Created,171,6,B4XMainPage,ImageView4_Click,581,0,B4XMainPage,B4XPage_Appear,334,0,Visual Designer,login.bal,-100,3
+NavigationStack=C_Principal,Class_Globals,0,0,kms_helperSubs,RD_Init,50,0,kms_helperSubs,agregaColumna,286,3,kms_helperSubs,RD_vacuum,272,0,B4XMainPage,B4XPage_Created,171,6,B4XMainPage,ImageView4_Click,581,0,B4XMainPage,B4XPage_Appear,334,0,Visual Designer,login.bal,-100,3,B4XMainPage,Class_Globals,25,0,B4XMainPage,Entrar_Click,400,0,C_Principal,B4XPage_Created,205,0
 SelectedBuild=0
 VisibleModules=1,29,11,23,30,14