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

Se agregaron mensajes, para cuando al cargar día, si no hay clientes, te avise, o si al entar al cliente, no hay catalogo de giros, avise que hay que cargar nuevamwnte dia!

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-14 12:16:12 -06:00
parent 07d3e8f179
commit ea6e9be814
4 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Principal.bas
View File

@@ -641,6 +641,15 @@ Sub JobDone(Job As HttpJob)
Next
End If
Next
cs.Initialize
f.Position = 0
l_ruta.Text = cs.Append("RUTA ").Color(Colors.RGB(165, 42, 42)).Append(CAT_CL_RUTA).pop.Append(" CARGADA").popall
cs.Initialize
l_dia.Text = cs.Append("DÍA CARGADO: ").Bold.Append(Starter.dia_semana).PopAll
l_dia.Tag = Starter.dia_semana
If RESULT.Rows.Size = 0 Then Msgbox("¡La ruta cargada NO tiene clientes asignados, FAVOR DE REPORTARLO!","AVISO") 'ignore
Listo1 = 1
' S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)

4
B4A/Mariana Censos.b4a
View File

@@ -748,12 +748,12 @@ Module9=C_Principal
NumberOfFiles=349
NumberOfLibraries=30
NumberOfModules=16
Version=12.5
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Mariana Censos
#VersionCode: 1
#VersionName: 4.02.11
#VersionName: 4.02.12
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/Mariana Censos.b4a.meta
View File

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=9,13,14,17
ModuleClosedNodes9=1
NavigationStack=MAPA_RUTAS,OnInfoWindowClickListener1_click,254,4,MAPA_RUTAS,Activity_Resume,137,4,MAPA_RUTAS,Activity_KeyPress,138,6,Diseñador Visual,principal.bal,-100,1,C_Clientes,Mods,0,0,C_Cliente,JobDone,447,0,C_NuevoCliente,B4XPage_CloseRequest,400,6,C_Cliente,B4XPage_CloseRequest,364,0,C_Principal,Btn_Ubicar_Click,1092,5,Main,Activity_KeyPress,41,0,B4XMainPage,Class_Globals,71,0
NavigationStack=C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,508,0,C_NuevoCliente,Class_Globals,22,0,C_NuevoCliente,B4XPage_Appear,113,0,Subs,agregaColumna,1254,0,Subs,traeGirosLista,1280,6,Subs,escapeSQLString,1263,0,C_Principal,JobDone,637,6,C_Cliente,B4XPage_Appear,226,0,C_Principal,B4XPage_Appear,379,0
SelectedBuild=0
VisibleModules=2,14,6,9,4,8,5,15,7,16,13
VisibleModules=2,14,6,9,4,8,5,15,7,16

3
B4A/Subs.bas
View File

@@ -1284,6 +1284,9 @@ Sub traeGirosLista As List
' lv_giro.AddSingleLine(cc.GetString("descripcion"))
itemsGiro.Add(cc.GetString("descripcion"))
Next
Else
MsgboxAsync("¡No hay catalogo de giros, por favor cargar NUEVAMENTE dia!", "AVISO")
B4XPages.ShowPage("Principal")
End If
cc.Close
Return itemsGiro