diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index f796db6..4eada40 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -3753,8 +3753,8 @@ Sub Cuestionario
 			For i = 0 To enc.RowCount - 1
 '				If logger Then Log($"ROWCOUNT: ${enc.RowCount}"$)
 '				If logger Then Log($"tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}"$)
-				If logger Then Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
-				If indicePregunta <> 0 Then
+				If logger Then Log($"Tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}, CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
+				If enc.GetString("CAT_EP_IDTIPOPREGUNTA") <> 4 And indicePregunta <> 0 Then
 					indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) + 1 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
 					i = indicePregunta
 					Log($"i = ${i}"$)
@@ -3801,7 +3801,7 @@ Sub Cuestionario
 					Loop
 					If logger Then Log("encuestaRes: " & encuestaRes)
 					If logger Then LogColor($"Guardamos tipo 3 : ${encuestaRes}"$, Colors.Green)
-					B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+					B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_IDTIPOPREGUNTA"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
 					ocultaPanelEncuesta
 				ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then
 					If logger Then Log("Pregunta tipo 4")
@@ -3820,12 +3820,12 @@ Sub Cuestionario
 					If logger Then Log("encuestaRes: " & encuestaRes)
 					If logger Then LogColor($"Guardamos tipo 4 : ${encuestaRes}"$, Colors.Green)
 					If encuestaRes = "SI" Then
-						B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, "SI", fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+						B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, "SI", fecha, enc.GetString("CAT_EP_IDTIPOPREGUNTA"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
 						indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES1_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
 						Log($"IndicePreg = ${indicePregunta}"$)
 						i = indicePregunta
 					else if encuestaRes = "NO" Then
-						B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, "NO", fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+						B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, "NO", fecha, enc.GetString("CAT_EP_IDTIPOPREGUNTA"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
 						indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES2_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
 						Log($"IndicePreg = ${indicePregunta}"$)
 						i = indicePregunta
@@ -3850,7 +3850,7 @@ Sub Cuestionario
 					Loop
 					Log("encuestaRes: " & encuestaRes)
 					If logger Then LogColor($"Guardamos tipo 2 : ${encuestaRes}"$, Colors.Green)
-					B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+					B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_IDTIPOPREGUNTA"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
 					
 					indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
 					i =  indicePregunta + 1
@@ -3893,7 +3893,7 @@ Sub Cuestionario
 					Loop
 					Log($"Respuesta: ${encuestaRes}"$)
 					If logger Then LogColor($"Guardamos tipo 1 : ${encuestaRes}"$, Colors.Green)
-					B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+					B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_IDTIPOPREGUNTA"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
 					ocultaPanelEncuesta
 				Else
 '					Starter.tipov = "VENTA"
diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta
index fa9418a..9dc96fb 100644
--- a/B4A/Guna Vistas V3.1.b4a.meta	
+++ b/B4A/Guna Vistas V3.1.b4a.meta	
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,b_encuesta_1_Click,3929,0,C_Cliente,b_encuesta_continuar_Click,3969,0,C_Principal,JobDone,960,0,C_Cliente,Class_Globals,0,0,C_Cliente,CB2_P8_M3_CheckedChange,3681,0,C_Cliente,CB3_P8_M3_CheckedChange,3693,0,C_Cliente,CB4_P8_M3_CheckedChange,3709,0,C_Cliente,Cuestionario,3710,0,C_Cliente,B4XPage_Appear,676,0,C_Cliente,GPS_LocationChanged,716,0
+NavigationStack=C_Cliente,b_encuesta_1_Click,3929,0,C_Cliente,b_encuesta_continuar_Click,3969,0,C_Principal,JobDone,960,0,C_Cliente,Class_Globals,0,0,C_Cliente,CB2_P8_M3_CheckedChange,3681,0,C_Cliente,CB3_P8_M3_CheckedChange,3693,0,C_Cliente,B4XPage_Appear,676,0,C_Cliente,GPS_LocationChanged,686,0,C_Cliente,Cuestionario,3906,0,C_Cliente,CB4_P8_M3_CheckedChange,3708,0
 SelectedBuild=0
 VisibleModules=21,2,22,12,13,4,8,11,5,10