cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-18 13:19:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-29 16:45:03 -06:00
parent 5b3c520644
commit cc10ad5d69
6 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/C_Cliente.bas
View File

@@ -920,8 +920,9 @@ Sub mandaPendientes
' c.Close
' CUESTIONARIO (Pendientes)
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where Q_ENVIO_OK <> 1 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM CUESTIONARIO where ifnull(Q_ENVIO_OK, 0) = 0 order by Q_IDCLIENTE, Q_IDPREGUNTA; Q_IDRESPUESTA")
Private rutaActual As String = Subs.traeRuta
Log("CUEST PENDIENTES: " & c.RowCount)
If c.RowCount > 0 Then
For x = 0 To c.RowCount - 1
c.Position = x