ERRO QUANDO UTILIZO WITH

[sop...@intercol.com.br]

BOM DIA PESSOAL MAS NEGOICO É O SEGUINTE ESTOU FAZENDO UMA CONSULTA
MAS NÃO ESTA PASSANDO QUANDO CLICO NO BOTÃO LOCALIZAR, DEVIDO O USO
DO WITH.

// COMANDO DO BOTÃO LOCALIZAR (Se por gentileza teria como me dizer de
que forma posso montar esse comando abaixio sem usar o WITH ).

procedure TFrmCLCodForn.BitBtn1Click(Sender: TObject);
begin
if DBEdit1.Text = '' then
begin
Application.MessageBox('Campo de Consulta Vazio', 'Atenção',
MB_OK +
MB_ICONINFORMATION);
DBEdit1.SetFocus;
exit;
end;
with DM.IBQCLCodForn do
begin
Close;
SQL.Clear;
SQL.Add('SELECT NF. NUM_FORNECEDOR, F.NOME_FORNECEDOR, P.
NOME_PRODUTO ' +
' FROM NUM_FORNECEDOR NF ' +
' LEFT JOIN FORNECEDORES F ON (F.COD_FORNECEDOR =
NF.COD_FORNECEDOR) ' +
' LEFT JOIN PRODUTOS P ON (P.COD_PRODUTO = NF.COD_PRODUTO');
SQL.Add('F.NOME_FORNECEDOR LIKE ' + QuotedStr('%' + DBEdit1.Text +
'%') +
' ORDER BY F.NOME_FORNECEDOR');
Open;
end;
end;

[Gustavo (Tectrilha)]

Tente desta maneira no lugar do With:

DM.IBQCLCodForn.Close;
DM.IBQCLCodForn.SQL.Clear;
DM.IBQCLCodForn.SQL.Add('SELECT NF. NUM_FORNECEDOR, F.NOME_FORNECEDOR,
P.NOME_PRODUTO ' +

' FROM NUM_FORNECEDOR NF ' +
' LEFT JOIN FORNECEDORES F ON (F.COD_FORNECEDOR =
NF.COD_FORNECEDOR) ' +
' LEFT JOIN PRODUTOS P ON (P.COD_PRODUTO = NF.COD_PRODUTO');

DM.IBQCLCodForn.SQL.Add('F.NOME_FORNECEDOR LIKE ' + QuotedStr('%' +

DBEdit1.Text + '%') +
' ORDER BY F.NOME_FORNECEDOR');

DM.IBQCLCodForn.Open;

Gustavo Gianordoli
Tectrilha Software

[sop...@intercol.com.br]

OBRIGADO