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

- Se cambio en cuestionario que mande el ID de la pregunta en el Tipo, porque asi lo tienen en web!

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-14 11:04:12 -06:00
parent b7916a90b6
commit b7a0e783cc
3 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Cliente.bas
View File

@@ -3801,7 +3801,7 @@ Sub Cuestionario
Loop
If logger Then Log("encuestaRes: " & encuestaRes)
If logger Then LogColor($"Guardamos tipo 3 : ${encuestaRes}"$, Colors.Green)
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_IDTIPOPREGUNTA"), 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
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then
If logger Then Log("Pregunta tipo 4")
@@ -3820,12 +3820,12 @@ Sub Cuestionario
If logger Then Log("encuestaRes: " & encuestaRes)
If logger Then LogColor($"Guardamos tipo 4 : ${encuestaRes}"$, Colors.Green)
If encuestaRes = "SI" Then
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, "SI", fecha, enc.GetString("CAT_EP_IDTIPOPREGUNTA"), 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, "SI", fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES1_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
Log($"IndicePreg = ${indicePregunta}"$)
i = indicePregunta
else if encuestaRes = "NO" Then
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, "NO", fecha, enc.GetString("CAT_EP_IDTIPOPREGUNTA"), 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, "NO", fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES2_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
Log($"IndicePreg = ${indicePregunta}"$)
i = indicePregunta
@@ -3850,7 +3850,7 @@ Sub Cuestionario
Loop
Log("encuestaRes: " & encuestaRes)
If logger Then LogColor($"Guardamos tipo 2 : ${encuestaRes}"$, Colors.Green)
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_IDTIPOPREGUNTA"), 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))
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
i = indicePregunta + 1
@@ -3893,7 +3893,7 @@ Sub Cuestionario
Loop
Log($"Respuesta: ${encuestaRes}"$)
If logger Then LogColor($"Guardamos tipo 1 : ${encuestaRes}"$, Colors.Green)
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_IDTIPOPREGUNTA"), 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
Else
' Starter.tipov = "VENTA"

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

@@ -184,12 +184,12 @@ Module9=C_NoVenta
NumberOfFiles=62
NumberOfLibraries=33
NumberOfModules=23
Version=12.5
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Guna V3.1
#VersionCode: 1
#VersionName: 4.05.04 ENC Geo
#VersionName: 4.05.13 ENC Geo
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

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

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cliente,b_encuesta_1_Click,3929,0,C_Cliente,b_encuesta_continuar_Click,3969,0,C_Principal,JobDone,960,0,C_Cliente,Class_Globals,0,0,C_Cliente,CB2_P8_M3_CheckedChange,3681,0,C_Cliente,CB3_P8_M3_CheckedChange,3693,0,C_Cliente,B4XPage_Appear,676,0,C_Cliente,GPS_LocationChanged,686,0,C_Cliente,Cuestionario,3906,0,C_Cliente,CB4_P8_M3_CheckedChange,3708,0
NavigationStack=C_Cliente,CB4_P8_M3_CheckedChange,3708,0,C_Cliente,b_preguntag_Click,1132,0,C_Cliente,gest_Click,1015,0,C_Cliente,DATOS_Click,1657,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,867,0,C_Cliente,B_E_NEXT_Click,2163,0,C_Cliente,Cuestionario,3710,0,C_Principal,JobDone,1527,0,C_Principal,Subir_Click,562,0
SelectedBuild=0
VisibleModules=21,2,22,12,13,4,8,11,5,10