From 62f1609c4b45beabe91af853bc731ddfefebd987 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 1 Feb 2024 19:02:36 -0600 Subject: [PATCH] Cambio en Cuestionario, para que el panel no quede atras de botones --- B4A/C_Cuestionario.bas | 2 +- B4A/C_NuevoCliente.bas | 13 +++++++++++-- B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 10 +++++----- 4 files changed, 18 insertions(+), 9 deletions(-) diff --git a/B4A/C_Cuestionario.bas b/B4A/C_Cuestionario.bas index 3cd1b65..e782d12 100644 --- a/B4A/C_Cuestionario.bas +++ b/B4A/C_Cuestionario.bas @@ -104,7 +104,7 @@ Sub agregaPregunta(id As String, pregunta As String, respuestas As List) panelSombra.Width = Root2.Width panelSombra.Height = Root2.Height panelSombra.BringToFront -' panelSombra.Elevation = 0 + panelSombra.Elevation = 100 End Sub private Sub preguntaContestada(Success As Map) 'ignore diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index f448bcd..33cefce 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -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 diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index d08db77..25f4712 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -753,7 +753,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Mariana Censos #VersionCode: 1 - #VersionName: 4.01.31 + #VersionName: 4.02.01 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index 43a9da6..0e73e4c 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -43,12 +43,12 @@ ModuleClosedNodes15= ModuleClosedNodes16=4,5,6,10,13,17,18,19 ModuleClosedNodes2= ModuleClosedNodes3= -ModuleClosedNodes4=6,7,10,11,14,15,16,17,18,20,21,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44 +ModuleClosedNodes4=7,10,11,14,15,16,17,18,20,21,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44 ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= -ModuleClosedNodes8=9,13,14,16,17 -ModuleClosedNodes9=1,5 -NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,464,3,Starter,Service_Create,34,0,Starter,Process_Globals,15,3,C_Clientes,clv_clientes_ItemClick,175,0,MAPA_RUTAS,OnInfoWindowClickListener1_click,259,0,C_NuevoCliente,Class_Globals,42,0,C_NuevoCliente,InitializeCamera2,281,0,C_Principal,nvo_cliente_Click,1077,0,B4XMainPage,B4XPage_Appear,226,2,C_NuevoCliente,B4XPage_Appear,91,0 +ModuleClosedNodes8=9,13,14,17 +ModuleClosedNodes9=1 +NavigationStack=C_Cliente,cb_diaSemana_SelectedIndexChanged,706,0,C_Cliente,q_preguntaContestada,765,0,C_Cliente,Class_Globals,141,0,C_NuevoCliente,Class_Globals,5,0,C_NuevoCliente,B4XPage_CloseRequest,399,0,C_Cliente,B4XPage_Appear,202,0,C_Cuestionario,Class_Globals,0,0,C_Cuestionario,pSombra_Click,109,0,C_Cuestionario,preguntaContestada,108,0,C_Cuestionario,agregaPregunta,100,1 SelectedBuild=0 -VisibleModules=2,14,6,9,4,8,5,15,7,16,13 +VisibleModules=2,14,6,9,4,8,5,15,7,16