Цитата(Bernet @ 08.11.22, 17:42)
Проверьте влазит ли картинка в вашу область (не выходит ли за рамки области)
не выходят за рамки области.
В макете всего 2 области "ТелоДоговора" и "ПечатьИПодписи". в области "ПечатьИПодписи" 2 картинки "печать" и "подпись" организации. Хочу добиться чтобы на каждом листе договора выводило эти картинки. ПроверитьВывод почему то не дает результата, выводит на последнем листе.
Вот код:
ТабличныйДокумент = Новый ТабличныйДокумент;
ТабличныйДокумент.АвтоМасштаб = Истина;
ТабличныйДокумент.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
Макет = ПолучитьМакет("ПФ_MXL_ДоговорБезНДС");
ПервыйДокумент = Истина;
Для каждого Ссылка Из МассивОбъектов Цикл
Если Не ПервыйДокумент Тогда
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ПервыйДокумент = Ложь;
// Запомним номер строки, с которой начали выводить текущий документ.
НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
ЗапросШапка.УстановитьПараметр("ТекущийДокумент", Ссылка);
Шапка = ЗапросШапка.Выполнить().Выбрать();
Шапка.Следующий();
УчитыватьНДС = УчетнаяПолитика.ПлательщикНДС(Шапка.Организация, Шапка.Дата);
ОбластьТелоДоговора = Макет.ПолучитьОбласть("ТелоДоговора");
ОбластьТелоДоговора.Параметры.НомерДок = Формат(Шапка.ДоговорКонтрагента.Номер,"Л=uk; ДЛФ=DD" );
ОбластьТелоДоговора.Параметры.ДатаРеализации = Формат(Шапка.ДоговорКонтрагента.Дата,"Л=uk; ДЛФ=DD" );
СведенияОПоставщике = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата,,,);
СведенияОПокупателе = БухгалтерскийУчетПереопределяемый.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата,,,);
ОбластьТелоДоговора.Параметры.НаимПокупателя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе, "/,ПолноеНаименование,",,);
ОбластьТелоДоговора.Параметры.НаимОрганизации = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПоставщике, "/,ПолноеНаименование,",,);
РуководителиОрганизации = ОтветственныеЛицаБП.ОтветственныеЛица(Шапка.Организация, Шапка.Дата);
РуководителиКонтрагента = ОтветственныеЛицаБП.ОтветственныеЛицаКонтрагента(Шапка.Покупатель, Шапка.Дата);
Если ЗначениеЗаполнено(РуководителиОрганизации.РуководительФИО) Тогда
ОбластьТелоДоговора.Параметры.ФИОРуководитель = ОбщегоНазначенияБПВызовСервера.ПолучитьФамилиюИмяОтчество(РуководителиОрганизации.РуководительФИО.Фамилия,
РуководителиОрганизации.РуководительФИО.Имя, РуководителиОрганизации.РуководительФИО.Отчество, Ложь);
КонецЕсли;
Если ЗначениеЗаполнено(РуководителиКонтрагента.РуководительФИО) Тогда
ОбластьТелоДоговора.Параметры.ФИОРуководительПокупателя = ОбщегоНазначенияБПВызовСервера.ПолучитьФамилиюИмяОтчество(РуководителиКонтрагента.РуководительФИО.Фамилия,
РуководителиКонтрагента.РуководительФИО.Имя, РуководителиКонтрагента.РуководительФИО.Отчество, Ложь);
КонецЕсли;
ОбластьТелоДоговора.Параметры.ПочтаОрганизации = БухгалтерскийУчетПереопределяемый.ПолучитьEmailИзКонтактнойИнформации(Шапка.Организация);
ОбластьТелоДоговора.Параметры.ПочтаПокупателя = БухгалтерскийУчетПереопределяемый.ПолучитьEmailИзКонтактнойИнформации(Шапка.Покупатель);
ОбластьТелоДоговора.Параметры.НаимПокупателя = Шапка.Покупатель.Наименование;
ОбластьТелоДоговора.Параметры.НаимОрганизации = Шапка.Организация.Наименование;
ОбластьТелоДоговора.Параметры.ПочтовыйАдресПокупателя = БухгалтерскийУчетПереопределяемый.ПолучитьАдресИзКонтактнойИнформации(Шапка.Покупатель,"Почтовый");
ОбластьТелоДоговора.Параметры.ПочтовыйАдрес = БухгалтерскийУчетПереопределяемый.ПолучитьАдресИзКонтактнойИнформации(Шапка.Организация,"Почтовый");
ОбластьТелоДоговора.Параметры.ЮрАдресПокупателя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе, "/,ЮридическийАдрес,",,);
ОбластьТелоДоговора.Параметры.ЮрАдрес = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПоставщике, "/,ЮридическийАдрес,",,);
ОбластьТелоДоговора.Параметры.ЕДРПОУПокупателя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе, "/,КодПоЕДРПОУ,",,);
ОбластьТелоДоговора.Параметры.ЕДРПОУ = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПоставщике, "/,КодПоЕДРПОУ,",,);
ОбластьТелоДоговора.Параметры.БанкПокупателя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе, "/,НомерСчета,Банк,МФО,",,);
ОбластьТелоДоговора.Параметры.Банк = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПоставщике, "/,НомерСчета,Банк,МФО,",,);
ОбластьТелоДоговора.Параметры.Телефон = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе, "/,Телефоны,",,);
ОбластьТелоДоговора.Параметры.ИПН = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПокупателе, "/,ИНН,",,);
ОбластьТелоДоговора.Параметры.ИПНПокупателя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОПоставщике, "/,ИНН,",,);
ОбластьТелоДоговора.Параметры.ПочтаОрганизации = БухгалтерскийУчетПереопределяемый.ПолучитьEmailИзКонтактнойИнформации(Шапка.Организация);
ОбластьТелоДоговора.Параметры.ПочтаПокупателя = БухгалтерскийУчетПереопределяемый.ПолучитьEmailИзКонтактнойИнформации(Шапка.Покупатель);
//ТабличныйДокумент.Вывести(ОбластьТелоДоговора);
ОбластьПодписи = Макет.ПолучитьОбласть("ПечатьИПодпись");
ДанныеКартинкиПечать = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.ФайлФаксимильнаяПечать);
ДанныеКартинкиПодпись = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.ФайлФаксимильнаяПодпись);
Если Не ДанныеКартинкиПечать = Неопределено Тогда
ОбластьПодписи.Области.Печать.Картинка = Новый Картинка(ДанныеКартинкиПечать.ДвоичныеДанные);
КонецЕсли;
Если Не ДанныеКартинкиПодпись = Неопределено Тогда
ОбластьПодписи.Области.Подпись.Картинка = Новый Картинка(ДанныеКартинкиПодпись.ДвоичныеДанные);
КонецЕсли;
Если ЗначениеЗаполнено(РуководителиОрганизации.РуководительФИО) Тогда
ОбластьПодписи.Параметры.Руководитель = Лев(РуководителиОрганизации.РуководительФИО.Имя,1)+". "+Лев(РуководителиОрганизации.РуководительФИО.Отчество,1)+". "+РуководителиОрганизации.РуководительФИО.Фамилия;
КонецЕсли;
Если ЗначениеЗаполнено(РуководителиКонтрагента.РуководительФИО) Тогда
ОбластьПодписи.Параметры.РуководительПокупателя = Лев(РуководителиКонтрагента.РуководительФИО.Имя,1)+". "+Лев(РуководителиКонтрагента.РуководительФИО.Отчество,1)+". "+РуководителиКонтрагента.РуководительФИО.Фамилия;
КонецЕсли;
СтрокаСПодвалом = Новый Массив; // создадим массив для проверки вывода
СтрокаСПодвалом.Добавить(ОбластьТелоДоговора);
СтрокаСПодвалом.Добавить(ОбластьПодписи);
Если НЕ ТабличныйДокумент.ПроверитьВывод(СтрокаСПодвалом) Тогда
ТабличныйДокумент.Вывести(ОбластьТелоДоговора);
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент,НомерСтрокиНачало, ОбъектыПечати, Ссылка);
КонецЦикла;
Возврат ТабличныйДокумент
натолкните на мысль. Знаю одно что, что-то делаю не так
Сообщение отредактировал denis84 - 09.11.22, 9:58