diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 4855749..a1ad4bf 100644 --- a/B4A/B4XMainPage.bas +++ b/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 diff --git a/B4A/C_RespaldoDiario.bas b/B4A/C_RespaldoDiario.bas new file mode 100644 index 0000000..bd911ed --- /dev/null +++ b/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. \ No newline at end of file diff --git a/B4A/INTMEX_LL.b4a b/B4A/INTMEX_LL.b4a index 90d0b4c..416b1d7 100644 --- a/B4A/INTMEX_LL.b4a +++ b/B4A/INTMEX_LL.b4a @@ -131,15 +131,16 @@ Module11=C_Pedidos Module12=C_Principal Module13=C_Productos Module14=C_Promos -Module15=C_TicketsDia -Module16=C_UpdateAvailable -Module17=DBRequestManager -Module18=FileHandler -Module19=MAPA_RUTAS +Module15=C_RespaldoDiario +Module16=C_TicketsDia +Module17=C_UpdateAvailable +Module18=DBRequestManager +Module19=FileHandler Module2=B4XMainPage -Module20=Starter -Module21=Subs -Module22=Tracker +Module20=MAPA_RUTAS +Module21=Starter +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