27/10/23 - Se agregó el respaldo diario a Principal

B4A/C_Principal.bas

@@ -7,6 +7,7 @@ Version=11.5
 Sub Class_Globals
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
+	Dim kh As kms_helperSubs
 	Dim conectado As String
 	Dim reqManager As DBRequestManager
 	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")
+	kh.Initialize(Me, "kh")
+	kh.RD_Init
 	l_version.Text = Application.VersionName
 	SCROLL_RESDIA.Width = Root.Width
 	SCROLL_RESDIA.Height = Root.Height
@@ -306,6 +309,14 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	If kh.RD_Init_IsInitialized Then
+		kh.RD_respalda_cat_detalle_paq
+		kh.RD_respalda_cat_gunaprod
+		kh.RD_respalda_kmt_info
+		kh.RD_respalda_pedido
+	Else
+		Log("******   RD NO INICIALIZADO   ********")
+	End If
 	p_principal.Visible = True
 	reqManager.Initialize(Me, Starter.server)
 	HORAINGRESO ="000000"