вторник, 10 марта 2009 г.

Православный быдлокод

Как вы думаете, что это?
[code lang=1c]Процедура Печать(Кнопка)
Макет=Справочники.Номенклатура.ПолучитьМакет("Макет");
ОбластьШапки=Макет.ПолучитьОбласть("Шапка");
ТабДок=Новый ТабличныйДокумент;
ОбластьШапки.Параметры.РабочаяДата=РабочаяДата;
ТабДок.Вывести(ОбластьШапки);
Выборка=Справочники.Номенклатура.ВыбратьИерархически();

Пока Выборка.Следующий() Цикл
Если Выборка.ЭтоГруппа=Истина Тогда
ОбластьТабЧасти=Макет.ПолучитьОбласть("Группа");
ОбластьТабЧасти.Параметры.Код=Выборка.Код;
ОбластьТабЧасти.Параметры.Наименование=Выборка.Наименование;
Иначе
ОбластьТабЧасти=Макет.ПолучитьОбласть("Элемент");
ОбластьТабЧасти.Параметры.Код=Выборка.Код;
ОбластьТабЧасти.Параметры.Наименование=Выборка.Наименование;
ОбластьТабЧасти.Параметры.ЦенаПродажи=Выборка.ЦенаПродажи;
ОбластьТабЧасти.Параметры.ОснЕдиницаИзмерения=Выборка.ОснЕдиницаИзмерения;
КонецЕсли;
ТабДок.Вывести(ОбластьТабЧасти);

КонецЦикла;
ТабДок.Защита=Истина;
ТабДок.ТолькоПросмотр=Истина;

Табдок.Показать();
КонецПроцедуры
[/code]
Правильно, 1С-программирование, а точнее — создание макета печати =)

Комментариев нет: