diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index b71f1cc..b353141 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -225,6 +225,15 @@ Sub B4XPage_Appear
 	Else
 		Log("SIN permisos de ubicacion")
 	End If
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
+	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+'		camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
+'		frontCamera = camEx2.Front
+'		If logger Then Log("inicializamos Camara")
+	Else
+		ToastMessageShow("Sin permisos de camara!!!", True)
+	End If
 	p_Main.Width = Root.Width
 	Dim ph As Phone 'Get Id Device
 	Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase
diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas
index da71ca8..f448bcd 100644
--- a/B4A/C_NuevoCliente.bas
+++ b/B4A/C_NuevoCliente.bas
@@ -60,7 +60,7 @@ Sub Class_Globals
 	Dim q As C_Cuestionario
 	Dim su As StringUtils
 	Dim clienteAnt As String = ""
-	dim cuestionarioTexto as string
+	Dim cuestionarioTexto As String
 End Sub
 
 'You can add more parameters here.
@@ -90,6 +90,15 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	rp.CheckAndRequest(rp.PERMISSION_CAMERA)
+	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+'		camEx2.Initialize(p_cam, frontCamera, Me, "Camera1")
+'		frontCamera = camEx2.Front
+'		If logger Then Log("inicializamos Camara")
+	Else
+		ToastMessageShow("Sin permisos de camara!!!", True)
+	End If
 	camposModificados.Initialize
 	l_cuestionario.Visible = False
 	l_tituloCuestionaro.Visible = False
diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a
index 5c4f8cb..d08db77 100644
--- a/B4A/Mariana Censos.b4a	
+++ b/B4A/Mariana Censos.b4a	
@@ -753,7 +753,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: Mariana Censos
 	#VersionCode: 1
-	#VersionName: 4.01.30
+	#VersionName: 4.01.31
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta
index e397aad..43a9da6 100644
--- a/B4A/Mariana Censos.b4a.meta	
+++ b/B4A/Mariana Censos.b4a.meta	
@@ -41,14 +41,14 @@ ModuleClosedNodes13=3,5
 ModuleClosedNodes14=
 ModuleClosedNodes15=
 ModuleClosedNodes16=4,5,6,10,13,17,18,19
-ModuleClosedNodes2=2
+ModuleClosedNodes2=
 ModuleClosedNodes3=
 ModuleClosedNodes4=6,7,10,11,14,15,16,17,18,20,21,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
-ModuleClosedNodes8=6,9,11,12,13,14,16,17
+ModuleClosedNodes8=9,13,14,16,17
 ModuleClosedNodes9=1,5
-NavigationStack=C_Cliente,ajustaTamano,783,0,C_NuevoCliente,B4XPage_Appear,107,6,C_Cliente,B4XPage_Appear,310,0,C_NuevoCliente,ajustaTamano,568,0,B4XMainPage,Initialize,78,0,Visual Designer,clienteDatos.bal,-100,3,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,517,0,C_Principal,JobDone,666,6,C_Cliente,mandaPendientes,418,0,C_NuevoCliente,mandaPendientesNuevosClientes,464,3
+NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,464,3,Starter,Service_Create,34,0,Starter,Process_Globals,15,3,C_Clientes,clv_clientes_ItemClick,175,0,MAPA_RUTAS,OnInfoWindowClickListener1_click,259,0,C_NuevoCliente,Class_Globals,42,0,C_NuevoCliente,InitializeCamera2,281,0,C_Principal,nvo_cliente_Click,1077,0,B4XMainPage,B4XPage_Appear,226,2,C_NuevoCliente,B4XPage_Appear,91,0
 SelectedBuild=0
-VisibleModules=2,14,6,9,4,8,5,15,7,16
+VisibleModules=2,14,6,9,4,8,5,15,7,16,13
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index b2c6f4f..bf975fa 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -18,7 +18,7 @@ Sub Process_Globals
 	Public FLP As FusedLocationProvider
 '	Private flpStarted As Boolean
 	Dim reqManager As DBRequestManager
-	Dim server As String = "http://187.189.244.154:1781"
+	Dim server As String = "http://keymon.lat:1781"
 '	Dim server As String = "http://187.189.244.154:1783"
 '	Dim server As String = "http://10.0.0.205:1782"
 '	Dim server As String = "http://11.0.0.231:1782"