БП 3.0

Подскажите, как в печ.форме Акта (док-т РеализацияТиУ) вывести не полное наименовании организации, а краткое?

Если только в маленькой накладной, то сделать свою впф и выводить хоть "ООО Рога и Копыта"

Лев(ПолноеНаименование, 20)

в БП 3.0 же можно типовые макеты изменять по своему желанию, может там подправить?

(3) да даже в 1.6 можно менять типовые макеты. ты знаешь что-то такое, чего не знаю я?

(4)в 3.0 прям в предприятии можно менять печатные формы под себя. Как ценники в рознице, например

(5) шибздануться мозгом. а назад оно не откатит? я всё равно за ВПФ ;)

Факир был пьян и фокус не удался.
Нельзя в предприятии поменять, там ПредставлениеОрганизации прописано. Так что ВПФ

Гы. Можно параметр ПредставлениеОрганизации переставить в другую ячейку и сделать там текст белым, а на том месте поставить параметр Организация и он заполнится кратким наименованием организации)) прикольно)

(6) Назад не откатит, пока сам ей не скажешь. Там все красиво сделано)

Акт сделан в виде внешней печатной формы. Сейчас выводится полное наименование Контрагента. А как вывести его краткое наименование? Вот код, получающий полное наименование:

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

А вот сама функция:


Функция ОписаниеОрганизации(СписокСведений, Список = "", СПрефиксом = Истина) Экспорт

    Если ПустаяСтрока(Список) Тогда

        Список = "ИНН,Свидетельство,ЮридическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет";
        Если НЕ СписокСведений.Свойство("НаименованиеДляПечатныхФорм") Тогда
            Список = "НаименованиеПолное," + Список;
        Иначе
            Список = "НаименованиеДляПечатныхФорм," + Список;
        КонецЕсли;

    КонецЕсли;

    Результат = "";

    СоответствиеПараметров = Новый Соответствие();
    СоответствиеПараметров.Вставить("ПолноеНаименование",            " ");
    СоответствиеПараметров.Вставить("СокращенноеНаименование",        " ");
    СоответствиеПараметров.Вставить("НаименованиеДляПечатныхФорм",    " ");
    СоответствиеПараметров.Вставить("ИНН",                            " ИНН ");
    СоответствиеПараметров.Вставить("КПП",                            " КПП ");
    СоответствиеПараметров.Вставить("Свидетельство",                " ");
    СоответствиеПараметров.Вставить("СвидетельствоДатаВыдачи",        " от ");
    СоответствиеПараметров.Вставить("ЮридическийАдрес",                " ");
    СоответствиеПараметров.Вставить("Телефоны",                        " тел.: ");
    СоответствиеПараметров.Вставить("Факс",                            " факс: ");
    СоответствиеПараметров.Вставить("НомерСчета",                    " р/с ");
    СоответствиеПараметров.Вставить("Банк",                           " в банке ");
    СоответствиеПараметров.Вставить("БИК",                            " БИК ");
    СоответствиеПараметров.Вставить("КоррСчет",                       " к/с ");
    СоответствиеПараметров.Вставить("КодПоОКПО",                      " Код по ОКПО ");

    Список          = Список + ?(Прав(Список, 1) = ",", "", ",");
    ЧислоПараметров = СтрЧислоВхождений(Список, ",");

    Для Счетчик = 1 По ЧислоПараметров Цикл

        ПозЗапятой = Найти(Список, ",");

        Если ПозЗапятой > 0  Тогда
            ИмяПараметра = Лев(Список, ПозЗапятой - 1);
            Список = Сред(Список, ПозЗапятой + 1, СтрДлина(Список));

            Попытка
                СтрокаДополнения = "";
                СписокСведений.Свойство(ИмяПараметра, СтрокаДополнения);

                Если ПустаяСтрока(СтрокаДополнения) Тогда
                    Продолжить;
                КонецЕсли;

                Префикс = СоответствиеПараметров[ИмяПараметра];
                Если Не ПустаяСтрока(Результат)  Тогда
                    Результат = Результат + ",";
                КонецЕсли;

                Результат = Результат + ?(СПрефиксом = Истина, ?(ПустаяСтрока(Результат), СокрЛ(Префикс), Префикс), "") + СтрокаДополнения;

            Исключение

                ТекстСообщения = НСТр("ru = 'Не удалось определить значение параметра организации:'") + " " + ИмяПараметра;
                ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);

                ОписаниеОшибки = ИнформацияОбОшибке();
                ЗаписьЖурналаРегистрации(ТекстСообщения, УровеньЖурналаРегистрации.Ошибка,,, ОписаниеОшибки.Описание);

            КонецПопытки;

        КонецЕсли;

    КонецЦикла;
    
    Результат = СокрЛП(Результат);
    Пока Найти(Результат, "  ") > 0 Цикл
        Результат = СтрЗаменить(Результат, "  ", " ");
    КонецЦикла;
    Возврат Результат;

КонецФункции // ОписаниеОрганизации()

Все, разобралась. Надо так:
ПредставлениеПолучателя = ОбщегоНазначенияБПВызовСервера.ОписаниеОрганизации(СведенияОКонтрагенте, "СокращенноеНаименование,ИНН,Телефоны,НомерСчета,Банк,БИК,КоррСчет");     //дтб+