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
NumberOfLibraries=20
NumberOfModules=8
Version=11.5
Version=12.5
@EndOfDesignText@
#Region Project Attributes
#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.
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

2
B4XMainPage.bas
View File

@@ -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