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;
end;
finally
dmdatos.qrymodifica.Transaction.CommitRetaining;
end;
no funciona la estructura.. osea compila normal pero sigue copiando solo la primera linea