Fórum dar um update na tabela 1 buscando dados da tabela 2 #505983

Select Codigo_Cliente, Telefone From ContasAReceber Where Telefone = '' Order By Codigo_Cliente

Query1.first; //inicio da query
Clientes.First; //inicio tabela de clientes
While not Query1.eof do // enquanto não for o final da query faça
begin
       If Query1.FieldByName('Codigo_Cliente').asinteger = Clientes.FieldByName('Codigo_Cliente').asinteger =  then //verifica se bate o código do cliente
        Begin
               ContasAReceber.edit; //coloca tabela em edição
               ContasAReceber.FieldByName('Telefone').asstring := Clientes.FieldByName('Telefone').asstring; //atualiza o telefone
               ContasAReceber.post; //grava alteração
               Query1.Next;  //vai para a próxima conta a receber na query.
        End
      Else // se não bateu as informações da condição IF
         Clientes.Next; //Passa para o próximo cliente 
end;

UPDATE 
CONTASRECEBER 
SET 
CLI_FONE = (SELECT 
                     CLIFOR.CLI_FONE 
                    FROM 
                     CLIFOR 
                     WHERE CLIFOR.CLI_CODIGO = CONTASRECEBER.CLI_CODIGO)
WHERE CLI_FONE IS NULL OR CLI_FONE = ''