From 97ca5e149791979806b5737202222b8501975eda Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 25 Jun 2024 12:21:08 -0600 Subject: [PATCH] - Modificaciones a la encuesta en duro! --- B4A/C_Cliente.bas | 17 ++++++++++++----- B4A/Guna Vistas V3.1.b4a | 2 +- B4A/Guna Vistas V3.1.b4a.meta | 2 +- 3 files changed, 14 insertions(+), 7 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index c1d9226..48e179c 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -3790,6 +3790,7 @@ Sub Cuestionario If logger Then Log(listaPreguntas) enc.position = 0 For i = 0 To enc.RowCount - 1 + Log("########################################################") ' If logger Then Log($"ROWCOUNT: ${enc.RowCount}"$) ' If logger Then Log($"tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}"$) 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")}"$) @@ -3805,6 +3806,7 @@ Sub Cuestionario If TOMAR_FOTO = 1 Then If CURSOR_FOTO + 1 > enc.RowCount -1 Then TOMAR_FOTO = 0 + LogColor("TOMAR FOTO = 1", Colors.Red) Exit Else i = CURSOR_FOTO + 1 @@ -3812,18 +3814,22 @@ Sub Cuestionario If logger Then Log($"i = ${i}"$) TOMAR_FOTO = 0 End If - If i > (enc.RowCount - 1) Then Exit ' Si se contestó la ultima pregunta, entonces salimos. + If i > (enc.RowCount - 1) Then + LogColor("MAS DE ${enc.RowCount - 1}", Colors.Red) + Exit ' Si se contestó la ultima pregunta, entonces salimos. + End If ' 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 enc.Position = i -' Log($"POSICION = ${enc.Position}"$) + Log($"POSICION = ${enc.Position}"$) If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then If logger Then Log("Pregunta tipo 5") id_encuesta = enc.GetString("CAT_EP_ID") TOMAR_FOTO = 1 CURSOR_FOTO = i + LogColor("PREGUNTA TIPO 5 SALIMOS", Colors.Red) Exit ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO If logger Then Log("Pregunta tipo 3") @@ -3870,9 +3876,6 @@ Sub Cuestionario i = indicePregunta Log($"I = ${i}"$) End If - If i = enc.RowCount - 1 Then - i = i - 1 - End If ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then ' Tipo 3 opciones. Log("Pregunta tipo 2") botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta. @@ -3893,6 +3896,7 @@ Sub Cuestionario 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 + If i = enc.RowCount - 1 Then i = i - 1 Log($"i = ${i}"$) ocultaPanelEncuesta ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then @@ -3938,6 +3942,9 @@ Sub Cuestionario ' Starter.tipov = "VENTA" B4XPages.ShowPage("productos") End If + If i = enc.RowCount - 1 Then + i = i - 1 + End If Next enc.Close Else diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index cb09157..ff789c7 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -190,7 +190,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Guna V3.1 #VersionCode: 1 - #VersionName: 4.06.17 ENC Geo + #VersionName: 4.06.21.E 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index e095295..d4eefc7 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6=6,8,9,10 ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,Class_Globals,0,0,C_Cliente,B4XPage_Appear,618,6,C_Principal,B4XPage_Appear,322,0,C_Principal,CARGA_Click,2049,0,C_Principal,cargar_Click,841,0,C_Cliente,GPS_LocationChanged,717,0,C_Principal,Class_Globals,0,0,C_Productos,Class_Globals,0,0,C_Cliente,cuest_preguntaContestada,4089,3,C_Cliente,gest_Click,958,0 +NavigationStack=C_Principal,CARGA_Click,2049,0,C_Principal,cargar_Click,841,0,C_Cliente,GPS_LocationChanged,717,0,C_Principal,Class_Globals,0,0,C_Productos,Class_Globals,0,0,C_Cliente,CB4_P8_M3_CheckedChange,3740,0,C_Cliente,Class_Globals,2,0,C_Cliente,Cuestionario,3774,0,C_Cliente,cuest_preguntaContestada,4092,3,C_Cliente,gest_Click,960,0 SelectedBuild=0 VisibleModules=22,2,23,13,14,4,6,9,12,5