26/9/23 - Cambios en RespaldoDiario

- Se modifico respaldoDiario para hacerlo mas dinámico y no tener que especificar cada una de las columnas a copiar,

B4A/B4XMainPage.bas

@@ -5,7 +5,7 @@ Type=Class
 Version=9.85
 @EndOfDesignText@
 #Region Shared Files
-#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
+'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
 	'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
 	'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
 	'###########################################################################################################
@@ -25,6 +25,7 @@ Version=9.85
 Sub Class_Globals
 	Private Root As B4XView
 	Private xui As XUI
+'	Dim ks As kms_helperSubs
 	Public login As B4XMainPage
 	Public principal As C_Principal
 	Public clientes As C_Clientes
@@ -209,13 +210,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	End If
 	C.Close
 	l_version.Text = Application.VersionName
-	'este codigo es para lo del menu
-'	PopupMenu.Initialize("PopupMenu", b_menu)
-'	PopupMenu.AddMenuItem(0, 0, "View")
-'	PopupMenu.AddMenuItem(1, 1, "Edit")
-'	PopupMenu.AddMenuItem(2, 2, "Details")
-'	PopupMenu.AddMenuItem(3, 3, "Remove")
-	' menu fin
 	montoActual  = 0
 	clientesTotal = 0
 	clientesVenta =  0
@@ -301,7 +295,7 @@ Sub B4XPage_Appear
 '		LogColor($"Si hay fecha: ${c.GetString("CUANTOS")}"$, Colors.Green)
 		c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
 		c.Position =0
-		Dim sDate, sTime As String
+		Dim sDate, sTime As String 'ignore
 		DateTime.DateFormat = "yyyyMMdd"
 		sDate=DateTime.Date(DateTime.Now)
 '		If sDate > "20220701" Then
@@ -338,7 +332,15 @@ Sub B4XPage_Appear
 '		b_notifAccess.TextColor = Colors.White
 '		b_notifAccess.Text = "Permisos Activos"
 	End If
+'	ks.Initialize(Me, "ks")
+'	ks.vacuum
+'	ks.centraEtiqueta(l_version, Root.Width)
 End Sub
+
+Sub ks_etiquetaCentrada(success As Boolean)
+	If success Then Log("Etiqueta Centrada") Else Log("Etiqueta Centrada")
+End Sub
+
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub Entrar_Click