cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 14:19:25 +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 If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0" Then
L_QR.TEXT = "SIN CODIGO" L_QR.TEXT = "SIN CODIGO"
L_QR.TextColor = Colors.Red 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 BT_QR.Visible = True
Else Else
L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO") L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO")
@@ -641,7 +641,7 @@ Sub B4XPage_Appear
B_IMP.Visible = False B_IMP.Visible = False
End If End If
' Log(distance) ' 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 gest.Visible = False
' ToastMessageShow("aaa", False) ' ToastMessageShow("aaa", False)
End If End If
@@ -706,9 +706,9 @@ Sub GPS_LocationChanged (Location1 As Location)
Dim habi = c.GetString("HABILITADO") Dim habi = c.GetString("HABILITADO")
End If End If
c.Close c.Close
If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.Visible = True If ALMACEN <> "32" And ALMACEN <> "33" Then gest.Visible = True
If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then Tels.Visible = True If ALMACEN <> "32" And ALMACEN <> "33" Then Tels.Visible = True
If ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6" Then If ALMACEN = "32" Or ALMACEN = "33" Then
If distance < 100 Then If distance < 100 Then
LA_GEO.TextColor = Colors.Blue LA_GEO.TextColor = Colors.Blue
Tels.Visible = True Tels.Visible = True
@@ -3626,6 +3626,10 @@ End Sub
'Esta subrutina muestra las encuestas. 'Esta subrutina muestra las encuestas.
Sub Cuestionario Sub Cuestionario
Log("Entramos a Cuestionario") Log("Entramos a Cuestionario")
b_encuesta_continuar.Visible = False
et_encuesta.Visible = False
Private logger As Boolean = True Private logger As Boolean = True
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now) 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_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) muestraBoton(b_encuesta_2, "NO", enc.GetString("CAT_EP_ID"), centroPantalla+50, 580, 300, 160)
muestraEncuesta muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0) Sleep(0)
Loop 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)) 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 ocultaPanelEncuesta
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then 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 botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION") l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA") l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
Log(enc.GetString("CAT_EP_PREGUNTA"))
Subs.centraEtiqueta(l_txtEncuesta, Root.Width) Subs.centraEtiqueta(l_txtEncuesta, Root.Width)
muestraBoton(b_encuesta_1,"SI", enc.GetString("CAT_EP_ID"), centroPantalla-350, 580, 300, 160) 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) muestraBoton(b_encuesta_2, "NO", enc.GetString("CAT_EP_ID"), centroPantalla+50, 580, 300, 160)
muestraEncuesta muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0) Sleep(0)
Loop Loop
@@ -3736,13 +3744,16 @@ Sub Cuestionario
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta. botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta.
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION") l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA") 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_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_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) muestraBoton(b_encuesta_3, enc.GetString("CAT_EP_RES3_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 900, 500, 160)
muestraEncuesta muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta. Do Until botonPresionado = 1 'Esperamos que respondan la pregunta.
Sleep(0) Sleep(0)
Loop Loop
Log("encuestaRes: " & encuestaRes)
Log($"Guardamos tipo 2 : ${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)) 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 ocultaPanelEncuesta
@@ -3770,15 +3781,18 @@ Sub Cuestionario
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION") l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA") 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) Subs.centraEditText(et_encuesta, Root.Width)
et_encuesta.Visible = True et_encuesta.Visible = True
b_encuesta_continuar.Enabled = False b_encuesta_continuar.Enabled = False
Private bTop = et_encuesta.Top + 130 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 muestraEncuesta
Log("Esperamos respuesta")
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0) Sleep(0)
Loop 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)) 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 ocultaPanelEncuesta
Else Else
@@ -3860,8 +3874,10 @@ Private Sub b_encuesta_3_Click
End Sub End Sub
Private Sub b_encuesta_continuar_Click 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 encuestaRes = et_encuesta.Text
indicePregunta = btn.Tag
et_encuesta.Text = "" et_encuesta.Text = ""
et_encuesta.Visible = False et_encuesta.Visible = False
b_encuesta_continuar.Visible = False b_encuesta_continuar.Visible = False

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

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

@@ -6,58 +6,57 @@ File12=ENCUESTA_PED.bal
File13=engrane.jpg File13=engrane.jpg
File14=engrane.png File14=engrane.png
File15=engrane18.png File15=engrane18.png
File16=engraneactual.png File16=ESNCUESTA_M2.bal
File17=ESNCUESTA_M2.bal File17=fondo_kmt.jpg
File18=fondo_kmt.jpg File18=gps20.png
File19=gps20.png File19=guna.png
File2=bus-ar.png File2=bus-ar.png
File20=guna.png File20=guna18.png
File21=guna18.png File21=guna-fondo.png
File22=guna-fondo.png File22=Hacer pedido.jpg
File23=Hacer pedido.jpg File23=hacerpedido30.png
File24=hacerpedido30.png File24=ic_cloud_download_white_24dp.png
File25=ic_cloud_download_white_24dp.png File25=itembuttonblue.png
File26=itembuttonblue.png File26=login.bal
File27=login.bal File27=Logo Guna_192x192.png
File28=Logo Guna_192x192.png File28=logo-guna-18.png
File29=logo-guna-18.png File29=MainPage.bal
File3=carrito.png File3=carrito.png
File30=MainPage.bal File30=Malo.jpg
File31=Malo.jpg File31=mapa_rutas.bal
File32=mapa_rutas.bal File32=mas-azul.png
File33=mas-azul.png File33=mas-azul-red.png
File34=mas-azul-red.png File34=mas-azul-red1.png
File35=mas-azul-red1.png File35=menos.png
File36=menos.png File36=menosred.png
File37=menosred.png File37=menos-red.png
File38=menos-red.png File38=nota.bal
File39=nota.bal File39=noventa.bal
File4=celltitle.bal File4=celltitle.bal
File40=noventa.bal File40=nuevocliente.bal
File41=nuevocliente.bal File41=nuevo-cliente20.png
File42=nuevo-cliente20.png File42=Nvo Cliente.jpg
File43=Nvo Cliente.jpg File43=palomita_verde.png
File44=palomita_verde.png File44=pedido.bal
File45=pedido.bal File45=planfia_logo.png
File46=planfia_logo.png File46=principal.bal
File47=principal.bal File47=proditem.bal
File48=proditem.bal File48=productos.bal
File49=productos.bal File49=promociones.bal
File5=cliente.bal File5=cliente.bal
File50=promociones.bal File50=qr_gallina.jpg
File51=qr_gallina.jpg File51=resdia.bal
File52=resdia.bal File52=ResDia.jpg
File53=ResDia.jpg File53=resdia20.png
File54=resdia20.png File54=salma.jpg
File55=salma.jpg File55=salma.png
File56=salma.png File56=senial.jpg
File57=senial.jpg File57=sync.png
File58=sync.png File58=Ticket dia.jpg
File59=Ticket dia.jpg File59=ticketdia20.png
File6=clientes.bal File6=clientes.bal
File60=ticketdia20.png File60=ticketsdia.bal
File61=ticketsdia.bal File61=Tiendita.jpg
File62=Tiendita.jpg
File7=durakelo.png File7=durakelo.png
File8=ENCUESSTA_M3.bal File8=ENCUESSTA_M3.bal
File9=ENCUESTA.bal File9=ENCUESTA.bal
@@ -119,7 +118,6 @@ FileGroup59=Default Group
FileGroup6=Default Group FileGroup6=Default Group
FileGroup60=Default Group FileGroup60=Default Group
FileGroup61=Default Group FileGroup61=Default Group
FileGroup62=Default Group
FileGroup7=Default Group FileGroup7=Default Group
FileGroup8=Default Group FileGroup8=Default Group
FileGroup9=Default Group FileGroup9=Default Group
@@ -181,15 +179,15 @@ Module6=C_Historico
Module7=C_Mapas Module7=C_Mapas
Module8=C_Nota Module8=C_Nota
Module9=C_NoVenta Module9=C_NoVenta
NumberOfFiles=62 NumberOfFiles=61
NumberOfLibraries=33 NumberOfLibraries=33
NumberOfModules=23 NumberOfModules=23
Version=12.5 Version=12.8
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Guna V3.1 #ApplicationLabel: Guna V3.1
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.04.16_1 ENC Geo #VersionName: 4.04.24.ENC.Geo
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

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

@@ -50,7 +50,7 @@ ModuleClosedNodes0=
ModuleClosedNodes1=5,7,8,9,10,11,12,13,14 ModuleClosedNodes1=5,7,8,9,10,11,12,13,14
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11=6 ModuleClosedNodes11=6
ModuleClosedNodes12=2,3,8,10,14 ModuleClosedNodes12=
ModuleClosedNodes13=6,10,11,13,14,16,17,20,21,22,23 ModuleClosedNodes13=6,10,11,13,14,16,17,20,21,22,23
ModuleClosedNodes14= ModuleClosedNodes14=
ModuleClosedNodes15= ModuleClosedNodes15=
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,1707,0,C_Principal,JobDone,992,6,C_Productos,Class_Globals,0,0,Subs,notiHigh,78,0,Subs,agregaColumna,1128,0,Subs,guardaAppInfo,1133,0,B4XMainPage,Initialize,99,0,B4XMainPage,B4XPage_Created,230,0,C_Cliente,B4XPage_Appear,451,1,C_Cliente,GPS_LocationChanged,802,0 NavigationStack=C_Cliente,CB4_P8_M3_CheckedChange,3805,0,C_Cliente,Cuestionario,3805,6,C_Cliente,centroPantalla,3838,0,C_Cliente,b_encuesta_1_Click,3839,0,C_Cliente,b_encuesta_continuar_Click,3879,0,C_Cliente,B4XPage_Appear,637,0,C_Cliente,GPS_LocationChanged,701,0,Tracker,CreateLocationRequestSmallD,128,0,Tracker,StartFLPSmall,109,0,Tracker,CreateLocationRequest,115,0,Main,Globals,22,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=21,2,22,12,13,4,8,11,5,10 VisibleModules=21,2,22,12,13,4,8,11,5,10,23

6
B4A/Tracker.bas
View File

@@ -130,10 +130,10 @@ Private Sub CreateLocationRequestSmallD As LocationRequest
' Log("Iniciamos CreateLocationRequestSmallD") ' Log("Iniciamos CreateLocationRequestSmallD")
Dim lr As LocationRequest Dim lr As LocationRequest
lr.Initialize lr.Initialize
lr.SetInterval(2000) 'Intervalo deseado para actualizaciones de ubicacion lr.SetInterval(1000) 'Intervalo deseado para actualizaciones de ubicacion
lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion
lr.setNumUpdates(2) 'Solicitamos solo 2 actualizaciones con estos parametros lr.setNumUpdates(3) 'Solicitamos solo 2 actualizaciones con estos parametros
lr.SetSmallestDisplacement(1) 'Solo registra cambio de ubicacion si es mayor a XX mts lr.SetSmallestDisplacement(0) 'Solo registra cambio de ubicacion si es mayor a XX mts
lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY) lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
actualLR=lr actualLR=lr
Return lr Return lr