Como passar esta consulta para linha de Codigo Delphi????

Faça assim:

with Qr_Clientes,sql do
begin
close;
Clear;
add(´Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis ´);
Add(´Where cli.Cod_Vendedor = ´´00´´ ´);
Add(´and cli.Cod_Cidade = ´´00´´ ´);
Add(´and cli.Cod_Area = ´´000´´ ´);
Add(´and cli.Rota_Cliente = ´´111´´ ´);
Add(´and cli.Cod_cliente = Pfis.Cod_cliente ´);
open;
end;

Query1.SQL.Add(´Select Cli.*,Pfis.* From TabCliente Cli, TabPes_Fisica Pfis ´)
Query1.SQL.Add(´Where cli.Cod_Vendedor = ´+#39+´00´ +39)
Query1.SQL.Add(´and cli.Cod_Cidade = ´+39+´00´ +39)
Query1.SQL.Add(´and cli.Cod_Area = ´+39+´000´ +39)
Query1.SQL.Add(´and cli.Rota_Cliente = ´+39+´111´ +39)
Query1.SQL.Add(´and cli.Cod_cliente = Pfis.Cod_cliente´)

Toda vez que na instrução tiver aspas simples vc deve colocar o codigo dela para que o comando fique correto, senão o argumento entra como número e não como string.
Espero ter esclarecido alguma coisa
Daniel Pimentel
dapiaze@terra.com.br

:twisted:
var qryTemp: TQuery;
begin
{Atualiza o status da oferta indicada}
with qryTemp do
begin
{Cria a Query Temporaria}
qryTemp:=CriarQueryTemporaria;
{Escreve o SQL}
SQL.Clear;
SQL.Add(´EXEC sp_Ofertas_Atualizar_Status_Oferta @ID_IN_OFERTA = ´+IntToStr(CodigoOferta));
{Executa a SP}
ExecSQL;
qryTemp.Free;
end; {with...}

Obrigado por me ajudar, mais eu fiz isto que você me falou, mais retorna o seguinte erro: ´Qr_Cliente: Fild ´Cod_Cliente´ not Found´
Obs: O código do Cliente está nas duas tabelas...

Jelves