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

20/11/23 - Cambios en defailt para clientes nuevos y algunos estilos

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-20 22:56:22 -06:00
parent 6a303eb0dc
commit 25eb489d91
9 changed files with 42 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/C_Principal.bas
View File

@@ -2356,7 +2356,7 @@ Sub Resumen_Click
c = Starter.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente where pc_cliente <> 0")
b = Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
'where pc_fecha = ?", Array As String(fecha)
C.Position = 0
c.Position = 0
b.Position = 0
L_MONTOD.Text = c.GetString("MONTO_DIA")
L_MONTOD.Text = Subs.sumaPedido(Subs.traeCliente) 'Trae el monto sin el redondeo que a veces hace el SUM().
@@ -2364,11 +2364,12 @@ Sub Resumen_Click
Subs.sumaPedido(Subs.traeCliente)
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS")
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
L_CUANTOST.Text = NumberFormat2((l_cuantosc.Text + l_cuantosn.Text), 1, 0, 0, False)
efectiva = L_CUANTOST.Text / e.GetString("POR_VISITAR")
LogColor($"${L_CUANTOST.Text} / ${e.GetString("POR_VISITAR")} = ${(L_CUANTOST.Text / e.GetString("POR_VISITAR") * 100)}"$, Colors.BLUE)
l_efectiva.text = Round2(efectiva*100,2)
l_ctast.Text = d.GetString("TOTAL_VISITAR")
'l_porvisitar.Text = e.GetString("POR_VISITAR")
L_CUANTOST.Text = l_cuantosc.Text + l_cuantosn.Text
drop = (c.GetString("CLIENTES_DIA") + b.GetString("CUANTOS"))/ d.GetString("TOTAL_VISITAR")
l_drop.Text = Round(drop * 100)
If l_drop.Text + l_efectiva.Text < 100 Then