roberto
90229c6a3d
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@4 f33bb606-9f5c-448d-9c99-757f00063c96
31 lines
796 B
ObjectPascal
31 lines
796 B
ObjectPascal
unit uIEditorElegirDireccionEntrega;
|
|
|
|
interface
|
|
|
|
uses
|
|
uBizContactos, uBizDireccionesContacto, uGUIBase;
|
|
|
|
type
|
|
IEditorElegirDireccionEntrega = interface
|
|
['{AB909782-25E1-4715-B98A-EA62FB9DC03C}']
|
|
function GetContacto: IBizContacto;
|
|
procedure SetContacto(const Value: IBizContacto);
|
|
property Contacto : IBizContacto read GetContacto write SetContacto;
|
|
|
|
procedure SetMensaje (const AValue: String);
|
|
function GetMensaje: String;
|
|
property Mensaje : String read GetMensaje write SetMensaje;
|
|
|
|
function GetDireccionSeleccionada: IBizDireccionesContacto;
|
|
property DireccionSeleccionada: IBizDireccionesContacto read GetDireccionSeleccionada;
|
|
|
|
function ShowModal : Integer;
|
|
procedure Release;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
end.
|
|
|