Внешняя печатная форма поле объекта не обнаружено
Скачал внешнюю печатную форму нужно пределать под себя, добавить поле Высота. Форма Счет на оплату. В документе Счет на оплату добавил табличную часть товары Высота. Все сохраняеться считается как необходимо. В обработке прописал все но ругается на поле объекта не обнаружено. Не пойму почему.
ругается на
ДанныеПечатиСтрокаОбластьДанных.Вставить("Высота", Строка.Высота);
Соответвенно пытаюсь вставить в строка данные сделал дополнительную колонку
Скрытый текст |
---|
// Сведения о внешней обработке.
Функция СведенияОВнешнейОбработке() Экспорт ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке(""); ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма(); ПараметрыРегистрации.Версия = "1.0"; ПараметрыРегистрации.БезопасныйРежим = Истина; ПараметрыРегистрации.Назначение.Добавить("Документ.СчетНаОплатуПокупателю"); НоваяКоманда = ПараметрыРегистрации.Команды.Добавить(); НоваяКоманда.Представление = НСтр("ru = 'Счет на оплату (Договор-счет)'"); НоваяКоманда.Идентификатор = "Счет на оплату (Договор-счет)"; НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода(); НоваяКоманда.ПоказыватьОповещение = Истина; НоваяКоманда.Модификатор = "ПечатьMXL"; Возврат ПараметрыРегистрации; КонецФункции // Программый интерфейс. Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт Если МассивОбъектов.Количество()=0 Тогда Возврат; КонецЕсли; КоллекцияПечатныхФорм[0].ТабличныйДокумент = ПечатьСчетаНаОплату(МассивОбъектов); КонецПроцедуры // ОбъектыПечати - массив документов Функция ПечатьСчетаНаОплату(ОбъектыПечати, СПечатью = Ложь) Экспорт Перем ПодразделениеОтветственныхЛиц; СведенияСчетаНаОплату = ПолучитьТаблицуСведенийСчетаНаОплату(ОбъектыПечати); УстановитьПривилегированныйРежим(Истина); ТабличныйДокумент = Новый ТабличныйДокумент; ТабличныйДокумент.АвтоМасштаб = Истина; ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет; ТабличныйДокумент.КлючПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаказПокупателя_СчетЗаказ"; ДополнительнаяКолонкаПечатныхФормДокументов = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить(); Если НЕ ЗначениеЗаполнено(ДополнительнаяКолонкаПечатныхФормДокументов) Тогда ДополнительнаяКолонкаПечатныхФормДокументов = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.НеВыводить; КонецЕсли; ВыводитьКоды = ДополнительнаяКолонкаПечатныхФормДокументов <> Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.НеВыводить; ПервыйДокумент = Истина; Для Каждого СведенияОДокументе Из СведенияСчетаНаОплату Цикл //Макет = УправлениеПечатью.МакетПечатнойФормы("ОбщийМакет.ПФ_MXL_СчетЗаказ"); Макет = ЭтотОбъект.ПолучитьМакет("Макет"); Если НЕ ПервыйДокумент Тогда ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц(); КонецЕсли; ПервыйДокумент = Ложь; ЕстьСкидка = (СведенияОДокументе.ТаблицаДокумента.Итог("СуммаСкидки") <> 0) И ЗначениеЗаполнено(Макет.Области.Найти("Скидка")); // Запомним номер строки, с которой начали выводить текущий документ. НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1; // Выводим шапку счета //ВывестиЗаголовокПредупреждение(СведенияОДокументе.Получатель, ТабличныйДокумент, Макет); СведенияОПолучателе = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(СведенияОДокументе.Получатель, СведенияОДокументе.ДатаДляПолученияСведений); // Получим логотип организации ДвоичныеДанныеКартинки = Неопределено; Если ТипЗнч(СведенияОДокументе.Получатель) = Тип("СправочникСсылка.Организации") Тогда ДвоичныеДанныеКартинки = Справочники.Организации.ДвоичныеДанныеКартинкиОрганизации(СведенияОДокументе.Получатель, "ФайлЛоготип"); КонецЕсли; // ЛОГОТИП //ОбластьМакета = Макет.ПолучитьОбласть("Логотип"); //ТабличныйДокумент.Вывести(ОбластьМакета); ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета"); ОбластьМакета.Параметры.Заполнить(СведенияОДокументе); ДанныеПечатиЗаголовокСчета = Новый Структура; ДанныеПечатиЗаголовокСчета.Вставить("ИННПолучателя", СведенияОПолучателе.ИНН); ДанныеПечатиЗаголовокСчета.Вставить("КПППолучателя", СведенияОПолучателе.КПП); Если ТипЗнч(СведенияОДокументе.БанковскийСчетПродавца) = Тип("СправочникСсылка.БанковскиеСчета") Тогда ДанныеПечатиЗаголовокСчета.Вставить("БИКБанкаПолучателя",СведенияОДокументе.БикБанкаПолучателя); ДанныеПечатиЗаголовокСчета.Вставить("БанкПолучателя",СведенияОДокументе.БанкПолучателя); ДанныеПечатиЗаголовокСчета.Вставить("БанкПолучателяПредставление",СокрЛП(СведенияОДокументе.НаименованиеБанкаПолучателя)); ДанныеПечатиЗаголовокСчета.Вставить("СчетБанкаПолучателя",СведенияОДокументе.СчетБанкаПолучателя); ДанныеПечатиЗаголовокСчета.Вставить("СчетБанкаПолучателяПредставление",СведенияОДокументе.СчетБанкаПолучателя); ДанныеПечатиЗаголовокСчета.Вставить("СчетПолучателяПредставление", СведенияОДокументе.НомерСчетаПолучателя); ДанныеПечатиЗаголовокСчета.Вставить("СчетПолучателя", СведенияОДокументе.НомерСчетаПолучателя); КонецЕсли; ПредставлениеПолучателя = УчетДенежныхСредствБП.СформироватьТекстНаименованияПлательщикаПолучателя(, СведенияОДокументе.Получатель, СведенияОДокументе.БанковскийСчетПродавца, , СведенияОДокументе.ДатаДляПолученияСведений); ДанныеПечатиЗаголовокСчета.Вставить("ПредставлениеПолучателя", ПредставлениеПолучателя); ОбластьМакета.Параметры.Заполнить(ДанныеПечатиЗаголовокСчета); ТабличныйДокумент.Вывести(ОбластьМакета); //ОбластьМакета = Макет.ПолучитьОбласть("Заголовок"); // //НомерДокумента = ?(ЗначениеЗаполнено(СведенияОДокументе.ГосударственныйКонтракт), СведенияОДокументе.ГосударственныйКонтракт + "/", "") + СведенияОДокументе.НомерДокумента; // //ТекстЗаголовка = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Счет на оплату № %1 от %2 г.'"), // НомерДокумента, Формат(СведенияОДокументе.ДатаДокумента, "ДФ='дд ММММ гггг'")); // //ОбластьМакета.Параметры.Заполнить(Новый Структура("ТекстЗаголовка", ТекстЗаголовка)); // //ТабличныйДокумент.Вывести(ОбластьМакета); //ОбластьМакета = Макет.ПолучитьОбласть("Поставщик"); //ОбластьМакета.Параметры.Заполнить(СведенияОДокументе); СведенияОбОрганизации = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(СведенияОДокументе.Поставщик, СведенияОДокументе.ДатаДляПолученияСведений); //ПредставлениеПоставщика = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации( // СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,ИНН,КПП,ЮридическийАдрес,Телефоны,"); // //ОбластьМакета.Параметры.Заполнить(Новый Структура("ПредставлениеПоставщика", ПредставлениеПоставщика)); //ТабличныйДокумент.Вывести(ОбластьМакета); //ОбластьМакета = Макет.ПолучитьОбласть("Покупатель"); //ОбластьМакета.Параметры.Заполнить(СведенияОДокументе); СведенияОПокупателе = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(СведенияОДокументе.Покупатель, СведенияОДокументе.ДатаДляПолученияСведений); //ПредставлениеПокупателя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации( // СведенияОПокупателе, "НаименованиеДляПечатныхФорм,ИНН,КПП,ЮридическийАдрес,Телефоны,"); //Основание = СокрЛП(Строка(СведенияОДокументе.ДоговорКонтрагента)); //ДанныеПечатиПокупатель = Новый Структура; //ДанныеПечатиПокупатель.Вставить("ПредставлениеПокупателя", ПредставлениеПокупателя); //ДанныеПечатиПокупатель.Вставить("Основание", Основание); // //ОбластьМакета.Параметры.Заполнить(ДанныеПечатиПокупатель); //ТабличныйДокумент.Вывести(ОбластьМакета); ОбластьМакета = Макет.ПолучитьОбласть("ДополнительныйТекст"); ОбластьМакета.Параметры.Номер = СведенияОДокументе.НомерДокумента; ОбластьМакета.Параметры.Дата = Формат(СведенияОДокументе.ДатаДокумента,"ДФ=dd.MM.yyyy"); ОбластьМакета.Параметры.Контрагент = СведенияОДокументе.Покупатель; ТабличныйДокумент.Вывести(ОбластьМакета); ОбластьМакета = Макет.ПолучитьОбласть("ПунктТаблицы"); ТабличныйДокумент.Вывести(ОбластьМакета); ОбластьНомера = Макет.ПолучитьОбласть("ШапкаТаблицы|НомерСтроки"); ОбластьКодов = Макет.ПолучитьОбласть("ШапкаТаблицы|КолонкаКодов"); ОбластьДанных = Макет.ПолучитьОбласть("ШапкаТаблицы|Данные"); ОбластьСуммы = Макет.ПолучитьОбласть("ШапкаТаблицы|Сумма"); ТабличныйДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ДанныеПечатиКолонкиКодов = Новый Структура; Если ДополнительнаяКолонкаПечатныхФормДокументов = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда ДанныеПечатиКолонкиКодов.Вставить("ИмяКолонкиКодов", "Артикул"); ИначеЕсли ДополнительнаяКолонкаПечатныхФормДокументов = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда ДанныеПечатиКолонкиКодов.Вставить("ИмяКолонкиКодов", "Код"); КонецЕсли; ОбластьКодов.Параметры.Заполнить(ДанныеПечатиКолонкиКодов); ТабличныйДокумент.Присоединить(ОбластьКодов); КонецЕсли; ТабличныйДокумент.Присоединить(ОбластьДанных); Если ЕстьСкидка Тогда ОбластьСкидки = Макет.ПолучитьОбласть("ШапкаТаблицы|Скидка"); ТабличныйДокумент.Присоединить(ОбластьСкидки); КонецЕсли; ТабличныйДокумент.Присоединить(ОбластьСуммы); ОбластьКолонкаТовар = Макет.Область("Товар"); Если Не ВыводитьКоды Тогда ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + Макет.Область("КолонкаКодов").ШиринаКолонки; КонецЕсли; Если Не ЕстьСкидка И ЗначениеЗаполнено(Макет.Области.Найти("Скидка")) Тогда ОбластьКолонкаТовар.ШиринаКолонки = ОбластьКолонкаТовар.ШиринаКолонки + Макет.Область("Скидка").ШиринаКолонки; КонецЕсли; ОбластьНомера = Макет.ПолучитьОбласть("Строка|НомерСтроки"); ОбластьКодов = Макет.ПолучитьОбласть("Строка|КолонкаКодов"); ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные"); ОбластьСуммы = Макет.ПолучитьОбласть("Строка|Сумма"); Сумма = 0; СуммаНДС = 0; ВсегоСкидок = 0; ВсегоБезСкидок = 0; НомерСтроки = 0; НДСИсчисляетсяНалоговымАгентом = СведенияОДокументе.НДСИсчисляетсяНалоговымАгентом = Истина И УчетНДС.ВедетсяУчетНДСПоФЗ335(СведенияОДокументе.ДатаДляПолученияСведений); Для Каждого Строка Из СведенияОДокументе.ТаблицаДокумента Цикл НомерСтроки = НомерСтроки + 1; ОбластьНомера.Параметры.Заполнить(Новый Структура("НомерСтроки", НомерСтроки)); ТабличныйДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ОбластьКодов.Параметры.Заполнить(Новый Структура("Артикул", Строка.НоменклатураАртикул)); ТабличныйДокумент.Присоединить(ОбластьКодов); КонецЕсли; ДанныеПечатиСтрокаОбластьДанных = Новый Структура; ДанныеПечатиСтрокаОбластьДанных.Вставить("Товар", СокрЛП(Строка.НоменклатураНаименование)); ДанныеПечатиСтрокаОбластьДанных.Вставить("Количество", Строка.Количество); ДанныеПечатиСтрокаОбластьДанных.Вставить("Высота", Строка.Высота); ДанныеПечатиСтрокаОбластьДанных.Вставить("ЕдиницаИзмерения", Строка.ЕдиницаИзмеренияНаименование); ДанныеПечатиСтрокаОбластьДанных.Вставить("Цена", ОбщегоНазначенияБПВызовСервера.ФорматСумм(Строка.Цена)); ОбластьДанных.Параметры.Заполнить(ДанныеПечатиСтрокаОбластьДанных); ТабличныйДокумент.Присоединить(ОбластьДанных); Если ЕстьСкидка Тогда ОбластьСкидки = Макет.ПолучитьОбласть("Строка|Скидка"); ОбластьСкидки.Параметры.Заполнить(Новый Структура("СуммаСкидки", ОбщегоНазначенияБПВызовСервера.ФорматСумм(Строка.СуммаСкидки))); ТабличныйДокумент.Присоединить(ОбластьСкидки); КонецЕсли; ОбластьСуммы.Параметры.Заполнить(Новый Структура("Сумма", ОбщегоНазначенияБПВызовСервера.ФорматСумм(Строка.Сумма - Строка.СуммаСкидки))); ТабличныйДокумент.Присоединить(ОбластьСуммы); Сумма = Сумма + Строка.Сумма; СуммаНДС = СуммаНДС + Строка.СуммаНДС; ВсегоСкидок = ВсегоСкидок + Строка.СуммаСкидки; КонецЦикла; Если ЗначениеЗаполнено(Макет.Области.Найти("Подвал")) Тогда ОбластьПодвал = Макет.ПолучитьОбласть("Подвал"); ТабличныйДокумент.Вывести(ОбластьПодвал); КонецЕсли; Если СведенияОДокументе.СуммаСкидки <> 0 Тогда ДанныеОбъекта = Новый Структура("СуммаСкидки, СуммаВключаетНДС"); ЗаполнитьЗначенияСвойств(ДанныеОбъекта, СведенияОДокументе); ТаблицаТовары = СведенияОДокументе.ТаблицаДокумента.Скопировать(); ОбработкаТабличныхЧастей.РаспределитьСкидкуПоСтрокамТабЧасти(ТаблицаТовары, ДанныеОбъекта); Всего = Сумма + ?(СведенияОДокументе.СуммаВключаетНДС, 0, СуммаНДС); СуммаНДС = ТаблицаТовары.Итог("СуммаНДС"); Сумма = Всего - СведенияОДокументе.СуммаСкидки - ?(СведенияОДокументе.СуммаВключаетНДС, 0, СуммаНДС); Если ЗначениеЗаполнено(Макет.Области.Найти("СкидкаПоДокументу")) Тогда ОбластьСуммы = Макет.ПолучитьОбласть("СкидкаПоДокументу"); ОбластьСуммы.Параметры.Заполнить(Новый Структура("СуммаСкидки", ОбщегоНазначенияБПВызовСервера.ФорматСумм(СведенияОДокументе.СуммаСкидки))); ТабличныйДокумент.Вывести(ОбластьСуммы); КонецЕсли; ИначеЕсли ВсегоСкидок <> 0 Тогда Сумма = Сумма - ВсегоСкидок; КонецЕсли; ДанныеЗаполненияИтого = Новый Структура("Всего", ОбщегоНазначенияБПВызовСервера.ФорматСумм(Сумма)); Если НДСИсчисляетсяНалоговымАгентом Тогда НДС = УчетНДС.НадписьСтавкаНДСИсчисляетсяНалоговымАгентом(); ВсегоНДС = НСтр("ru='-'"); ИначеЕсли СуммаНДС <> 0 Тогда НДС = ?(СведенияОДокументе.СуммаВключаетНДС, НСтр("ru='В том числе НДС:'"), НСтр("ru='Сумма НДС:'")); ВсегоНДС = ОбщегоНазначенияБПВызовСервера.ФорматСумм(СуммаНДС); Иначе НДС = НСтр("ru='Без налога (НДС)'"); ВсегоНДС = НСтр("ru='-'"); КонецЕсли; ДанныеЗаполненияНДС = Новый Структура("НДС, ВсегоНДС", НДС, ВсегоНДС); СуммаКОплате = Сумма + ?(СведенияОДокументе.СуммаВключаетНДС, 0, СуммаНДС); ИтогоКОплате = ОбщегоНазначенияБПВызовСервера.ФорматСумм(СуммаКОплате); ДанныеЗаполненияИтогоКОплате = Новый Структура("ИтогоКОплате", ИтогоКОплате); Если ЗначениеЗаполнено(Макет.Области.Найти("Скидка")) Тогда ОбластьИтого = Макет.ПолучитьОбласть("Итого"); ОбластьИтого.Параметры.Заполнить(ДанныеЗаполненияИтого); ТабличныйДокумент.Вывести(ОбластьИтого); // Вывести ИтогоНДС ОбластьИтогоНДС = Макет.ПолучитьОбласть("ИтогоНДС"); ОбластьИтогоНДС.Параметры.Заполнить(ДанныеЗаполненияНДС); ТабличныйДокумент.Вывести(ОбластьИтогоНДС); // Вывести ИтогоКОплате ОбластьИтогоКОплате = Макет.ПолучитьОбласть("ИтогоКОплате"); ОбластьИтогоКОплате.Параметры.Заполнить(ДанныеЗаполненияИтогоКОплате); ТабличныйДокумент.Вывести(ОбластьИтогоКОплате); Иначе // В случае если используется пользовательский макет - используем вертикальные названия областей. ОбластьНомера = Макет.ПолучитьОбласть("Итого|НомерСтроки"); ОбластьКодов = Макет.ПолучитьОбласть("Итого|КолонкаКодов"); ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные"); ОбластьСумма = Макет.ПолучитьОбласть("Итого|Сумма"); ТабличныйДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ТабличныйДокумент.Присоединить(ОбластьКодов); КонецЕсли; ТабличныйДокумент.Присоединить(ОбластьДанных); ОбластьСумма.Параметры.Заполнить(ДанныеЗаполненияИтого); ТабличныйДокумент.Присоединить(ОбластьСумма); // Вывести ИтогоНДС ОбластьНомера = Макет.ПолучитьОбласть("ИтогоНДС|НомерСтроки"); ОбластьКодов = Макет.ПолучитьОбласть("ИтогоНДС|КолонкаКодов"); ОбластьДанных = Макет.ПолучитьОбласть("ИтогоНДС|Данные"); ОбластьСуммы = Макет.ПолучитьОбласть("ИтогоНДС|Сумма"); ТабличныйДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ТабличныйДокумент.Присоединить(ОбластьКодов); КонецЕсли; ОбластьДанных.Параметры.Заполнить(ДанныеЗаполненияНДС); ОбластьСуммы.Параметры.Заполнить(ДанныеЗаполненияНДС); ТабличныйДокумент.Присоединить(ОбластьДанных); ТабличныйДокумент.Присоединить(ОбластьСуммы); // Вывести ИтогоКОплате ОбластьНомера = Макет.ПолучитьОбласть("ИтогоКОплате|НомерСтроки"); ОбластьКодов = Макет.ПолучитьОбласть("ИтогоКОплате|КолонкаКодов"); ОбластьДанных = Макет.ПолучитьОбласть("ИтогоКОплате|Данные"); ОбластьСуммы = Макет.ПолучитьОбласть("ИтогоКОплате|Сумма"); ТабличныйДокумент.Вывести(ОбластьНомера); Если ВыводитьКоды Тогда ТабличныйДокумент.Присоединить(ОбластьКодов); КонецЕсли; ТабличныйДокумент.Присоединить(ОбластьДанных); ОбластьСуммы.Параметры.Заполнить(ДанныеЗаполненияИтогоКОплате); ТабличныйДокумент.Присоединить(ОбластьСуммы); КонецЕсли; // Вывести Сумму прописью ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью"); ДанныеПечатиСуммаПрописью = Новый Структура("ИтоговаяСтрока, СуммаПрописью"); СуммаКПрописи = Сумма + ?(СведенияОДокументе.СуммаВключаетНДС, 0, СуммаНДС); ДанныеПечатиСуммаПрописью.ИтоговаяСтрока = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru='Всего наименований %1, на сумму %2'"), НомерСтроки, ОбщегоНазначенияБПВызовСервера.ФорматСумм(СуммаКПрописи, СведенияОДокументе.Валюта)); ДанныеПечатиСуммаПрописью.СуммаПрописью = ОбщегоНазначенияБПВызовСервера.СформироватьСуммуПрописью(СуммаКПрописи, СведенияОДокументе.Валюта); ОбластьМакета.Параметры.Заполнить(ДанныеПечатиСуммаПрописью); ТабличныйДокумент.Вывести(ОбластьМакета); //Реквизиты //СоответствиеПараметров.Вставить("ПолноеНаименование", " "); //СоответствиеПараметров.Вставить("СокращенноеНаименование", " "); //СоответствиеПараметров.Вставить("НаименованиеДляПечатныхФорм", " "); //СоответствиеПараметров.Вставить("ИНН", " ИНН "); //СоответствиеПараметров.Вставить("КПП", " КПП "); //СоответствиеПараметров.Вставить("Свидетельство", " "); //СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи", " от "); //СоответствиеПараметров.Вставить("ЮридическийАдрес", " "); //СоответствиеПараметров.Вставить("ФактическийАдрес", " "); //СоответствиеПараметров.Вставить("Телефоны", " тел.: "); //СоответствиеПараметров.Вставить("Факс", " факс: "); //СоответствиеПараметров.Вставить("НомерСчета", " р/с "); //СоответствиеПараметров.Вставить("Банк", " в банке "); //СоответствиеПараметров.Вставить("БИК", " БИК "); //СоответствиеПараметров.Вставить("КоррСчет", " к/с "); //СоответствиеПараметров.Вставить("КодПоОКПО", " Код по ОКПО "); // ОбластьМакета = Макет.ПолучитьОбласть("Реквизиты"); // НаименованиеДляПечатныхФорм,ИНН,КПП,ЮридическийАдрес,Телефоны, ОтветственныеЛицаЗаказчика = ОтветственныеЛицаБП.ОтветственныеЛица(СведенияОДокументе.Покупатель, СведенияОДокументе.ДатаДокумента); ОбластьМакета.Параметры.Заказчик = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе,"ПолноеНаименование"); ОбластьМакета.Параметры.ЗаказчикИНН = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе,"ИНН"); Если СтрДлина(СведенияОДокументе.Покупатель.ИНН)>10 Тогда //ОбластьМакета.Параметры.ЗаказчикКПП = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе,"КПП"); ОбластьМакета.Параметры.ЗаказчикКПП = "ОГРНИП: "+СведенияОДокументе.Покупатель.РегистрационныйНомер; Иначе ОбластьМакета.Параметры.ЗаказчикКПП = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе,"КПП"); КонецЕсли; ОбластьМакета.Параметры.АдресЗаказчика = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе,"ЮридическийАдрес"); ОбластьМакета.Параметры.ЗаказчикТел = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны"); ОбластьМакета.Параметры.ЗаказчикДолжность = СведенияОДокументе.ДоговорКонтрагента.ДолжностьРуководителяКонтрагента; ОбластьМакета.Параметры.ЗаказчикРуководитель = СведенияОДокументе.ДоговорКонтрагента.РуководительКонтрагента; ОтветственныеЛицаОрганизации = ОтветственныеЛицаБП.ОтветственныеЛица(СведенияОДокументе.Организация, СведенияОДокументе.ДатаДокумента); ОбластьМакета.Параметры.Исполнитель = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОбОрганизации,"ПолноеНаименование"); ОбластьМакета.Параметры.ИсполнительИНН = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОбОрганизации,"ИНН"); //ОбластьМакета.Параметры.ИсполнительКПП = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОбОрганизации,"КПП"); //ОбластьМакета.Параметры.ИсполнительКПП = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОбОрганизации,"Свидетельство"); Если СтрДлина(СведенияОДокументе.Организация.ИНН)>10 Тогда ОбластьМакета.Параметры.ИсполнительКПП = "ОГРНИП: "+СведенияОДокументе.Организация.ОГРН; Иначе ОбластьМакета.Параметры.ИсполнительКПП = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОбОрганизации,"КПП");; КонецЕсли; ОбластьМакета.Параметры.АдресИсполнителя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОбОрганизации,"ЮридическийАдрес"); ОбластьМакета.Параметры.ИсполнительТел = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОбОрганизации,"Телефоны"); ОбластьМакета.Параметры.ИсполнительДолжность = ОтветственныеЛицаОрганизации.РуководительДолжностьПредставление; ОбластьМакета.Параметры.ИсполнительРуководитель = ОтветственныеЛицаОрганизации.Руководитель; ТабличныйДокумент.Вывести(ОбластьМакета); //ДвоичныеДанныеКартинки = Неопределено; // //ДобавленОтступПередДопУсловиями = Ложь; // Срок оплаты //Если СведенияОДокументе.СрокОплаты <> Дата(1,1,1) И //СрокОплаты = СрокиОплатыДокументов.СрокОплатыСчетаПокупателю(СведенияОДокументе.Документ, СведенияОДокументе.Документ.Дата); //Если СрокОплаты <> Дата(1,1,1) И // ЗначениеЗаполнено(Макет.Области.Найти("СрокОплаты")) Тогда // // // Добавим отступ перед текстом // Если ЗначениеЗаполнено(Макет.Области.Найти("ДополнительныеУсловияОтступ")) Тогда // ОбластьМакетаОтступ = Макет.ПолучитьОбласть("ДополнительныеУсловияОтступ"); // ТабличныйДокумент.Вывести(ОбластьМакетаОтступ); // ДобавленОтступПередДопУсловиями = Истина; // КонецЕсли; // // ОбластьМакета = Макет.ПолучитьОбласть("СрокОплаты"); // СтруктураПараметров = Новый Структура("СрокОплаты", Формат(СведенияОДокументе.СрокОплаты, "ДФ=dd.MM.yyyy")); // ОбластьМакета.Параметры.Заполнить(СтруктураПараметров); // ТабличныйДокумент.Вывести(ОбластьМакета); // //КонецЕсли; //// Дополнительные условия //Если НЕ ПустаяСтрока(СведенияОДокументе.ТекстДополнительныхУсловий) // И ЗначениеЗаполнено(Макет.Области.Найти("ДополнительныеУсловия")) Тогда // // // Добавим отступ перед текстом // Если НЕ ДобавленОтступПередДопУсловиями И // ЗначениеЗаполнено(Макет.Области.Найти("ДополнительныеУсловияОтступ")) Тогда // ОбластьМакетаОтступ = Макет.ПолучитьОбласть("ДополнительныеУсловияОтступ"); // ТабличныйДокумент.Вывести(ОбластьМакетаОтступ); // КонецЕсли; // // // Выводим построчно многострочный текст // // для того, чтобы корректно печатались длинные тексты // ОбластьМакета = Макет.ПолучитьОбласть("ДополнительныеУсловия"); // ТекстДополнительныхУсловий = СведенияОДокументе.ТекстДополнительныхУсловий; // ЧислоСтрокТекста = СтрЧислоСтрок(ТекстДополнительныхУсловий); // Для СчетчикСтрок = 1 По ЧислоСтрокТекста Цикл // СтруктураПараметров = Новый Структура("ТекстДополнительныхУсловий", СтрПолучитьСтроку(ТекстДополнительныхУсловий, СчетчикСтрок)); // ОбластьМакета.Параметры.Заполнить(СтруктураПараметров); // ТабличныйДокумент.Вывести(ОбластьМакета); // КонецЦикла; //КонецЕсли; //// Вывести подписи //СПечатью = Истина; //Если СПечатью Тогда // // ДвоичныеДанныеФаксимиле = Справочники.Организации.ДвоичныеДанныеКартинкиОрганизации(СведенияОДокументе.Организация, "ФайлФаксимильнаяПечать"); // ДвоичныеДанныеПечати = Справочники.Организации.ДвоичныеДанныеКартинкиОрганизации(СведенияОДокументе.Организация, "ФайлПечать"); // ДвоичныеДанныеПодписьРуководителя = Справочники.Организации.ДвоичныеДанныеКартинкиОрганизации(СведенияОДокументе.Организация, "ФайлПодписьРуководителя"); // ДвоичныеДанныеПодписьГлавногоБухгалтера = Справочники.Организации.ДвоичныеДанныеКартинкиОрганизации(СведенияОДокументе.Организация, "ФайлПодписьГлавногоБухгалтера"); // //КонецЕсли; // //Если ЗначениеЗаполнено(ДвоичныеДанныеПечати) // ИЛИ ЗначениеЗаполнено(ДвоичныеДанныеПодписьРуководителя) // ИЛИ ЗначениеЗаполнено(ДвоичныеДанныеПодписьГлавногоБухгалтера) Тогда // // // Подставляем подписи только ответственных лиц // ОтветственныеЛицаОрганизации = ОтветственныеЛицаБП.ОтветственныеЛица(СведенияОДокументе.Организация, СведенияОДокументе.ДатаДокумента); // // // В случае если счет выставляет предприниматель, который свои полномочия никому не делегировал - выводим специальный подвал документа // Если СведенияОПолучателе.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо // И (НЕ ЗначениеЗаполнено(СведенияОДокументе.РуководительФИО) // ИЛИ СведенияОДокументе.Руководитель = СведенияОПолучателе.ИндивидуальныйПредприниматель // ИЛИ ЗначениеЗаполнено(ДвоичныеДанныеПодписьРуководителя)) Тогда // // Если ЗначениеЗаполнено(Макет.Области.Найти("ПодвалСчетаПредпринимательСПодписьюИПечатью")) Тогда // ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаПредпринимательСПодписьюИПечатью"); // ОбластьМакета.Рисунки.ПечатьПредпринимателя.Картинка = Новый Картинка(ДвоичныеДанныеПечати); // ОбластьМакета.Рисунки.ПодписьПредпринимателя.Картинка = Новый Картинка(ДвоичныеДанныеПодписьРуководителя); // Иначе // ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаПредприниматель"); // КонецЕсли; // // ОбластьМакета.Параметры.Заполнить(Новый Структура("ФИОПредпринимателя", СведенияОПолучателе.ФамилияИнициалыФизлица)); // Иначе // ДанныеПечатиПодвалСчета = Новый Структура; // // Если ЗначениеЗаполнено(Макет.Области.Найти("ПодвалСчетаСПодписьюИПечатью")) Тогда // ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаСПодписьюИПечатью"); // ОбластьМакета.Рисунки.Печать.Картинка = Новый Картинка(ДвоичныеДанныеПечати); // // В случае если используется факсимильная подпись выводим только данные ответственных лиц // Если ЗначениеЗаполнено(ДвоичныеДанныеПодписьРуководителя) Тогда // СведенияОДокументе.Руководитель = ОтветственныеЛицаОрганизации.Руководитель; // СведенияОДокументе.РуководительФИО = ОтветственныеЛицаОрганизации.РуководительПредставление; // ОбластьМакета.Рисунки.ПодписьРуководителя.Картинка = Новый Картинка(ДвоичныеДанныеПодписьРуководителя); // Иначе // ДанныеПечатиПодвалСчета.Вставить("ЗаРуководителяПоПриказу", СведенияОДокументе.ЗаРуководителяНаОснованииНаименование); // КонецЕсли; // Если ЗначениеЗаполнено(ДвоичныеДанныеПодписьГлавногоБухгалтера) Тогда // СведенияОДокументе.ГлавныйБухгалтер = ОтветственныеЛицаОрганизации.ГлавныйБухгалтер; // СведенияОДокументе.ГлавныйБухгалтерФИО = ОтветственныеЛицаОрганизации.ГлавныйБухгалтерПредставление; // ОбластьМакета.Рисунки.ПодписьГлавногоБухгалтера.Картинка = Новый Картинка(ДвоичныеДанныеПодписьГлавногоБухгалтера); // Иначе // ДанныеПечатиПодвалСчета.Вставить("ЗаГлавногоБухгалтераПоПриказу", СведенияОДокументе.ЗаГлавногоБухгалтераНаОснованииНаименование); // КонецЕсли; // Иначе // ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета"); // КонецЕсли; // // ДанныеПечатиПодвалСчета.Вставить("ФИОРуководителя", СведенияОДокументе.РуководительФИО); // ДанныеПечатиПодвалСчета.Вставить("ФИОБухгалтера", СведенияОДокументе.ГлавныйБухгалтерФИО); // ОбластьМакета.Параметры.Заполнить(ДанныеПечатиПодвалСчета); // КонецЕсли; //ИначеЕсли ЗначениеЗаполнено(ДвоичныеДанныеФаксимиле) // И ЗначениеЗаполнено(Макет.Области.Найти("ПодвалСчетаСФаксимильнойПечатью")) Тогда // ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаСФаксимильнойПечатью"); // ОбластьМакета.Рисунки.ФаксимильнаяПечать.Картинка = Новый Картинка(ДвоичныеДанныеФаксимиле); //Иначе // ДанныеПечатиПодвалСчета = Новый Структура; // // // В случае если счет выставляет предприниматель, который свои полномочия никому не делегировал - выводим специальный подвал документа // Если СведенияОПолучателе.ЮридическоеФизическоеЛицо = Перечисления.ЮридическоеФизическоеЛицо.ФизическоеЛицо // И (НЕ ЗначениеЗаполнено(СведенияОДокументе.РуководительФИО) // ИЛИ СведенияОДокументе.Руководитель = СведенияОПолучателе.ИндивидуальныйПредприниматель) Тогда // ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаПредприниматель"); // // ДанныеПечатиПодвалСчета.Вставить("ФИОПредпринимателя", СведенияОПолучателе.ФамилияИнициалыФизлица); // Иначе // ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета"); // // ДанныеПечатиПодвалСчета.Вставить("ФИОРуководителя", СведенияОДокументе.РуководительФИО); // ДанныеПечатиПодвалСчета.Вставить("ФИОБухгалтера", СведенияОДокументе.ГлавныйБухгалтерФИО); // ДанныеПечатиПодвалСчета.Вставить("ЗаРуководителяПоПриказу", СведенияОДокументе.ЗаРуководителяНаОснованииНаименование); // ДанныеПечатиПодвалСчета.Вставить("ЗаГлавногоБухгалтераПоПриказу", СведенияОДокументе.ЗаГлавногоБухгалтераНаОснованииНаименование); // КонецЕсли; // // ОбластьМакета.Параметры.Заполнить(ДанныеПечатиПодвалСчета); //КонецЕсли; //ОбластьМакета.Параметры.Заполнить(СведенияОДокументе); //ТабличныйДокумент.Вывести(ОбластьМакета); //// В табличном документе зададим имя области, в которую был //// выведен объект. Нужно для возможности печати покомплектно. //УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, // НомерСтрокиНачало, ОбъектыПечати, СведенияОДокументе.Документ); //мк+ мкСписокДокументов = Новый СписокЗначений; мкСписокДокументов.Добавить(СведенияОДокументе.Документ); УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, мкСписокДокументов, СведенияОДокументе.Документ); //мк- КонецЦикла; Возврат ТабличныйДокумент; КонецФункции Функция ПолучитьТекстЗапросаДляФормированияТаблицыСведенийСчетаНаОпл ЧастьЗапросаДляВыбораСодержанияУслуг = ОбщегоНазначенияБПВызовСервера.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг("СчетНаОплату"); ТекстЗапроса = "ВЫБРАТЬ | СчетНаОплату.Ссылка КАК Ссылка, | СчетНаОплату.Дата КАК ДатаДокумента, | СчетНаОплату.СуммаВключаетНДС КАК СуммаВключаетНДС |ПОМЕСТИТЬ ДокументыДляПечати |ИЗ | Документ.СчетНаОплатуПокупателю КАК СчетНаОплату |ГДЕ | СчетНаОплату.Ссылка В(&МассивДокументов) | |ИНДЕКСИРОВАТЬ ПО | Ссылка |; | |//////////////////////////////////////////////////////////// |ВЫБРАТЬ | СчетНаОплату.Ссылка КАК Документ, | СчетНаОплату.Дата КАК ДатаДляПолученияСведений, | ДанныеПервичныхДокументов.Номер КАК НомерДокумента, | ДанныеПервичныхДокументов.Дата КАК ДатаДокумента, | СчетНаОплату.ВалютаДокумента КАК Валюта, | СчетНаОплату.ВалютаДокумента.Код КАК ВалютаКод, | СчетНаОплату.ВалютаДокумента.Наименование КАК ВалютаНаименование, | СчетНаОплату.СуммаДокумента КАК СуммаДокумента, | СчетНаОплату.СуммаДокумента КАК СрокОплаты, | СчетНаОплату.КратностьВзаиморасчетов КАК КратностьВзаиморасчетов, | СчетНаОплату.КурсВзаиморасчетов КАК КурсВзаиморасчетов, | СчетНаОплату.СуммаВключаетНДС КАК СуммаВключаетНДС, | СчетНаОплату.Организация КАК Организация, | СчетНаОплату.ПодразделениеОрганизации КАК Подразделение, | СчетНаОплату.Организация КАК Поставщик, | СчетНаОплату.Контрагент КАК Покупатель, | СчетНаОплату.Организация КАК Получатель, | СчетНаОплату.ДоговорКонтрагента КАК ДоговорКонтрагента, | СчетНаОплату.СтруктурнаяЕдиница КАК БанковскийСчетПродавца, | СчетНаОплату.СтруктурнаяЕдиница.ТекстКорреспондента КАК ТекстКорреспондента, | СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов КАК БанкДляРасчетов, | ВЫБОР | КОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов <> ЗНАЧЕНИЕ(Справочник.Банки.ПустаяСсылка) | ТОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов.Наименование + "" "" + СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов.Город | ИНАЧЕ СчетНаОплату.СтруктурнаяЕдиница.Банк.Наименование + "" "" + СчетНаОплату.СтруктурнаяЕдиница.Банк.Город | КОНЕЦ КАК НаименованиеБанкаПолучателя, | ВЫБОР | КОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов <> ЗНАЧЕНИЕ(Справочник.Банки.ПустаяСсылка) | ТОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов | ИНАЧЕ СчетНаОплату.СтруктурнаяЕдиница.Банк | КОНЕЦ КАК БанкПолучателя, | ВЫБОР | КОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов <> ЗНАЧЕНИЕ(Справочник.Банки.ПустаяСсылка) | ТОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов.Код | ИНАЧЕ СчетНаОплату.СтруктурнаяЕдиница.Банк.Код | КОНЕЦ КАК БикБанкаПолучателя, | ВЫБОР | КОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов <> ЗНАЧЕНИЕ(Справочник.Банки.ПустаяСсылка) | ТОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов.КоррСчет | ИНАЧЕ СчетНаОплату.СтруктурнаяЕдиница.Банк.КоррСчет | КОНЕЦ КАК СчетБанкаПолучателя, | ВЫБОР | КОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов <> ЗНАЧЕНИЕ(Справочник.Банки.ПустаяСсылка) | ТОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов.Город | ИНАЧЕ СчетНаОплату.СтруктурнаяЕдиница.Банк.Город | КОНЕЦ КАК ГородБанкаПолучателя, | ВЫБОР | КОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов <> ЗНАЧЕНИЕ(Справочник.Банки.ПустаяСсылка) | ТОГДА СчетНаОплату.СтруктурнаяЕдиница.Банк.КоррСчет | ИНАЧЕ СчетНаОплату.СтруктурнаяЕдиница.НомерСчета | КОНЕЦ КАК НомерСчетаПолучателя, | ВЫБОР | КОГДА СчетНаОплату.СтруктурнаяЕдиница.БанкДляРасчетов <> ЗНАЧЕНИЕ(Справочник.Банки.ПустаяСсылка) | ТОГДА "" р/с "" + СчетНаОплату.СтруктурнаяЕдиница.НомерСчета + "" в "" + СчетНаОплату.СтруктурнаяЕдиница.Банк.Наименование + "" "" + СчетНаОплату.СтруктурнаяЕдиница.Банк.Город | КОНЕЦ КАК БанкТекстКорресподента, | СчетНаОплату.СтруктурнаяЕдиница.НомерСчета КАК НомерСчета, | СчетНаОплату.СтруктурнаяЕдиница.Банк.Наименование КАК БанкНаименование, | СчетНаОплату.СтруктурнаяЕдиница.Банк.Код КАК БИК, | СчетНаОплату.СтруктурнаяЕдиница.Банк.КоррСчет КАК КоррСчет |ИЗ | Документ.СчетНаОплатуПокупателю КАК СчетНаОплату | ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ДанныеПервичныхДокументов КАК ДанныеПервичныхДокументов | ПО СчетНаОплату.Ссылка = ДанныеПервичныхДокументов.Документ | И СчетНаОплату.Организация = ДанныеПервичныхДокументов.Организация |ГДЕ | СчетНаОплату.Ссылка В | (ВЫБРАТЬ | ДокументыДляПечати.Ссылка | ИЗ | ДокументыДляПечати КАК ДокументыДляПечати) |; | |//////////////////////////////////////////////////////////// |ВЫБРАТЬ | СчетНаОплату.Ссылка КАК Документ, | ДокументыДляПечати.ДатаДокумента КАК ДатаДокумента, | ЗНАЧЕНИЕ(Перечисление.ТабличныеЧастиДокументов.Товары) КАК ТабличнаяЧасть, | 1 КАК ПорядокТабличнойЧасти, | СчетНаОплату.НомерСтроки КАК НомерСтроки, | СчетНаОплату.Номенклатура КАК Номенклатура, | СчетНаОплату.Номенклатура.Услуга КАК ЭтоУслуга, | ВЫБОР | КОГДА &ДополнительнаяКолонкаПечатныхФормДокументов = ЗНАЧЕНИЕ(Перечисление.ДополнительнаяКолонкаПечатныхФормДокументов.Код) | ТОГДА СчетНаОплату.Номенклатура.Код | КОГДА &ДополнительнаяКолонкаПечатныхФормДокументов = ЗНАЧЕНИЕ(Перечисление.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул) | ТОГДА СчетНаОплату.Номенклатура.Артикул | ИНАЧЕ """" | КОНЕЦ КАК НоменклатураАртикул, | &ЧастьЗапросаДляВыбораСодержанияУслуг КАК НоменклатураНаименование, | &ЧастьЗапросаДляВыбораСодержанияУслуг КАК Содержание, | ЕСТЬNULL(СчетНаОплату.Номенклатура.ЕдиницаИзмерения, ЗНАЧЕНИЕ(Справочник.КлассификаторЕдиницИзмерения.ПустаяСсылка)) КАК ЕдиницаИзмерения, | ЕСТЬNULL(СчетНаОплату.Номенклатура.ЕдиницаИзмерения.Код, """") КАК ЕдиницаИзмеренияКод, | ЕСТЬNULL(СчетНаОплату.Номенклатура.ЕдиницаИзмерения.Наименование, """") КАК ЕдиницаИзмеренияНаименование, | ЕСТЬNULL(СчетНаОплату.Номенклатура.ЕдиницаИзмерения.НаименованиеПолное, """") КАК ЕдиницаИзмеренияНаименованиеПолное, | СчетНаОплату.Количество КАК Количество, | СчетНаОплату.ВысотаКАК Высота, | СчетНаОплату.Цена КАК Цена, | СчетНаОплату.Сумма КАК Сумма, | СчетНаОплату.СтавкаНДС КАК СтавкаНДС, | СчетНаОплату.СуммаНДС КАК СуммаНДС |ИЗ | Документ.СчетНаОплатуПокупателю.Товары КАК СчетНаОплату | ВНУТРЕННЕЕ СОЕДИНЕНИЕ ДокументыДляПечати КАК ДокументыДляПечати | ПО СчетНаОплату.Ссылка = ДокументыДляПечати.Ссылка | |УПОРЯДОЧИТЬ ПО | ДатаДокумента, | Документ, | ПорядокТабличнойЧасти, | НомерСтроки"; Возврат СтрЗаменить(ТекстЗапроса, "&ЧастьЗапросаДляВыбораСодержанияУслуг", ЧастьЗапросаДляВыбораСодержанияУслуг); КонецФункции Функция ПолучитьТаблицуСведенийСчетаНаОплату(Знач МассивДокументов, ДокументыБезСчетовНаОплату = Неопределено) Экспорт ТаблицаСведений = ПечатьТорговыхДокументов.ПолучитьОписаниеСчетаНаОплату(); Запрос = Новый Запрос; Запрос.УстановитьПараметр("МассивДокументов", МассивДокументов); Запрос.УстановитьПараметр("ДополнительнаяКолонкаПечатныхФормДокументов", Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить()); Запрос.Текст = ПолучитьТекстЗапросаДляФормированияТаблицыСведенийСчетаНаОпл РезультатЗапроса = Запрос.ВыполнитьПакет(); Выборка = РезультатЗапроса[1].Выбрать(); СтрокиДокументов = РезультатЗапроса[2].Выгрузить(); СтрокиДокументов.Индексы.Добавить("Документ"); Пока Выборка.Следующий() Цикл СведенияОДокументе = ТаблицаСведений.Добавить(); ЗаполнитьЗначенияСвойств(СведенияОДокументе, Выборка); ТаблицаДокумента = ПечатьТорговыхДокументов.ПолучитьОписаниеТаблицыСчетаНаОплату(); Отбор = Новый Структура("Документ", Выборка.Документ); СтрокиДокумента = СтрокиДокументов.НайтиСтроки(Отбор); Для Каждого Строка Из СтрокиДокумента Цикл СтрокаТаблицыДокумента = ТаблицаДокумента.Добавить(); ЗаполнитьЗначенияСвойств(СтрокаТаблицыДокумента, Строка); КонецЦикла; СведенияОДокументе.ТаблицаДокумента = ТаблицаДокумента; КонецЦикла; Возврат ТаблицаСведений; КонецФункции |
ругается на
ДанныеПечатиСтрокаОбластьДанных.Вставить("Высота", Строка.Высота);
Соответвенно пытаюсь вставить в строка данные сделал дополнительную колонку
Прикрепленные файлы:

По теме из базы знаний
- Создание внешних печатных форм под управляемым приложением с нуля
- Некоторые особенности БП 3.0
- Две или несколько касс ККМ Розница 2.3 + Честный знак + Принтер чеков
- Выгрузка УПД в формате ЭДО для Бухгалтерии 7.7 (ПУБ 7.7, УСН 7.7, ТиС 7.7, Комплексной 7.7)
- Промышленное тестирование конфигураций в 1С
Найденные решения
СведенияСчетаНаОплату = ПолучитьТаблицуСведенийСчетаНаОплату(ОбъектыПечати);
Для Каждого СведенияОДокументе Из СведенияСчетаНаОплату Цикл
...
Для Каждого Строка Из СведенияОДокументе.ТаблицаДокумента Цикл
...
ДанныеПечатиСтрокаОбластьДанных.Вставить("Высота", Строка.Высота);
значит Высота должна быть в ТаблицаДокумента
структура ТаблицаДокумента задается так:
ТаблицаДокумента = ПечатьТорговыхДокументов.ПолучитьОписаниеТаблицыСчетаНаОплату();
Значит надо смотреть вышеуказанную функцию и добавлять там новую колонку Высота.
Для Каждого СведенияОДокументе Из СведенияСчетаНаОплату Цикл
...
Для Каждого Строка Из СведенияОДокументе.ТаблицаДокумента Цикл
...
ДанныеПечатиСтрокаОбластьДанных.Вставить("Высота", Строка.Высота);
значит Высота должна быть в ТаблицаДокумента
структура ТаблицаДокумента задается так:
ТаблицаДокумента = ПечатьТорговыхДокументов.ПолучитьОписаниеТаблицыСчетаНаОплату();
Значит надо смотреть вышеуказанную функцию и добавлять там новую колонку Высота.
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
СведенияСчетаНаОплату = ПолучитьТаблицуСведенийСчетаНаОплату(ОбъектыПечати);
Для Каждого СведенияОДокументе Из СведенияСчетаНаОплату Цикл
...
Для Каждого Строка Из СведенияОДокументе.ТаблицаДокумента Цикл
...
ДанныеПечатиСтрокаОбластьДанных.Вставить("Высота", Строка.Высота);
значит Высота должна быть в ТаблицаДокумента
структура ТаблицаДокумента задается так:
ТаблицаДокумента = ПечатьТорговыхДокументов.ПолучитьОписаниеТаблицыСчетаНаОплату();
Значит надо смотреть вышеуказанную функцию и добавлять там новую колонку Высота.
Для Каждого СведенияОДокументе Из СведенияСчетаНаОплату Цикл
...
Для Каждого Строка Из СведенияОДокументе.ТаблицаДокумента Цикл
...
ДанныеПечатиСтрокаОбластьДанных.Вставить("Высота", Строка.Высота);
значит Высота должна быть в ТаблицаДокумента
структура ТаблицаДокумента задается так:
ТаблицаДокумента = ПечатьТорговыхДокументов.ПолучитьОписаниеТаблицыСчетаНаОплату();
Значит надо смотреть вышеуказанную функцию и добавлять там новую колонку Высота.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот