Показано с 11 по 12 из 12
Тема: Вывести данные на печать
Комбинированный просмотр
-
16.05.2014, 13:19 #1
- Регистрация
- 11.04.2013
- Сообщений
- 17
- Сказал(а) спасибо
- 2
- Поблагодарили 0 раз(а) в 0 сообщениях
сделал немного по другому
PHP код:// Выводим шапку накладной
СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать );
СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать);
Если Тип = "Счет" Тогда
ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование;
ОбластьМакета.Параметры.ЕДРПОУОрганизации = УправлениеКонтактнойИнформацией.ПолучитьКодОрганизации(СведенияОПоставщике);
[SIZE=4]Если Не ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда[/SIZE]
Банк = СтруктурнаяЕдиница.Банк;
МФО = Банк.Код;
НомерСчета = СтруктурнаяЕдиница.НомерСчета;
Иначе
// покажем банковские реквизиты основного счета организации
Банк = СведенияОПоставщике.Банк;
МФО = СведенияОПоставщике.МФО;
НомерСчета = СведенияОПоставщике.НомерСчета;
//
[SIZE=4] БанкПокупателя = СведенияОПокупателе.Банк;
МФОПокупателя = СведенияОПокупателе.МФО;
НомерСчетаПокупателя = СведенияОПокупателе.НомерСчета;[/SIZE]
//
КонецЕсли;
ОбластьМакета.Параметры.БанкОрганизации = Банк;
ОбластьМакета.Параметры.МФОБанкаОрганизации = МФО;
ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = НомерСчета;
Если НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером
И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда
ТабДокумент.Вывести(ОбластьМакета);
КонецЕсли;
КонецЕсли;
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда
ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать);
Иначе
ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать);
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
ОбластьМакета.Параметры.Заполнить(Шапка);
ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать);
Если Тип = "Счет" Тогда
ОбластьМакета.Параметры.РеквизитыПоставщика = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС +
ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать);
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
ОбластьМакета.Параметры.Заполнить(Шапка);
ОбластьМакета.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать);
Если Тип = "Счет" Тогда
ОбластьМакета.Параметры.РеквизитыПокупателя = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчетаПокупателя + НСтр("ru=',Банк ';uk=', Банк '",КодЯзыкаПечать) + БанкПокупателя + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФОПокупателя + Символы.ПС +
ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать);
//ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,КодЯзыкаПечать);
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
Код HTML:[SIZE=4]Если Не ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда[/SIZE] [SIZE=4] БанкПокупателя = СведенияОПокупателе.Банк; МФОПокупателя = СведенияОПокупателе.МФО; НомерСчетаПокупателя = СведенияОПокупателе.НомерСчета;[/SIZE]
но, нужно еще спрятать "зразок" полностью часть макета ЗаголовокСчета но, что бы инфа тянулась от туда так как в коде мы поставщика реквизиты берем с параметров области ЗаголовокСчета
---------- Post added at 11:19 ---------- Previous post was at 11:04 ----------
запутал вас ...
изначально макет имел вот такой вид
куда залить картинку
но изначально в покупателя не подтягивались реквизиты банка, выше кодом я добился отображение реквизитов для покупателя но теперь мне нужно убрать часть макета ЗаголовокСчета и иметь ввиду нужно, что часть макета Поставщик берет данные с области макета ЗаголовокСчета
-
16.05.2014, 16:02 #2
- Регистрация
- 11.04.2013
- Сообщений
- 17
- Сказал(а) спасибо
- 2
- Поблагодарили 0 раз(а) в 0 сообщениях
одним словом - работает.
взял за пример счета на оплату поставщика и все ок, спасибо, закрывайте
Социальные закладки