From a25fd6141e7eea289c73ae03706b9387a7a9b77d Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 20 Aug 2024 15:36:47 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=204.08.18=20-=20Se=20corrigio=20que?= =?UTF-8?q?=20cuando=20se=20regresaba=20de=20"Resumen=20Dia"=20los=20boton?= =?UTF-8?q?es=20de=20"Cliente=20Nuevo"=20y=20"Abordo"=20siempre=20aparec?= =?UTF-8?q?=C3=ADan,=20aun=20cuando=20no=20se=20habia=20hecho=20el=20check?= =?UTF-8?q?list.=20-=20Se=20corrigieron=20lods=20datos=20de=20=20BBD,=20VI?= =?UTF-8?q?S,=20PED,=20NC=20PRO=20y=20EFE=20en=20"Resumen=20Dia""?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Principal.bas | 72 +++++++++++++++++++++++++++++++++------- B4A/Files/principal.bal | Bin 77683 -> 78125 bytes B4A/KelloggsV4.b4a | 2 +- B4A/KelloggsV4.b4a.meta | 4 +-- 4 files changed, 63 insertions(+), 15 deletions(-) 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 73c0078108dee35ac110c7871a61fd5d27c6cd44..1eae0d4f4ab75f37e7029c78e64adb31d55dad57 100644 GIT binary patch delta 2054 zcmaKsZ%|Za6vp>lc4_YZg=JB8U24$H4 zlu)2dkHbj?Lo=kplD1sQ6rD+`u}S^Fm&P%tnVPAXw49nLr?GPvSKbSE`0(ug-S<8B z+2_6QdGDPY`jbEEEe4%VH|o&ojC}oS$l^~hRyGDUg&G2(4fVJxAv@W^6SZq9t11Ic zq0OP-+F&G{pocVDY`9_5hG27i!m12mNwx4Cp9_3e;4cI|=Miqs z3p~Oc+YY>*yeK2SNngfC`Fcs<(TLmLF2VlDamO>(6pbFhf9Doyw9J$9Iuh;=2PgY0 z@@>|MJ;rMGce3DdEE&l|&&@Kljb%ohLp_OPO#vB;NAe@Lqh$}_eTaC`n3n@=^(&zWsA;G zK`J=t`xGdm_EfM!4PN|ZA^9EfGc+h+U1&IGS9YRdiqEytg>)em+N6!~&@y$*;j6nP&{3e7xi>bkqed+g1&)7W&NvZ%(t>rnb?EHrq68 zULjKkl+z_Q6i)NnK7-eG4X+(^H(euAcm|uWhRv%q$IFq%9?^)@I)hiMhSzJ#@}|F~ zoio_%)Ues5tgM`VnyV41Z3eG44X@Xuyu1Sd?MkcoliJlKfTho8O1t?|vyA*ckZE@o zlu3K0v}5@Kp&bY3bLVx&+A*n9W!Diu)G~dyfDd)ogZAuF)pf?&^NlFC=K-LB#TPqBd#CvE=RtZ4u%T!vCRJPM!eUqr`;;eA(erFN R`E#Jywom;G9m#>Q{{i6C;h_Kk delta 1836 zcmaKsUrbYX6vywOMJT1cwX{eX-HI^(6dOge88>PcGhK)f84r6=jDMzL`Qs3$n>q^W zWX0)9PUN^boo*9#69unYWGaxLMjx!cEm`zIlf5jH7`OPa2X=m!b^MAqZF1Vrujica z?|05U_t*2-{QQyGmaZtuQJ11*@$aoZTa^hLP1CiLCNp5a`4B9?vh)&IsMVxzHp6A@ zwuPpIO&n@w>tZ9eBWzzw{Efs%CH_|8V-g>i_&bSDNPKdF!^-y)3*`rif0X!?#N85~ zmiUasXC?kg;-4ix$K0cY73Dm`1${Bjz07@V7uhtnL{}~`_ppih%WPNJVr=~qUzK=3 z;$I}bCh>Kjw79{XcpQVw1#DjYXKIN%@$ZNfaZ`KG*`5ZSTHLkVZp~m%#oBcn>Pr`3 zpeQJ<7iznTI!s#b%+nDJT(oGndKYD2&WoLI~Dl;m90VPldDLHEbAhV(&Q@1+$@>?pmR^%LEpBVFf$K4gWnG z<2`ozzy>w+BpaMK)Mm!P1}`~mu#Ccf4t>K8-LR3~&w|C2uY!|)w{h-=*mlncn`o5^ zqfjfnRcb9LN-5Wt?cgtqi16csglQTQzGgN9hx z1^j6gaaC&Lq>#?1ejHkzi4VK{RF(^usMQTFjFx2JitF6B^Tq0xNg1N3@eB)w%L?_n z2ByJM_^2z7d*39=5iN!$QOQzzn8$q&<-yzR`mf!1yxl@$9ykWg*z{`-_2xrRZBE)} ztA6-xd z$T~X>baqkTRRf*fsdRQ5=zK<%#ZXNdJ}7&sxRz96Ee2v?3Kkk1sx_5PtAS3ND6X2O z6&W0APb#rJ24Z_fg)cw3eW`Tz8R&d2imQ&zoB>M!_UqX^Egl?gabkR{)3HA}2M{V= zhjtnca3xD-!7}(lpUTMpQyCFc`3F6p#RC~h45WC`yWv1WK1hrFd=>l^_rjNA0?T8g zC9oXeU?N~*|AR^UcS!q>(pv%jRq}|}hz