david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
79 lines
2.5 KiB
ObjectPascal
79 lines
2.5 KiB
ObjectPascal
unit uViewAlbaranCliente;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewBase, uBizAlbaranesCliente, DB, uDADataTable, uCustomView,
|
|
uViewDatosYSeleccionContacto, uViewDatosAlbaranCliente,
|
|
uViewObservaciones, uViewFormaPago, AppEvnts, uViewPresupuestoAlbaran;
|
|
|
|
type
|
|
IViewAlbaranCliente = interface(IViewBase)
|
|
['{4AF36827-838E-40AC-BEB5-72D69C721E6B}']
|
|
function GetAlbaranCliente: IBizAlbaranesCliente;
|
|
procedure SetAlbaranCliente(const Value: IBizAlbaranesCliente);
|
|
property AlbaranCliente: IBizAlbaranesCliente read GetAlbaranCliente
|
|
write SetAlbaranCliente;
|
|
end;
|
|
|
|
TfrViewAlbaranCliente = class(TfrViewBase, IViewAlbaranCliente)
|
|
DADataSource: TDADataSource;
|
|
frViewDatosYSeleccionContacto1: TfrViewDatosYSeleccionContacto;
|
|
frViewDatosAlbaranCliente1: TfrViewDatosAlbaranCliente;
|
|
frViewObservaciones1: TfrViewObservaciones;
|
|
frViewFormaPago1: TfrViewFormaPago;
|
|
frViewPresupuestoAlbaran1: TfrViewPresupuestoAlbaran;
|
|
private
|
|
FAlbaranCliente : IBizAlbaranesCliente;
|
|
procedure OnContactoChanged (Sender : TObject);
|
|
protected
|
|
function GetAlbaranCliente: IBizAlbaranesCliente;
|
|
procedure SetAlbaranCliente(const Value: IBizAlbaranesCliente);
|
|
public
|
|
property AlbaranCliente: IBizAlbaranesCliente read GetAlbaranCliente
|
|
write SetAlbaranCliente;
|
|
end;
|
|
|
|
var
|
|
frViewAlbaranCliente: TfrViewAlbaranCliente;
|
|
|
|
implementation
|
|
|
|
uses uBizContacto, uExceptions;
|
|
|
|
{$R *.dfm}
|
|
|
|
{ TfrViewAlbaranCliente }
|
|
|
|
function TfrViewAlbaranCliente.GetAlbaranCliente: IBizAlbaranesCliente;
|
|
begin
|
|
Result := FAlbaranCliente;
|
|
end;
|
|
|
|
procedure TfrViewAlbaranCliente.OnContactoChanged(Sender: TObject);
|
|
begin
|
|
FAlbaranCliente.Cliente := (frViewDatosYSeleccionContacto1.Contacto as IBizCliente);
|
|
end;
|
|
|
|
procedure TfrViewAlbaranCliente.SetAlbaranCliente(
|
|
const Value: IBizAlbaranesCliente);
|
|
begin
|
|
FAlbaranCliente := Value;
|
|
if Assigned(FAlbaranCliente) then
|
|
DADataSource.DataTable := FAlbaranCliente.DataTable
|
|
else
|
|
DADataSource.DataTable := NIL;
|
|
|
|
frViewDatosAlbaranCliente1.DADataSource.DataTable := DADataSource.DataTable;
|
|
frViewObservaciones1.DADataSource.DataTable := DADataSource.DataTable;
|
|
frViewFormaPago1.DADataSource.DataTable := DADataSource.DataTable;
|
|
|
|
frViewDatosYSeleccionContacto1.Contacto := FAlbaranCliente.Cliente;
|
|
frViewDatosYSeleccionContacto1.OnContactoChanged := OnContactoChanged;
|
|
|
|
frViewPresupuestoAlbaran1.AlbaranCliente := FAlbaranCliente;
|
|
end;
|
|
|
|
end.
|