VERSION 5.12.18

- Se agrego auditoria en los "principales" eventos, se guardan en la tabla "auditoria"

B4A/B4XMainPage.bas

@@ -124,6 +124,7 @@ Sub Class_Globals
 	Private Label4 As Label
 	Private clicked As Int = 0
 	Dim linker As C_deviceLinker
+	Dim aud As C_Auditoria
 End Sub
 
 Public Sub Initialize
@@ -195,6 +196,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	kh.agregaColumna(Starter.skmt, "PEDIDO", "PE_ARCH", "TEXT")
 	kh.agregaColumna(Starter.skmt, "PEDIDO_CLIENTE", "PC_ARCH", "TEXT")
 	kh.agregaColumna(Starter.skmt, "PEDIDO3", "PE_ARCH", "TEXT")
+	aud.Initialize(Starter.skmt)
 	Root = Root1
 '	Root.LoadLayout("MainPage")
 	Root.LoadLayout("login")
@@ -412,6 +414,7 @@ End Sub
 
 Sub B4XPage_Appear
 	Log(">>>>>>  APPEAR - INICIAMOS MAIN PAGE  <<<<<<<<<")
+	aud.guarda($"Entrada a Login"$)
 	linker.Initialize(Me, "Linker", True)
 	clicked = 0
 	If Not(MES1.IsInitialized) Then MES1.Initialize(Me, "MES1")