cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-21 06:39:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Cambio en Cuestionario, para que el panel no quede atras de botones

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-01 19:02:36 -06:00
parent 98f0438179
commit 62f1609c4b
4 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/C_NuevoCliente.bas
View File

@@ -172,6 +172,8 @@ Sub B4XPage_Appear
' Log($"${B4XPages.MainPage.principal.l_dia.text}, ${Starter.dia_semana}"$)
'Revisamos si el cliente actual es diferente del anterior y si es diferente ponemos encuestaIniciada en VERDADERO.
If clienteAnt <> no_cliente Then q.encuestaIniciada = False
q.encuestaIniciada = False
q.ocultPanelPregunta
clienteAnt = no_cliente
' Log("CON ENCUESTA: " & q.clienteConCuestionario(Subs.traeCliente))
' Log("INICIADA: " & q.encuestaIniciada)
@@ -182,9 +184,11 @@ Sub B4XPage_Appear
Else
p_botones.Top = l_tituloCuestionaro.Top + 20dip
End If
Private hayCuestionario As Boolean = False
Private cuest As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario where Q_IDCLIENTE = '${Subs.traeCliente}'"$)
If cuest.RowCount > 0 Then
Log("HAY CUESTIONARIO")
hayCuestionario = True
Private cs As CSBuilder
cs.Initialize
For i = 0 To cuest.RowCount - 1
@@ -197,8 +201,11 @@ Sub B4XPage_Appear
l_cuestionario.Height = su.MeasureMultilineTextHeight(l_cuestionario, l_cuestionario.Text)
End If
End If
Log($"${q.encuestaIniciada} | ${cargarCliente}"$)
If Not(q.encuestaIniciada) And Not(cargarCliente) Then q.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
Log($"${(Not(q.encuestaIniciada) And Not(cargarCliente))} | ${Not(hayCuestionario)}"$)
If (Not(q.encuestaIniciada) And Not(cargarCliente)) Or (Not(hayCuestionario)) Then
Log("Mostramos encuesta")
q.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
End If
ajustaTamano
End Sub
@@ -395,6 +402,8 @@ End Sub
Sub B4XPage_CloseRequest As ResumableSub
Log("CloseRequest NC")
StopCamera2
q.ocultPanelPregunta
q.panelSombra.Visible = False
CallSubDelayed(Tracker, "StartFLP")
If p_camara.Visible Then
p_camara.Visible = False