roberto
b70d953285
git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@172 93f398dd-4eb6-7a46-baf6-13f46f578da2
102 lines
3.6 KiB
ObjectPascal
102 lines
3.6 KiB
ObjectPascal
unit uViewPagosProveedor;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, DB, uDADataTable, dxLayoutControl,
|
|
cxControls, cxCurrencyEdit, cxDBEdit, cxMemo, cxMaskEdit, cxDropDownEdit,
|
|
cxCalendar, cxContainer, cxEdit, cxTextEdit, cxStyles, cxCustomData,
|
|
cxGraphics, cxFilter, cxData, cxDataStorage, cxDBData, cxSpinEdit,
|
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
cxClasses, cxGridCustomView, cxGrid, uBizPagosProveedor, ActnList, TB2Item,
|
|
TBX, TB2Dock, TB2Toolbar, cxImageComboBox, dxLayoutLookAndFeels, ImgList,
|
|
PngImageList, ComCtrls, ToolWin, uDAInterfaces;
|
|
|
|
type
|
|
IViewPagosProveedor = interface(IViewBase)
|
|
['{B75503B3-C6D2-453B-990C-5C7AC775F4D0}']
|
|
function GetPagos: IBizPagosProveedor;
|
|
procedure SetPagos(const Value: IBizPagosProveedor);
|
|
property Pagos: IBizPagosProveedor read GetPagos write SetPagos;
|
|
end;
|
|
|
|
|
|
TfrViewPagosProveedor = class(TfrViewBase, IViewPagosProveedor)
|
|
DADataSource: TDADataSource;
|
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
|
dxLayoutControl1Item1: TdxLayoutItem;
|
|
ListaPagosProveedor: TcxGrid;
|
|
ListaPagosProveedorDBTableView1: TcxGridDBTableView;
|
|
ListaPagosProveedorLevel1: TcxGridLevel;
|
|
ListaPagosProveedorDBTableView1RecID: TcxGridDBColumn;
|
|
ListaPagosProveedorDBTableView1ID: TcxGridDBColumn;
|
|
ListaPagosProveedorDBTableView1ID_RECIBO: TcxGridDBColumn;
|
|
ListaPagosProveedorDBTableView1TIPO: TcxGridDBColumn;
|
|
ListaPagosProveedorDBTableView1FECHA_PAGO: TcxGridDBColumn;
|
|
ListaPagosProveedorDBTableView1SUBCUENTA: TcxGridDBColumn;
|
|
ListaPagosProveedorDBTableView1CUENTA: TcxGridDBColumn;
|
|
ActionListContenido: TActionList;
|
|
actAnadir: TAction;
|
|
actEliminar: TAction;
|
|
actModificar: TAction;
|
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
|
dxLayoutControl1Item3: TdxLayoutItem;
|
|
ToolBar1: TToolBar;
|
|
ToolButton1: TToolButton;
|
|
ToolButton4: TToolButton;
|
|
ToolButton5: TToolButton;
|
|
ToolButton2: TToolButton;
|
|
ContenidoImageList: TPngImageList;
|
|
ListaPagosProveedorDBTableView1TITULAR: TcxGridDBColumn;
|
|
procedure ListaPagosProveedorDBTableView1CellDblClick(
|
|
Sender: TcxCustomGridTableView;
|
|
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
|
AShift: TShiftState; var AHandled: Boolean);
|
|
procedure CustomViewShow(Sender: TObject);
|
|
private
|
|
FPagos : IBizPagosProveedor;
|
|
function GetPagos: IBizPagosProveedor;
|
|
procedure SetPagos(const Value: IBizPagosProveedor);
|
|
public
|
|
property Pagos: IBizPagosProveedor read GetPagos write SetPagos;
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewPagosProveedor }
|
|
|
|
procedure TfrViewPagosProveedor.CustomViewShow(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
ListaPagosProveedorDBTableView1.DataController.GotoLast;
|
|
end;
|
|
|
|
function TfrViewPagosProveedor.GetPagos: IBizPagosProveedor;
|
|
begin
|
|
Result := FPagos;
|
|
end;
|
|
|
|
procedure TfrViewPagosProveedor.ListaPagosProveedorDBTableView1CellDblClick(
|
|
Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo;
|
|
AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
|
begin
|
|
inherited;
|
|
actModificar.Execute;
|
|
end;
|
|
|
|
procedure TfrViewPagosProveedor.SetPagos(const Value: IBizPagosProveedor);
|
|
begin
|
|
FPagos := Value;
|
|
if Assigned(FPagos) then
|
|
DADataSource.DataTable := FPagos.DataTable
|
|
else
|
|
DADataSource.DataTable := NIL;
|
|
end;
|
|
|
|
end.
|