cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-20 06:09:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.09.14

Browse Source 
- Se corrigio unerror en Login, que oermitia que se guardara la contraseña con espacios y al cargar ruta ya en Principal causaba problemas.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-09-15 15:03:25 -06:00
parent 62ff017400
commit faa20b0d1f
4 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/B4XMainPage.bas
View File

@@ -305,6 +305,7 @@ Sub Entrar_Click
Dim Api As Int Dim Api As Int
Dim PP As Phone Dim PP As Phone
user.Text = user.Text.trim user.Text = user.Text.trim
pass.Text = pass.Text.trim
Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT") Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
If Api < 9 Then If Api < 9 Then
'Old device 'Old device
@@ -368,9 +369,10 @@ Sub Entrar_Click
End If End If
c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text)) c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
c.Position=0 c.Position = 0
existe = c.GetString("EXISTE1") existe = c.GetString("EXISTE1")
If existe = 0 Then Log($"|${existe}|${pass.Text}|"$)
If existe = 0 Or pass.Text <> "" Then 'Si ya hay usuario registrado O ingresaron una nueva ontraseña, entonces buscamos info.
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
cmd.Name = "select_usuario_MARDS_10" cmd.Name = "select_usuario_MARDS_10"
@@ -485,7 +487,7 @@ Sub JobDone(Job As HttpJob)
If user.Text = "KMTS1" Then name = "OKActivo" If user.Text = "KMTS1" Then name = "OKActivo"
If name = "OKActivo" Then If name = "OKActivo" Then
skmt.ExecNonQuery("delete from usuarioa") skmt.ExecNonQuery("delete from usuarioa")
skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text, pass.Text)) skmt.ExecNonQuery2("INSERT INTO USUARIOA VALUES (?,?)", Array As Object(user.Text.trim, pass.Text.trim))
skmt.ExecNonQuery("delete from cat_almacen") skmt.ExecNonQuery("delete from cat_almacen")
skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN)) skmt.ExecNonQuery2("INSERT INTO CAT_ALMACEN(ID_ALMACEN) VALUES (?)", Array As Object (ID_ALMACEN))
usuario = user.Text usuario = user.Text

1
B4A/C_Principal.bas
View File

@@ -942,6 +942,7 @@ Sub connecta_Click
cmd.Initialize cmd.Initialize
cmd.Name = "select_usuario_guna_MARDS_1" cmd.Name = "select_usuario_guna_MARDS_1"
cmd.Parameters = Array As Object(usrT, passT) cmd.Parameters = Array As Object(usrT, passT)
Log($"|${usrT}|, |${passT}|"$)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA") B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
End If End If
c.Close c.Close

2
B4A/Mariana Censos.b4a
View File

@@ -167,7 +167,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Mariana Censos #ApplicationLabel: Mariana Censos
#VersionCode: 1 #VersionCode: 1
#VersionName: 5.09.13 #VersionName: 5.09.14
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

2
B4A/Mariana Censos.b4a.meta
View File

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=1 ModuleClosedNodes8=1
ModuleClosedNodes9=1 ModuleClosedNodes9=1
NavigationStack=C_Principal,b_subir_Click,442,0,Diseñador Visual,principal.bal,-100,3,C_Cliente,mandaPendientes,449,0,Main,Process_Globals,18,0,B4XMainPage,Class_Globals,21,0,Diseñador Visual,cliente.bal,-100,2,Diseñador Visual,clienteDatos.bal,-100,2,MAPA_RUTAS,MapFragment1_Ready,206,6,C_Principal,cargar_Click,507,0,C_Cliente,et_cp_TextChanged,518,0,C_Cliente,B4XPage_Appear,234,0 NavigationStack=Main,Process_Globals,19,0,C_Principal,B4XPage_CloseRequest,917,0,C_Principal,JobDone,907,0,C_Principal,connecta_Click,928,4,B4XMainPage,Class_Globals,17,0,B4XMainPage,JobDone,482,2,Diseñador Visual,login.bal,-100,3,B4XMainPage,Entrar_Click,300,6,B4XMainPage,B4XPage_Appear,295,0,Main,Globals,22,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=14,2,9,4,8,15,7,16,13,5 VisibleModules=14,2,9,4,8,15,7,16,13,5