&НаСервере
Функция ПолучитьПечатнуюФормуСчета()
// вхДок это просто ссылка на документ счет на оплату покупателю
ттт=новый ТабличныйДокумент();
для каждого стр из объект.Контрагенты цикл
счДок=стр.Счет;
сообщить(счДок);
ОбъектыПечати = Новый СписокЗначений;
ОбъектыПечати.Добавить(счДок.ПолучитьОбъект());
МассивОбъектов = Новый Массив();
МассивОбъектов.Добавить(счДок);
ПараметрыПечати = Новый Структура;
ТаблицаСведенийСчетНаОплату=Документы.СчетНаОплатуПокупателю.ПолучитьТаблицуСведенийСчетаНаОплату(МассивОбъектов);
ПараметрыПечати.Вставить("ВидДокументаПечати", "СчетНаОплатуПокупателю");
ПараметрыПечати.Вставить("ИмяПараметровПечати", "ПАРАМЕТРЫ_ПЕЧАТИ_СчетНаОплатуПокупателю_Счет");
ПараметрыПечати.Вставить("ИмяМакетаПечати", "ОбщийМакет.ПФ_MXL_СчетЗаказ");
ТаблицаСведенийСчетНаОплату.Колонки.Добавить("Ссылка");
ТаблицаСведенийСчетНаОплату[0].Ссылка = счДок;
ТаблицаСведенийСчетНаОплату[0].Документ = счДок;
ТабДок = ПечатьТорговыхДокументов.ПечатьСчетаНаОплату(ТаблицаСведенийСчетНаОплату, ОбъектыПечати, ПараметрыПечати);
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
ттт.Вывести(ТабДок);
конеццикла;
возврат ттт;
КонецФункции
&НаКлиенте
Процедура ПечатьСчетов(Команда)
табдок=ПолучитьПечатнуюФормуСчета();
табдок.показать();
КонецПроцедуры
&НаСервере
Функция ПолучитьСтатусСчета(счет)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СтатусыДокументов.Статус.Ссылка КАК СтатусСсылка
|ИЗ
| РегистрСведений.СтатусыДокументов КАК СтатусыДокументов
|ГДЕ
| СтатусыДокументов.Организация = &Организация
| И СтатусыДокументов.Документ = &Документ";
Запрос.УстановитьПараметр("Организация", объект.Организация);
Запрос.УстановитьПараметр("Документ",счет);
ВыборкаДетальныеЗаписи = Запрос.Выполнить().Выбрать();
статус=перечисления.СтатусОплатыСчета.НеОплачен;
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
статус=ВыборкаДетальныеЗаписи.СтатусСсылка;
конеццикла;
возврат статус;
КонецФункции
&НаСервере
Функция ПечатьАктовНаСервере()
// вхДок это просто ссылка на документ счет на оплату покупателю
ттт=новый ТабличныйДокумент();
для каждого стр из объект.Контрагенты цикл
счДок=стр.Акт;
сообщить(счДок);
ОбъектыПечати = Новый СписокЗначений;
ОбъектыПечати.Добавить(счДок.ПолучитьОбъект());
МассивОбъектов = Новый Массив();
МассивОбъектов.Добавить(счДок);
ПараметрыПечати = Новый Структура;
ТаблицаСведенийАкт=Документы.РеализацияТоваровУслуг.ПолучитьТаблицуСведенийАктаОбОказанииУслуг(МассивОбъектов);
ПараметрыПечати.Вставить("ВидДокументаПечати", "РеализацияТоваровУслуг");
ПараметрыПечати.Вставить("ИмяПараметровПечати", "ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Акт");
ПараметрыПечати.Вставить("ИмяМакетаПечати", "Документ.РеализацияТоваровУслуг.ПФ_MXL_Акт");
ТаблицаСведенийАкт.Колонки.Добавить("Ссылка");
ТаблицаСведенийАкт[0].Ссылка = счДок;
ТаблицаСведенийАкт[0].Документ = счДок;
ТабДок = ПечатьТорговыхДокументов.ПечатьАктаОбОказанииУслуг(ТаблицаСведенийАкт, ОбъектыПечати, ПараметрыПечати);
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
ттт.Вывести(ТабДок);
конеццикла;
возврат ттт;
КонецФункции
&НаКлиенте
Процедура ПечатьАктов(Команда)
табдок=ПечатьАктовНаСервере();
табдок.показать();
КонецПроцедуры
