Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

General -> Sincronizar la barra lateral con la elección de empresa hecha en la pantalla de selección de empresa

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@808 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-22 10:38:38 +00:00
parent 51a087ba8f
commit 31fcb2ec62
3 changed files with 27 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/ApplicationBase/uFactuGES_App.pas
View File

@ -353,7 +353,7 @@ begin
JsDialog.Content.Add('Selección de empresa'); JsDialog.Content.Add('Selección de empresa');
JsDialog.Instruction.Text := 'Elija la empresa con la que desea trabajar.'; JsDialog.Instruction.Text := 'Elija la empresa con la que desea trabajar.';
JsDialog.DialogOptions := [doCommandLinks, doModal]; JsDialog.DialogOptions := [doCommandLinks, doModal];
JsDialog.ButtonBar.Buttons := [cbOk]; JsDialog.ButtonBar.Buttons := [cbCancel];
JsDialog.Width := 600; JsDialog.Width := 600;

28
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -2,8 +2,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 358 Left = 358
Top = 250 Top = 250
Caption = 'Pantalla principal' Caption = 'Pantalla principal'
ClientHeight = 453 ClientHeight = 553
ClientWidth = 751 ClientWidth = 886
Color = clWindow Color = clWindow
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
@ -23,8 +23,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
object pnlContenido: TTBXAlignmentPanel object pnlContenido: TTBXAlignmentPanel
Left = 0 Left = 0
Top = 0 Top = 0
Width = 751 Width = 886
Height = 431 Height = 531
Margins.Left = 5 Margins.Left = 5
Margins.Top = 5 Margins.Top = 5
Margins.Right = 5 Margins.Right = 5
@ -36,7 +36,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 215 Left = 215
Top = 5 Top = 5
Width = 5 Width = 5
Height = 421 Height = 521
ResizeStyle = rsPattern ResizeStyle = rsPattern
ExplicitLeft = 210 ExplicitLeft = 210
ExplicitHeight = 570 ExplicitHeight = 570
@ -45,7 +45,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 5 Left = 5
Top = 5 Top = 5
Width = 210 Width = 210
Height = 421 Height = 521
ActivePage = pagInicio ActivePage = pagInicio
Align = alLeft Align = alLeft
AutoHeaders = True AutoHeaders = True
@ -90,7 +90,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 0 Left = 0
Top = 0 Top = 0
Width = 208 Width = 208
Height = 348 Height = 448
Background.Stretch = False Background.Stretch = False
Background.Proportional = False Background.Proportional = False
Background.Center = False Background.Center = False
@ -100,7 +100,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
ImageIndex = 0 ImageIndex = 0
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 262 Top = 362
Width = 208 Width = 208
Height = 86 Height = 86
Align = alBottom Align = alBottom
@ -153,8 +153,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
object pnlBorde: TJvXPContainer object pnlBorde: TJvXPContainer
Left = 220 Left = 220
Top = 5 Top = 5
Width = 526 Width = 661
Height = 421 Height = 521
BoundColor = clActiveCaption BoundColor = clActiveCaption
BoundLines = [blLeft, blTop, blRight, blBottom] BoundLines = [blLeft, blTop, blRight, blBottom]
Caption = 'pnlBorde' Caption = 'pnlBorde'
@ -162,8 +162,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
object pnlMain: TTBXAlignmentPanel object pnlMain: TTBXAlignmentPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 524 Width = 659
Height = 419 Height = 519
Align = alClient Align = alClient
Color = clWindow Color = clWindow
TabOrder = 0 TabOrder = 0
@ -203,8 +203,8 @@ object fPantallaPrincipal: TfPantallaPrincipal
end end
object TBXStatusBar1: TTBXStatusBar object TBXStatusBar1: TTBXStatusBar
Left = 0 Left = 0
Top = 431 Top = 531
Width = 751 Width = 886
Images = StatusPanelImageList Images = StatusPanelImageList
Panels = < Panels = <
item item

12
Source/Cliente/uPantallaPrincipal.pas
View File

@ -186,6 +186,8 @@ begin
end; end;
procedure TfPantallaPrincipal.FormShow(Sender: TObject); procedure TfPantallaPrincipal.FormShow(Sender: TObject);
var
AIDEmpresa : Integer;
begin begin
InicializarUI; InicializarUI;
@ -197,11 +199,13 @@ begin
//Sacamos la lista de empresas para que el usuario elija con la que va a trabajar //Sacamos la lista de empresas para que el usuario elija con la que va a trabajar
AppFactuGES.SeleccionarEmpresa; AppFactuGES.SeleccionarEmpresa;
RefrescarUI;
end; end;
procedure TfPantallaPrincipal.RefrescarUI; procedure TfPantallaPrincipal.RefrescarUI;
var var
ATitulo : String; ATitulo : String;
i: Integer;
begin begin
ATitulo := AppFactuGES.GetAppFullName; ATitulo := AppFactuGES.GetAppFullName;
@ -220,6 +224,14 @@ begin
TBXStatusBar1.Panels[1].Caption := AppFactuGES.UsuarioActivo.UserName TBXStatusBar1.Panels[1].Caption := AppFactuGES.UsuarioActivo.UserName
else else
TBXStatusBar1.Panels[1].Caption := ''; TBXStatusBar1.Panels[1].Caption := '';
// 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;