23/9/23 - Commit inicial.

B4A/B4XMainPage.bas

@@ -0,0 +1,99 @@
+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
+#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