diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 0d22a75..7fcb52c 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -256,6 +256,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	DateTime.DateFormat = "MM/dd/yyyy"
 '	fecha=DateTime.Date(DateTime.Now)
 	B4XPages.MainPage.skmt.Initialize(ruta,"kmt.db", True)
+	Subs.guardaAppInfo
 '	b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
 '	b.Position=0
 '	Cuantos = b.GetString("CUANTOS")
@@ -625,7 +626,22 @@ Sub JobDone(Job As HttpJob)
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_ENVIO_PENDIENTE, CAT_CL_GIRO, NUEVO, CAT_CL_FECHA_CAPTURA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?,0,?,0,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_GIRO, CAT_CL_FECHA_CAPTURA))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
 					l_ruta.Text = records(RESULT.Columns.Get(("CAT_CL_RUTA")))
+					
+'					20240117|1|¿Se puede acceder al negocio o está enrejado?|2|Si se pude acceder|2|¿Tiene al menos 2 pasillos con acceso directo a la mercancía?|1|Si tiene al menos 2 pasillos con acceso directo a la mercancía|6|¿Cuenta con caja de salida para cobro con sistema de computo?|1|Si, tiene sistema de computo para cobro - 2, 0
+					
 '					LogColor($"${CAT_CL_CODIGO}, ${CAT_CL_NOMBRE}"$, Colors.Magenta)
+					If records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO")).As(String).Length > 8 Then
+						Private cuest0 As String = records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO"))
+						Private cuestionario() As String = Regex.split("\|", cuest0)
+						Private qFecha As String = cuestionario(0)
+						B4XPages.MainPage.skmt.ExecNonQuery($"delete from cuestionario where Q_IDCLIENTE = '${CAT_CL_CODIGO}'"$)
+						Log(records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO")))
+						Log($"${CAT_CL_CODIGO}"$)
+						For i = 1 To cuestionario.Length - 1 Step 4
+							B4XPages.MainPage.skmt.ExecNonQuery($"insert into cuestionario (Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${CAT_CL_CODIGO}', '${cuestionario(i)}', '${cuestionario(i+1)}', '${cuestionario(i+2)}', '${cuestionario(i+3)}', '${qFecha}')"$)
+							Log($"${i} - ${qFecha}, ${cuestionario(i)}, ${cuestionario(i+1)}, ${cuestionario(i+2)}, ${cuestionario(i+3)}"$)
+						Next
+					End If
 				Next
 				Listo1 = 1
 '				S_CC.Text = "LISTO"
diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a
index 5f29cb9..3bba941 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.16
+	#VersionName: 4.01.25
 	'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 03451c6..776c798 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=
+ModuleClosedNodes2=2
 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
-ModuleClosedNodes9=3,5
-NavigationStack=Subs,logJobDoneResultados,1234,0,Subs,hayPedido,1224,0,Visual Designer,principal.bal,-100,4,C_NuevoCliente,b_guardar_Click,232,0,Subs,traeTotalesClienteActual,1181,0,Subs,revisaMaxPromosProdsVariablesPorInventario,1103,0,Subs,traeRuta,665,6,Subs,traeAlmacen,660,0,C_Cliente,mandaPendientes,409,5,Starter,JobDone,131,1,Starter,Application_Error,111,0
+ModuleClosedNodes9=1,5
+NavigationStack=B4XMainPage,Class_Globals,17,0,Subs,logJobDoneResultados,1234,0,Subs,list2string,1308,0,Subs,traeGirosLista,1270,0,Subs,guardaAppInfo,1311,0,B4XMainPage,B4XPage_Created,124,3,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Created,251,0,C_Principal,CARGA_Click,1040,0,C_Principal,cargar_Click,505,0,C_Principal,JobDone,634,6
 SelectedBuild=0
 VisibleModules=2,14,6,9,4,8,5,15,7,16
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 308087d..83729b9 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1312,4 +1312,11 @@ Sub list2string(laLista As List) As String
 		If i = 0 Then elString = laLista.Get(i) Else elString = $"${elString},${laLista.Get(i)}"$
 	Next
 	Return elString
+End Sub
+
+'Guarda el nombre y version de la app en CAT_VARIABLES.
+Sub guardaAppInfo 'ignore
+	B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
+	B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
+	B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
 End Sub
\ No newline at end of file