6/11/23 - Se cambio el puerto y se cambiaron algunas cosas para que corra en nuevos equipos.

This commit is contained in:
2023-11-06 16:56:59 -06:00
parent c9e534fac8
commit fd6d581422
17 changed files with 574 additions and 791 deletions

View File

@@ -68,11 +68,7 @@ Sub Activity_Create(FirstTime As Boolean)
Dim ruta As String
' valido donde escribo el archivo de la base de datos de kmt
If File.ExternalWritable Then
ruta = File.DirDefaultExternal
Else
ruta = File.DirInternal
End If
ruta = File.DirInternal
' se crea o no el archivo de la base de ddatos de kmt
'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE