cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-21 06:39:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

27/9/23 - Lista clientes y dia de visita

Browse Source 
- Se cambio el listview de clientes por un customListView y se agrego el estatus en esa lista.
- Se modificó el config.Properties para que traiga el dia de visita y NO el dia de sicronización.de los clientes nuevos.
This commit is contained in:
cheveguerra
2023-09-27 15:02:39 -06:00
parent e998fdd37f
commit 0c26d57dd0
7 changed files with 420 additions and 382 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -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)