Excluir linha de Código de uma Query

Delphi

30/05/2006

Boa tarde Senhoras e Senhores...

Estou tendo um probleminha aqui com manipulação de strings em uma AdoQuery...

Tenho o seguinte SQL em uma AdoQuery:

Select distinct
ATR_DOCUMENTOS_EMITIDOS.CD_DOCUMENTO_EMITIDO,
ATR_DOCUMENTOS_EMITIDOS.NR_NUMERO_DOCUMENTO,
ATR_DOCUMENTOS_EMITIDOS.DT_DOCUMENTO_EMISSAO,
ATR_DOCUMENTOS_EMITIDOS.NR_PROCESSO_DOC_EMITIDO,
ATR_DOCUMENTOS_EMITIDOS.DT_PROCESSO_DOC_EMITIDO,
ATR_DOCUMENTOS_EMITIDOS.ST_FINALIDADE,
MGL_PESSOAS.NM_PESSOA AS REDIGENTE
From
ATR_DOCUMENTOS_EMITIDOS
Left jOIN
MGL_PESSOAS ON ATR_DOCUMENTOS_EMITIDOS.CD_PESSOA_REDIGENTE = MGL_PESSOAS.CD_PESSOA
Where
CD_DOCUMENTO_EMITIDO In (:Documentos)

Depois ... eu manipulo o parametro :Documentos na seguinte maneira:
Tabela.Sql.Text := StringReplace(Tabela.Sql.Text, ´:Documentos´, Copy(Documentos, 1, Length(Documentos) - 2), [rfReplaceAll, rfIgnoreCase])

ai depois eh OPEN na query..

Ai da erro QUANDO Copy(Documentos, 1, Length(Documentos) - 2) fica vazio.... oq fica ... IN ()

O que pretendo é:
Quando tiver o parametro :Documentos ... retirar toda a LINHA... como que eu faço pra deletar a linha que tenha :DOCUMENTOS ???????

GRATO DESDE JÁ!


Diegus

Diegus

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

30/05/2006

Pq vc não repassa o código sql ? Dando um
qry.Close;
qry.SQL.Clear;
qry.SQL.Add(´comando sql desejado´);
qry.Open;



GOSTEI 0
POSTAR