itemsumty

type itemsumty = record

  count: Integer;

  resetpending: Boolean;

  reset: Boolean;

  case tfieldtype of

    ftinteger, ftword, ftsmallint, ftboolean: (

        integervalue: Integer;

      );

    ftlargeint: (

        largeintvalue: Int64;

      );

    ftfloat: (

        floatvalue: Double;

      );

    ftbcd: (

        bcdvalue: currency;

      );

end;