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;