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