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

- Se corrigio el código de la encuesta para preguntas abiertas.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-24 15:40:32 -06:00
parent 9da6091ee5
commit 8d2b46857f
5 changed files with 78 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
B4A/C_Cliente.bas
View File

@@ -507,7 +507,7 @@ Sub B4XPage_Appear
If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0" Then
L_QR.TEXT = "SIN CODIGO"
L_QR.TextColor = Colors.Red
If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.VISIBLE = True And Tels.Visible = True
If ALMACEN <> "32" And ALMACEN <> "33" Then gest.VISIBLE = True And Tels.Visible = True
BT_QR.Visible = True
Else
L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO")
@@ -641,7 +641,7 @@ Sub B4XPage_Appear
B_IMP.Visible = False
End If
' Log(distance)
If (ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6") And distance > 100 Then
If (ALMACEN = "32" Or ALMACEN = "33") And distance > 100 Then
gest.Visible = False
' ToastMessageShow("aaa", False)
End If
@@ -706,9 +706,9 @@ Sub GPS_LocationChanged (Location1 As Location)
Dim habi = c.GetString("HABILITADO")
End If
c.Close
If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.Visible = True
If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then Tels.Visible = True
If ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6" Then
If ALMACEN <> "32" And ALMACEN <> "33" Then gest.Visible = True
If ALMACEN <> "32" And ALMACEN <> "33" Then Tels.Visible = True
If ALMACEN = "32" Or ALMACEN = "33" Then
If distance < 100 Then
LA_GEO.TextColor = Colors.Blue
Tels.Visible = True
@@ -3626,6 +3626,10 @@ End Sub
'Esta subrutina muestra las encuestas.
Sub Cuestionario
Log("Entramos a Cuestionario")
b_encuesta_continuar.Visible = False
et_encuesta.Visible = False
Private logger As Boolean = True
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
@@ -3698,9 +3702,11 @@ Sub Cuestionario
muestraBoton(b_encuesta_1,"SI", enc.GetString("CAT_EP_ID"), centroPantalla-350, 580, 300, 160)
muestraBoton(b_encuesta_2, "NO", enc.GetString("CAT_EP_ID"), centroPantalla+50, 580, 300, 160)
muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0)
Loop
Log("encuestaRes: " & encuestaRes)
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
ocultaPanelEncuesta
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then
@@ -3708,10 +3714,12 @@ Sub Cuestionario
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
Log(enc.GetString("CAT_EP_PREGUNTA"))
Subs.centraEtiqueta(l_txtEncuesta, Root.Width)
muestraBoton(b_encuesta_1,"SI", enc.GetString("CAT_EP_ID"), centroPantalla-350, 580, 300, 160)
muestraBoton(b_encuesta_2, "NO", enc.GetString("CAT_EP_ID"), centroPantalla+50, 580, 300, 160)
muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0)
Loop
@@ -3736,13 +3744,16 @@ Sub Cuestionario
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta.
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
Log(enc.GetString("CAT_EP_PREGUNTA"))
muestraBoton(b_encuesta_1, enc.GetString("CAT_EP_RES1_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 580, 500, 160)
muestraBoton(b_encuesta_2, enc.GetString("CAT_EP_RES2_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 740, 500, 160)
muestraBoton(b_encuesta_3, enc.GetString("CAT_EP_RES3_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 900, 500, 160)
muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta.
Sleep(0)
Loop
Log("encuestaRes: " & encuestaRes)
Log($"Guardamos tipo 2 : ${encuestaRes}"$)
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
ocultaPanelEncuesta
@@ -3770,15 +3781,18 @@ Sub Cuestionario
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
Log(enc.GetString("CAT_EP_PREGUNTA") &"|"&enc.GetString("CAT_EP_ORDEN_PREGUNTA"))
Subs.centraEditText(et_encuesta, Root.Width)
et_encuesta.Visible = True
b_encuesta_continuar.Enabled = False
Private bTop = et_encuesta.Top + 130
muestraBoton(b_encuesta_continuar,"Continuar", "Continuar", centroPantalla-250, bTop, 500, 160)
muestraBoton(b_encuesta_continuar,"Continuar", enc.GetString("CAT_EP_ID"), centroPantalla-250, bTop, 500, 160)
muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0)
Loop
Log($"Respuesta: ${encuestaRes}"$)
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
ocultaPanelEncuesta
Else
@@ -3860,8 +3874,10 @@ Private Sub b_encuesta_3_Click
End Sub
Private Sub b_encuesta_continuar_Click
Log("BOTON CONTINUAR CLICK")
Dim btn As Button = Sender
Log("BOTON CONTINUAR CLICK - " & btn.Text & " - " & btn.Tag)
encuestaRes = et_encuesta.Text
indicePregunta = btn.Tag
et_encuesta.Text = ""
et_encuesta.Visible = False
b_encuesta_continuar.Visible = False