diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index cce2443..b48831e 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 \ No newline at end of file diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index 73c0078..1eae0d4 100644 Binary files a/B4A/Files/principal.bal and b/B4A/Files/principal.bal differ diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a index ce1192b..e10e787 100644 --- a/B4A/KelloggsV4.b4a +++ b/B4A/KelloggsV4.b4a @@ -887,7 +887,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 4.08.14 + #VersionName: 4.08.18 #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta index f7c35d9..1ceece9 100644 --- a/B4A/KelloggsV4.b4a.meta +++ b/B4A/KelloggsV4.b4a.meta @@ -63,7 +63,7 @@ ModuleBreakpoints9= ModuleClosedNodes0= ModuleClosedNodes1= ModuleClosedNodes10= -ModuleClosedNodes11=1,3 +ModuleClosedNodes11= ModuleClosedNodes12= ModuleClosedNodes13= ModuleClosedNodes14= @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,guardaProductoSin,944,0,Subs,guardaProductoSinGestion,923,0,C_Cliente,B_IMP_Click,1100,0,Visual Designer,pedido.bal,-100,2,Visual Designer,principal.bal,-100,4,C_Principal,Resumen_Click,2534,6,C_Principal,JobDone,971,0,C_Principal,cargar_Click,608,0,C_Principal,B4XPage_Created,218,2,C_Principal,B4XPage_Appear,474,6 +NavigationStack=C_Principal,P_RESUMEN_Click,3568,3,C_Principal,Panel2_Click,3743,0,C_Principal,l_productividad_Click,3729,6,C_Principal,l_drop_Click,3747,0,C_Principal,l_efectividad_Click,3734,4,C_Principal,l_efectiva_Click,3752,0,C_Principal,Panel1_Click,3739,0,C_Principal,B_OK_RES_Click,2443,0,Visual Designer,principal.bal,-100,6,C_Principal,B_BOLETA_Click,2777,0,C_Principal,b_cuotas_Click,2794,0 SelectedBuild=0 VisibleModules=1,28,11,3,26,23,29,12,4,13