cheveguerra/Mariana_Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Reparto.git synced 2026-04-20 06:09:13 +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

112
B4A/C_Cheklist.bas
View File

@@ -146,7 +146,6 @@ End Sub
Private Sub B4XPage_Appear Private Sub B4XPage_Appear
MES1.Initialize(Me, "MES1") MES1.Initialize(Me, "MES1")
' get the device SDK version ' get the device SDK version
Dim SdkVersion As Int = device.SdkVersion Dim SdkVersion As Int = device.SdkVersion
@@ -174,8 +173,6 @@ Private Sub B4XPage_Appear
c.Position = 0 c.Position = 0
l_placa.Text = c.GetString("PLACA") l_placa.Text = c.GetString("PLACA")
c.Close c.Close
End Sub End Sub
Private Sub InitializeCamera2 Private Sub InitializeCamera2
@@ -186,23 +183,23 @@ Private Sub InitializeCamera2
frontCamera = camEx.Front frontCamera = camEx.Front
Log("inicializamos Camara") Log("inicializamos Camara")
Else Else
ToastMessageShow("No permission!!!", True) ToastMessageShow("Sin permisos de camara!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
End If End If
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
' Log("Con permisos para escritura")
' Else
' ToastMessageShow("Sin permisos de escritura!", True)
' End If
'
' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
' If Result Then
' Log("con permisos para escritura")
' Else
' ToastMessageShow("Sin permisos de lectura!!", True)
' End If
End Sub End Sub
Sub Camera1_Ready (Success As Boolean) Sub Camera1_Ready (Success As Boolean)
@@ -248,7 +245,7 @@ Sub Camera1_PictureTaken (Data()As Byte)
Log("tome foto") Log("tome foto")
Dim filename As String = fototomada Dim filename As String = fototomada
Dim Dirp As String = File.DirRootExternal Dim Dirp As String = File.DirInternal
Dim Dir As String Dim Dir As String
Dim Dir2 As String Dim Dir2 As String
Try Try
@@ -281,44 +278,43 @@ Sub Camera1_PictureTaken (Data()As Byte)
Log(nombrefoto3) Log(nombrefoto3)
If nombrefoto <> "0" Then If nombrefoto <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, True) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, True)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
' foto1 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto) ' foto1 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto)
out.Close out.Close
ImageView1.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto) ImageView1.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto)
End If End If
If nombrefoto1 <> "0" Then If nombrefoto1 <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
' foto2 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto1) ' foto2 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto1)
out.Close out.Close
ImageView2.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto1) ImageView2.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto1)
End If End If
If nombrefoto2 <> "0" Then If nombrefoto2 <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
' foto3 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto2) ' foto3 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto2)
out.Close out.Close
ImageView3.Bitmap = LoadBitmap(File.DirRootExternal & Dir& Dir2,nombrefoto2) ImageView3.Bitmap = LoadBitmap(File.DirInternal & Dir& Dir2,nombrefoto2)
End If End If
If nombrefoto3 <> "0" Then If nombrefoto3 <> "0" Then
Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirRootExternal & Dir, filename, 450, 600, True) Dim img As B4XBitmap = xui.LoadBitmapResize(File.DirInternal & Dir, filename, 450, 600, True)
Dim out As OutputStream = File.OpenOutput(File.DirRootExternal & Dir & Dir2, filename, False) Dim out As OutputStream = File.OpenOutput(File.DirInternal & Dir & Dir2, filename, False)
img.WriteToStream(out, 100, "PNG") img.WriteToStream(out, 100, "PNG")
' foto4 = File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto3) ' foto4 = File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto3)
out.Close out.Close
ImageView4.Bitmap = LoadBitmap(File.DirRootExternal & Dir & Dir2,nombrefoto3) ImageView4.Bitmap = LoadBitmap(File.DirInternal & Dir & Dir2,nombrefoto3)
End If End If
StopCamera2 StopCamera2
@@ -548,7 +544,7 @@ End Sub
Private Sub b_guardar_Click Private Sub b_guardar_Click
Dim Dirp As String = File.DirRootExternal Dim Dirp As String = File.DirInternal
Dim Dir As String Dim Dir As String
Dim Dir2 As String Dim Dir2 As String
Try Try
@@ -599,7 +595,7 @@ Private Sub b_guardar_Click
If et_liquidos.Text <> "" And (rb_docno15.Checked Or rb_docno16.Checked Or rb_docno17.Checked Or rb_docno18.Checked Or rb_docno19.Checked) Or et_liquidos.Text = "" And (rb_docsi15.Checked And rb_docsi16.Checked And rb_docsi17.Checked And rb_docsi18.Checked And rb_docsi19.Checked) Then If et_liquidos.Text <> "" And (rb_docno15.Checked Or rb_docno16.Checked Or rb_docno17.Checked Or rb_docno18.Checked Or rb_docno19.Checked) Or et_liquidos.Text = "" And (rb_docsi15.Checked And rb_docsi16.Checked And rb_docsi17.Checked And rb_docsi18.Checked And rb_docsi19.Checked) Then
If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then If nombrefoto <> "0" And nombrefoto1 <> "0" And nombrefoto2 <> "0" And nombrefoto3 <> "0" Then
Starter.skmt.ExecNonQuery("DELETE FROM CHECKLIST") Starter.skmt.ExecNonQuery("DELETE FROM CHECKLIST")
Starter.skmt.ExecNonQuery2("INSERT INTO CHECKLIST(USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION, POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA_BUENESTADO, CARROCERIA_MALESTADO, CARROCERIA_COMENTARIOS, LUCES_CORRECTO, LUCES_INCORRECTO, LUCES_COMENTARIOS, CONDICION_PLACAS_CORRECTO, CONDICION_PLACAS_INCORRECTO, CONDICION_PLACAS_COMENTARIOS, CONDICION_LLANTAS_DEL_DER, CONDICION_LLANTAS_DEL_IZQ, CONDICION_LLANTAS_TRASERA_DER, CONDICION_LLANTAS_TRASERA_IZQ, ACEITE, ANTICONGELANTE, FRENOS, AIRE, FUGAS, COMETARIOS_FUGAS, FOTO1, FOTO12, FOTO3, FOTO4) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)",Array As Object(B4XPages.MainPage.usuario,"placas",checkdate&" "&checktime,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,et_carroceria.Text,p11,p12,et_luces.Text,p13,p14,et_placas.Text,itemselect1,itemselect2,itemselect3,itemselect4,p15,p16,p17,p18,p19,et_liquidos.Text,File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto),File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto1),File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto2),File.ReadBytes(File.DirRootExternal & Dir & Dir2, nombrefoto3))) Starter.skmt.ExecNonQuery2("INSERT INTO CHECKLIST(USUARIO, PLACA, FECHA_CAPTURA, TARJETA_CIRCULACION, POLIZA_SEGURO, LICENCIA_CONDUCIR, LIMPIA_EXTERNA, LIMPIA_INTERNA, TRIANGULO, GATO, LLANTA_REFACCION, CARROCERIA_BUENESTADO, CARROCERIA_MALESTADO, CARROCERIA_COMENTARIOS, LUCES_CORRECTO, LUCES_INCORRECTO, LUCES_COMENTARIOS, CONDICION_PLACAS_CORRECTO, CONDICION_PLACAS_INCORRECTO, CONDICION_PLACAS_COMENTARIOS, CONDICION_LLANTAS_DEL_DER, CONDICION_LLANTAS_DEL_IZQ, CONDICION_LLANTAS_TRASERA_DER, CONDICION_LLANTAS_TRASERA_IZQ, ACEITE, ANTICONGELANTE, FRENOS, AIRE, FUGAS, COMETARIOS_FUGAS, FOTO1, FOTO12, FOTO3, FOTO4) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)",Array As Object(B4XPages.MainPage.usuario,"placas",checkdate&" "&checktime,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,et_carroceria.Text,p11,p12,et_luces.Text,p13,p14,et_placas.Text,itemselect1,itemselect2,itemselect3,itemselect4,p15,p16,p17,p18,p19,et_liquidos.Text,File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto1),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto2),File.ReadBytes(File.DirInternal & Dir & Dir2, nombrefoto3)))
mandaPendientes mandaPendientes
@@ -611,70 +607,70 @@ Private Sub b_guardar_Click
MsgboxAsync("Especifica Fugas o detllaes en los liquidos","Atención") MsgboxAsync("Especifica Fugas o detllaes en los liquidos","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Fugas","Atención") MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Fugas","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Aire","Atención") MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Aire","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Frenos","Atención") MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Frenos","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Anticongelante","Atención") MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Anticongelante","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Niveles de Liquidos y aire de Aceite","Atención") MsgboxAsync("Seleciona una opción en Niveles de Liquidos y aire de Aceite","Atención")
End If End If
Else Else
MsgboxAsync("Especifica daños en las condiciones de placas","Atención") MsgboxAsync("Especifica daños en las condiciones de placas","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Conciciones de placas de Incorrecto","Atención") MsgboxAsync("Seleciona una opción en Conciciones de placas de Incorrecto","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Conciciones de placas de Correcto","Atención") MsgboxAsync("Seleciona una opción en Conciciones de placas de Correcto","Atención")
End If End If
Else Else
MsgboxAsync("Especifica daños en las luces","Atención") MsgboxAsync("Especifica daños en las luces","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Funcionamiento de luces de Incorrecto","Atención") MsgboxAsync("Seleciona una opción en Funcionamiento de luces de Incorrecto","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Funcionamiento de luces de Correcto","Atención") MsgboxAsync("Seleciona una opción en Funcionamiento de luces de Correcto","Atención")
End If End If
Else Else
MsgboxAsync("Especifica daños en la carrocería","Atención") MsgboxAsync("Especifica daños en la carrocería","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Carrocería de Mal estado","Atención") MsgboxAsync("Seleciona una opción en Carrocería de Mal estado","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Carrocería de Buen estado","Atención") MsgboxAsync("Seleciona una opción en Carrocería de Buen estado","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Seguridad y refación de Llanta de refacción","Atención") MsgboxAsync("Seleciona una opción en Seguridad y refación de Llanta de refacción","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Seguridad y refación de gato","Atención") MsgboxAsync("Seleciona una opción en Seguridad y refación de gato","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Seguridad y refación de Triagulo reflectante","Atención") MsgboxAsync("Seleciona una opción en Seguridad y refación de Triagulo reflectante","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Limpieza unidad interna","Atención") MsgboxAsync("Seleciona una opción en Limpieza unidad interna","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Limpieza unidad externa","Atención") MsgboxAsync("Seleciona una opción en Limpieza unidad externa","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Documentación viegnte de Licencia de conducir","Atención") MsgboxAsync("Seleciona una opción en Documentación viegnte de Licencia de conducir","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Documentación viegnte de Póliza de seguro","Atención") MsgboxAsync("Seleciona una opción en Documentación viegnte de Póliza de seguro","Atención")
End If End If
Else Else
MsgboxAsync("Seleeciona una opción en Documentación viegnte de tarjeta de circulación","Atención") MsgboxAsync("Seleciona una opción en Documentación viegnte de tarjeta de circulación","Atención")
End If End If
End Sub End Sub

14
B4A/C_Clientes.bas
View File

@@ -408,12 +408,14 @@ Sub traeRutaDia(aVisitar As B4XOrderedMap)
Private r1, wps As Map Private r1, wps As Map
Starter.skmt.ExecNonQuery("delete from waypoints") Starter.skmt.ExecNonQuery("delete from waypoints")
For Each k As Object In clientesMapaO.Keys 'Guardamos en la BD el orden de los waypoints para luego generar el listview. For Each k As Object In clientesMapaO.Keys 'Guardamos en la BD el orden de los waypoints para luego generar el listview.
r1 = clientesMapaO.Get(k) If listaWayPoints.Size > 0 Then
r1.Get("codigo") r1 = clientesMapaO.Get(k)
' Log(listaWayPoints.Get(r) & "|" & r1.Get("coords") & "|" & r1.Get("calle")) r1.Get("codigo")
wps = listaWayPoints.Get(r) Log(listaWayPoints.Get(r) & "|" & r1.Get("coords") & "|" & r1.Get("calle"))
Starter.skmt.ExecNonQuery2("insert into waypoints values (?,?)", Array As Object(r1.Get("codigo"), wps.get("waypoint_index"))) wps = listaWayPoints.Get(r)
r = r + 1 Starter.skmt.ExecNonQuery2("insert into waypoints values (?,?)", Array As Object(r1.Get("codigo"), wps.get("waypoint_index")))
r = r + 1
End If
Next Next
ListView1.Clear ListView1.Clear
Sleep(100) Sleep(100)

2
B4A/C_Foto.bas
View File

@@ -81,7 +81,7 @@ End Sub
Sub Camera1_PictureTaken (Data() As Byte) Sub Camera1_PictureTaken (Data() As Byte)
Dim filename As String = "1.jpg" Dim filename As String = "1.jpg"
Dim dir As String = File.DirRootExternal Dim dir As String = File.DirInternal
camEx.SavePictureToFile(Data, dir, filename) camEx.SavePictureToFile(Data, dir, filename)
camEx.StartPreview 'restart preview camEx.StartPreview 'restart preview

8
B4A/Mariana_Reparto.b4a.meta
View File

@@ -70,7 +70,7 @@ ModuleClosedNodes16=
ModuleClosedNodes17=5,6,7,8,10,12,13,14,15,16,17,19,23,24 ModuleClosedNodes17=5,6,7,8,10,12,13,14,15,16,17,19,23,24
ModuleClosedNodes18=4 ModuleClosedNodes18=4
ModuleClosedNodes19= ModuleClosedNodes19=
ModuleClosedNodes2= ModuleClosedNodes2=4,6,7
ModuleClosedNodes20= ModuleClosedNodes20=
ModuleClosedNodes21= ModuleClosedNodes21=
ModuleClosedNodes22= ModuleClosedNodes22=
@@ -80,7 +80,7 @@ ModuleClosedNodes25=
ModuleClosedNodes26= ModuleClosedNodes26=
ModuleClosedNodes27= ModuleClosedNodes27=
ModuleClosedNodes28=45,46,47,48,49,50,53,54 ModuleClosedNodes28=45,46,47,48,49,50,53,54
ModuleClosedNodes29=2 ModuleClosedNodes29=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4=3,4,5,7,8 ModuleClosedNodes4=3,4,5,7,8
ModuleClosedNodes5= ModuleClosedNodes5=
@@ -88,6 +88,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=2 ModuleClosedNodes7=2
ModuleClosedNodes8=1,3 ModuleClosedNodes8=1,3
ModuleClosedNodes9=13 ModuleClosedNodes9=13
NavigationStack=C_Principal,connecta_Click,1215,0,C_Principal,B4XPage_CloseRequest,1203,0,C_Principal,b_tabulador_Click,1388,1,C_Principal,B_REGRESA_Click,1365,0,C_Principal,b_check_Click,1393,1,Main,Process_Globals,17,0,Starter,Process_Globals,31,0,B4XMainPage,B4XPage_Created,148,0,B4XMainPage,B4XPage_Appear,186,0,B4XMainPage,Entrar_Click,218,0 NavigationStack=Tracker,Service_Start,68,0,B4XMainPage,Entrar_Click,201,0,B4XMainPage,B4XPage_Created,87,0,Tracker,Track,79,0,Tracker,Process_Globals,30,1,C_Cheklist,b_guardar_Click,607,0,C_Cheklist,cb_deratras_SelectedIndexChanged,540,0,C_Cheklist,InitializeCamera2,181,6,B4XMainPage,B4XPage_Appear,192,6,C_Clientes,traeRutaDia,417,4
SelectedBuild=0 SelectedBuild=0
VisibleModules=2,27,16,28,1,20,18,25,7,13 VisibleModules=2,27,16,28,29,20,18,25,7,13,5,10,23

12
B4A/Subs.bas
View File

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

2
B4A/Tracker.bas
View File

@@ -34,7 +34,7 @@ Version=10.2
Sub Process_Globals Sub Process_Globals
Private nid As Int = 1 Private nid As Int = 1
Private Tracking As Boolean dim Tracking As Boolean
Private lock As PhoneWakeState Private lock As PhoneWakeState
'Para FusedLocationProvider (2 lineas) 'Para FusedLocationProvider (2 lineas)
Public FLP As FusedLocationProvider Public FLP As FusedLocationProvider

2
B4A/foto.bas
View File

@@ -87,7 +87,7 @@ End Sub
Sub Camera1_PictureTaken (Data() As Byte) Sub Camera1_PictureTaken (Data() As Byte)
Dim filename As String = "1.jpg" Dim filename As String = "1.jpg"
Dim dir As String = File.DirRootExternal Dim dir As String = File.DirInternal
camEx.SavePictureToFile(Data, dir, filename) camEx.SavePictureToFile(Data, dir, filename)
camEx.StartPreview 'restart preview camEx.StartPreview 'restart preview

12
B4XMainPage.bas
View File

@@ -181,7 +181,7 @@ Sub B4XPage_Appear
' LogColor("Start Tracker1", Colors.red) ' LogColor("Start Tracker1", Colors.red)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then If Result Then
StartService(Tracker) If Not(Tracker.Tracking) Then StartService(Tracker)
' LogColor("Start Tracker", Colors.red) ' LogColor("Start Tracker", Colors.red)
Else Else
ToastMessageShow("No permission", True) ToastMessageShow("No permission", True)
@@ -196,11 +196,11 @@ Sub B4XPage_Appear
usuario = c.GetString("USUARIO") usuario = c.GetString("USUARIO")
End If End If
c.Close c.Close
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE) ' Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean) ' Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then ' If Result Then
Log("Con permisos de escritura externa") ' Log("Con permisos de escritura externa")
End If ' End If
End Sub End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.