Actualizar un campo de un registro

[[Lepe]]

Una pequeña mejoría:

Código Delphi [-]
with qry_Encabezado.sql do 
begin
     clear;
     add ('Update Encabezado ');
     add ('set ccdebito = :debito');
     add ('where numero_transacion = :numTran');
end;
qry_Encabezado.Prepare;

qry_Encabezado_giros_dolares.Close;
qry_Encabezado_giros_dolares.Parameters.ParamByName('pfecha_inicial').Value := strtodate(fecha_inicial.Text);
qry_Encabezado_giros_dolares.Parameters.ParamByName('pfecha_final').Value   := strtodate(fecha_final.Text);

qry_Encabezado_giros_dolares.Open;
While not qry_Encabezado_giros_dolares.eof do 
begin
  ls_numero := qry_encabezado_giros_dolaresnumero_giros_dolares.Value;
  ls_fecha  := qry_encabezado_giros_dolaresfecha_giros_dolares.Value;

  with qry_Encabezado.Parameters do 
  begin
    Parambyname('numTran').Value := IntToStr(ls_numero);
    Parambyname('debito').Value := qry_encabezado_giros_dolarestasa_cambio_giros_dolares.Value;
  end;
  qry_Encabezado.ExecSql;
  qry_Encabezado_giros_dolares.next
end;

Edito: Quizás sabiendo el select de qry_Encabezado_giros_dolares (jarabe para el nombrecito ) se puede optimizar y hacer en una sola consulta update... no sé.

Saludos