Fórum erro ao fazer o select no clientDataset #508182

Boa noite pessoal...
Na seguinte linha de código:


with CdsParcelasaPagar do
begin
sSel := '';
Close;
CommandText := '';
sSel := ' SELECT CDITEM_PARCELASAPAGAR,CDCONTA_CONTASAPAGAR,' +
' DTVENC_PARCELASAPAGAR,VLPARCELA_PARCELASAPAGAR,' +
' NRPARCELAS, SITUACAO_PARCELASAPAGAR, ' +
' DTPAGTO_PARCELASAPAGAR,VLPAGO_PARCELASAPAGAR, ' +
' CD_FORMPAGAMENTO,VLDESCONTO_PARCELASAPAGAR, ' +
' VLACRESCIMO_PARCELASAPAGAR, ' +
' DESCACR_PARCELASAPAGAR,COD_CONTAS ' +
' FROM PARCELASAPAGAR ';

case pTipoFiltro of
0 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('A');
1 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('B');
2 : sFiltro := ' WHERE SITUACAO_PARCELASAPAGAR = ' + QuotedStr('D');
3 : sFiltro := '';
end;
sOrder := ' ORDER BY NRPARCELAS,DTVENC_PARCELASAPAGAR ';
CommandText := sSel + sFiltro + sOrder;
Open;

Quando é executado o open está mostrando a seguinte mensagem de erro:


TOKEN UNKNOW - LINE @1,COLUMN @2
@1

A mesma linha de código estou usando com a tabela parcelasareceber e funciona normalmente. Seu eu colocar o código acima no ibexpert não apresenta mensagem de erro executando normalmente o SQL.


Estou usando delphi 2010 + Firebird 2.0 + dbx...

Att
Rogério