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

...

Browse Source
This commit is contained in:
cvaldes1201
2023-11-04 13:34:38 -06:00
parent 9d3ffdeed3
commit d019952e12
6 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/C_Principal.bas
View File

@@ -1800,6 +1800,7 @@ Sub JobDone(Job As HttpJob)
Dim DIA_VISITA As String = records(RESULT.Columns.Get("DIA_VISITA"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("DIA_VISITA"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("DIA_VISITA",DIA_VISITA))
Log(DIA_VISITA)
'Msgbox(DIA_VISITA, "") 'ignore
Next
End If