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 Usuario As EditText
	Private Contraseña As EditText
	Private b_iniciar As Button
	Dim reqManager As DBRequestManager
	Dim user As String
	Dim paso1 As String
	
	Dim seleccion As C_seleccion
	Dim escaneo As C_escaneo
	
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)
	seleccion.Initialize
	B4XPages.AddPage("seleccion",seleccion)
	escaneo.Initialize
	B4XPages.AddPage("escaneo",escaneo)
End Sub

Private Sub b_iniciar_Click
	If Usuario.Text <> "" Then
		
		Dim cmd As DBCommand
		cmd.Initialize
		cmd.Name = "select_usuario_almacen_SALMA"
		cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
		reqManager.ExecuteQuery(cmd , 0, "usuario")
		
	End If
End Sub


Sub JobDone(Job As HttpJob)
	
	If Job.Success = False Then
		
		ToastMessageShow("Error: " & Job.ErrorMessage, True)
	
	Else

		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
					Dim status As String = records(result.Columns.Get("STATUS"))
					Starter.almacen = records(result.Columns.Get("CAT_LO_AGENCIA"))
					user = records(result.Columns.Get("CAT_LO_USUARIO"))
					Log(user)
				Next
				paso1 = 1
			End If
		End If
		
		If paso1 = 1 Then
			If status = "OKActivo" Then
'			Starter.skmt.ExecNonQuery("delete from usuarioa")
'			Starter.skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(Usuario.Text, Contraseña.Text))
'			Starter.skmt.ExecNonQuery("delete from cat_almacen")
'			Starter.skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
				B4XPages.ShowPage("seleccion")
			Else If status  = "OKExpirado" Then
				Msgbox("Usuario Expirado llamar al administrador","") 'ignore
			Else If status = "OKCancelado" Then
				Msgbox("Usuario Cancelado llamar al administrador","") 'ignore
			Else
				Msgbox("Usuario o password No validos","") 'ignore
			End If
			paso1 = 0
		End If
		
		
	
	End If
	
End Sub