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

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

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-06 16:56:59 -06:00
parent c9e534fac8
commit fd6d581422
17 changed files with 574 additions and 791 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
Historico.bas
View File

@@ -49,19 +49,14 @@ Sub Activity_Create(FirstTime As Boolean)
If(FirstTime) Then
g.Initialize("GPS")
End If
If File.ExternalWritable Then
ruta = File.DirDefaultExternal
Else
ruta = File.DirInternal
End If
Activity.LoadLayout("tarjeta")
borra.Visible = False
Titulo.Text = "Pedido"
ruta = File.DirInternal
Activity.LoadLayout("tarjeta")
borra.Visible = False
Titulo.Text = "Pedido"
' 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
'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
'SI SE REGRESA A ESTE ACTIVIDAD.
If File.Exists(ruta, "kmt.db") = False Then