cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.10.16

Browse Source 
- Se corrigieron errores en resumen dia e impresion de inventario
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-10-21 20:03:36 -06:00
parent ceaa5246e5
commit 6fc81fcf0d
6 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
B4A/C_Principal.bas
View File

@@ -98,7 +98,7 @@ Sub Class_Globals
Private PORCENTAJE As Int
Private P_RESUMEN As Panel
Private B_OK_RES As Button
Private Resumen As Button
Dim Resumen As Button
Private L_CUANTOST As Label
Private img3 As ImageView
Private ImageView3 As ImageView
@@ -150,7 +150,7 @@ Sub Class_Globals
Private Panel2 As Panel
Dim ENVIADA As String
Dim PORENVIAR As String
Private Btn_CheckList As Button
Dim Btn_CheckList As Button
Dim Cedis_Check As String = "0"
Private TIEMPO As String
Private RUTA1 As Label
@@ -274,6 +274,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
L_MONTOD.Text = 0
l_cuantosc.Text = 0
l_cuantosn.Text = 0
Log(">>>> Ponemos en CERO!!")
drop = 0
l_drop.Text = 0
efectiva = 0
@@ -288,7 +289,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
b.Position = 0
L_MONTOD.Text = c.GetString("MONTO_DIA")
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS")
l_cuantosn.Text = b.GetString("CUANTOS")
Try
drop = c.GetString("MONTO_DIA") / c.GetString("CLIENTES_DIA")
Catch
@@ -2681,6 +2682,7 @@ Sub B_OK_RES_Click
End Sub
Sub Resumen_Click
Log("###############")
L_ABORDO.Text = "0"
P_RESUMEN.Visible = True
P_RESUMEN.BringToFront
@@ -2716,10 +2718,14 @@ Sub Resumen_Click
l_ruta.Text = f.GetString("CAT_CL_RUTA")
f.Close
End If
b = Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
b.Position = 0
l_cuantosn.Text = b.GetString("CUANTOS")
If Cuantos = 0 Then
L_MONTOD.Text = 0
l_cuantosc.Text = 0
l_cuantosn.Text = 0
' l_cuantosn.Text = 0
' Log(">>>> Ponemos en CERO!!")
drop = 0
l_drop.Text = 0
efectiva = 0
@@ -2790,10 +2796,8 @@ Sub Resumen_Click
End If
DDD.Close
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
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().
@@ -2806,7 +2810,8 @@ Sub Resumen_Click
' Log(Subs.sumaPedido(Subs.traeCliente) & " - " & L_MONTOD.Text)
' Subs.sumaPedido(Subs.traeCliente)
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
l_cuantosn.Text = b.GetString("CUANTOS")
Log(">>>> Ponemos en " & b.GetString("CUANTOS"))
l_porvisitar.Text = NumberFormat2((l_cuantosc.Text + l_cuantosn.Text), 1, 0, 0, False)
' efectiva = L_CUANTOST.Text / e.GetString("POR_VISITAR")
efectiva = l_porvisitar.Text / L_CUANTOST.text ' Efectividad = Visitados de hoy / Totales de hoy