09/02/2006

SQL Sever error : unassigned code

Ola Colegas,

Tenho uma aplicação em Delphi 6 e Firebird 1.5, e utilizo Stored Procedure para gerar as chaves das tabelas.
Migrei o sistema para o Delphi 7, estão ocorrendo erro e o na inclusão de registro pois quando o código abaixo é executado:

(Codigo da StoreProcedure
COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;

/* Stored procedures */

CREATE PROCEDURE ´PROXIMACIDADE´
(
´INCREMENTO´ SMALLINT
)
RETURNS
(
´NOVO´ INTEGER
)
AS
BEGIN EXIT; END ^


ALTER PROCEDURE ´PROXIMACIDADE´
(
´INCREMENTO´ SMALLINT
)
RETURNS
(
´NOVO´ INTEGER
)
AS
BEGIN
NOVO = Gen_ID(CODCIDADE_GEN, INCREMENTO);
END
^

SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;)


procedure TFrmCadastro.ClientInclusaoNewRecord(DataSet: TDataSet);
begin
GB_B_Incluindo := True;
SPGeraCodigo.Close;
SPGeraCodigo.ParamByName(´INCREMENTO´).AsInteger := 0;
SPGeraCodigo.ExecProc;

ClientInclusao.FieldByName(sCampoChave).AsInteger := SPGeraCodigo.Parambyname(´NOVO´).AsInteger + 1;
SPGeraCodigo.Close;

if ClientInclusao.FieldList.Find(´STATUS´) <> nil then
ClientInclusao.FieldByName(´STATUS´).AsString := ´A´;
end;

GERA O SEGUINTE ERRO: SQL Sever error : unassigned code

:?: Por favor, se puder ajudar-me, agradeço

Abraços;

Lorival Pereira
lorival@hotmail.com.br


Lorival Pereira