Código para respaldo diario.

B4A/B4XMainPage.bas

@@ -34,6 +34,7 @@ Sub Class_Globals
 	Public pedidos As C_Pedidos
 	Public promos As C_Promos
 	Public historico As C_Historico
+	Public respaldoDiario as C_RespaldoDiario
 	Public Provider As FileProvider
  
 	'nuevocliente -> NuevoCliente
@@ -131,6 +132,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	B4XPages.AddPage("Promos", promos)
 	historico.Initialize
 	B4XPages.AddPage("Historico", historico)
+	respaldoDiario.Initialize
+	B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario)
 	ruta = Starter.ruta
 	Provider.Initialize
 '	Subs.borraArribaDe100Errores 	' Para Websockets

B4A/C_RespaldoDiario.bas

@@ -0,0 +1,30 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=12.2
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	Dim skmt, rkmt As SQL
+	Dim rp As RuntimePermissions
+	Dim safePath As String
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize As Object
+	Return Me
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	'load the layout to Root
+	safePath = rp.GetSafeDirDefaultExternal("./")
+	Log("**************************   " & safePath)
+	rkmt.Initialize(safePath,"rkmt.db", True)
+	skmt.Initialize(File.DirInternal,"kmt.db", false)
+End Sub
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.

B4A/INTMEX_LL.b4a

@@ -131,15 +131,16 @@ Module11=C_Pedidos
 Module12=C_Principal
 Module13=C_Productos
 Module14=C_Promos
-Module15=C_TicketsDia
+Module15=C_RespaldoDiario
-Module16=C_UpdateAvailable
+Module16=C_TicketsDia
-Module17=DBRequestManager
+Module17=C_UpdateAvailable
-Module18=FileHandler
+Module18=DBRequestManager
-Module19=MAPA_RUTAS
+Module19=FileHandler
 Module2=B4XMainPage
-Module20=Starter
+Module20=MAPA_RUTAS
-Module21=Subs
+Module21=Starter
-Module22=Tracker
+Module22=Subs
+Module23=Tracker
 Module3=BatteryUtilities
 Module4=C_Cliente
 Module5=C_Clientes
@@ -149,7 +150,7 @@ Module8=C_Nota
 Module9=C_NoVenta
 NumberOfFiles=46
 NumberOfLibraries=32
-NumberOfModules=22
+NumberOfModules=23
 Version=12.2
 @EndOfDesignText@
 #Region  Project Attributes