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

Se agrego el envio del cuestionario a mandaPendientes

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-04 18:40:11 -06:00
parent 39ac976081
commit 3c627bf7f6
5 changed files with 67 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cuestionario.bas
View File

@@ -25,7 +25,7 @@ Public Sub Initialize (vCallback As Object, vEventName As String, vRoot As B4XVi
CallBack = vCallback
db = skmt
vPreguntaActual = 0
db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CUESTIONARIO (Q_IDCLIENTE TEXT, Q_IDPREGUNTA TEXT, Q_PREGUNTA TEXT, Q_IDRESPUESTA TEXT, Q_RESPUESTA TEXT, Q_FECHA TEXT)")
db.ExecNonQuery("CREATE TABLE IF NOT EXISTS CUESTIONARIO (Q_IDCLIENTE TEXT, Q_IDPREGUNTA TEXT, Q_PREGUNTA TEXT, Q_IDRESPUESTA TEXT, Q_RESPUESTA TEXT, Q_FECHA TEXT, Q_ENVIO_OK INTEGER DEFAULT 0)")
Return Me
End Sub