109 lines
3.4 KiB
ObjectPascal
109 lines
3.4 KiB
ObjectPascal
|
unit uViewElegirArticulosAlbaranesProveedor;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, uViewArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
|||
|
|
cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxCurrencyEdit,
|
|||
|
|
cxSpinEdit, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev,
|
|||
|
|
dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns, ImgList, PngImageList,
|
|||
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGrid6Lnk,
|
|||
|
|
uDADataTable, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
|||
|
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, uBizContactos,
|
|||
|
|
dxPgsDlg, ActnList, TB2Item, TBX, TB2Toolbar, TBXDkPanels, TB2Dock,
|
|||
|
|
uViewFiltroBase;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
IViewElegirArticulosAlbaranesProveedor = interface(IViewArticulos)
|
|||
|
|
['{93C55517-8F37-4EDF-A1B0-95461D0AD807}']
|
|||
|
|
function GetProveedor: IBizProveedor;
|
|||
|
|
procedure SetProveedor(const Value: IBizProveedor);
|
|||
|
|
property Proveedor: IBizProveedor read GetProveedor write SetProveedor;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
TfrViewElegirArticulosAlbaranesProveedor = class(TfrViewArticulos, IViewElegirArticulosAlbaranesProveedor)
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
cxGridViewID_PROVEEDOR: TcxGridDBColumn;
|
|||
|
|
procedure cxGridActiveTabChanged(Sender: TcxCustomGrid;
|
|||
|
|
ALevel: TcxGridLevel);
|
|||
|
|
procedure CustomViewDestroy(Sender: TObject);
|
|||
|
|
|
|||
|
|
private
|
|||
|
|
FProveedor: IBizProveedor;
|
|||
|
|
function GetProveedor: IBizProveedor;
|
|||
|
|
procedure SetProveedor(const Value: IBizProveedor);
|
|||
|
|
|
|||
|
|
//Filtros relativos a la vista
|
|||
|
|
procedure AnadirFiltroProveedor;
|
|||
|
|
|
|||
|
|
public
|
|||
|
|
property Proveedor: IBizProveedor read GetProveedor write SetProveedor;
|
|||
|
|
procedure AnadirOtrosFiltros; override;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
{ TfrViewElegirArticulosAlbaranesProveedor }
|
|||
|
|
|
|||
|
|
procedure TfrViewElegirArticulosAlbaranesProveedor.AnadirFiltroProveedor;
|
|||
|
|
var
|
|||
|
|
FFiltro : TcxFilterCriteriaItemList;
|
|||
|
|
begin
|
|||
|
|
FFiltro := AddFilterGrid(fboAnd);
|
|||
|
|
|
|||
|
|
case cxGrid.ActiveLevel.Index of
|
|||
|
|
0 : if Assigned(FProveedor) then
|
|||
|
|
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foEqual, FProveedor.ID, FProveedor.NOMBRE);
|
|||
|
|
1 : if Assigned(FProveedor) then
|
|||
|
|
FFiltro.AddItem(cxGridViewID_PROVEEDOR, foNotEqual, FProveedor.ID, FProveedor.NOMBRE);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrViewElegirArticulosAlbaranesProveedor.AnadirOtrosFiltros;
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
|
|||
|
|
AnadirFiltroProveedor;
|
|||
|
|
|
|||
|
|
//Finalmente activamos el filtro si tenemos algo
|
|||
|
|
if cxGridView.DataController.Filter.IsEmpty
|
|||
|
|
then cxGridView.DataController.Filter.Active := False
|
|||
|
|
else cxGridView.DataController.Filter.Active := True;
|
|||
|
|
cxGrid.ActiveLevel.GridView := cxGridView;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrViewElegirArticulosAlbaranesProveedor.CustomViewDestroy(
|
|||
|
|
Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
FProveedor := Nil;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrViewElegirArticulosAlbaranesProveedor.cxGridActiveTabChanged(
|
|||
|
|
Sender: TcxCustomGrid; ALevel: TcxGridLevel);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
RefrescarFiltro;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrViewElegirArticulosAlbaranesProveedor.GetProveedor: IBizProveedor;
|
|||
|
|
begin
|
|||
|
|
Result := FProveedor;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrViewElegirArticulosAlbaranesProveedor.SetProveedor(
|
|||
|
|
const Value: IBizProveedor);
|
|||
|
|
begin
|
|||
|
|
FProveedor := Value;
|
|||
|
|
if Assigned(FProveedor) then
|
|||
|
|
begin
|
|||
|
|
cxGridLevel.Caption := FProveedor.NOMBRE;
|
|||
|
|
RefrescarFiltro;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|
|||
|
|
|