[firebase-br] Retorno de procedure do firebird

[Marco Antonio Albuquerque]

Bom dia a todos,
                        Estou com um problema no retorno de um valor de uma 
procedure para o delphi, executada no IBExpert o result é mostrado 
corretamente, ja no delphi na hora do open ou execproc da erro de cursor 
handle (Componente testados StoredProc e Query)

  with spValor_Consulta do
  begin
    Close;
    Params[0].AsInteger := StrToInt(copy(cbx33_CodigoTabela.Text, 1, 2));
    Params[1].AsInteger := ID_CAD005;
    Params[2].AsInteger := ID_TAB001;
    Params[3].AsInteger := StrToInt(edt34_CodProcedimento.Text);
    try
      open;
      Result := Fields[0].AsCurrency ;
    except
        on Exception do
          ShowMessage('Procedure não rodou');
    end;
  end;
Antecipadamente agradeço

Marco Antonio

_________________________________________________________________
Mande torpedos SMS do seu messenger para o celular dos seus amigos 
http://mobile.msn.com/