Se agregaron las tablas cat_gunaprod y cat_detalle_paq al respaldo diario.

B4A/B4XMainPage.bas

@@ -34,7 +34,6 @@ Sub Class_Globals
 	Public pedidos As C_Pedidos
 	Public promos As C_Promos
 	Public historico As C_Historico
-	Public rd As C_RespaldoDiario
 	Public Provider As FileProvider
  
 	'nuevocliente -> NuevoCliente
@@ -134,9 +133,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	B4XPages.AddPage("Historico", historico)
 '	respaldoDiario.Initialize
 '	B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario)
-
-	rd.Initialize
-	
 	ruta = Starter.ruta
 	Provider.Initialize
 '	Subs.borraArribaDe100Errores 	' Para Websockets
@@ -225,9 +221,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
-	rd.respaldaPedido
-	rd.respaldaInventarios
-	rd.respaldaPaquetes
 	If Starter.muestraProgreso = 1 Then
 		muestraProgreso("Descargando actualización")
 		Starter.muestraProgreso = 0

B4A/C_Principal.bas

@@ -8,6 +8,7 @@ Sub Class_Globals
 	Public rp As RuntimePermissions
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
+	Dim rd As C_RespaldoDiario
 	Dim conectado As String
 	Dim ime As IME
 	Dim t1 As Timer
@@ -237,6 +238,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	'load the layout to Root
 	Root.LoadLayout("principal")
+	rd.Initialize
+	rd.vacuum
 	EJECUTANDO=1
 	Dim ruta As String
 	img2.Visible =False
@@ -317,6 +320,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	rd.respaldaPedido
+	rd.respaldaInventarios
+	rd.respaldaPaquetes
 	HORAINGRESO ="000000"
 	Btn_Ubicar.Left = (Root.Width/2) - (Btn_Ubicar.Width/2)
 '	B4XPages.MainPage.reqManager.Initialize(Me, B4XPages.MainPage.SERVER)

B4A/C_RespaldoDiario.bas

@@ -17,7 +17,7 @@ End Sub
 Public Sub Initialize As Object
 	Log("**************************   " & safePath)
 	safePath = rp.GetSafeDirDefaultExternal("./")
-	rkmt.Initialize(safePath,"rkmt.db", True)
+	rkmt.Initialize(safePath,"rkmt.km", True)
 	skmt.Initialize(File.DirInternal,"kmt.db", False)
 	rkmt.ExecNonQuery($"create table if not exists pedidos (pe_folio NUMERIC, pe_desc NUMERIC, pe_costo_sin TEXT, pe_ruta TEXT, pe_cedis TEXT, pe_costo_tot NUMERIC, pe_costou NUMERIC, pe_cant NUMERIC, pe_pronombre TEXT, pe_proid TEXT, pe_cliente TEXT, pe_fecha TEXT, pe_usuario TEXT)"$)
 	rkmt.ExecNonQuery($"create table if not exists inventarios (cat_gp_iniciativa TEXT, cat_gp_tipoprod TEXT, cat_gp_dev TEXT, cat_gp_almacen NUMERIC, cat_gp_id TEXT, cat_gp_nombre TEXT, cat_gp_imp1 TEXT, cat_gp_imp2 TEXT, cat_gp_precio TEXT, cat_gp_clasif TEXT, cat_gp_sts TEXT, cat_gp_tipo TEXT, cat_gp_subtipo TEXT, cat_gp_tipoprod2 TEXT, fecha TEXT)"$)
@@ -79,6 +79,11 @@ Sub respaldaPaquetes
 	Log(((DateTime.Now - inicio)/1000) & " segs")
 End Sub
 
+Sub vacuum
+	Log("Vacuum")
+	rkmt.ExecNonQuery("vacuum;")
+End Sub
+
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 'Agrega una columna a la tabla especificada.