david
429b5b1f8f
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.7.0@18 c93665c3-c93d-084d-9b98-7d5f4a9c3376
105 lines
3.6 KiB
ObjectPascal
105 lines
3.6 KiB
ObjectPascal
unit uViewRemesaCliente;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
|
DBCtrls, Grids, DBGrids, Mask, ComCtrls, uCustomView, JvComponent,
|
|
JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
|
cxDBEdit, dxLayoutControl, cxCheckBox, PngSpeedButton, cxImage, ActnList,
|
|
ImgList, PngImageList, cxGraphics, cxMaskEdit, cxDropDownEdit,
|
|
uFamiliasController, cxSpinEdit, cxCurrencyEdit,
|
|
uBizRemesasCliente, uRemesasClienteController, cxCalendar;
|
|
|
|
type
|
|
IViewRemesaCliente = interface(IViewBase)
|
|
['{7F5C4A4F-DD34-4E6E-A053-7528E62D1D64}']
|
|
function GetRemesaCliente: IBizRemesaCliente;
|
|
procedure SetRemesaCliente(const Value: IBizRemesaCliente);
|
|
property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente;
|
|
|
|
function GetController : IRemesasClienteController;
|
|
procedure SetController (const Value : IRemesasClienteController);
|
|
property Controller : IRemesasClienteController read GetController write SetController;
|
|
end;
|
|
|
|
TfrViewRemesaCliente = class(TfrViewBase, IViewRemesaCliente)
|
|
dsDataTable: TDADataSource;
|
|
dxLayoutControlRemesaClienteGroup_Root: TdxLayoutGroup;
|
|
dxLayoutControlRemesaCliente: TdxLayoutControl;
|
|
dxLayoutControlRemesaClienteGroup1: TdxLayoutGroup;
|
|
dxLayoutControlRemesaClienteItem3: TdxLayoutItem;
|
|
eReferencia: TcxDBTextEdit;
|
|
dxLayoutControlRemesaClienteItem8: TdxLayoutItem;
|
|
eDescripcion: TcxDBTextEdit;
|
|
dxLayoutControlRemesaClienteGroup3: TdxLayoutGroup;
|
|
dxLayoutControlRemesaClienteGroup11: TdxLayoutGroup;
|
|
dxLayoutControlRemesaClienteItem4: TdxLayoutItem;
|
|
edtFechaRemesa: TcxDBDateEdit;
|
|
dxLayoutControlRemesaClienteItem1: TdxLayoutItem;
|
|
eTitular: TcxDBTextEdit;
|
|
dxLayoutControlRemesaClienteItem2: TdxLayoutItem;
|
|
eCodEntidad: TcxDBTextEdit;
|
|
dxLayoutControlRemesaClienteItem5: TdxLayoutItem;
|
|
eCodSucursal: TcxDBTextEdit;
|
|
dxLayoutControlRemesaClienteItem6: TdxLayoutItem;
|
|
eDC: TcxDBTextEdit;
|
|
dxLayoutControlRemesaClienteItem7: TdxLayoutItem;
|
|
eCuenta: TcxDBTextEdit;
|
|
dxLayoutControlRemesaClienteGroup2: TdxLayoutGroup;
|
|
dxLayoutControlRemesaClienteGroup4: TdxLayoutGroup;
|
|
|
|
protected
|
|
FController: IRemesasClienteController;
|
|
FRemesaCliente: IBizRemesaCliente;
|
|
function GetRemesaCliente: IBizRemesaCliente;
|
|
procedure SetRemesaCliente(const Value: IBizRemesaCliente); virtual;
|
|
function GetController : IRemesasClienteController;
|
|
procedure SetController (const Value : IRemesasClienteController);
|
|
public
|
|
property RemesaCliente: IBizRemesaCliente read GetRemesaCliente write SetRemesaCliente;
|
|
property Controller : IRemesasClienteController read GetController write SetController;
|
|
end;
|
|
|
|
implementation
|
|
|
|
//uses uDataModuleRemesaClientes, uSistemaFunc;
|
|
|
|
{$R *.dfm}
|
|
|
|
|
|
{ TfrViewRemesaClientes }
|
|
|
|
{
|
|
******************************* TfrViewRemesaClientes ********************************
|
|
}
|
|
|
|
function TfrViewRemesaCliente.GetRemesaCliente: IBizRemesaCliente;
|
|
begin
|
|
Result := FRemesaCliente;
|
|
end;
|
|
|
|
function TfrViewRemesaCliente.GetController: IRemesasClienteController;
|
|
begin
|
|
Result := FController;
|
|
end;
|
|
|
|
procedure TfrViewRemesaCliente.SetRemesaCliente(const Value: IBizRemesaCliente);
|
|
begin
|
|
FRemesaCliente := Value;
|
|
|
|
if Assigned(FRemesaCliente) then
|
|
dsDataTable.DataTable := FRemesaCliente.DataTable
|
|
else
|
|
dsDataTable.DataTable := NIL;
|
|
end;
|
|
|
|
procedure TfrViewRemesaCliente.SetController(const Value: IRemesasClienteController);
|
|
begin
|
|
FController := Value;
|
|
end;
|
|
|
|
end.
|
|
|