20 lines
345 B
ObjectPascal
20 lines
345 B
ObjectPascal
unit uIDataModuleEmpresas;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes,
|
|
uBizEmpresas;
|
|
|
|
type
|
|
IDataModuleEmpresas = interface
|
|
['{681FD37D-8C67-47F1-8286-2B6EFE95CE7D}']
|
|
function GetItem(const ID : Integer) : IBizEmpresa;
|
|
function NewItem : IBizEmpresa;
|
|
function GetItems : IBizEmpresa;
|
|
end;
|
|
|
|
implementation
|
|
|
|
end.
|