From 79a0407668a15c860a9f20312cdca6a2ca6e9696 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Wed, 18 May 2022 13:35:04 +0000
Subject: [PATCH] Version multitienda

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@165 93f398dd-4eb6-7a46-baf6-13f46f578da2
---
 .../Views/uViewAlbaranesCliente.dfm                | 10 ++++++++++
 .../Views/uViewAlbaranesCliente.pas                | 14 +++++++++++++-
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm
index df7d990..eda861a 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm	
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.dfm	
@@ -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
diff --git a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas
index b4705d7..80cc66a 100644
--- a/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas	
+++ b/Source/Modulos/Albaranes de cliente/Views/uViewAlbaranesCliente.pas	
@@ -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;