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

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

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

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

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

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

Код:

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

А-Б-В не нужно. Да, это просто студенческая работа.

про регистр в условии ничего не сказано, судя по всему справочник уже заменяет регистр, т.к. есть дата отправки
[1ccode]
Функция ВертнутьКолВоЗанятыхМест(СсылкаНаРейс,ДатаНаКоторуюСмотримИлиДокумент)

Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с '01.01.1999' по ДатаНаКоторуюСмотримИлиДокумент;
|Обрабатывать НеПомеченныеНаУдаление;
|Без итогов;
|Билет = Документ.Билет.ТекущийДокумент;
|Рейс = Документ.Билет.Рейс;
|Условие(Рейс в СсылкаНаРейс);
|"//}}ЗАПРОС
;
Результат = СоздатьОбъект("ТаблицаЗначений");
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат 0;
КонецЕсли;
Запрос.Выгрузить(Результат);
Возврат Результат.КоличествоСтрок();
КонецФункции

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

//Если смотрим при создании нового билета, то
//по идее так: КоличествоЗанятыхМест = ВертнутьКолВоЗанятыхМест(РейсыТекущийЭлемент,ТекущийДокумент()),
//ну и цикл по эл-там не нужен. Описанная конструкция например для использования в отчетах;
КонецПроцедуры[/1ccode]
теги поменялись, не знаю как сейчас код включать

Взял ваш код, выводило ошибку, исправил, но не считало, еще исправил, опять ошибка)))
Я прикрепил проект, посмотрите пожалуйста что я не так делаю. Документ билет.

Ты не указал, что реквидиты документа находятся в разделе "Реквизиты табличной части"
Вот исправил твой отчет "КоличествоСвободныхБилетов". Как сделать тоже самое в документе думаю догадаешся

Код:

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

Хотя названия рейсов у тебя повторяются. тогда лучше заменить
Док.Рейс на Док.Рейс.Код
и
Нужныйрейс=ВыбРейс заменить на Нужныйрейс=ВыбРейс.Код

Теперь что в первую очередь бросается в глаза, на что твой преподаватель обезательно обратит внимания.
1. Ты задал в одном документе "Былет" возможность задать несколько строк (тоисть на несколько человек один билет). Небуду спорить хорошо или плохо это. Но в твоем билете есть возможность выписать один билет, например двум пассажирам на два разные рейса. Как они будут делить этот билет. Поэтому название рейса лучше сделать в Шапке.
2. Цена билета. Лучше сзазу указать цену билета в справочнике.Рейсы. Чтобы для каждого былета не вспоминать сколько стоит билет на тот или другой рейс.

да, предполагалось что у билета нет табличной части (один билет = одно место). Если будет ТЧ с несколькими строками - тогда считать еще количество строк..
вся реализация такой конфы минут на 30

А как можно сделать чтобы в табличную часть можно было только одну строку добавить?

И еще: нужно сделать бронирование билетов - получается будет еще 2 документа - 1) бронирование 2) отказ от бронирования , следовательно код будет изменен на такой:

Код:

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



ДокБронь.ВыбратьДокументы(Дата1,ТекущаяДата());
Пока ДокБронь.ПолучитьДокумент()=1 Цикл
Если ДокБронь.Проведен()=1 Тогда
докбронь.выбратьстроки();
пока ДокБронь.получитьстроку()=1 цикл
Если ДокБронь.Рейс=Нужныйрейс тогда
КоличествоБилетов=КоличествоБилетов+1;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;


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

СвободныхМест=Нужныйрейс.КоличествоМест-КоличествоБилетов;

Все правильно?

Если нужно только одно значение в билете, то можно или програмно запретить создавать больше одной строки (проверкой на количество строк в документе), или все реквизиты табличной части перенести в "реквизиты шапки". и таким образом вообще избавится от табличной части (в этом случае будет актуальна та проверка которую я написал в самом начале).
С такими темпами написания своей работы ты неуспеешь к концу учебного года.....