cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 03:49:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.10.15

Browse Source 
- Se genera un GUID para pruebas en lugar del IMEI
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-10-17 23:49:34 -06:00
parent 80173f1f35
commit fd6b1523da
9 changed files with 125 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/kms_helperSubs.bas
View File

@@ -50,7 +50,7 @@ Sub RD_Init
Dim Dirp As String = File.DirInternal
Dim Dir As String
' Dim Dir2 As String
' File.MakeDir(File.DirRootExternal,"/kmts")
' File.MakeDir(File.DirRootExternal,"/Android/kmts")
' File.MakeDir(rp.GetSafeDirDefaultExternal("/"), "kmts")
Try
File.MakeDir(Dirp,"/kmts")
@@ -60,7 +60,7 @@ Sub RD_Init
Dir = ""
Log("Creado en raiz")
End Try
Log(File.IsDirectory(Dirp, Dir))
' Log(File.IsDirectory(Dirp, Dir))
safePath = Dirp & Dir
'Si no existe el directorio "kmts" en el raiz de la tarjeta de memoria, nos cambiamos al directorio seguro (sdcard/Android/data/kelloggs...)
If Not(File.IsDirectory(Dirp, Dir)) Then safePath = rp.GetSafeDirDefaultExternal("kmts")
@@ -1216,7 +1216,7 @@ End Sub
Sub motivoNoVisitaActivo As Boolean
Private rnv As Boolean = False
Private nv As Cursor = khdb.ExecQuery($"select ifnull(CAT_VA_VALOR, 0) as valor from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'NOVISITA_ACTIVA'"$)
Log(nv.RowCount)
' Log(nv.RowCount)
If nv.RowCount > 0 Then
nv.Position = 0
Log(nv.GetString("valor"))