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

Свойства

Название

Значение

Тип

Описание

VersionIntegerRВерсия заказа
iLastUserIntegerRИдентификатор работника, который последним редактировал заказ. Ссылка на справочник Employees
OrderFlagsTOrderFlagsRФлаги заказа, описание см в TOrder
BySeatsBooleanRПризнак "Заказ рассчитан по местам"
COTIntegerRИдентификатор типа заказа, ссылка на справочник ChangeableOrderTypes
UniCountIntegerRСлужебное поле, максимальный UNI среди элементов
SeatsClosedTLongSet256RСписок закрытых мест в заказе
Items[i]TOrderSessionRСписок сессий, см.пример скрипта
Lines[i]TCheckItemR

Список элементов заказа, используется совместно с LinesCount, см.пример скрипта

LinesCount

IntegerRКол-во элементов в заказе, используется совместно с 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