Commit inicial.

B4A/B4XMainPage.bas

@@ -0,0 +1,122 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=9.85
+@EndOfDesignText@
+#Region Shared 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
+'###########################################################################################################
+'######################           PULL         #############################################################
+'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=..\..\gitpull.bat
+'###########################################################################################################
+'######################           PUSH         #############################################################
+'Ctrl + click ide://run?file=%WINDIR%\System32\cmd.exe&Args=/c&Args=github&Args=..\..\
+'###########################################################################################################
+#End Region
+
+Sub Class_Globals
+	Private Root As B4XView
+	Private xui As XUI
+	Public login As B4XMainPage
+	Dim s As C_Subs
+
+	Dim reqManager As DBRequestManager
+	Dim ruta As String
+
+	Dim batterystatus(11) As Int
+	Private bu As BatteryUtilities
+	Private tb_monitorActivo As ToggleButton
+	Private b_monitorActivo As Button
+	Private p_bMonitor As Panel
+	Private l_version As Label
+	Dim l_status As Label
+	Private p_estatus As Panel
+	Dim cb_internet As CheckBox
+	Dim cb_dbreqserver As CheckBox
+	Dim cb_db As CheckBox
+End Sub
+
+Public Sub Initialize
+'	B4XPages.GetManager.LogEvents = True
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	Root.LoadLayout("login")
+	B4XPages.SetTitle(Me, "Tester")
+	B4XPages.AddPage("Login", login)
+	s.Initialize
+	l_version.Text = Application.VersionName
+'	ruta = Starter.ruta
+'	If File.Exists(ruta, "kmt.db") = False Then
+'		File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
+'		Log(File.DirAssets)
+'		LogColor("copiamos kmt.db de "&File.DirAssets & " a " & ruta,Colors.Green)
+'	End If
+	If Starter.logger Then Log(ruta)
+'	skmt.Initialize(ruta,"kmt.db", True)
+'	Subs.guardaAppInfo(skmt)
+End Sub
+
+Sub B4XPage_Appear
+	reqManager.Initialize(Me, Starter.server)
+	bu.Initialize
+	batterystatus = bu.BatteryInformation
+	s.centraPanel(p_bMonitor, Root.Width)
+	s.centraPanel(p_estatus, Root.Width)
+	s.centraEtiqueta(l_status, Root.Width)
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	If Starter.logger Then Log(Job.Success)
+	If Job.Success = False Then
+'		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+	Else
+		If Starter.logger Then LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)  'Mod por CHV - 211027
+		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "agencia" Then 'query tag
+				For Each records() As Object In result.Rows
+					Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN"))
+				Next
+			End If
+		End If
+		Job.Release
+	End If
+End Sub
+
+Private Sub B4XPage_CloseRequest As ResumableSub
+	If Starter.logger Then Log("closreq")
+	Sleep(0)
+	Return True
+End Sub
+
+
+Private Sub tb_monitorActivo_CheckedChange(Checked As Boolean)
+	
+End Sub
+
+Private Sub b_monitorActivo_Click
+	Private cd1 As ColorDrawable
+	If Starter.monitorActivo Then
+		cd1.Initialize(Colors.red, 10dip)
+		b_monitorActivo.Background = cd1
+		b_monitorActivo.Text = "Monitor Apagado"
+		l_status.Text = "Monitor Apagado"
+		Starter.monitorActivo = False
+		Starter.notiHigh("Con internet", $"Monitor apagado!!"$, Starter.nid, Main)
+	Else
+		cd1.Initialize(Colors.RGB(16, 141, 0), 10dip)
+		b_monitorActivo.Background = cd1
+		b_monitorActivo.Text = "Monitor Activo"
+		l_status.Text = "Monitor Activo"
+		Starter.Timer1_Tick
+		Starter.monitorActivo = False
+		Starter.monitorActivo = True
+	End If
+End Sub