david
12013bdc69
git-svn-id: https://192.168.0.254/svn/Proyectos.ConstruccionesCNJ_FactuGES/trunk@4 6cb6b671-b4a0-dd4c-8bdc-3006503d97e9
112 lines
3.6 KiB
ObjectPascal
112 lines
3.6 KiB
ObjectPascal
unit uViewCobroCliente;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uViewBase, DB, uDADataTable, uCustomView,
|
||
uViewDatosYSeleccionCliente, uBizCobrosCliente,
|
||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, dxLayoutControl,
|
||
cxMemo, cxMaskEdit, cxDropDownEdit, cxCalendar, cxSpinEdit, StdCtrls, Mask,
|
||
DBCtrls, cxGraphics, cxCurrencyEdit;
|
||
|
||
type
|
||
IViewCobroCliente = interface(IViewBase)
|
||
['{D51EE554-7810-4460-8552-3D5E28999715}']
|
||
function GetCobro: IBizCobroCliente;
|
||
procedure SetCobro(const Value: IBizCobroCliente);
|
||
property Cobro: IBizCobroCliente read GetCobro write SetCobro;
|
||
|
||
function GetViewClienteCobro: TfrViewDatosYSeleccionCliente;
|
||
procedure SetViewClienteCobro(const Value: TfrViewDatosYSeleccioncliente);
|
||
property ViewClienteCobro: TfrViewDatosYSeleccionCliente read GetViewClienteCobro write SetViewClienteCobro;
|
||
end;
|
||
|
||
TfrViewCobroCliente = class(TfrViewBase, IViewCobroCliente)
|
||
DADataSource: TDADataSource;
|
||
dxLayoutCobroClienteGroup_Root: TdxLayoutGroup;
|
||
dxLayoutCobroCliente: TdxLayoutControl;
|
||
dxLayoutCobroClienteItem1: TdxLayoutItem;
|
||
eReferencia: TcxDBTextEdit;
|
||
dxLayoutCobroClienteItem2: TdxLayoutItem;
|
||
edtFecha: TcxDBDateEdit;
|
||
dxLayoutCobroClienteGroup661: TdxLayoutGroup;
|
||
dxLayoutCobroClienteGroup2: TdxLayoutGroup;
|
||
dxLayoutCobroClienteItem6: TdxLayoutItem;
|
||
frViewClienteCobro: TfrViewDatosYSeleccionCliente;
|
||
dxLayoutCobroClienteItem3: TdxLayoutItem;
|
||
memFormaPago: TcxDBMemo;
|
||
dxLayoutCobroClienteItem4: TdxLayoutItem;
|
||
cxCurrencyEdit5: TcxDBCurrencyEdit;
|
||
dxLayoutCobroClienteGroup3: TdxLayoutGroup;
|
||
dxLayoutCobroClienteGroup4: TdxLayoutGroup;
|
||
dxLayoutCobroClienteGroup5: TdxLayoutGroup;
|
||
dxLayoutCobroClienteGroup6: TdxLayoutGroup;
|
||
procedure OnDestroy(Sender: TObject);
|
||
procedure OnCreate(Sender: TObject);
|
||
protected
|
||
FCobro : IBizCobroCliente;
|
||
FViewClienteCobro: TfrViewDatosYSeleccionCliente;
|
||
|
||
function GetCobro: IBizCobroCliente;
|
||
procedure SetCobro(const Value: IBizCobroCliente); virtual;
|
||
function GetViewClienteCobro: TfrViewDatosYSeleccionCliente;
|
||
procedure SetViewClienteCobro(const Value: TfrViewDatosYSeleccioncliente);
|
||
public
|
||
property Cobro: IBizCobroCliente read GetCobro write SetCobro;
|
||
property ViewClienteCobro: TfrViewDatosYSeleccionCliente read GetViewClienteCobro;
|
||
end;
|
||
|
||
|
||
implementation
|
||
|
||
uses uDataModuleContactos, schCobrosClienteClient_Intf;
|
||
|
||
{$R *.dfm}
|
||
|
||
{ TfrViewCobroCliente }
|
||
|
||
function TfrViewCobroCliente.GetCobro: IBizCobroCliente;
|
||
begin
|
||
Result := FCobro;
|
||
end;
|
||
|
||
function TfrViewCobroCliente.GetViewClienteCobro: TfrViewDatosYSeleccionCliente;
|
||
begin
|
||
Result := FViewClienteCobro;
|
||
end;
|
||
|
||
procedure TfrViewCobroCliente.OnCreate(Sender: TObject);
|
||
begin
|
||
FViewClienteCobro := frViewClienteCobro;
|
||
FViewClienteCobro.MsgElegirCliente := 'Elija el cliente al que se le realizar<61> el cobro.';
|
||
end;
|
||
|
||
procedure TfrViewCobroCliente.OnDestroy(Sender: TObject);
|
||
begin
|
||
FViewClienteCobro := Nil;
|
||
end;
|
||
|
||
procedure TfrViewCobroCliente.SetCobro(const Value: IBizCobroCliente);
|
||
begin
|
||
FCobro := Value;
|
||
if Assigned(FCobro) then
|
||
begin
|
||
DADataSource.DataTable := FCobro.DataTable;
|
||
|
||
//Solo se deshabilita al insertar, luego la referencia ser<65> modificable
|
||
eReferencia.Enabled := (FCobro.DataTable.State = dsInsert);
|
||
end
|
||
else
|
||
DADataSource.DataTable := NIL;
|
||
|
||
FViewClienteCobro.Cliente := FCobro.Cliente;
|
||
end;
|
||
|
||
procedure TfrViewCobroCliente.SetViewClienteCobro(const Value: TfrViewDatosYSeleccioncliente);
|
||
begin
|
||
FViewClienteCobro := Value;
|
||
end;
|
||
|
||
end.
|