Ver Mensaje Individual
  #2  
Antiguo 14-06-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.735
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Podrías ejecutar un query después del post de cada línea, donde se sumaran las cantidades.
Código Delphi [-]
procedure TablaDetalleAfterPost()
var
  Q : TQuery;
begin
  Q := TQuery.Create(nil);
  try
    with Q do
    begin
      //Aqui se deben establecer los datos del Query: Base de Datos, Transaccion, etc.
      ...
      SQL.Text := 'SELECT SUM(CANTIDAD) FROM TABLA_DETALLE WHERE ID_CABECERA=?ID_CABECERA'
      Params.ByName['ID_CABECERA'].AsInteger := TCabeceraID.AsInteger;
      ExecSQL;
      LTotal.Caption := IntToStr(FieldByName('SUM').AsInteger);
    end;
  finally
    Q.Free;
  end;
end;
Responder Con Cita