cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

-VERSION 5.01.27

Browse Source 
- Se corrigio que cuando revisaba si el cliente ya haba cntestado la encuesta, en lugar de revisar HIST_ENCUESTA3, estaba revisando HIST_ENCUESTA y por eso siemrpe manbdaba la encuesta.
- Se agregó que se descarguen las rutas para las encuestas (CAT_ENCUESTA_PREGUNTA/CAT_EP_RUTAS), para que solo muestra las encuestas en las rutas especificadas y se modificó el query que trae los datos (antes se traian las preguntas con un like '%x%' y mosraba la encuesta en rutas que no debia)
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-01-28 20:19:46 -06:00
parent a3c014e8ec
commit e72dabb069
9 changed files with 74 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
B4A/C_Cliente.bas
View File

@@ -413,7 +413,7 @@ End Sub
Sub gest_Click
Log("GEST CLIC")
' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
' cuest.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"))
' Return False
@@ -1248,10 +1248,13 @@ End Sub
Sub B_VENTA_Click
' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
cuest.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"))
Return False
End If
' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
' cuest.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"))
' Return False
' End If
' If la_cuenta.Text <> "0" Then
' Dim queenc As String
' ' 1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local
@@ -1844,6 +1847,24 @@ End Sub
Sub Cuestionario
Log("########################################################")
Log("Entramos a Cuestionario")
Private gruposPermitidos As String = ""
Private gr As ResultSet = Starter.skmt.ExecQuery($"select distinct cat_ep_idgrupo, cat_ep_rutas from cat_encuesta_pregunta"$) 'Traemos el grupo y lista de rutas permitidas para la encuesta
Do While gr.NextRow
Private lasRutas() As String = Regex.Split(",", gr.GetString("CAT_EP_RUTAS")) ' Generamos lista de rutas y por cada una de ellas revisamos si es permitida y si SI, agregamos el grupo a una otra lista.
For i = 0 To lasRutas.Length - 1
If lasRutas(i) = Subs.traeRuta Then
gruposPermitidos = $"${gruposPermitidos},"${gr.GetString("CAT_EP_IDGRUPO")}""$
End If
Next
Loop
If gruposPermitidos.StartsWith(",") Then gruposPermitidos = gruposPermitidos.SubString(1) ' Si la lista de grupos inicia con ",", la quitamos.
' Log("--------------------------------")
' Log(gruposPermitidos)
' Log("--------------------------------")
Log(gr.GetString("CAT_EP_RUTAS"))
' Private enc As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA where CAT_EP_IDGRUPO in(${gruposPermitidos}) ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)"$)
' Log(enc.RowCount)
gr.Close
Private logger As Boolean = True
b_encuesta_continuar.Visible = False
et_encuesta.Visible = False
@@ -1855,14 +1876,15 @@ Sub Cuestionario
CUANTOS = 0
If logger Then Log($"Tomar_Foto = ${TOMAR_FOTO}"$)
If TOMAR_FOTO = 0 Then
s = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
s = Starter.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA3 where HE_CLIE In (Select cuenta from cuentaa)")
s.Position= 0
CUANTOS = s.GetString("CUANTOS")
Private CUANTOS2 As Int = 0
End If
If logger Then Log(CUANTOS & "|" & CUANTOS2)
If CUANTOS = 0 And CUANTOS2 = 0 Then
Private enc As Cursor = Starter.skmt.ExecQuery("SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
' Private enc As Cursor = Starter.skmt.ExecQuery("SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
Private enc As Cursor = Starter.skmt.ExecQuery($"SELECT CAT_EP_ID, CAT_EP_IDTIPOPREGUNTA, CAT_CE_DESCRIPCION, CAT_EP_PREGUNTA, CAT_EP_RES1_PRED, CAT_EP_RES2_PRED, CAT_EP_RES3_PRED, CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA where CAT_EP_IDGRUPO in(${gruposPermitidos}) ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)"$)
If enc.RowCount > 0 Then
enc.position = 0
If logger Then Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}"$)