cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 11:39:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

6/11/23 - Código para activar o desactivar el uso de carta porte y cambio de puertos.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-06 15:15:46 -06:00
parent 5ad7ce20f9
commit db6cf8d7ab
8 changed files with 486 additions and 440 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/kms_helperSubs.bas
View File

@@ -593,15 +593,26 @@ End Sub
'Regresa si la geocerca se DEBE o NO de tomar en cuenta para la venta.
Sub traeUsarGeocerca As Boolean 'ignore
Private GC As Boolean = False
Private GC As Boolean = True
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'GEOCERCA'"$)
If x.RowCount > 0 Then
x.Position = 0
If x.GetString("CAT_VA_VALOR") = "true" Then GC = True
If x.GetString("CAT_VA_VALOR") = "false" Then GC = False
End If
Return GC
End Sub
'Regresa si la carta porte se DEBE o NO de tomar en cuenta para cargar día.
Sub traeUsarCartaPorte As Boolean 'ignore
Private CP As Boolean = True
Private x As Cursor = Starter.skmt.ExecQuery($"select CAT_VA_VALOR from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'CARTAPORTE'"$)
If x.RowCount > 0 Then
x.Position = 0
If x.GetString("CAT_VA_VALOR") = "false" Then CP = False
End If
Return CP
End Sub
'################ Manage External Storage (MES) #########################
'
''Inicializa "Manage External Storage" (MES), que nos da acceso a la tarjeta de memoria en Android 11+