Имя: Пароль:
1C
1С v8
Вывести данные на печать
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
спасибо, сейчас приблужу на работу - буду смотреть, спасибо
Основная теорема систематики: Новые системы плодят новые проблемы.