buenos dias
tengo una rutina de suma de varios registros de un ClientDataSet
Código Delphi
[-]procedure TfrmIngresoComprobantesVarios.Sumar;
var _Position :TBookmark;
begin
_position := CdsDetalle.GetBookmark;
_TotalDebeMN := 0;
_TotalHaberMN := 0;
_TotalDebeME := 0;
_TotalHaberME :=0;
CdsDetalle.First;
while Not CdsDetalle.Eof do
begin
if _en(CdsDetalleDh.AsString, '1DI+') then
begin
_TotalDebeMN := _TotalDebeMN + CdsDetallen_imp.AsFloat;
_TotalDebeME := _TotalDebeME + CdsDetalleu_imp.AsFloat;
end
Else
begin
_TotalHaberMN := _TotalHaberMN + CdsDetallen_imp.AsFloat;
_TotalHaberME := _TotalHaberME + CdsDetalleu_imp.AsFloat;
end;
CdsDetalle.Next;
end;
CdsDetalle.Bookmark := _Position;
end;
esto quiero llevarlo a una libreria para que pueda sumar los registros de diferentes ClientDataSet
como asigno dinamicamente el dataset a sumar?
me echan una mano?