SQL Sever error : unassigned code

09/02/2006

0

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

Lorival Pereira

Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar