Refrescar Campo Calculado (TOTAL) de Dbgrid

[mramos65]

Hola ecfisa:
Gracias por tu ayuda:

[code]Tal como lo planteaste, para obtener la sumatoria de la columna ENTRADAS resultante de la relacion master-detail, vas a necesitar un query adicional para obtener ese resultado.

Suponiendo que tus queries se llamen "qyProduccion" y "qyEntregas", tendrías que hacer algo similar a este ejemplo:

Código Delphi [-]
procedure TForm1.qyEntregasAfterScroll(DataSet: TDataSet);
begin
  with TQuery.Create(nil) do
  try
    DataBaseName:= 'TU_ALIAS_O_RUTA_A_BD'; // (ruta o alias a tu base de datos)
    SQL.Text:= 'SELECT SUM(ENTRADAS)AS SUMA FROM ENTREGAS WHERE OP = :OP';
    ParamByName('OP').Value:= qyEntregas.FieldByName('OP').Value;
    Open;
    if not IsEmpty then
      Edit1.Text:= FieldByName('SUMA').AsString;
    Close;
  finally
    Free;
  end;
end;

Ya tengo los Dbgrid Maestro y Detalle, con las columnas correspondientes:

produccion (maestro)
OP
PRODUCTO

entregas (detalle)
OP
SALIDA
ENTRADAS

y ya sume la columna "ENTRADAS" del Dbgrid Detalle

Se creo un Dbedit1 al cual le asigne el valor de la suma de la columna "ENTRADAS"

La pregunta es como hago que el Dbedit1 se actualice al cambiar la OP de la tabla Maestro y por consiguiente el valor de la suma en la columna "ENTRADAS" de la tabla detalle?

Espero haberme explicado bien y MUCHAS GRACIAS.

[ecfisa]

Hola mramos65.

La pregunta es como hago que el Dbedit1 se actualice al cambiar la OP de la tabla Maestro y por consiguiente el valor de la suma en la columna "ENTRADAS" de la tabla detalle?

Si utilizas un TEdit como mencionaste en tu primer mensaje, usando el código del mensaje #4 en el evento AfterScroll de la tabla detalle (ENTREGAS).

Pero como ahora has cambiado el TEdit por un TDBEdit... la cosa cambia. Agrega otro componente Query y otro DataSource, es decir que tendrías 3 TQuery y 3 TDataSource:

qyProduccion <- dsProduccion
qyEntregas   <- dsEntregas
qySumatoria  <- dsSumatoria

Luego este código en el evento OnCreate del form:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
const
  DBNAME = 'TU_ALIAS_O_RUTA_A_BD';
begin
  // DataSources
  dsProduccion.DataSet:= qyProduccion;
  dsEntregas.DataSet  := qyEntregas;
  dsSumatoria.DataSet := qySumatoria;

  // Queries
  with qyProduccion do
  begin
    Close;
    DatabaseName:= DBNAME;
    SQL.Text:= 'SELECT OP, PRODUCTO FROM PRODUCCION';
    Open;  
  end;

  with qyEntregas do
  begin
    Close;
    DataBaseName:= DBNAME;
    DataSource  := dsProduccion;
    SQL.Clear;
    SQL.Add('SELECT OP, ENTRADAS, SALIDAS');
    SQL.ADD('FROM ENTREGAS WHERE OP = :OP');
    Open;
  end;

  with qySumatoria do
  begin
    Close;
    DatabaseName:= DBNAME;
    DataSource  := dsProduccion;
    SQL.Clear;
    SQL.Add('SELECT SUM(ENTRADAS) AS SUMA');
    SQL.Add('FROM ENTREGAS WHERE OP= :OP');
    Open;
  end;
  // DBEdit
  DBEdit1.DataSource:= dsSumatoria;
  DBEdit1.DataField := 'SUMA';
end;

Todo esto lo realicé en tiempo de ejecución a efectos de clarificar y evitar equívocos, pero podes hacerlo desde el Object Inspector en tiempo de diseño.

Saludos