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

Version: 5.01.05

Browse Source 
Se evitan duplicados en el resumen día para saber los clientes reales.
This commit is contained in:
Isaac
2025-01-10 18:49:25 -06:00
parent 65c2cb05e1
commit 22f710091c
3 changed files with 31 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Principal.bas
View File

@@ -321,7 +321,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
l_porvisitar.Text = e.GetString("POR_VISITAR")
Else
c=B4XPages.MainPage.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
b=B4XPages.MainPage.skmt.ExecQuery("select count(distinct NV_CLIENTE) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha)
c.Position=0
b.Position=0
@@ -439,13 +439,13 @@ Sub B4XPage_Appear
l_porvisitar.Text = e.GetString("POR_VISITAR")
d.Close
e.Close
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
b.Position=0
l_cuantosn.Text = b.GetString("CUANTOS")
b.close
Else
c=B4XPages.MainPage.skmt.ExecQuery("select SUM(PE_COSTO_TOT) as MONTO_DIA, COUNT(DISTINCT(PE_CLIENTE)) AS CLIENTES_DIA from PEDIDO ")
b=B4XPages.MainPage.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
b=B4XPages.MainPage.skmt.ExecQuery("select count( distinct NV_CLIENTE) as CUANTOS from noventa")
c.Position=0
b.Position=0
L_MONTOD.Text = c.GetString("MONTO_DIA")