Version multitienda

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@165 93f398dd-4eb6-7a46-baf6-13f46f578da2

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

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;