diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 6cbc2fc..17d4d43 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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) diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 62c22f2..6799a99 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -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 diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index fb6b71a..00c8715 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -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 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 83729b9..2d5c8de 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -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