Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Para controllar las barras activas de cada una de las empresas

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@378 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-01-08 17:42:11 +00:00
parent 32bd811f27
commit e07c33266a
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Cliente/uPantallaPrincipal.pas
View File

@ -209,6 +209,7 @@ end;
procedure TfPantallaPrincipal.RefrescarUI; procedure TfPantallaPrincipal.RefrescarUI;
var var
ATitulo : String; ATitulo : String;
i: Integer;
begin begin
ATitulo := AppFactuGES.GetAppFullName; ATitulo := AppFactuGES.GetAppFullName;
@ -232,6 +233,13 @@ begin
TBXStatusBar1.Panels[2].Caption := AppFactuGES.TiendaActiva.NOMBRE TBXStatusBar1.Panels[2].Caption := AppFactuGES.TiendaActiva.NOMBRE
else else
TBXStatusBar1.Panels[2].Caption := 'Sin tienda por defecto'; TBXStatusBar1.Panels[2].Caption := 'Sin tienda por defecto';
// Comprobar que el panel lateral tiene la empresa activa
if Assigned(AppFactuGES.EmpresaActiva) then
for i := 0 to JvNavigationPane.PageCount - 1 do
if (JvNavigationPane.Pages[i].Tag = AppFactuGES.EmpresaActiva.ID) and
(JvNavigationPane.ActivePageIndex <> i) then
JvNavigationPane.ActivePageIndex := i;
end; end;
procedure TfPantallaPrincipal.ReleaseEmbedded; procedure TfPantallaPrincipal.ReleaseEmbedded;
@ -601,6 +609,7 @@ end;
procedure TfPantallaPrincipal.Listadeempresas1_OLDClick(Sender: TObject); procedure TfPantallaPrincipal.Listadeempresas1_OLDClick(Sender: TObject);
begin begin
AppFactuGES.SeleccionarEmpresa; AppFactuGES.SeleccionarEmpresa;
RefrescarUI;
end; end;
procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject); procedure TfPantallaPrincipal.actConexionExecute(Sender: TObject);