TOrderSessions

Список сессий TOrderSession

Свойства

Название	Значение	Тип	Описание
Version	Integer	R	Версия заказа
iLastUser	Integer	R	Идентификатор работника, который последним редактировал заказ. Ссылка на справочник Employees
OrderFlags	TOrderFlags	R	Флаги заказа, описание см в TOrder
BySeats	Boolean	R	Признак "Заказ рассчитан по местам"
COT	Integer	R	Идентификатор типа заказа, ссылка на справочник ChangeableOrderTypes
UniCount	Integer	R	Служебное поле, максимальный UNI среди элементов
SeatsClosed	TLongSet256	R	Список закрытых мест в заказе
Items[i]	TOrderSession	R	Список сессий, см.пример скрипта
Lines[i]	TCheckItem	R	Список элементов заказа, используется совместно с LinesCount, см.пример скрипта
LinesCount	Integer	R	Кол-во элементов в заказе, используется совместно с Lines[i]

Пример скрипта для Sessions

var 
  i: Integer;
  it: TCheckItem;
  Limit: double;
begin
  Limit := 0;
  for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do 
  begin
    it := RKCheck.CurrentOrder.Sessions.Lines[i];
    if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then
      if TDiscountItem(it).CardCode <> '' then 
        Limit := Limit + TDiscountItem(it).MaxAmount; 
  end;
end;

DELPHI