From 0c26d57dd08b747a3ae6791251e937e7f3b992ac Mon Sep 17 00:00:00 2001 From: cheveguerra Date: Wed, 27 Sep 2023 15:02:39 -0600 Subject: [PATCH] =?UTF-8?q?27/9/23=20-=20Lista=20clientes=20y=20dia=20de?= =?UTF-8?q?=20visita=20-=20Se=20cambio=20el=20listview=20de=20clientes=20p?= =?UTF-8?q?or=20un=20customListView=20y=20se=20agrego=20el=20estatus=20en?= =?UTF-8?q?=20esa=20lista.=20-=20Se=20modific=C3=B3=20el=20config.Properti?= =?UTF-8?q?es=20para=20que=20traiga=20el=20dia=20de=20visita=20y=20NO=20el?= =?UTF-8?q?=20dia=20de=20sicronizaci=C3=B3n.de=20los=20clientes=20nuevos.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Cliente.bas | 6 +- B4A/C_Clientes.bas | 106 ++++-- B4A/Files/cliente.bal | Bin 35534 -> 35534 bytes B4A/Files/clientes.bal | Bin 4942 -> 5835 bytes B4A/Files/clientesitem.bal | Bin 0 -> 2897 bytes B4A/Mariana Censos.b4a | 686 ++++++++++++++++++------------------ B4A/Mariana Censos.b4a.meta | 4 +- 7 files changed, 420 insertions(+), 382 deletions(-) create mode 100644 B4A/Files/clientesitem.bal diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 443a479..9beb937 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -252,7 +252,7 @@ Sub B4XPage_Appear itemsAct.Initialize itemsAct.Add("Activo") itemsAct.Add("No Activo") - itemsAct.Add("Cerrado Permanente") +' itemsAct.Add("Cerrado Permanente") cb_activo.SetItems(itemsAct) ' Log(estatus) If estatus = "Activo" Then @@ -262,8 +262,8 @@ Sub B4XPage_Appear cb_activo.SelectedIndex = 1 CLIENTE_ACTIVO = "Inactivo" Else - cb_activo.SelectedIndex = 2 - CLIENTE_ACTIVO = "Cerrado Permanente" + cb_activo.SelectedIndex = 1 'Antes 2 para "Cerrado Permanente" + CLIENTE_ACTIVO = "Inactivo" 'Antes "Cerrado Permanente" End If Dim losGiros As List = Subs.traeGirosLista cb_giro.SetItems(losGiros) diff --git a/B4A/C_Clientes.bas b/B4A/C_Clientes.bas index 844241f..e07f09a 100644 --- a/B4A/C_Clientes.bas +++ b/B4A/C_Clientes.bas @@ -12,12 +12,11 @@ End Sub Sub Class_Globals Private Root As B4XView 'ignore Private xui As XUI 'ignore - ' Dim skmt As SQL Dim c As Cursor Dim c2 As Cursor Dim s As Cursor - Dim ListView1 As ListView +' Dim ListView1 As ListView Dim entro As String Dim gest As Button Dim lfila As Label @@ -28,10 +27,14 @@ Sub Class_Globals ' Dim sc As Zxing_scanner Dim CODIGO As String Dim STIME As String - Dim ruta As String Dim q_buscar As String Private p_clientes As Panel + Private p_clienteItem As Panel + Private l_clienteItem As Label + Private l_estatus As Label + Private clv_clientes As CustomListView + Private l_clienteItem2 As Label End Sub 'You can add more parameters here. @@ -68,35 +71,62 @@ Sub B4XPage_Appear busca.Text = "" entro ="2" colonia = 0 - c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_SECUENCIA from kmt_info where gestion = 0 ORDER BY CAT_CL_SECUENCIA, CAT_CL_CODIGO") - ListView1.Clear + c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO, CAT_CL_SECUENCIA, CAT_CL_ESTATUS from kmt_info where gestion = 0 ORDER BY CAT_CL_SECUENCIA, CAT_CL_CODIGO") +' ListView1.Clear + clv_clientes.Clear ' Log("LIMPIAMOS LISTVIEW") lfila.Text = "NOMBRE" - If c.RowCount>0 Then - Dim label1 As Label - label1 = ListView1.TwoLinesLayout.Label - label1.TextSize = 14 - label1.TextColor = Colors.Black - Dim label2 As Label - label2 = ListView1.TwoLinesLayout.SecondLabel - label2.TextSize = 14 - label2.TextColor = Colors.Black - label2.Height = 50dip - label2.Width = ListView1.Width * 0.99 - ListView1.TwoLinesLayout.ItemHeight = 70dip + If c.RowCount > 0 Then +' Dim label1 As Label +' label1 = ListView1.TwoLinesLayout.Label +' label1.TextSize = 14 +' label1.TextColor = Colors.Black +' Dim label2 As Label +' label2 = ListView1.TwoLinesLayout.SecondLabel +' label2.TextSize = 14 +' label2.TextColor = Colors.Black +' label2.Height = 50dip +' label2.Width = ListView1.Width * 0.99 +' ListView1.TwoLinesLayout.ItemHeight = 70dip + clv_clientes.GetBase.SetLayoutAnimated(0, 0, clv_clientes.AsView.top, Root.Width - 50, Root.Height * 0.75) 'Cambiamos el tamaño y posición de la lista de clientes + clv_clientes.Base_Resize(clv_clientes.GetBase.Width, clv_clientes.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño. For i=0 To c.RowCount -1 c.Position=i ' Log($"${c.GetString("CAT_CL_CODIGO")}, ${c.GetString("CAT_CL_NOMBRE")}"$) - ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO") & " - " & c.GetString("CAT_CL_SECUENCIA"), c.GetString("CAT_CL_NOMBRE") & ", " & c.GetString("CAT_CL_CALLE")) +' ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO") & " - " & c.GetString("CAT_CL_SECUENCIA"), c.GetString("CAT_CL_NOMBRE") & ", " & c.GetString("CAT_CL_CALLE")) + clv_clientes.Add(CreateListItem(c.GetString("CAT_CL_CODIGO") & " - " & c.GetString("CAT_CL_SECUENCIA"), c.GetString("CAT_CL_NOMBRE") & ", " & c.GetString("CAT_CL_CALLE"), c.GetString("CAT_CL_ESTATUS"), clv_clientes.AsView.Width, 70dip), c.GetString("CAT_CL_CODIGO") & " - " & c.GetString("CAT_CL_SECUENCIA")) Next End If c.Close p_clientes.Height = Root.Height - ListView1.Height = Root.Height * 0.75 +' ListView1.Height = Root.Height * 0.75 entro = "4" End Sub -Sub ListView1_ItemClick (Position As Int, Value As Object) +Sub CreateListItem(text1 As String, text2 As String, text3 As String, Width As Int, Height As Int) As Panel + Dim p As B4XView = xui.CreatePanel("") +' p.SetLayoutAnimated(0, 0, 0, Width, Height) + p.LoadLayout("clientesItem") + p_clienteItem.Width = Width + p.Height = Height + + l_clienteItem.Text = text1 + l_clienteItem2.Text = text2 + l_estatus.Text = text3 +' p_prods.Color = bc +' l_prodX.TextColor = tc +' l_prodX.TextSize = 15 +' p_prods.Height = Height +' l_prodX.Height = Height +' l_prodX.Text = Text&CRLF&"# " & inv & " $ " & precioU +' l_prodX.Tag = $"ID: ${prodId}${CRLF}${Text}${CRLF}Precio: $$1.2{precioU}${CRLF}Inv: ${inv} pzs"$ +' l_pCant.Tag = precioU&"|"&inv&"|"&prodId +' et_pCant.Tag = precioU&"|"&inv&"|"&prodId +' et_pCant.BringToFront + Return p +End Sub + +Sub clv_clientes_ItemClick (index As Int, Value As Object) Private value2() As String = Regex.Split(" - ", Value) If colonia = 0 Then colonia = value2(0) @@ -105,23 +135,27 @@ Sub ListView1_ItemClick (Position As Int, Value As Object) If entro = "2" Then c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_CALLE, CAT_CL_COLONIA, count(*) as cuantos from kmt_info where gestion = 0 and CAT_CL_COLONIA = ? GROUP BY CAT_CL_CALLE, CAT_CL_COLONIA order by CAT_CL_CALLE ", Array As String(value2(0))) - ListView1.Clear +' ListView1.Clear + clv_clientes.Clear lfila.text = "Calle" If c2.RowCount>0 Then For i=0 To c2.RowCount -1 c2.Position=i - ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") ) +' ListView1.AddTwoLines(c2.GetString("CAT_CL_CALLE"),c2.GetString("cuantos") ) + clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CALLE"), c2.GetString("cuantos"), "", clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CALLE")) Next End If entro = "3" Else If entro = "3" Then c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where gestion = 0 and CAT_CL_CALLE = ? AND CAT_CL_COLONIA = ? order by CAT_CL_NOMBRE ", Array As String(value2(0), colonia)) - ListView1.Clear +' ListView1.Clear + clv_clientes.Clear lfila.text = "Nombre" If c2.RowCount>0 Then For i=0 To c2.RowCount -1 c2.Position=i - ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE")) +' ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE")) + clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE"), "", clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CODIGO")) Next End If entro = "4" @@ -170,23 +204,25 @@ Sub BUSCA_TextChanged (Old As String, New As String) ' Log("BUSCA_TEXTCHANGED") q_buscar = "%" & busca.Text & "%" c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info where (CAT_CL_NOMBRE like ? OR CAT_CL_CODIGO LIKE ? OR CAT_CL_CALLE LIKE ?)and gestion = 0 order by CAT_CL_NOMBRE ", Array As String(q_buscar,q_buscar,q_buscar)) - ListView1.Clear +' ListView1.Clear + clv_clientes.Clear lfila.text = "Nombre y Calle" ' Log("=========================================================================") If c2.RowCount > 0 Then - Dim label1 As Label - label1 = ListView1.TwoLinesLayout.Label - label1.TextSize = 14 - label1.TextColor = Colors.DarkGray - Dim label2 As Label - label2 = ListView1.TwoLinesLayout.SecondLabel - label2.TextSize = 14 - label2.TextColor = Colors.DarkGray +' Dim label1 As Label +' label1 = ListView1.TwoLinesLayout.Label +' label1.TextSize = 14 +' label1.TextColor = Colors.DarkGray +' Dim label2 As Label +' label2 = ListView1.TwoLinesLayout.SecondLabel +' label2.TextSize = 14 +' label2.TextColor = Colors.DarkGray ' ListView1.TwoLinesLayout.ItemHeight = 350dip For i=0 To c2.RowCount -1 c2.Position=i ' Log($"${c2.GetString("CAT_CL_CODIGO")} - ${c2.GetString("CAT_CL_NOMBRE")}"$) - ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE")) +' ListView1.AddTwoLines(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE")) + clv_clientes.Add(CreateListItem(c2.GetString("CAT_CL_CODIGO"), c2.GetString("CAT_CL_NOMBRE") &" CALLE: "& c2.GetString("CAT_CL_CALLE"), "", clv_clientes.AsView.Width, 70dip), c2.GetString("CAT_CL_CODIGO")) Next End If entro = "4" @@ -241,4 +277,4 @@ End Sub Private Sub p_clientes_Click 'Nada aqui, solo esta para que los clics no se pasen hacia atras. -End Sub \ No newline at end of file +End Sub diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 23aeca0cf3fb0f2d1d49b375e86a5fa119613852..0d0bff030a0960fba1a3a873e26e2af235fa8885 100644 GIT binary patch delta 22 ecmX>%mFe76rVZ|`lUw!lCr_~C++5%4&k6u@APFo0 delta 26 icmX>%mFe76rVZ|`lLg{9CnuOlOl~L<-(277&k6vP5DGZ} diff --git a/B4A/Files/clientes.bal b/B4A/Files/clientes.bal index 2cee098577b19e187085bf98c33c04c0a5b6d710..e5eeeb417474836f9a7b7082e2fd7581f55ce22b 100644 GIT binary patch delta 748 zcmZuvO>fgc5cMXh8;3XvNlTCdG$+&ojf5IN91w*>d`PHNDlJE3oTXWCY_r}ZAOYbo zRQn6~4MDwd;*8WQ;)3`Iz=e;Cd1Dua1Cie3&CJfs+Z`XA{;+D#8HVvaV;BYeAK$aX zb`iw&Mh{$1a9{DL3cuAEMk*NW2tK|qoiOB*j?aR7FZY?H+w9U&sv7G2Lf5#>UfknKd(W@sw`n>lbDn|39^YS~rohDFdibf=8=VIhj?SO=;Ir z&P^$LBs49#_dMhccn{l7i$8M)p~u%+Y049k8sT!JxGP4Y$7Lt*0!cSH^lx#o+gEgf z+kS+}*L*Q>lnDIpP&#S?Qbz6$8r_xja7iwY&<@FT9gli%N*+bLm-M#aNBux5(nZge z>ZT6#&NOFFxahO z^|L#U{uYhHWX!BE-8Q0qCg5>Kd{ww zuE-h{8)>>R96Q@0os+>xBwiyVKFX87dx%dE<%zJD%9BI#y(FU;oQdxe(Sa|Zf#3PY z>c-9Yr{62B+Z#s@Uzm2v>!s;iQR&#tJ&vRE%4e04DWb^Ukli?#AEG@O=(aRE3@Y7-|4818fq)uA!LE1P@eh0qV9boCfn zmQ%OUEnw%u79gn}wbYSqH9P_siRG^EpLZjrf+88NWMB2Tmq=R$=%lypB4Dp0Jx>QKcPfG}*tV;eoZ#zDtS@sz zoVrtm)yR!Sn#*BetW_0NKm3i>K?2+J|+gY1w-Q$_v#-v$kN_@D$?8$$1ifOBSMtKi-mJ`heuF zkqY%dA&M9{-bcDff3pAkpMCm^JSr<9b)Z=g=yf3npg0yX=Urq{#05v5EIgcUJwgJ< z+e<}_NM|Sfi+J+AQDfe0v36^HWN>SVOe~J7^i-Kgh53IQ#C4j zmS_^?JV(SKlN$T|{`0AZ{v!VZF*t}9i3&Nc9S=~J3McmyX&3<CVsAn?K`cXQ2ycwu0B@kf0qCFLeVYW%8$MYjStQuu>Wlna z#F9b$&+$gc