cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 22:29:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Modificaciones a la encuesta en duro!

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-06-25 12:21:08 -06:00
parent 202e565bea
commit 97ca5e1497
3 changed files with 14 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
B4A/C_Cliente.bas
View File

@@ -3790,6 +3790,7 @@ Sub Cuestionario
If logger Then Log(listaPreguntas) If logger Then Log(listaPreguntas)
enc.position = 0 enc.position = 0
For i = 0 To enc.RowCount - 1 For i = 0 To enc.RowCount - 1
Log("########################################################")
' If logger Then Log($"ROWCOUNT: ${enc.RowCount}"$) ' 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")}"$)
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 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 TOMAR_FOTO = 1 Then
If CURSOR_FOTO + 1 > enc.RowCount -1 Then If CURSOR_FOTO + 1 > enc.RowCount -1 Then
TOMAR_FOTO = 0 TOMAR_FOTO = 0
LogColor("TOMAR FOTO = 1", Colors.Red)
Exit Exit
Else Else
i = CURSOR_FOTO + 1 i = CURSOR_FOTO + 1
@@ -3812,18 +3814,22 @@ Sub Cuestionario
If logger Then Log($"i = ${i}"$) If logger Then Log($"i = ${i}"$)
TOMAR_FOTO = 0 TOMAR_FOTO = 0
End If 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. ' 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 i = indicePregunta
enc.Position = i enc.Position = i
' Log($"POSICION = ${enc.Position}"$) Log($"POSICION = ${enc.Position}"$)
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then
If logger Then Log("Pregunta tipo 5") If logger Then Log("Pregunta tipo 5")
id_encuesta = enc.GetString("CAT_EP_ID") id_encuesta = enc.GetString("CAT_EP_ID")
TOMAR_FOTO = 1 TOMAR_FOTO = 1
CURSOR_FOTO = i CURSOR_FOTO = i
LogColor("PREGUNTA TIPO 5 SALIMOS", Colors.Red)
Exit Exit
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO
If logger Then Log("Pregunta tipo 3") If logger Then Log("Pregunta tipo 3")
@@ -3870,9 +3876,6 @@ Sub Cuestionario
i = indicePregunta i = indicePregunta
Log($"I = ${i}"$) Log($"I = ${i}"$)
End If 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. ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then ' Tipo 3 opciones.
Log("Pregunta tipo 2") Log("Pregunta tipo 2")
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta. 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. 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 i = indicePregunta + 1
If i = enc.RowCount - 1 Then i = i - 1
Log($"i = ${i}"$) Log($"i = ${i}"$)
ocultaPanelEncuesta ocultaPanelEncuesta
ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then
@@ -3938,6 +3942,9 @@ Sub Cuestionario
' Starter.tipov = "VENTA" ' Starter.tipov = "VENTA"
B4XPages.ShowPage("productos") B4XPages.ShowPage("productos")
End If End If
If i = enc.RowCount - 1 Then
i = i - 1
End If
Next Next
enc.Close enc.Close
Else Else

2
B4A/Guna Vistas V3.1.b4a
View File

@@ -190,7 +190,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Guna V3.1 #ApplicationLabel: Guna V3.1
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.06.17 ENC Geo #VersionName: 4.06.21.E
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=6,8,9,10
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=22,2,23,13,14,4,6,9,12,5 VisibleModules=22,2,23,13,14,4,6,9,12,5