david
acd17b74cc
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@2 c93665c3-c93d-084d-9b98-7d5f4a9c3376
107 lines
3.1 KiB
ObjectPascal
107 lines
3.1 KiB
ObjectPascal
unit uEditorElegirDireccionEntrega;
|
||
|
||
interface
|
||
|
||
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
|
||
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
|
||
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
|
||
uIEditorElegirDireccionEntrega, uCustomView,
|
||
uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
|
||
DBCGrids, uBizDireccionesContacto;
|
||
|
||
type
|
||
TfEditorElegirDireccionEntrega = class(TForm, IEditorElegirDireccionEntrega)
|
||
dsDirecciones: TDADataSource;
|
||
frViewBarraSeleccion1: TfrViewBarraSeleccion;
|
||
JvgWizardHeader1: TJvgWizardHeader;
|
||
DBCtrlGrid1: TDBCtrlGrid;
|
||
eCalle: TDBText;
|
||
ePoblacion: TDBText;
|
||
eTelefono: TDBText;
|
||
eProvincia: TDBText;
|
||
ePersonaContacto: TDBText;
|
||
eNombre: TDBText;
|
||
eCodigoPostal: TDBText;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
ePorte: TDBText;
|
||
Label4: TLabel;
|
||
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
|
||
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
|
||
procedure DBCtrlGrid1DblClick(Sender: TObject);
|
||
|
||
protected
|
||
FDirecciones: IBizDireccionesContacto;
|
||
function GetDireccion: IBizDireccionesContacto;
|
||
procedure SetDireccion(const Value: IBizDireccionesContacto);
|
||
|
||
procedure SetMensaje (const AValue: String);
|
||
function GetMensaje: String;
|
||
|
||
function GetDireccionSeleccionada: IBizDireccionesContacto;
|
||
public
|
||
property Mensaje : String read GetMensaje write SetMensaje;
|
||
property Direccion: IBizDireccionesContacto read GetDireccion write SetDireccion;
|
||
property DireccionSeleccionada: IBizDireccionesContacto read GetDireccionSeleccionada;
|
||
|
||
end;
|
||
|
||
implementation
|
||
{$R *.dfm}
|
||
|
||
uses
|
||
uDireccionesContactoController;
|
||
|
||
{ TfEditorDireccionEntrega }
|
||
|
||
procedure TfEditorElegirDireccionEntrega.DBCtrlGrid1DblClick(Sender: TObject);
|
||
begin
|
||
frViewBarraSeleccion1.actSeleccionar.Execute;
|
||
end;
|
||
|
||
procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actCancelarExecute(
|
||
Sender: TObject);
|
||
begin
|
||
ModalResult := mrCancel;
|
||
end;
|
||
|
||
procedure TfEditorElegirDireccionEntrega.frViewBarraSeleccion1actSeleccionarExecute(
|
||
Sender: TObject);
|
||
begin
|
||
ModalResult := mrOk;
|
||
end;
|
||
|
||
function TfEditorElegirDireccionEntrega.GetDireccion: IBizDireccionesContacto;
|
||
begin
|
||
Result := FDirecciones;
|
||
end;
|
||
|
||
function TfEditorElegirDireccionEntrega.GetDireccionSeleccionada: IBizDireccionesContacto;
|
||
begin
|
||
// Devuelvo el mismo objeto que recibo pero con el punto de lectura
|
||
// posicionado en la direcci<63>n elegida.
|
||
Result := FDirecciones;
|
||
end;
|
||
|
||
function TfEditorElegirDireccionEntrega.GetMensaje: String;
|
||
begin
|
||
Result := JvgWizardHeader1.Comments.Text;
|
||
end;
|
||
|
||
procedure TfEditorElegirDireccionEntrega.SetDireccion(const Value: IBizDireccionesContacto);
|
||
begin
|
||
FDirecciones := Value;
|
||
if Assigned(FDirecciones) then
|
||
dsDirecciones.DataTable := FDirecciones.DataTable
|
||
else
|
||
dsDirecciones.DataTable := NIL;
|
||
end;
|
||
|
||
procedure TfEditorElegirDireccionEntrega.SetMensaje(const AValue: String);
|
||
begin
|
||
JvgWizardHeader1.Comments.Text := AValue;
|
||
end;
|
||
|
||
end.
|