From 7b0fa42d1bd58862af8e24802f364a7ed58b344a Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Mon, 26 Feb 2024 11:01:23 -0600 Subject: [PATCH] ... --- B4A/Intmex-Promotoria.b4a | 2 +- B4A/Starter.bas | 2 +- B4XMainPage.bas | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/B4A/Intmex-Promotoria.b4a b/B4A/Intmex-Promotoria.b4a index 6ec9aed..80a76dd 100644 --- a/B4A/Intmex-Promotoria.b4a +++ b/B4A/Intmex-Promotoria.b4a @@ -56,7 +56,7 @@ Module8=Tracker NumberOfFiles=12 NumberOfLibraries=20 NumberOfModules=8 -Version=11.5 +Version=12.5 @EndOfDesignText@ #Region Project Attributes #AdditionalJar: com.android.support:support-v4 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index a80bbb1..d6148cd 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -14,7 +14,7 @@ Sub Process_Globals 'These variables can be accessed from all modules. Public rp As RuntimePermissions Dim reqManager As DBRequestManager - Dim DBReqServer As String = "http://keymon.lat:1787" '"http://keymon.lat:1782" "http://10.0.0.205:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA + Dim DBReqServer As String = "http://keymon.lat:1783" '"http://keymon.lat:1782" "http://10.0.0.205:1782" "http://keymon.lat:1783" "http://11.0.0.48:1783" ""' CAMBIAR HACIA AFUERA O DENTRO DE LA OFNA ' Dim server As String = "http://10.0.0.205:1782" Dim rutaBD As String = File.DirInternal Dim skmt As SQL diff --git a/B4XMainPage.bas b/B4XMainPage.bas index a4a66ea..086779a 100644 --- a/B4XMainPage.bas +++ b/B4XMainPage.bas @@ -94,7 +94,7 @@ Private Sub b_iniciar_Click If Usuario.Text <> "" Then Dim cmd As DBCommand cmd.Initialize - cmd.Name = "select_usuario_INTMEXP" + cmd.Name = "select_usuario_GABICO" cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text) reqManager.ExecuteQuery(cmd , 0, "usuario") user = Usuario.Text