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

Se agrego una validacion para revisar el campo CAT_LO_RMI

Browse Source
This commit is contained in:
IsR0d
2024-07-29 12:48:27 -06:00
parent 9330be0a9d
commit 569b0ca166
7 changed files with 53 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/C_Principal.bas
View File

@@ -1202,10 +1202,13 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "usuarioA" Then 'query tag
skmt.ExecNonQuery("delete from BANDERA_RMI")
Private n As String = "Sin Usuario"
For Each records() As Object In RESULT.Rows
n = records(RESULT.Columns.Get("USUARIO"))
Dim ban_RMI As String = records(RESULT.Columns.Get("CAT_LO_RMI"))
Next
skmt.ExecNonQuery2("INSERT INTO BANDERA_RMI (BR_BANDERA) VALUES (?)", Array As Object (ban_RMI))
Log(n)
'Logcolor("**************************"&n, Colors.Green)
If n = "OKActivo" Then