Вывести данные на печать [Архив] - FRB | FORUM RUBOARD - передовые новости IT технологий

Просмотр полной версии : Вывести данные на печать

myr4ik07

15.05.2014, 23:28

Доброго времени суток.
Будьте добры, ну никак не могу добиться вывода на печатную форму выделенные данные, что на снимке
http://s7.hostingkartinok.com/uploads/images/2014/05/12c6fa3629b59b60993572040c3418e6.png (http://hostingkartinok.com/show-image.php?id=12c6fa3629b59b60993572040c3418e6)
имею такой код

// Выводим шапку накладной
СведенияОПокупателе = УправлениеКонтактнойИнфор мацией.СведенияОЮрФизЛице( Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать );
СведенияОПоставщике = УправлениеКонтактнойИнфор мацией.СведенияОЮрФизЛице( Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать );
// отключаем условие (оригинал "Счет"
Если Тип = "Счету" Тогда
ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
ОбластьМакета.Параметры.На званиеОрганизации = СведенияОПоставщике.Полно� �Наименование;
ОбластьМакета.Параметры.ЕД РПОУОрганизации = УправлениеКонтактнойИнфор мацией.ПолучитьКодОрганиз� �ции(СведенияОПоставщике);

Если ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.Банковск� �еСчета") Тогда
Банк = СтруктурнаяЕдиница.Банк;
МФО = Банк.Код;
НомерСчета = СтруктурнаяЕдиница.НомерС� �ета;
//
БанкПок = СтруктурнаяЕдиница.Банк;
МФОПок = Банк.Код;
НомерСчПок = СтруктурнаяЕдиница.НомерС� �ета;
//
Иначе
// покажем банковские реквизиты основного счета организации
Банк = СведенияОПоставщике.Банк;
МФО = СведенияОПоставщике.МФО;
НомерСчета = СведенияОПоставщике.Номер� �чета;
//
БанкПокупателя = СведенияОПокупателе.Банк;
МФОПокупателя = СведенияОПокупателе.МФО;
НомерСчетаПокупателя = СведенияОПокупателе.Номер� �чета;
//
КонецЕсли;

ОбластьМакета.Параметры.Ба нкОрганизации = Банк;
ОбластьМакета.Параметры.МФ ОБанкаОрганизации = МФО;
ОбластьМакета.Параметры.Но мерРасчетногоСчетаОрганиз ации = НомерСчета;

Если НЕ Шапка.ВидДоговораКонтраге� �та = Перечисления.ВидыДоговоро� �Контрагентов.СКомиссионер ом
И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированног оУчета Тогда
ТабДокумент.Вывести(Област ьМакета);
КонецЕсли;

КонецЕсли;

ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
Если Шапка.ВидДоговораКонтраге� �та = Перечисления.ВидыДоговоро� �Контрагентов.СКомиссионер ом Тогда
ОбластьМакета.Параметры.Те кстЗаголовка = ОбщегоНазначения.Сформиро� �атьЗаголовокДокумента(Шап ка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаП� �чать);
Иначе
ОбластьМакета.Параметры.Те кстЗаголовка = ОбщегоНазначения.Сформиро� �атьЗаголовокДокумента(Шап ка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаП� �чать);
КонецЕсли;

ТабДокумент.Вывести(Област ьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
ОбластьМакета.Параметры.За полнить(Шапка);
ОбластьМакета.Параметры.Пр едставлениеПоставщика = ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать);
Если Тип = "Счет" Тогда
ОбластьМакета.Параметры.Ре квизитыПоставщика = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС +
ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН, НомерСвидетельства,/,ИнформацияОСтатусеПлател� �щикаНалогов,",,КодЯзыкаПечать);
КонецЕсли;

ТабДокумент.Вывести(Област ьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
ОбластьМакета.Параметры.За полнить(Шапка);
ОбластьМакета.Параметры.Пр едставлениеПокупателя = ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать);

ОбластьМакета.Параметры.Ре квизитыПокупателя = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчПок + НСтр("ru=',Банк ';uk=', Банк '",КодЯзыкаПечать) + БанкПок + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФОПок + Символы.ПС +
ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПокупателе, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН, НомерСвидетельства,/,ИнформацияОСтатусеПлател� �щикаНалогов,",,КодЯзыкаПечать);
//ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПокупателе,"Телефоны,",,КодЯзыкаПечать);
ТабДокумент.Вывести(Област ьМакета);

осталось совсем чуть чуть и не могу додуматься как поступить в данной ситуации

arccos6pi

16.05.2014, 00:27

не вижу пока проблемы
точнее не понимаю что вы хотите вывести
и какая конфа?

myr4ik07

16.05.2014, 00:42

Выделенное не подтягивается в макет (р/р банка, название банка и мфо банка как для поставщика так и для покупателя)
Бухгалтерия для украины

arccos6pi

16.05.2014, 08:33

а банковский счет по умолчанию установлен у клиента?
и не плохо бы было взглянуть на сам макет

myr4ik07

16.05.2014, 08:41

arccos6pi

16.05.2014, 08:52

.xml файл вот https://dl.dropboxusercontent.com/u/14318845/%D0%94%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%2 0%D0%A1%D1%87%D0%B5%D1%82%D0%9D%D0%B0%D0%9E%D0%BF% D0%BB%D0%B0%D1%82%D1%83%D0%9F%D0%BE%D0%BA%D1%83%D0 %BF%D0%B0%D1%82%D0%B5%D0%BB%D1%8E_%20%D0%A1%D1%87% D0%B5%D1%82%D0%97%D0%B0%D0%BA%D0%B0%D0%B7.mxlсу� �я по макету и по коду все ок

а банковский счет по умолчанию установлен у клиента?

myr4ik07

16.05.2014, 08:55

беда ... спасибо, что потратили время

arccos6pi

16.05.2014, 09:08

повторю вопрос

а банковский счет по умолчанию установлен у клиента?

myr4ik07

16.05.2014, 09:51

Да, установлен, как в поставщика так и у клиента

arccos6pi

16.05.2014, 10:07

именно по умолчанию?
тогда надо отладкой смотреть

---------- Post added at 10:07 ---------- Previous post was at 10:07 ----------

или все заработало?

myr4ik07

16.05.2014, 12:19

именно по умолчанию?
тогда надо отладкой смотреть

---------- Post added at 10:07 ---------- Previous post was at 10:07 ----------

или все заработало?
сделал немного по другому

// Выводим шапку накладной
СведенияОПокупателе = УправлениеКонтактнойИнфор мацией.СведенияОЮрФизЛице( Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать );
СведенияОПоставщике = УправлениеКонтактнойИнфор мацией.СведенияОЮрФизЛице( Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать );

Если Тип = "Счет" Тогда
ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
ОбластьМакета.Параметры.На званиеОрганизации = СведенияОПоставщике.Полно� �Наименование;
ОбластьМакета.Параметры.ЕД РПОУОрганизации = УправлениеКонтактнойИнфор мацией.ПолучитьКодОрганиз� �ции(СведенияОПоставщике);
Если Не ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.Банковск� �еСчета") Тогда
Банк = СтруктурнаяЕдиница.Банк;
МФО = Банк.Код;
НомерСчета = СтруктурнаяЕдиница.НомерС� �ета;
Иначе
// покажем банковские реквизиты основного счета организации
Банк = СведенияОПоставщике.Банк;
МФО = СведенияОПоставщике.МФО;
НомерСчета = СведенияОПоставщике.Номер� �чета;
//
БанкПокупателя = СведенияОПокупателе.Банк;
МФОПокупателя = СведенияОПокупателе.МФО;
НомерСчетаПокупателя = СведенияОПокупателе.Номер� �чета;
//
КонецЕсли;

ОбластьМакета.Параметры.Ба нкОрганизации = Банк;
ОбластьМакета.Параметры.МФ ОБанкаОрганизации = МФО;
ОбластьМакета.Параметры.Но мерРасчетногоСчетаОрганиз ации = НомерСчета;

Если НЕ Шапка.ВидДоговораКонтраге� �та = Перечисления.ВидыДоговоро� �Контрагентов.СКомиссионер ом
И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированног оУчета Тогда
ТабДокумент.Вывести(Област ьМакета);
КонецЕсли;

КонецЕсли;

ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
Если Шапка.ВидДоговораКонтраге� �та = Перечисления.ВидыДоговоро� �Контрагентов.СКомиссионер ом Тогда
ОбластьМакета.Параметры.Те кстЗаголовка = ОбщегоНазначения.Сформиро� �атьЗаголовокДокумента(Шап ка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаП� �чать);
Иначе
ОбластьМакета.Параметры.Те кстЗаголовка = ОбщегоНазначения.Сформиро� �атьЗаголовокДокумента(Шап ка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаП� �чать);
КонецЕсли;

ТабДокумент.Вывести(Област ьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
ОбластьМакета.Параметры.За полнить(Шапка);
ОбластьМакета.Параметры.Пр едставлениеПоставщика = ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать);
Если Тип = "Счет" Тогда
ОбластьМакета.Параметры.Ре квизитыПоставщика = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС +
ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН, НомерСвидетельства,/,ИнформацияОСтатусеПлател� �щикаНалогов,",,КодЯзыкаПечать);
КонецЕсли;

ТабДокумент.Вывести(Област ьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
ОбластьМакета.Параметры.За полнить(Шапка);
ОбластьМакета.Параметры.Пр едставлениеПокупателя = ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать);
Если Тип = "Счет" Тогда
ОбластьМакета.Параметры.Ре квизитыПокупателя = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчетаПокупателя + НСтр("ru=',Банк ';uk=', Банк '",КодЯзыкаПечать) + БанкПокупателя + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФОПокупателя + Символы.ПС +
ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПокупателе, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН, НомерСвидетельства,/,ИнформацияОСтатусеПлател� �щикаНалогов,",,КодЯзыкаПечать);
//ФормированиеПечатныхФорм.� �писаниеОрганизации(Сведен ияОПокупателе,"Телефоны,",,КодЯзыкаПечать);
КонецЕсли;
ТабДокумент.Вывести(Област ьМакета);

изменено выделенное

Если Не ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.Банковск� �еСчета") Тогда
БанкПокупателя = СведенияОПокупателе.Банк;
МФОПокупателя = СведенияОПокупателе.МФО;
НомерСчетаПокупателя = СведенияОПокупателе.Номер� �чета;

в итоге получаю то, что нужно
но, нужно еще спрятать "зразок" полностью часть макета ЗаголовокСчета но, что бы инфа тянулась от туда так как в коде мы поставщика реквизиты берем с параметров области ЗаголовокСчета

---------- Post added at 11:19 ---------- Previous post was at 11:04 ----------

запутал вас ...
изначально макет имел вот такой вид
http://s16.postimg.org/wavwxvsh1/image.png (http://postimg.org/image/jw94xk0yp/full/)
куда залить картинку (http://postimage.org/index.php?lang=russian)
но изначально в покупателя не подтягивались реквизиты банка, выше кодом я добился отображение реквизитов для покупателя но теперь мне нужно убрать часть макета ЗаголовокСчета и иметь ввиду нужно, что часть макета Поставщик берет данные с области макета ЗаголовокСчета

myr4ik07

16.05.2014, 15:02

одним словом - работает.
взял за пример счета на оплату поставщика и все ок, спасибо, закрывайте