Intmex_Promotoria/B4XMainPage.bas

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=git&Args=pull
	'###########################################################################################################
	'######################           PUSH         #############################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
	'###########################################################################################################
	'######################      PUSH TORTOISE GIT     #########################################################
	'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../../"&Args=/closeonend:2
	'###########################################################################################################
#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_GABICO"
		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