- Se agregó la opción de importar la base de datos directamente desde Whatsapp, hay que ingresar al engrane con el usuario KMTS1.

- Se cambio el nombre del archivo que se envia por WhatsApp cuando se envia la base de datos, ahora es kmt_mariana.db

B4A/C_Principal.bas

@@ -6,7 +6,7 @@ Version=11.5
 @EndOfDesignText@
 Sub Class_Globals
 	Public rp As RuntimePermissions
-	Dim s As C_Subs
+	Dim kh As kms_helperSubs
 	Private Root As B4XView 'ignore
 	Private xui As XUI 'ignore
 	Dim reqManager As DBRequestManager
@@ -239,10 +239,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	'load the layout to Root
 	Root.LoadLayout("principal")
 	B4XPages.SetTitle(Me, $"${Subs.capitalizar(B4XPages.GetPageId(Me))}   ${Application.VersionName}"$)
-	s.Initialize(Me, "Subs")
+	kh.Initialize(Me, "Subs")
 	p_mandaInfo.Width = Root.Width
 	p_mandaInfo.Height = Root.Height
-	s.centraPanel(P1, Root.Width)
+	kh.centraPanel(P1, Root.Width)
 	l_version.Text = Application.VersionName
 '	rd.Initialize 'Inicializamos el respaldo diario.
 '	rd.vacuum
@@ -763,7 +763,7 @@ Sub cargar_Click
 	End If
 	If Not (pedidodiaanterior) Then
 		CARGA = "CARGAR"
-		s.panelVisible(p_mandaInfo, 0, 0)
+		kh.panelVisible(p_mandaInfo, 0, 0)
 		P1.Left = (p_mandaInfo.Width/2) - (P1.Width/2)
 		P1.top = (p_mandaInfo.Height/2) - (P1.Height/2)
 		img2.Visible =True
@@ -1789,7 +1789,7 @@ End Sub
 Sub connecta_LongClick
 	ProgressDialogShow("Enviamos")
 '	s.reqManagerReInit 'Reiniciamos el DBReqManager por si hay modificacion en el servidor.
-	s.envioTest 'Llamamos envioTest de C_Subs.
+	kh.envioTest 'Llamamos envioTest de C_Subs.
 End Sub
 
 Sub tickets_dia_LongClick