cheveguerra/Mariana_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Reparto.git synced 2026-04-19 13:49:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

20/12/23 - Se cambio rootExternal a Internal

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-20 21:25:24 -06:00
parent f57db99170
commit bc66ad5dbd
8 changed files with 81 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/Subs.bas
View File

@@ -123,7 +123,7 @@ Sub guardaInfoEnArchivo(coords As String) 'ignore
DateTime.DateFormat=OrigFormat 'return to orig date format
Dim ubic As String = coords&","&lastUpdate
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "gps.txt", True)
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "gps.txt", True)
Dim s As String = ubic & CRLF
Dim t() As Byte = s.GetBytes("UTF-8")
out.WriteBytes(t, 0, t.Length)
@@ -190,7 +190,7 @@ End Sub
'Borramos el archio "gps.txt"
Sub borramosArchivoGPS 'ignore
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal, "gps.txt", False)
Dim out As OutputStream = File.OpenOutput(File.DirInternal, "gps.txt", False)
Dim s As String = ""
Dim t() As Byte = s.GetBytes("UTF-8")
out.WriteBytes(t, 0, t.Length)
@@ -518,7 +518,7 @@ Sub copiaDB(result As Boolean) 'ignore
If result Then
Dim p As String
If File.ExternalWritable Then
p = File.DirRootExternal
p = File.DirInternal
' Log("Externo")
Else
p = File.DirInternal
@@ -526,20 +526,20 @@ Sub copiaDB(result As Boolean) 'ignore
End If
Dim theDir As String
Try
File.MakeDir(File.DirRootExternal,"kmts")
File.MakeDir(File.DirInternal,"kmts")
theDir = "/kmts"
Catch
theDir = ""
End Try
Try
File.Copy(File.DirInternal,"kmt.db",File.DirRootExternal&theDir,"guna_rep_kmt.db")
File.Copy(File.DirInternal,"kmt.db",File.DirInternal&theDir,"guna_rep_kmt.db")
ToastMessageShow("BD copiada!", False)
Catch
ToastMessageShow("No se pudo hacer la copia: "&LastException, True)
End Try
Log("rootExternal="&p)
Log("File.DirInternal="&File.DirInternal)
Log("File.DirRootExternal="&File.DirRootExternal)
Log("File.DirInternal="&File.DirInternal)
Else
ToastMessageShow("Sin permisos", False)
End If