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}"$)