From 1f9b8860b7b927fcd24df49b32888e4d44d545eb Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 6 May 2024 13:32:45 -0600 Subject: [PATCH] - Se corrigio un error en el codigo de encuestas, habia error cuando la pregunta era de desicion y no se respetaba el orden asugnado. --- B4A/C_Cliente.bas | 4 ++-- B4A/Guna Vistas V3.1.b4a | 2 +- B4A/Guna Vistas V3.1.b4a.meta | 2 +- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 94cc872..57f1a77 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}"$) diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index b57f839..29f6758 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -184,7 +184,7 @@ Module9=C_NoVenta NumberOfFiles=62 NumberOfLibraries=33 NumberOfModules=23 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Guna V3.1 diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index cd091c8..cd494f9 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=Main,Activity_Pause,51,0,Main,Activity_KeyPress,40,0,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,3905,0 +NavigationStack=Main,Activity_KeyPress,40,0,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,Main,Activity_Create,29,0,C_Cliente,Cuestionario,3750,1 SelectedBuild=0 VisibleModules=21,2,22,12,13,4,8,11,5,10