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

...

Browse Source
This commit is contained in:
cvaldes1201
2024-05-06 15:26:28 -06:00
parent 1f9b8860b7
commit d75ec22591
3 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -680,7 +680,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
Tels.Visible = False
' ToastMessageShow("aaa", False)
@@ -720,16 +720,16 @@ Sub GPS_LocationChanged (Location1 As Location)
c.Close
If gest.IsInitialized And Tels.IsInitialized Then
If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then
If ALMACEN <> "32" And ALMACEN <> "33" Then
gest.Visible = True
Tels.Visible = True
Else If ALMACEN = "32" And ALMACEN = "33" And ALMACEN = 6 Then
Else If ALMACEN = "32" And ALMACEN = "33" Then
gest.Visible = False
Tels.Visible = False
End If
End If
If ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6" Then
If ALMACEN = "32" Or ALMACEN = "33" Then
If distance < 100 Then
LA_GEO.TextColor = Colors.Blue
Tels.Visible = True
@@ -3753,8 +3753,8 @@ Sub Cuestionario
For i = 0 To enc.RowCount - 1
' If logger Then Log($"ROWCOUNT: ${enc.RowCount}"$)
' If logger Then Log($"tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}"$)
If logger Then Log($"Tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}, CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") <> 4 and indicePregunta <> 0 Then
If logger Then Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
If indicePregunta <> 0 Then
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) + 1 '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
Log($"i = ${i}"$)

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

@@ -184,12 +184,12 @@ Module9=C_NoVenta
NumberOfFiles=62
NumberOfLibraries=33
NumberOfModules=23
Version=12.8
Version=12.5
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Guna V3.1
#VersionCode: 1
#VersionName: 4.04.22 ENC Geo
#VersionName: 4.05.04 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=Main,Activity_KeyPress,40,0,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,CB4_P8_M3_CheckedChange,3709,0,Main,Activity_Create,29,0,C_Cliente,Cuestionario,3750,1
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,CB4_P8_M3_CheckedChange,3709,0,C_Cliente,Cuestionario,3710,0,C_Cliente,B4XPage_Appear,676,0,C_Cliente,GPS_LocationChanged,716,0
SelectedBuild=0
VisibleModules=21,2,22,12,13,4,8,11,5,10