cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-21 11:59:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

14/9/23 - Clase Subs y otros

Browse Source 
- Se agrego la clase Subs
- Se cambió "skmt" por "db"
- Se arreglo el reqmanager que no se reinicaba bien cuando se cambiaba en el engrane.
- Se agregó dbInit a C_Subs, que inicializa la BD.
This commit is contained in:
cheveguerra
2023-09-14 07:22:54 -06:00
parent de8c68bedc
commit ab9e048e11
19 changed files with 1365 additions and 907 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.skmt.ExecQuery("select cuenta from cuentaa")
c=Starter.db.ExecQuery("select cuenta from cuentaa")
c.Position = 0
cuenta = c.GetString("CUENTA")
c.Close
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 ))
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 ))
Subs.iniciaActividad("Cliente")
End If
Catch