[[BlueSteel]]

actualmente utilizo este código

Código Delphi [-]
     sTot.AsCurrency := 0;
     While Not DTexto.Eof Do
     Begin
          sTot.AsCurrency := sTot.AsCurrency + DTexto.fieldbyname('MONTO').AsInteger;
          DTexto.Next;
     end;