20 lines
400 B
ObjectPascal
20 lines
400 B
ObjectPascal
|
unit uIDataModuleInventario;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
uBizInventario;
|
||
|
|
|
||
|
|
type
|
||
|
|
IDataModuleInventario = interface
|
||
|
|
['{50AFDC00-4F91-4BC3-BB8A-1F53937BF9A6}']
|
||
|
|
function GetItems: IBizInventario;
|
||
|
|
function GetItem(const ID : Integer) : IBizInventario;
|
||
|
|
function GetNextID(const DataSetName : String) : Integer;
|
||
|
|
function NewItem : IBizInventario;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
end.
|