cheveguerra/Intmex_Promotoria
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Promotoria.git synced 2026-04-17 21:06:28 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2024-02-26 11:01:23 -06:00
parent d2df408c50
commit 7b0fa42d1b
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/Intmex-Promotoria.b4a
View File

@@ -56,7 +56,7 @@ Module8=Tracker
NumberOfFiles=12 NumberOfFiles=12
NumberOfLibraries=20 NumberOfLibraries=20
NumberOfModules=8 NumberOfModules=8
Version=11.5 Version=12.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#AdditionalJar: com.android.support:support-v4 #AdditionalJar: com.android.support:support-v4

2
B4A/Starter.bas
View File

@@ -14,7 +14,7 @@ Sub Process_Globals
'These variables can be accessed from all modules. 'These variables can be accessed from all modules.
Public rp As RuntimePermissions Public rp As RuntimePermissions
Dim reqManager As DBRequestManager 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 server As String = "http://10.0.0.205:1782"
Dim rutaBD As String = File.DirInternal Dim rutaBD As String = File.DirInternal
Dim skmt As SQL Dim skmt As SQL

2
B4XMainPage.bas
View File

@@ -94,7 +94,7 @@ Private Sub b_iniciar_Click
If Usuario.Text <> "" Then If Usuario.Text <> "" Then
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_usuario_INTMEXP" cmd.Name = "select_usuario_GABICO"
cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text) cmd.Parameters = Array As Object(Usuario.Text, Contraseña.Text)
reqManager.ExecuteQuery(cmd , 0, "usuario") reqManager.ExecuteQuery(cmd , 0, "usuario")
user = Usuario.Text user = Usuario.Text