Commit inicial

B4XMainPage.bas

@@ -0,0 +1,142 @@
+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
+'###########################################################################################################
+'######################           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
+
+'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
+
+Sub Class_Globals
+	Private Root As B4XView
+	Private xui As XUI
+	Private b_iniciar As Button
+	Private Usuario As EditText
+	Private Contraseña As EditText
+	Dim reqManager As DBRequestManager
+	Dim user As String
+	
+	Dim principal As C_principal
+	Dim cliente As C_cliente
+	Dim user As String
+	Dim password As String
+	Dim e As Cursor
+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("MainPage")
+	reqManager.Initialize(Me, Starter.DBReqServer)
+	principal.Initialize
+	B4XPages.AddPage("principal", principal)
+	cliente.Initialize
+	B4XPages.AddPage("cliente", cliente)
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For b4xpage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		StartService(Tracker)
+		Log("Start Tracker")
+	Else
+		ToastMessageShow("Sin permisos para GPS", True)
+	End If
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_COARSE_LOCATION)
+	Wait For b4xpage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+'		StartService(Tracker)
+'		Log("Start Tracker")
+	Else
+		ToastMessageShow("Sin permisos para GPS", True)
+	End If
+	Log(Result)
+	
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+'		Log("conpermisos para escritura")
+'	Else
+'		ToastMessageShow("No permission!!!", True)
+'	End If
+'	
+'	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
+'	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+'	If Result Then
+'		Log("conpermisos para escritura")
+'	Else
+'		ToastMessageShow("No permission!!!", True)
+'	End If
+	
+	Log("inicio1")
+	StartService(Tracker)
+End Sub
+
+Sub B4XPage_Appear
+End Sub
+
+
+Private Sub b_iniciar_Click
+
+	If Usuario.Text <> "" Then
+		Dim cmd As DBCommand
+		cmd.Initialize
+		cmd.Name = "select_usuario_INTMEXP"
+		cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
+		reqManager.ExecuteQuery(cmd , 0, "usuario")
+		user = Usuario.Text
+	End If
+	e = Starter.skmt.ExecQuery2("SELECT USUARIO FROM CARGA WHERE USUARIO = ?", Array As String(B4XPages.MainPage.user))
+	e.Position = 0
+	If e.RowCount = 0 Then
+		Starter.skmt.ExecNonQuery2("INSERT INTO CARGA (USUARIO, CARGADO)VALUES(?, ?)",Array As String(B4XPages.MainPage.user,0))
+	End If
+	Log(Starter.latitud)
+	Log(Starter.longitud)
+'	B4XPages.ShowPage ("Principal")
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	If Job.Success = False Then
+		ToastMessageShow("Error: " & Job.ErrorMessage, True)
+	Else
+		LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green)
+		
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag = "usuario" Then 'query tag
+				For Each records() As Object In result.Rows
+					For Each k As String In result.Columns.Keys
+						Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
+					Next
+					If records(result.Columns.Get ("USUARIO")) = "OKActivo" Then
+						Starter.almacen = records(result.Columns.Get ("CAT_LO_AGENCIA"))
+						user = Usuario.Text
+						password = Contraseña.Text		
+						B4XPages.ShowPage ("Principal")
+						Log(Starter.almacen)
+					Else
+						ToastMessageShow ("Datos incorrectos",True)
+					End If
+				Next
+				If result.Rows.Size = 0 Then
+					ToastMessageShow ("Datos incorrectos",True)
+				End If
+			End If
+					
+		End If
+	End If
+End Sub