Erro ao converter data para string

[Jason Mello 0]

Pessoal, preciso de um help, não sei onde está o problema... se é delphi ou firebird. Estou desenvolvendo um sistema em Delphi com BD Firebird. Uso o Zeus para conexão. Quando vou chamar uma Stored Procedure dá erro de conversão "0" para string, o problema é que não passo nenhum 0 como parâmetro.

Segue imagem do erro

 

 

 

 

Alguém pode me ajudar

[Motta 645]

Check se os parametros do componente e da sp "batem" , veja as configurações regionais da data, tem uma data no formato americana na msg 12/30/1899, e esquisita , deve ser um tratamento de nulo.

 

Apostaria nas configuracoes regionais

[Jason Mello 0]

Essa data de 12/30/1899 eu trato na SP... o resto bate tudo.

[Motta 645]

Então o formato mm/dd/yyyy não é o problema ?

[Jason Mello 0]

Então o formato mm/dd/yyyy não é o problema ?

não... mudei na SP a forma do if para

IF (:wp_dtentrada < cast('01/01/1900' as date)) then e parou o problema.

Agora está dizendo que espera fim do comando, mas quando compilo a SP não dá erro nenhum.

A SP é:

[inline]begin

IF (:wp_dtentrada < cast('01/01/1900' as date)) then

BEGIN

dtentrada = NULL;

END

else

begin

dtentrada = :wp_dtentrada;

end

 

IF (:wp_dtNascimento < cast('01/01/1900' as date)) then

BEGIN

dtNascimento = NULL;

END

else

begin

dtNascimento = :wp_dtNascimento;

end

 

IF (:wp_dtPesagemIni < cast('01/01/1900' as date)) then

BEGIN

dtPesagemIni = NULL;

END

else

begin

dtPesagemIni = :wp_dtPesagemIni;

end

 

IF (:wp_dtSaida < cast('01/01/1900' as date)) then

BEGIN

dtSaida = NULL;

END

else

begin

dtSaida = :wp_dtSaida;

end

 

IF ((:wp_idAnimal = 0) OR (:wp_idAnimal is NULL)) then

BEGIN

select first 1 idAnimal from tb_animal order by idAnimal desc into :novoId;

 

novoId = novoId + 1;

 

if ((novoId is null) or (novoId <= 0)) then

begin

novoId = 1;

end

 

Insert into

tb_animal

(

IDANIMAL,

IDCATANIMAL,

IDPROPRIEDADE,

IDPROCEDENCIA,

IDMATRIZ,

IDRACA,

BRINCO,

IDSITUACAO,

SEXO,

IDPELAGEM,

DTENTRADA,

IDTIPOENTRADA,

DTNASCIMENTO,

DTPESAGEMINI,

PESOINICIAL,

PRECOKILO,

PRECOTOTAL,

IDTIPOSAIDA,

PESOVENDA,

PRECOVENDA,

DTSAIDA,

IDDESTINO,

IDCAUSAMORTIS,

IDANIMALTRANSF,

IDPROPRIEDADETRANSF,

EXCLUIDO

)

values

(

:wp_idAnimal,

:wp_idCatAnimal,

:wp_idPropriedade,

:wp_idProcedencia,

:wp_idMatriz,

:wp_idRaca,

:wp_brinco,

:wp_idSituacao,

:wp_sexo,

:wp_idPelagem,

:dtEntrada,

:wp_idTipoEntrada,

:dtNascimento,

:dtPesagemIni,

:wp_pesoInicial,

:wp_precoKilo,

:wp_precoTotal,

:wp_idTipoSaida,

:wp_pesoVenda,

:wp_precoVenda,

:dtSaida,

:wp_idDestino,

:wp_idCausaMortis,

:wp_idAnimalTransf,

:wp_idPropriedadeTransf,

0

);

IF (:wp_ehmatriz = 1) THEN

BEGIN

execute procedure SP_Matriz_Salvar (0, :wp_idPropriedade, :wp_idCatAnimal, :novoId, 'V', '');

END

END

ELSE

BEGIN

UPDATE

tb_animal

SET

IDCATANIMAL = :wp_idCatAnimal,

IDPROPRIEDADE = :wp_idPropriedade,

IDPROCEDENCIA = :wp_idProcedencia,

IDMATRIZ = :wp_idMatriz,

IDRACA = :wp_idRaca,

BRINCO = :wp_brinco,

IDSITUACAO = :wp_idSituacao,

SEXO = :wp_sexo,

IDPELAGEM = :wp_idPelagem,

DTENTRADA = :dtEntrada,

IDTIPOENTRADA = :wp_idTipoEntrada,

DTNASCIMENTO = :dtNascimento,

DTPESAGEMINI = :dtPesagemIni,

PESOINICIAL = :wp_pesoInicial,

PRECOKILO = :wp_precoKilo,

PRECOTOTAL = :wp_precoTotal,

IDTIPOSAIDA = :wp_idTipoSaida,

PESOVENDA = :wp_pesoVenda,

PRECOVENDA = :wp_precoVenda,

DTSAIDA = :dtSaida,

IDDESTINO = :wp_idDestino,

IDCAUSAMORTIS = :wp_idCausaMortis,

IDANIMALTRANSF = :wp_idAnimalTransf,

IDPROPRIEDADETRANSF = :wp_idPropriedadeTransf,

EXCLUIDO = 0

WHERE

(IDANIMAL = :wp_idAnimal);

 

 

 

END

 

end[/inline]