david
68ec970246
git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@4 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca
137 lines
4.2 KiB
ObjectPascal
137 lines
4.2 KiB
ObjectPascal
unit uViewRecibosObra;
|
|
|
|
interface
|
|
|
|
uses uViewGrid, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
|
cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn,
|
|
dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
|
dxPSEdgePatterns, cxImageComboBox, Menus, ImgList, Controls,
|
|
PngImageList, Classes, ActnList, ComCtrls, ToolWin,
|
|
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, dxPSCore,
|
|
dxPScxCommon, dxPScxGridLnk, uDADataTable, cxGridLevel, cxClasses,
|
|
cxControls, cxGridCustomView, cxGrid, uBizObraFinal, ExtCtrls,
|
|
JvExControls, JvComponent, JvNavigationPane;
|
|
|
|
type
|
|
IViewRecibosObra = interface(IViewGrid)
|
|
['{76655999-13D6-4579-8ABE-2E595A320E14}']
|
|
function GetRecibos: IBizRecibosObras;
|
|
procedure SetRecibos(const Value: IBizRecibosObras);
|
|
property Recibos: IBizRecibosObras read GetRecibos write SetRecibos;
|
|
end;
|
|
|
|
TfrViewRecibosObra = class(TfrViewGrid, IViewRecibosObra)
|
|
PngImageList: TPngImageList;
|
|
cxGridViewRecID: TcxGridDBColumn;
|
|
cxGridViewCODIGO: TcxGridDBColumn;
|
|
cxGridViewFECHARECIBO: TcxGridDBColumn;
|
|
cxGridViewNIFCIF: TcxGridDBColumn;
|
|
cxGridViewIMPORTE: TcxGridDBColumn;
|
|
cxGridViewNOMBRE: TcxGridDBColumn;
|
|
actAnadir: TAction;
|
|
actEditar: TAction;
|
|
actEliminar: TAction;
|
|
actDuplicar: TAction;
|
|
PngImageList1: TPngImageList;
|
|
MenuFacObr: TPopupMenu;
|
|
MenuItem1: TMenuItem;
|
|
MenuItem2: TMenuItem;
|
|
MenuItem3: TMenuItem;
|
|
MenuItem4: TMenuItem;
|
|
MenuItem5: TMenuItem;
|
|
ToolBar2: TToolBar;
|
|
ToolButton5: TToolButton;
|
|
ToolButton6: TToolButton;
|
|
ToolButton7: TToolButton;
|
|
ToolButton8: TToolButton;
|
|
ToolButton9: TToolButton;
|
|
actEliminarTodo: TAction;
|
|
ToolButton10: TToolButton;
|
|
JvNavPanelHeader: TJvNavPanelHeader;
|
|
Image1: TImage;
|
|
cxGridViewCODIGOOBRA: TcxGridDBColumn;
|
|
procedure actEliminarUpdate(Sender: TObject);
|
|
procedure actEditarUpdate(Sender: TObject);
|
|
procedure actDuplicarUpdate(Sender: TObject);
|
|
procedure actEliminarTodoUpdate(Sender: TObject);
|
|
protected
|
|
FRecibos: IBizRecibosObras;
|
|
function GetRecibos: IBizRecibosObras;
|
|
procedure SetRecibos(const Value: IBizRecibosObras);
|
|
public
|
|
property Recibos: IBizRecibosObras read GetRecibos write SetRecibos;
|
|
procedure setFiltro(CodigoObra: Integer);
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses SysUtils;
|
|
|
|
{ TfrViewREcibosObra }
|
|
|
|
{
|
|
******************************* TfrViewRecibosObra *******************************
|
|
}
|
|
function TfrViewRecibosObra.GetRecibos: IBizRecibosObras;
|
|
begin
|
|
Result := FRecibos;
|
|
end;
|
|
|
|
procedure TfrViewRecibosObra.SetRecibos(const Value: IBizRecibosObras);
|
|
begin
|
|
FRecibos := Value;
|
|
|
|
if Assigned(FRecibos) then
|
|
begin
|
|
DADataSource.DataTable := FRecibos.Datatable;
|
|
DADataSource.DataTable.Active := True;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewRecibosObra.actEliminarUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
if Assigned(DADataSource.DataTable) then
|
|
(Sender as TAction).Enabled := (not DADataSource.DataTable.IsEmpty)
|
|
else
|
|
(Sender as TAction).Enabled := False;
|
|
end;
|
|
|
|
procedure TfrViewRecibosObra.actEditarUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
if Assigned(DADataSource.DataTable) then
|
|
(Sender as TAction).Enabled := (not DADataSource.DataTable.IsEmpty)
|
|
else
|
|
(Sender as TAction).Enabled := False;
|
|
end;
|
|
|
|
procedure TfrViewRecibosObra.actDuplicarUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
if Assigned(DADataSource.DataTable) then
|
|
(Sender as TAction).Enabled := (not DADataSource.DataTable.IsEmpty)
|
|
else
|
|
(Sender as TAction).Enabled := False;
|
|
end;
|
|
|
|
procedure TfrViewRecibosObra.setFiltro(CodigoObra: Integer);
|
|
begin
|
|
cxGridView.DataController.Filter.BeginUpdate;
|
|
cxGridView.DataController.Filter.Clear;
|
|
cxGridView.DataController.Filter.Root.AddItem(cxGridViewCODIGOOBRA, foEqual, IntToStr(CodigoObra), IntToStr(CodigoObra));
|
|
cxGridView.DataController.Filter.EndUpdate;
|
|
end;
|
|
|
|
procedure TfrViewRecibosObra.actEliminarTodoUpdate(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
if Assigned(DADataSource.DataTable) then
|
|
(Sender as TAction).Enabled := (not DADataSource.DataTable.IsEmpty)
|
|
else
|
|
(Sender as TAction).Enabled := False;
|
|
end;
|
|
|
|
end.
|