Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

для чайника нужен совет по конфигурирование 1с 8 не проходи мимо если знаешь ответ!!!

Nurlan Знаток (313), закрыт 13 лет назад
В Обратки создал ПечатьРасходныхНакладных
имееть реквизит ДатаНачала и ДатаОкончание и форма
в ДОКУМЕНТА СОЗДАЛ: РасходнаяНакладная форме документа написал след.процедуру:
Процедура Печать()Экспорт //вызывает печать из других объектов
//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
ТабДок = Новый ТабличныйДокумент;
Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Печать");
// Заголовок
Область = Макет.ПолучитьОбласть("Заголовок");
ТабДок.Вывести(Область);
// Шапка
Шапка = Макет.ПолучитьОбласть("Шапка");
Шапка.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Шапка);
// Товары
Область = Макет.ПолучитьОбласть("ТоварыШапка");
ТабДок.Вывести(Область);
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
Для Каждого ТекСтрокаТовары Из Товары Цикл
ОбластьТовары.Параметры.Заполнить(ТекСтрокаТовары);
ТабДок.Вывести(ОбластьТовары);
КонецЦикла;
// Услуги
Область = Макет.ПолучитьОбласть("УслугиШапка");
ТабДок.Вывести(Область);
ОбластьУслуги = Макет.ПолучитьОбласть("Услуги");
Для Каждого ТекСтрокаУслуги Из Услуги Цикл
ОбластьУслуги.Параметры.Заполнить(ТекСтрокаУслуги);
ТабДок.Вывести(ОбластьУслуги);
КонецЦикла;
// Подвал
Подвал = Макет.ПолучитьОбласть("Подвал");
Подвал.Параметры.Заполнить(ЭтотОбъект);
ТабДок.Вывести(Подвал);

ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Истина;
ТабДок.ТолькоПросмотр = Истина;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ
КонецПроцедуры

А в Обратотки кнопки "Выполнит"написал след процедуру:
Процедура КнопкаВыполнитьНажатие(Кнопка)
// Нажание кнопки выполнит
// интервал
Выборка = Документы.РасходнаяНакладная.Выбрать(ДатаНачала, КонецДня(ДатаОкончания));
Пока Выборка.Следующий() Цикл //Организовать цикл по выбранной
Выборка.ПолучитьОбъект().Печать();// Вызвать печать
КонецЦикла;
КонецПроцедуры

теперь мне нужно что бы при нажатие кнопки "Выполнит"
область печати выходило на одном бланке. т.е все расходные накладные за весть период выводилась на одном листе.
Лучший ответ
Остальные ответы
Похожие вопросы