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
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Última edición por Lepe fecha: 22-05-2007 a las 20:51:56.
|