[Rofocale]

Código Delphi [-]
          try
           dmdatos.qryconsulta.Close;
           dmdatos.qryconsulta.SQL.Clear;
           dmdatos.qryconsulta.SQL.Add('SELECT * FROM ventasareas');

           dmdatos.qrymodifica.Close;
           dmdatos.qrymodifica.SQL.Clear;
           dmdatos.qrymodifica.SQL.Add('INSERT INTO ventasdet (venta, orden, articulo, cantidad, precio,iva,devolucion, fecha)');
           dmdatos.qrymodifica.SQL.Add('VALUES (:venta, rden, :articulo, :cantidad, recio, :iva,:devolucion,:fecha)');

           dmdatos.qryconsulta.open;

           while not dmdatos.qryconsulta.Eof do
           begin
           articulo1 := dmdatos.qryconsulta.FieldByName('articulo').value;
           cantidad1 := dmdatos.qryconsulta.FieldByName('cantidad').value;
           precio1 := dmdatos.qryconsulta.FieldByName('precio').value;
           fecha1 := dmdatos.qryconsulta.FieldByName('fecha').value;

           dmdatos.qrymodifica.params.ParamByName('venta').Value :=  sVenta;
           dmdatos.qrymodifica.params.ParamByName('orden').Value := IntToStr(i);
           dmdatos.qrymodifica.params.ParamByName('articulo').Value := articulo1;
           dmdatos.qrymodifica.params.ParamByName('cantidad').Value := cantidad1;
           dmdatos.qrymodifica.params.ParamByName('precio').Value :=  precio1;
           dmdatos.qrymodifica.params.ParamByName('iva').Value :=  rIva;
           dmdatos.qrymodifica.params.ParamByName('devolucion').Value :=  riva;
           dmdatos.qrymodifica.params.ParamByName('fecha').Value :=  fecha1;

           dmdatos.qrymodifica.open;
           dmdatos.qryconsulta.next;
            //ExecSQL;
           end;
           finally
           dmdatos.qrymodifica.Transaction.CommitRetaining;
           end;

no funciona la estructura.. osea compila normal pero sigue copiando solo la primera linea