Pasar datos de un DBGrid a otro DBGrid

[lucas05]

Hola Neftali, gracias por sumarte. Una vez que paso el o los registros a la segunda grilla (pueden ser uno o varios) lo que quiero hacer es sumar el campo "precio" (este campo tiene un valor numérico) de todos los registros que están en la segunda grilla. Y el valor de la suma guardarla en la base de datos.

Muchas Gracias.

[ecfisa]

Hola.

Si hiciste el código anterior, basta con que agregues esta función:

Código Delphi [-]
function SumarPrecio(CDS: TClientDataSet): Currency;
begin
  Result:= 0;
  with CDS do
  begin
    First;
    while not Eof do
    begin
      Result:= Result + CDS.FieldBYName('PRECIO').AsCurrency;
      Next;
    end
  end
end;

Y cuando desees calcular los precios que estan en DBGrid2 solo tenés que llamarla.

Ejemplo donde se muestra la sumatoria:

Código Delphi [-]
procedure TForm1.btnSumarPrecioClick(Sender: TObject);
begin
  ShowMessage(CurrToStr(SumarPrecio(ClientDataSet1)))
end;

Del mismo modo podrías asignarlo a un campo de una tabla de tu bd, como por ejemplo:

Código Delphi [-]
procedure TForm1.btnSumarPrecioClick(Sender: TObject);
begin
  with DataModule1.TablaDondeSeSumanLosPrecios do
  begin
    Edit;
    FieldByName('SUMA').AsCurrency:= SumarPrecio(ClientDataSet1);
    Post
  end
end;

Saludos.

[lucas05]

Hola ecfisa, gracias por tu aporte. Aplique tu código y funciona bien.
El único problemita es que cuando guardo el resultado de la suma en la base de datos lo guarda siempre en el mismo registro.
Ejemplo: hago una suma y lo guarda en el registro 1, vuelvo a realizar otra suma y en vez de guardarlo en el registro 2, lo vuelve a guardar en el registro 1, o sea lo sobreescribe.
Como puedo resolverlo.

Nuevamente Gracias.

[olbeup]

¿Pero donde guardas la suma?, ¿en cual de los DBGrid's?, en el 1º DBGrid o en el 2º DBGrid?, ¿Y porque quieres guardar la suma en la base de datos?, los más lógico es realizar una SQL y mostrarla, ¿Cuantas base de datos están implicadas?

Un saludo.

[ecfisa]

Empezado por lucas05

Hola ecfisa, gracias por tu aporte. Aplique tu código y funciona bien.
El único problemita es que cuando guardo el resultado de la suma en la base de datos lo guarda siempre en el mismo registro.
Ejemplo: hago una suma y lo guarda en el registro 1, vuelvo a realizar otra suma y en vez de guardarlo en el registro 2, lo vuelve a guardar en el registro 1, o sea lo sobreescribe.
Como puedo resolverlo.

Hola lucas.

Si no seleccionas previamente el registro donde se guardará la sumatoria, al usar Edit sin haber camibiado previamente el posicionamiento en la tabla, el último valor siempre sobreescribirá al anterior.
Si lo que buscas es ir añadiendo nuevos registros con las sucesivas sumatrorias tendrías que usar el método Append o Insert.

Reemplazando en el código anterior sería:

Código Delphi [-]
...
  with DataModule1.TablaDondeSeSumanLosPrecios do
  begin
    Append;
  ...

Saludos.

[Neftali [Germán.Estévez]]

Empezado por lucas05

Hola Neftali, gracias por sumarte. Una vez que paso el o los registros a la segunda grilla (pueden ser uno o varios) lo que quiero hacer es sumar el campo "precio" (este campo tiene un valor numérico) de todos los registros que están en la segunda grilla. Y el valor de la suma guardarla en la base de datos.

OK, a esto me refería.
Ves, yo en este caso, si los registros del segundo DBGrid no se van a guardar, sino que sólo vas a guardar la suma resultante, tal vez hubiera utilizado en el segundo un TStringGrid, con 1 o 2 campos significativos y el PRECIO.