Подсчет количества проведенных документов (1С 7.7)

[alienz]

Добрый день. Платформа 7.7 (7.70.025)
Я делаю в 1С 7.7 ИС для работы аэропортов, аэрофлота и т.п.
У меня есть справочник рейс (реквизиты - ИзГорода, ВГород, ДатаОтправки, КоличествоМест)
Есть документ Билет (реквизиты - Пассажир, ЦенаБилета, НомерБилета, Рейс)

Как мне сделать чтобы считалось количество свободных мест?
Тобишь чтобы считалось сколько всего проведенных документов на тот или иной рейс, и из Справочник.Рейс.КоличествоМест отнималось количество проведенных документов.

[volodya1122]

Выбирайшь документы (период указываешь например "год назад" по текущую дату.  функция Проведен() проверяешь проведен ли документ. И если проведен то ищешь в нем реквизит нужный "Рейс". Сумируешь все проданные билеты в котором есть нужный рейс (если для одного пасажира резервируется только одно место). Вот и будет количество зарезервированных билетов

[alienz]

Выбирайшь документы (период указываешь например "год назад" по текущую дату.  функция Проведен() проверяешь проведен ли документ. И если проведен то ищешь в нем реквизит нужный "Рейс". Сумируешь все проданные билеты в котором есть нужный рейс (если для одного пасажира резервируется только одно место). Вот и будет количество зарезервированных билетов

Не могли бы вы написать кодом? Я просто не очень хорошо разбираюсь в 1С.

[volodya1122]

Я так понял из описания задачи- это не реальный заказ, а всего лишь студенческая работа.. Для Аэрофлота это как-то мелковато.
Вот по быстрому прикинул "кодом" как это примерно должно выглядить то что я написал выше.
Хотя для реального решения то как ты придумал не годится.

Код Выделить Развернуть

КоличествоБилетов=0;
    Нужныйрейс=РеквизитДркументаНаКоторомСейчасДелаешьНовыйБилет;
  Дата1=НачГода(НачГода(ТекущаяДата())-1);// начало прошлого года
  Док=СоздатьОбъект("Документ.Билет");
Док.ВыбратьДокументы(Дата1,ТекущаяДата());
Пока Док.ПолучитьДокумент()=1 Цикл
Если Док.Проведен()=1 Тогда
  Если Док.Рейс=Нужныйрейс тогда
КоличествоБилетов=КоличествоБилетов+1;
  КонецЕсли;
   КонецЕсли;
КонецЦикла;
СвободныхМест=Нужныйрейс.КоличествоМест-КоличествоБилетов;

[alienz]

Да, это просто студенческая работа. Сейчас попробую, спасибо.