![]() |
![]() |
![]() |
|
Вывести данные на печать | ☑ | ||
---|---|---|---|---|
0
myr4ik07
15.05.14
✎
23:33
|
Доброго времени суток.
Будьте добры, ну никак не могу добиться вывода на печатную форму выделенные данные, что на снимке [URL=http://hostingkartinok.com/show-image.php?id=12c6fa3629b59b60993572040c3418e6][IMG]http://s7.hostingkartinok.com/uploads/images/2014/05/12c6fa3629b59b60993572040c3418e6.png[/IMG][/URL] имею такой код // Выводим шапку накладной СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Шапка.Дата,,,КодЯзыкаПечать ); СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата,,,КодЯзыкаПечать); // отключаем условие (оригинал "Счет" Если Тип = "Счету" Тогда ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета"); ОбластьМакета.Параметры.НазваниеОрганизации = СведенияОПоставщике.ПолноеНаименование; ОбластьМакета.Параметры.ЕДРПОУОрганизации = УправлениеКонтактнойИнформацией.ПолучитьКодОрганизации(СведенияОПоставщике); Если ТипЗнч(СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда Банк = СтруктурнаяЕдиница.Банк; МФО = Банк.Код; НомерСчета = СтруктурнаяЕдиница.НомерСчета; // БанкПок = СтруктурнаяЕдиница.Банк; МФОПок = Банк.Код; НомерСчПок = СтруктурнаяЕдиница.НомерСчета; // Иначе // покажем банковские реквизиты основного счета организации Банк = СведенияОПоставщике.Банк; МФО = СведенияОПоставщике.МФО; НомерСчета = СведенияОПоставщике.НомерСчета; // БанкПокупателя = СведенияОПокупателе.Банк; МФОПокупателя = СведенияОПокупателе.МФО; НомерСчетаПокупателя = СведенияОПокупателе.НомерСчета; // КонецЕсли; ОбластьМакета.Параметры.БанкОрганизации = Банк; ОбластьМакета.Параметры.МФОБанкаОрганизации = МФО; ОбластьМакета.Параметры.НомерРасчетногоСчетаОрганизации = НомерСчета; Если НЕ Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером И НЕ Шапка.ВалютаДокумента <> мВалютаРегламентированногоУчета Тогда ТабДокумент.Вывести(ОбластьМакета); КонецЕсли; КонецЕсли; ОбластьМакета = Макет.ПолучитьОбласть("Заголовок"); Если Шапка.ВидДоговораКонтрагента = Перечисления.ВидыДоговоровКонтрагентов.СКомиссионером Тогда ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Список товаров на комиссию';uk='Список товарів на комісію'",КодЯзыкаПечать),КодЯзыкаПечать); Иначе ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, НСтр("ru='Счет на оплату';uk='Рахунок на оплату'",КодЯзыкаПечать),КодЯзыкаПечать); КонецЕсли; ТабДокумент.Вывести(ОбластьМакета); ОбластьМакета = Макет.ПолучитьОбласть("Поставщик"); ОбластьМакета.Параметры.Заполнить(Шапка); ОбластьМакета.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,",,КодЯзыкаПечать); Если Тип = "Счет" Тогда ОбластьМакета.Параметры.РеквизитыПоставщика = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчета + НСтр("ru=', Банк ';uk=', Банк '",КодЯзыкаПечать) + Банк + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФО + Символы.ПС + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать); КонецЕсли; ТабДокумент.Вывести(ОбластьМакета); ОбластьМакета = Макет.ПолучитьОбласть("Покупатель"); ОбластьМакета.Параметры.Заполнить(Шапка); ОбластьМакета.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,КодЯзыкаПечать); ОбластьМакета.Параметры.РеквизитыПокупателя = НСтр("ru='Р/с ';uk='Р/р '",КодЯзыкаПечать) + НомерСчПок + НСтр("ru=',Банк ';uk=', Банк '",КодЯзыкаПечать) + БанкПок + НСтр("ru=', МФО ';uk=', МФО '",КодЯзыкаПечать) + МФОПок + Символы.ПС + ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ЮридическийАдрес,Телефоны,/,КодПоЕДРПОУ,КодПоДРФО,ИНН,НомерСвидетельства,/,ИнформацияОСтатусеПлательщикаНалогов,",,КодЯзыкаПечать); //ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,КодЯзыкаПечать); ТабДокумент.Вывести(ОбластьМакета); осталось совсем чуть чуть и не могу додуматься как поступить в данной ситуации |
|||
1
myr4ik07
15.05.14
✎
23:35
|
||||
2
myr4ik07
15.05.14
✎
23:36
|
РР, название банка, мфо банка нужно
|
|||
3
neo_matrix_123
16.05.14
✎
00:27
|
(0) у меня обычная упп, и функция УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице в своих параметрах содежит следующие
Функция СведенияОЮрФизЛице(ЮрФизЛицо, ДатаПериода, ДляФизЛицаТолькоИнициалы = Истина, БанковскийСчет = Неопределено) Экспорт дальше внутри кусок кода.... и запрос, если в параметрах вызова банковский счет пустой. берется основной банковский счет из контрагента.... Если БанковскийСчет = Неопределено ИЛИ БанковскийСчет.Пустая() Тогда ТекстУсловиеБанковскийСчет = "БанковскиеСчета.Ссылка = Организации.ОсновнойБанковскийСчет" Иначе ТекстУсловиеБанковскийСчет = "БанковскиеСчета.Ссылка = &БанковскийСчет"; Запрос.УстановитьПараметр("БанковскийСчет", БанковскийСчет); КонецЕсли; Запрос.УстановитьПараметр("ПустойБанк", Справочники.Банки.ПустаяСсылка()); ТекстЗапроса = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | Организации.Представление КАК Наименование | , ВЫРАЗИТЬ (Организации.НаименованиеПолное КАК Строка(1000)) КАК ПолноеНаименование | , Организации.ИНН КАК ИНН | , Организации.КПП КАК КПП | , Организации.КодПоОКПО КАК КодПоОКПО | , ЕСТЬNULL(БанковскиеСчета.НомерСчета,"""") КАК НомерСчета | , ЕСТЬNULL(Банки.Ссылка,&ПустойБанк) КАК Банк | , ЕСТЬNULL(Банки.Код,"""") КАК БИК | , ЕСТЬNULL(Банки.КоррСчет,"""") КАК КоррСчет | , ВЫРАЗИТЬ (ЕСТЬNULL(Банки.Адрес,"""") КАК Строка(1000)) КАК АдресБанка |" + ТекстКонтактнаяИнформацияАдреса + " | , МАКСИМУМ (ВЫБОР КОГДА КонтактнаяИнформация.Вид = &ВидТелефона ТОГДА ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК Строка(1000)) | ИНАЧЕ """" КОНЕЦ) КАК Телефон"; в отладчике попробуйте провалиться в эту функцию и посмотреть возвращает ли она банковский счет для начала.... возможно что он у контрагента не указан, например. |
|||
4
neo_matrix_123
16.05.14
✎
00:32
|
вот нашел у себя... попробуйте еще так, там есть похожий кусок
ПараметрыПечати = Новый Структура; Позиции = Новый Массив; Запрос = Новый Запрос; Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект); Запрос.УстановитьПараметр("ПустойКонтрагент", Справочники.Контрагенты.ПустаяСсылка()); Запрос.Текст =" |ВЫБРАТЬ | Номер, | Дата, | ДоговорКонтрагента, | Организация, | СтруктурнаяЕдиница, | Контрагент КАК Получатель, | ВЫБОР КОГДА Грузоотправитель = &ПустойКонтрагент | ТОГДА Организация | ИНАЧЕ Грузоотправитель КОНЕЦ КАК Грузоотправитель, | ВЫБОР КОГДА Грузополучатель = &ПустойКонтрагент | ТОГДА Контрагент | ИНАЧЕ Грузополучатель КОНЕЦ КАК Грузополучатель, | Организация КАК Руководители, | Организация КАК Поставщик, | СуммаДокумента, | ВалютаДокумента, | УчитыватьНДС, | СуммаВключаетНДС |ИЗ | Документ.СчетНаОплатуПокупателю КАК СчетНаОплатуПокупателю | |ГДЕ | СчетНаОплатуПокупателю.Ссылка = &ТекущийДокумент"; ..... .... // Выводим шапку накладной ПараметрыПечати.Вставить("УчитыватьНДС", Шапка.УчитыватьНДС); СведенияОПоставщике = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Шапка.Дата); Если Тип = Тип("ДокументСсылка.СчетНаОплатуПокупателю") Тогда ПараметрыПечати.Вставить("ИНН", СведенияОПоставщике.ИНН); ПараметрыПечати.Вставить("КПП", СведенияОПоставщике.КПП); ПредставлениеПоставщикаДляПлатПоручения = ""; Если ТипЗнч(Шапка.СтруктурнаяЕдиница) = Тип("СправочникСсылка.БанковскиеСчета") Тогда Банк = ?(НЕ ЗначениеЗаполнено(Шапка.СтруктурнаяЕдиница.БанкДляРасчетов), Шапка.СтруктурнаяЕдиница.Банк, Шапка.СтруктурнаяЕдиница.БанкДляРасчетов); БИК = Банк.Код; КоррСчет = Банк.КоррСчет; ГородБанка = Банк.Город; НомерСчета = Шапка.СтруктурнаяЕдиница.НомерСчета; ПараметрыПечати.Вставить("БИКБанкаПолучателя", БИК); ПараметрыПечати.Вставить("БанкПолучателя", Банк); ПараметрыПечати.Вставить("БанкПолучателяПредставление", СокрЛП(Банк) + " " + ГородБанка); ПараметрыПечати.Вставить("СчетБанкаПолучателя", КоррСчет); ПараметрыПечати.Вставить("СчетБанкаПолучателяПредставление", КоррСчет); ПараметрыПечати.Вставить("СчетПолучателяПредставление", НомерСчета); ПараметрыПечати.Вставить("СчетПолучателя", НомерСчета); ПредставлениеПоставщикаДляПлатПоручения = Шапка.СтруктурнаяЕдиница.ТекстКорреспондента; КонецЕсли; Если ПустаяСтрока(ПредставлениеПоставщикаДляПлатПоручения) Тогда ПредставлениеПоставщикаДляПлатПоручения = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПоставщике, "ПолноеНаименование,"); КонецЕсли; ПараметрыПечати.Вставить("ПредставлениеПоставщикаДляПлатПоручения", ПредставлениеПоставщикаДляПлатПоручения); КонецЕсли; |
|||
5
myr4ik07
16.05.14
✎
08:46
|
спасибо, сейчас приблужу на работу - буду смотреть, спасибо
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |