Problema com sentença sql

[msoares]

Pessoal,

A sentença SQL abaixo passou a dar erro após a atualização da versão do RM para a versão 10.

A mensagem de erro que dá é a seguinte:

=========================================

A sentença SQL não é válida!

The variable name '@DATA_INICIO_D' has already been declared.

Variable names must be unique within a query batch or stored procedure.

Must declare the scalar variable "@CODCOLIGADA".

=====================================================

Sentença SQL:

SELECT f.chapa, f.dataadmissao, f.datademissao, '999999999999999999' numcartaomediservice,

CASE

WHEN dataadmissao BETWEEN :data_inicio_d AND :data_fim_d THEN

'I'

ELSE

CASE

WHEN datademissao BETWEEN :data_inicio_d AND :data_fim_d THEN

'C'

ELSE

'A'

END

END tipo_operacao,

CASE

WHEN dataadmissao BETWEEN :data_inicio_d AND :data_fim_d THEN

dataadmissao

ELSE

NULL

END data_ini_vigencia,

CASE

WHEN datademissao BETWEEN :data_inicio_d AND :data_fim_d THEN

datademissao

ELSE

NULL

END data_cancelamento

FROM pfunc f, pfcompl c

WHERE f.chapa = c.chapa

AND f.codcoligada = c.codcoligada

AND f.codcoligada = :codcoligada

AND f.chapa = :chapa

[HEBER RM]

Bom , a msg eh simples : o data_inicio_d foi declarado mais de uma vez, e o cod_coligada nao foi declarado. Vc pode abrir essa fonte até chegar no DECLARE antes do select e tentar alterar ???? Se estavam funcionando "automatico" antes, pode ter acontecido alguma coisa durante o upgrade, o log não disse nada???

[Elias Queiroz]

Isto é em decorrência da conversão da base para a versão 10.20, a estrutura do sql foi alterada para atender às especificações do .net (antes era tudo delphi) assim a sentença não poderá ter a mesma variável declarada mais de uma vez. Sugestão é criar espelhos para cada vez que precisar usar o mesmo campo como parâmetro.

Ex.:

SELECT f.chapa, f.dataadmissao, f.datademissao, '999999999999999999' numcartaomediservice,

CASE

WHEN dataadmissao BETWEEN :data_inicio_d AND :data_fim_d THEN

'I'

ELSE

CASE

WHEN datademissao BETWEEN :ESPELHO#1 AND :ESPELHO#2 THEN

'C'

ELSE

'A'

END

END tipo_operacao,

CASE

WHEN datademissao BETWEEN :ESPELHO#3 AND :ESPELHO#4 THEN

dataadmissao

ELSE

NULL

END data_ini_vigencia,

CASE

WHEN datademissao BETWEEN :ESPELHO#5 AND :ESPELHO#6 THEN

datademissao

ELSE

NULL

END data_cancelamento

FROM pfunc f, pfcompl c

WHERE f.chapa = c.chapa

AND f.codcoligada = c.codcoligada

AND f.codcoligada = :codcoligada

AND f.chapa = :chapa