Настройка кассира: продажа в минус всех товаров кроме групп Алкоголь и Пиво

исправить тмс "перед добавлением позиции в чек"

  uses zkassa, chequelist, scriptres,DB;
  begin
   if (Base.FieldByName('quant').AsFloat - ChequeList.ActiveQuant < 0) and ((PartInGroup(ChequeList.ActivePID, -21) = 1)
           or (PartInGroup(ChequeList.ActivePID, -20) = 1)) then
     begin
       ScriptRes.Code := -1;
       ScriptRes.Desc := 'Запрет продажи в "минус" данной группы товаров';
     end;
  end;