2007-10-26 18:19:55 +00:00
|
|
|
unit uIDataModulePresupuestosCliente;
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
uses
|
2008-10-27 19:03:34 +00:00
|
|
|
Classes, uROTypes, uBizPresupuestosCliente, uBizDetallesPresupuestoCliente,
|
|
|
|
|
uIntegerListUtils;
|
2007-10-26 18:19:55 +00:00
|
|
|
|
|
|
|
|
type
|
|
|
|
|
IDataModulePresupuestosCliente = interface
|
|
|
|
|
['{F0DDD126-9E62-4FEC-A849-FDCA75718F5B}']
|
2009-02-27 10:44:29 +00:00
|
|
|
function GetAnosItems : TStringList;
|
2008-10-27 19:03:34 +00:00
|
|
|
function GetItems: IBizPresupuestoCliente; overload;
|
|
|
|
|
function GetItems(const AListaID: TIntegerList) : IBizPresupuestoCliente; overload;
|
2007-10-26 18:19:55 +00:00
|
|
|
function GetItem(const ID : Integer) : IBizPresupuestoCliente;
|
|
|
|
|
function NewItem : IBizPresupuestoCliente;
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
implementation
|
|
|
|
|
|
|
|
|
|
end.
|
