Fórum Super sequenciador parte II com DBExpress - como fica... #265509

Abaixo está Unit da função Sequenciadora que é composta por 5 parâmentros, sendo que usando o DBExpress como ficará o parametro DB que é o nome do Objeto IBDataBase no IBX...


unit USequenciador;

interface
uses
SysUtils, DB, DBXpress, IBDataBase, IBQuery, IBStoredProc;

function SequenciadorPRC(DB : TIBDataBase; Tabela: string; Campo: string; Pendencia: integer; const ValorAtual : string = ´´): string;

implementation

function SequenciadorPRC(DB : TIBDataBase; Tabela: string; Campo: string; Pendencia: integer; const ValorAtual : string = ´´): string;
var
SProcedure : TIBStoredProc;
Transacao : TIBTransaction;
begin
SProcedure := TIBStoredProc.Create(nil);
Transacao := TIBTransaction.Create(nil);
Transacao.DefaultDatabase := DB;
with SProcedure do begin
Transaction := Transacao;
Transacao.StartTransaction;
Database := DB;
StoredProcName := ´PRC_SEQUENCIADORA´;
ParamByName(´TABELA´).Text := TABELA;
ParamByName(´CAMPO´).Text := CAMPO;
ParamByName(´PENDENCIA´).Text := IntToStr(Pendencia);
ParamByName(´VALORATUAL´).Text := ValorAtual;
ExecProc;
Result := ParamByName(´ID_RETORNO´).Text;
Transacao.Commit;
Destroy;
end;
end;


Alguém podem me ajudar..,