[РЕШЕНО] Получить сведения об организации

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 8"", создана пользователем НиколайН, 13 фев 2015.

  1. TopicStarter Overlay
    НиколайН
    Offline

    НиколайН Опытный в 1С

    Регистрация:
    14 фев 2014
    Сообщения:
    246
    Симпатии:
    0
    Баллы:
    26
    Добрый день! У меня есть печатная форма, в ней мне необходимо вывести информацию об организации. Я это делаю следующим образом
    Код:
        ОбластьКонтактнаяИнформация.Параметры.ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата), "ПолноеНаименование,ИНН,КПП,ЮридическийАдрес,Телефоны");
    
    Только вместо "КПП", мне нужно получить "ОГРН", я меняю КПП на ОГРН, а он в результате данные об "ОГРН" не выводятся, хотя по "КПП", все нормально выводится. Как мне получить ОГРН?
  2. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.236
    Симпатии:
    144
    Баллы:
    104
    Посмотрите ОбщийМодуль.УправлениеКонтактнойИнформацией там в запросе нет ОГРН
  3. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    посмотрите процедуру, что туда и как передается...
  4. Draco
    Offline

    Draco Модераторы Команда форума Модератор

    Регистрация:
    28 окт 2009
    Сообщения:
    13.639
    Симпатии:
    948
    Баллы:
    204
    Там нет ОГРН

    Код:
    Функция ОписаниеОрганизации(СписокСведений, Список = "", СПрефиксом = Истина) Экспорт
    
        Если ПустаяСтрока(Список) Тогда
            Список = "ПолноеНаименование,НаименованиеСокращенное,ИНН,Свидетельство,ЮридическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет";
        КонецЕсли;
    
        Результат = "";
    
        СоответствиеПараметров = Новый Соответствие();
        СоответствиеПараметров.Вставить("ПолноеНаименование",         " ");
        СоответствиеПараметров.Вставить("НаименованиеСокращенное",     " ");
        СоответствиеПараметров.Вставить("ИНН",                        " ИНН ");
        СоответствиеПараметров.Вставить("КПП",                        " КПП ");
        СоответствиеПараметров.Вставить("Свидетельство",            " ");
        СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи",    " от ");
        СоответствиеПараметров.Вставить("ЮридическийАдрес",           " ");
        СоответствиеПараметров.Вставить("ФактическийАдрес",           " ");
        СоответствиеПараметров.Вставить("Телефоны",                   " тел.: ");
        СоответствиеПараметров.Вставить("НомерСчета",                 " р/с ");
        СоответствиеПараметров.Вставить("Банк",                       " в банке ");
        СоответствиеПараметров.Вставить("БИК",                        " БИК ");
        СоответствиеПараметров.Вставить("КоррСчет",                   " к/с ");
        СоответствиеПараметров.Вставить("КодПоОКПО",                  " Код по ОКПО ");
    
    А что тупо СсылкаНаОбъект.Организация.ОГРН не подходит?
  5. TopicStarter Overlay
    НиколайН
    Offline

    НиколайН Опытный в 1С

    Регистрация:
    14 фев 2014
    Сообщения:
    246
    Симпатии:
    0
    Баллы:
    26
    Просто мне нужно чтобы "ОГРН", после "ИНН". Чтобы не создавать кучу параметров я создал 1 "ПредставлениеОрганизации", вот и хотел последовательно все вывести.
  6. rshakiro
    Offline

    rshakiro Профессионал в 1С Команда форума

    Регистрация:
    17 мар 2011
    Сообщения:
    2.236
    Симпатии:
    144
    Баллы:
    104
    так попробуйте:
    Код:
    ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата), "ПолноеНаименование,ИНН") + ", " + СсылкаНаОбъект.Организация.ОГРН + ", " +
    ФормированиеПечатныхФорм.ОписаниеОрганизации(УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата), "КПП,ЮридическийАдрес,Телефоны");
    ОбластьКонтактнаяИнформация.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;
    ;
  7. Tiger86
    Offline

    Tiger86 Модераторы Команда форума Модератор

    Регистрация:
    24 мар 2011
    Сообщения:
    6.407
    Симпатии:
    108
    Баллы:
    104
    а в чем беда то?
  8. TopicStarter Overlay
    НиколайН
    Offline

    НиколайН Опытный в 1С

    Регистрация:
    14 фев 2014
    Сообщения:
    246
    Симпатии:
    0
    Баллы:
    26
    Спасибо большое! Все получилось!

Поделиться этой страницей