19 lines
430 B
ObjectPascal
19 lines
430 B
ObjectPascal
|
unit uIEditorElegirFechaVencimiento;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
uEditorBasico, uDADataTable;
|
||
|
|
|
||
|
|
type
|
||
|
|
IEditorElegirFechaVencimiento = interface(IEditorBasico)
|
||
|
|
['{221D1E76-B018-4A68-8955-3452211DFEF4}']
|
||
|
|
function GetFechaVencimiento: Datetime;
|
||
|
|
procedure SetFechaVencimiento(const Value: Datetime);
|
||
|
|
property FechaVencimiento: Datetime Read GetFechaVencimiento write SetFechaVencimiento;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|