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

cambio db a skmt y bitacora

Browse Source
This commit is contained in:
cvaldes1201
2023-10-09 10:29:50 -06:00
parent adab335f3e
commit ad360acd8c
20 changed files with 918 additions and 891 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/foto.bas
View File

@@ -146,11 +146,11 @@ Sub b_guardar_Click
B4XPages.ShowPage("CheckList")
End If
If B4XPages.MainPage.cliente.TOMAR_FOTO = 1 Then
c=Starter.db.ExecQuery("select cuenta from cuentaa")
c=Starter.skmt.ExecQuery("select cuenta from cuentaa")
c.Position = 0
cuenta = c.GetString("CUENTA")
c.Close
Starter.db.ExecNonQuery2("INSERT INTO HIST_FOTOS (HF_FOTO, HF_CUENTA, HF_IDENCUESTA) VALUES(?,?,?) ", Array As Object (foto_g,cuenta,B4XPages.MainPage.cliente.id_encuesta ))
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_FOTOS (HF_FOTO, HF_CUENTA, HF_IDENCUESTA) VALUES(?,?,?) ", Array As Object (foto_g,cuenta,B4XPages.MainPage.cliente.id_encuesta ))
Subs.iniciaActividad("Cliente")
End If
Catch