• Авторизация


Православный быдлокод 10-03-2009 23:18 к комментариям - к полной версии - понравилось!


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

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

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

Табдок.Показать();
КонецПроцедуры

Правильно, 1С-программирование, а точнее — создание макета печати =)
вверх^ к полной версии понравилось! в evernote


Вы сейчас не можете прокомментировать это сообщение.

Дневник Православный быдлокод | proT0N - proton digest | Лента друзей proT0N / Полная версия Добавить в друзья Страницы: раньше»