Uecko/AbetoDesign_FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Version multitienda

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@165 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2022-05-18 13:35:04 +00:00
parent 1b482f91ee
commit 79a0407668
2 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
View File

@ -249,6 +249,16 @@ inherited frViewAlbaranesCliente: TfrViewAlbaranesCliente
ExplicitWidth = 335
Width = 335
end
inherited txtFiltroTodo2: TcxTextEdit
Left = 419
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 419
ExplicitWidth = 250
Width = 250
end
end
inherited TBXAlignmentPanel1: TTBXAlignmentPanel
Width = 596

14
Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
View File

@ -90,13 +90,14 @@ type
procedure SetAlbaranes(const Value: IBizAlbaranCliente);
public
procedure AnadirOtrosFiltros; override;
procedure ConfigView; override;
property Albaranes: IBizAlbaranCliente read GetAlbaranes write SetAlbaranes;
end;
implementation
uses SysUtils, DateUtils, variants, windows, uDataModuleAlbaranesCliente, schAlbaranesClienteClient_Intf,
uViewGridBase;
uViewGridBase, uFactuGES_App;
{$R *.dfm}
@ -199,6 +200,17 @@ begin
cxGrid.ActiveLevel.GridView := cxGridView;
end;
procedure TfrViewAlbaranesCliente.ConfigView;
begin
inherited;
if ((AppFactuGES.EmpresaActiva.ID = 2) or (AppFactuGES.EmpresaActiva.ID = 3)) then
cxGridViewTIENDA.Visible := True
else
cxGridViewTIENDA.Visible := False;
end;
procedure TfrViewAlbaranesCliente.cxGridActiveTabChanged(Sender: TcxCustomGrid; ALevel: TcxGridLevel);
begin
inherited;