mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-21 11:59:13 +00:00
- VERSION 4.08.18
- Se corrigio que cuando se regresaba de "Resumen Dia" los botones de "Cliente Nuevo" y "Abordo" siempre aparecían, aun cuando no se habia hecho el checklist. - Se corrigieron lods datos de BBD, VIS, PED, NC PRO y EFE en "Resumen Dia""
This commit is contained in:
Jose Alberto Guerra Ugalde
@@ -213,6 +213,7 @@ Sub Class_Globals
|
||||
Private r_6 As RadioButton
|
||||
Private r_7 As RadioButton
|
||||
Private r_razonNoVisita As String
|
||||
Private l_descripcion As Label
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -266,7 +267,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||
' l_porvisitar.Text = e.GetString("POR_VISITAR")
|
||||
Else
|
||||
c = Starter.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente ")
|
||||
c = Starter.skmt.ExecQuery("select sum(pc_monto) as MONTO_DIA, count(pc_cliente) AS CLIENTES_DIA from pedido_cliente")
|
||||
b = Starter.skmt.ExecQuery("select count(*) as CUANTOS from noventa")
|
||||
'where pc_fecha = ?", Array As String(fecha)
|
||||
C.Position = 0
|
||||
@@ -280,6 +281,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Log(LastException)
|
||||
End Try
|
||||
l_drop.Text = Round2(drop,2)
|
||||
' Log($"PRODUCTIVIDAD: ${c.GetString("CLIENTES_DIA")} / ${L_CUANTOST.text} = ${(c.GetString("CLIENTES_DIA") / L_CUANTOST.text)}"$)
|
||||
' l_drop.Text = Round2((c.GetString("CLIENTES_DIA") / L_CUANTOST.text),2)
|
||||
efectiva = c.GetString("CLIENTES_DIA") / e.GetString("POR_VISITAR")
|
||||
l_efectiva.text = Round2(efectiva*100,2)
|
||||
l_ctast.Text = d.GetString("TOTAL_VISITAR")
|
||||
@@ -351,10 +354,16 @@ Sub B4XPage_Appear
|
||||
c.Close
|
||||
End If
|
||||
c.Close
|
||||
c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA",SEMANA, "SEMANAL"))
|
||||
c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and gestion = 0 and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA", SEMANA, "SEMANAL"))
|
||||
c.Position = 0
|
||||
Starter.clientesTotal = c.GetString("CUANTOS")
|
||||
l_porvisitar.Text = Starter.clientesTotal
|
||||
' l_porvisitar.Text = Starter.clientesTotal
|
||||
Private x As Cursor = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from kmt_info where CAT_CL_DIAS_VISITA = (SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?) and cat_cl_codigo <> 0 AND CAT_CL_TIPO_RUTA IN (?,?) ORDER BY CAT_CL_NUM_SERIEFISICO", Array As String("DIA_VISITA", SEMANA, "SEMANAL"))
|
||||
L_CUANTOST.Text = "0"
|
||||
If x.RowCount > 0 Then
|
||||
x.Position = 0
|
||||
L_CUANTOST.Text = x.GetString("CUANTOS")
|
||||
End If
|
||||
PASO = 0
|
||||
If EJECUTANDO = 0 Then
|
||||
Listo1 = 0
|
||||
@@ -2438,8 +2447,9 @@ End Sub
|
||||
|
||||
Sub B_OK_RES_Click
|
||||
trabajar.Visible = True
|
||||
B_PROXIMA.Visible =True
|
||||
NUEVO.Visible =True
|
||||
l_descripcion.Visible = False
|
||||
' B_PROXIMA.Visible =True
|
||||
' NUEVO.Visible =True
|
||||
BUSCA.Visible=True
|
||||
connecta.Visible=True
|
||||
Resumen.Visible= True
|
||||
@@ -2447,9 +2457,9 @@ Sub B_OK_RES_Click
|
||||
If l_ruta.Text = "0" Then
|
||||
NUEVO.Visible = False
|
||||
B_PROXIMA.Visible = False
|
||||
Else
|
||||
NUEVO.Visible = True
|
||||
B_PROXIMA.Visible = True
|
||||
' Else
|
||||
' NUEVO.Visible = True
|
||||
' B_PROXIMA.Visible = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -2580,13 +2590,17 @@ Sub Resumen_Click
|
||||
' Subs.sumaPedido(Subs.traeCliente)
|
||||
l_cuantosc.Text = c.GetString("CLIENTES_DIA")
|
||||
l_cuantosn.Text = b.GetString("CUANTOS")
|
||||
L_CUANTOST.Text = NumberFormat2((l_cuantosc.Text + l_cuantosn.Text), 1, 0, 0, False)
|
||||
efectiva = L_CUANTOST.Text / e.GetString("POR_VISITAR")
|
||||
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
|
||||
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_drop.Text = Round((L_CUANTOST.Text / l_porvisitar.text) * 100)
|
||||
' l_drop.Text = Round((L_CUANTOST.Text / l_porvisitar.text) * 100)
|
||||
l_drop.Text = Round2(((c.GetString("CLIENTES_DIA") / L_CUANTOST.text)*100),2) ' Productividad = Con venta de hoy / Totales de hoy
|
||||
Log($"PRODUCTIVIDAD: ${c.GetString("CLIENTES_DIA")} / ${L_CUANTOST.text} = ${(c.GetString("CLIENTES_DIA") / L_CUANTOST.text)}"$)
|
||||
|
||||
If l_drop.Text + l_efectiva.Text < 100 Then
|
||||
ImageView3.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
|
||||
Else If l_drop.Text + l_efectiva.Text > = 100 And l_drop.Text + l_efectiva.Text < 130 Then
|
||||
@@ -2767,6 +2781,7 @@ End Sub
|
||||
|
||||
' BOLETA
|
||||
Sub B_BOLETA_Click
|
||||
l_descripcion.Visible = False
|
||||
GetResult
|
||||
End Sub
|
||||
|
||||
@@ -2783,6 +2798,7 @@ Sub B_MAPA_RUTA_Click
|
||||
End Sub
|
||||
|
||||
Sub b_cuotas_Click
|
||||
l_descripcion.Visible = False
|
||||
DDD=Starter.skmt.ExecQuery("Select COUNT(*) AS CUANTOS from HIST_CUOTAS ")
|
||||
DDD.Position = 0
|
||||
If DDD.GetString("CUANTOS") > 0 Then
|
||||
@@ -3559,7 +3575,7 @@ End Sub
|
||||
'End Sub
|
||||
|
||||
Private Sub P_RESUMEN_Click
|
||||
|
||||
l_descripcion.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub p_resumenAcumulado_Click
|
||||
@@ -3713,4 +3729,36 @@ Private Sub BUSCA_LongClick
|
||||
abordoImpreso = True
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub l_descripcion_Click
|
||||
l_descripcion.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub l_productividad_Click
|
||||
l_descripcion.text = "Clientes con venta / Clientes totales"
|
||||
l_descripcion.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub l_efectividad_Click
|
||||
l_descripcion.Text = "Clientes visitados / Clientes totales"
|
||||
l_descripcion.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub Panel1_Click
|
||||
l_descripcion.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub Panel2_Click
|
||||
l_descripcion.Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub l_drop_Click
|
||||
l_descripcion.text = "Clientes con venta / Clientes totales"
|
||||
l_descripcion.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub l_efectiva_Click
|
||||
l_descripcion.Text = "Clientes visitados / Clientes totales"
|
||||
l_descripcion.Visible = True
|
||||
End Sub
|
||||
Reference in New Issue
Block a user