david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
84 lines
2.3 KiB
ObjectPascal
84 lines
2.3 KiB
ObjectPascal
unit uViewAsiento;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
|
DBCtrls, Grids, DBGrids, uBizAsientos, Mask, ComCtrls, uCustomView,
|
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
|
cxDBEdit, cxMemo, uViewFormaPago, cxCurrencyEdit, cxMaskEdit,
|
|
cxDropDownEdit, cxCalendar, uListaCuentas, dxLayoutControl,
|
|
dxLayoutLookAndFeels;
|
|
|
|
type
|
|
IViewAsiento = interface(IViewBase)
|
|
['{D6147CF8-EBEF-4F87-8202-97A2BA47250F}']
|
|
function GetAsiento: IBizAsiento;
|
|
procedure SetAsiento(const Value: IBizAsiento);
|
|
property Asiento: IBizAsiento read GetAsiento write SetAsiento;
|
|
end;
|
|
|
|
TfrViewAsiento = class(TfrViewBase, IViewAsiento)
|
|
DADataSource: TDADataSource;
|
|
eDescripcion: TcxDBTextEdit;
|
|
edtFecha: TcxDBDateEdit;
|
|
cxCurrencyEdit5: TcxDBCurrencyEdit;
|
|
dxLayoutControl1Group_Root: TdxLayoutGroup;
|
|
dxLayoutControl1: TdxLayoutControl;
|
|
dxLayoutControl1Group1: TdxLayoutGroup;
|
|
dxLayoutControl1Item1: TdxLayoutItem;
|
|
dxLayoutControl1Item2: TdxLayoutItem;
|
|
dxLayoutControl1Item3: TdxLayoutItem;
|
|
dxLayoutControl1Group2: TdxLayoutGroup;
|
|
dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList;
|
|
dxLayoutOfficeLookAndFeel1: TdxLayoutOfficeLookAndFeel;
|
|
private
|
|
FAsiento: IBizAsiento;
|
|
protected
|
|
function GetAsiento: IBizAsiento;
|
|
procedure SetAsiento(const Value: IBizAsiento);
|
|
public
|
|
constructor Create(AOwner : TComponent); override;
|
|
property Asiento: IBizAsiento read GetAsiento write SetAsiento;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses uDataModuleAsientos;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewAsientos }
|
|
|
|
{
|
|
******************************* TfrViewAsientos ********************************
|
|
}
|
|
constructor TfrViewAsiento.Create(AOwner : TComponent);
|
|
begin
|
|
inherited;
|
|
end;
|
|
|
|
function TfrViewAsiento.GetAsiento: IBizAsiento;
|
|
begin
|
|
Result := FAsiento;
|
|
end;
|
|
|
|
procedure TfrViewAsiento.SetAsiento(const Value: IBizAsiento);
|
|
begin
|
|
FAsiento := Value;
|
|
if Assigned(FAsiento) then
|
|
DADataSource.DataTable := FAsiento.DataTable
|
|
else
|
|
DADataSource.DataTable := NIL;
|
|
end;
|
|
|
|
initialization
|
|
RegisterClass(TfrViewAsiento);
|
|
|
|
finalization
|
|
UnRegisterClass(TfrViewAsiento);
|
|
|
|
end.
|
|
|