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

- Se corrigió que no actualizaba los clientes nuevos de preventa.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-28 13:49:57 -06:00
parent 738be2db81
commit ed23fa37b2
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_NuevoCliente.bas
View File

@@ -467,8 +467,8 @@ Sub mandaPendientesNuevosClientes
reqManager.Initialize(Me, Starter.server)
Private sDateP As String = DateTime.Date(DateTime.Now)
' c = B4XPages.MainPage.skmt.ExecQuery("SELECT * from kmt_info where CAT_CL_CODIGO like 'NC%' and CAT_CL_ENVIO_PENDIENTE = '1'")
c = B4XPages.MainPage.skmt.ExecQuery("Select kmt_info.*, nom_foto from kmt_info left join HIST_FOTO_CLIENTE on cat_cl_codigo = codigo where CAT_CL_CODIGO like 'NC%' and CAT_CL_ENVIO_PENDIENTE = '1'")
If mandarTodo Then c = B4XPages.MainPage.skmt.ExecQuery("Select kmt_info.*, nom_foto from kmt_info left join HIST_FOTO_CLIENTE on cat_cl_codigo = codigo where CAT_CL_CODIGO like 'NC%'")
c = B4XPages.MainPage.skmt.ExecQuery("Select kmt_info.*, nom_foto from kmt_info left join HIST_FOTO_CLIENTE on cat_cl_codigo = codigo where CAT_CL_CODIGO like 'N%' and CAT_CL_ENVIO_PENDIENTE = '1'")
If mandarTodo Then c = B4XPages.MainPage.skmt.ExecQuery("Select kmt_info.*, nom_foto from kmt_info left join HIST_FOTO_CLIENTE on cat_cl_codigo = codigo where CAT_CL_CODIGO like 'N%'")
Log($"Cliente Nuevo PENDIENTE: ${c.RowCount}"$)
Dim fotox() As Byte
Dim cmd As DBCommand