В документе есть функция ПечатьПоВыбору. Там есть пункт "УПД". Нигде не могу найти функцию, которая вызывается на УПД. В ПечатьПоВыбору такого слова нет. Может кто знает что делать в это случае. Заранее спасибо.

Может, внешняя?

отладчик в зубы и включить замер производительности

Хорошо-бы скрин.. Или код, в небольшом объёме..

"Пункт "УПД""  - что за пункт?

скорее всего из какого нибудь счета фактуры дергается .. причем где нибудь в глобальном модуле .. отладчик поможет.
Проще искать в обратную сторону - найти ее в конфигураторе и смотреть кто ее дергает ..благо это семерка.

(3) Поддержу - код функции ПечатьПоВыбору.

В конфигураторе ее нет.

(7) А где есть?

Понятия не имею.

Процедура ПечатьПоВыбору()
    //Если (Итог("Недогруз")<>0) Или (Итог("КоличВ")<>0) Или (Итог("Бой")<>0) Или (Итог("Недовоз")<>0) Тогда
    Если (Проведен()=1) или (ИмяПользователя() = "Антон") Тогда
        //Если ((Печать=0) ИЛИ (Пров=0)) И (Блок=1) и (ДатаДок = ТекущаяДата()) Тогда
        //    Сообщить("Клиенту установлен Стоп-Лист. Накладная не распечатана");
        //    Возврат;
        //КонецЕсли;
        
        //Если ((Печать=0) ИЛИ (Пров=0)) И ((Клиент.Запрет=1) или (Клиент.ЗапретПревышениеЛимитаОтгрузки=1))   и (КлиентВПокупателях()=1) и (ДатаДок = ТекущаяДата()) и (НазваниеИнтерфейса()<>"Сертификаты")  Тогда
        //    Сообщить("Клиенту установлен запрет на продажу. Накладная не распечатана");
        //    Возврат;
        //КонецЕсли;
        
        Если (СостояниеЗаказа = Перечисление.СостоянияЗаказа.НеСогласовано) и (ПровКл = 0)  Тогда
            Предупреждение("На данном заказе установлен запрет. Печать документа запрещена!");
                           Если Клиент.Предоплата = 1 Тогда
                    СписокПараметров = СоздатьОбъект("СписокЗначений");
                    СписокПараметров.ВставитьЗначение(1,"ПечатьСчфакт");
                    СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                    ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                    
                    СписокПараметров = СоздатьОбъект("СписокЗначений");
                    СписокПараметров.ВставитьЗначение(1,"ПечатьСкл");
                    СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                    ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                КонецЕсли;
            Возврат;
        КонецЕсли;
        
        Если (НазваниеИнтерфейса()="Руководитель") или (НазваниеИнтерфейса()="Сертификаты") и (ДатаДок = ТекущаяДата()) Тогда
        Иначе
            Если ЗапретНаПечать=0 Тогда
                Если ВПост=0 Тогда
                    //Если (РасчетНаценкиТекДокум(ТекущийДокумент())<Агент.ГруппаФинансовогоКонтроля.МинимальнаяНаценка) и (Клиент.Код <> "102452") Тогда
                    //    Предупреждение("Наценка по накладной меньше 10!
                    //    |Печать невозможна!");
                    //    Возврат;
                    //КонецЕсли;
                    
                    //Если (Итог("МинКол")>0) Тогда
                    //    Предупреждение("В заказе есть строки с количеством меньше минимального для данного товара!
                    //    |Печать невозможна!");
                    //    Возврат;
                    //КонецЕсли;
                    //
                    //Если (Итог("МинЦена")>0)  Тогда
                    //    Предупреждение("В заказе есть строки с ценой меньше минимальной оптовой для данного товара!
                    //    |Печать невозможна!");
                    //    Возврат;
                    //КонецЕсли;
                    
                    
                    //Если ((Итог("СуммР")<Константа.МинСуммаЗаказа) и (Агент.Родитель.Родитель.Родитель.Код <> "423") И (Агент.Родитель.Родитель.Код <> "210") И (Агент.Родитель.Код <> "826") И (Агент.Родитель.Родитель.Код <> "826")И (Агент.Родитель.Код <> "995"))  Тогда
                    
                    //Если (Итог("СуммР") < МинРазрешСумма) Тогда
                    //    Предупреждение("Заказ выписан на меньшую сумму чем минимальная сумма заказа!
                    //    |Печать невозможна!");
                    //    Возврат;
                    //КонецЕсли;
                    
                    
                    //КонецЕсли;
                    Если Константа.ВозможностьПечати=0 Тогда
                        Если (ПустоеЗначение(АдресПоставки.Город)=1) или (ПустоеЗначение(АдресПоставки.Район)=1) или (ПустаяСтрока(АдресПоставки.Адрес)=1) или (ПустоеЗначение(АдресПоставки.Формат)=1)  Тогда
                            Предупреждение("В заказе не полность заполнен адрес поставки!
                            |Печать невозможна!");
                            Возврат;
                        КонецЕсли;    
                    КонецЕсли;
                КонецЕсли;
            КонецЕсли;
            
            Если ВПост=0 Тогда
                    //Временно отключил Антон
                //Если  (Лицензия.НаименованиеКон<ДатаП)  и (Клиент.БезАлкагольные=0) Тогда  
                //    Предупреждение("У клиента просрочена лицензия!
                //    |Печать невозможна!");
                //    Возврат;    
                //КонецЕсли;                            
                
                //Если (Блок>0) Тогда  
                //    Предупреждение("У клиента стоит СТОП-ЛИСТ!
                //    |Печать невозможна!");
                //    Возврат;    
                //КонецЕсли;
                
                //Если ((Клиент.Запрет=1) или (Клиент.ЗапретПревышениеЛимитаОтгрузки=1))  и (КлиентВПокупателях()=1) и (НазваниеИнтерфейса()<>"Сертификаты") Тогда  
                //    Предупреждение("У клиента стоит запрет на продажу!
                //    |Печать невозможна!");
                //    Возврат;    
                //КонецЕсли;
            КонецЕсли;
        КонецЕсли;
        
        
        
        СписокЗнПеч = СоздатьОбъект("СписокЗначений");
        //Заполним список действий по кнопке "Печать Скидок"
        СписокЗнПеч.УдалитьВсе();
        СписокЗнПеч.ДобавитьЗначение("Расходная накладная");
        СписокЗнПеч.ДобавитьЗначение("ТТН");
        СписокЗнПеч.ДобавитьЗначение("Счёт-фактура");
        СписокЗнПеч.ДобавитьЗначение("Складская накладная");
        //СписокЗнПеч.ДобавитьЗначение("Комплект для МЕТРО");
        //СписокЗнПеч.ДобавитьЗначение("Комплект для Гепард");
        //СписокЗнПеч.ДобавитьЗначение("Комплект для Копейки");
        //СписокЗнПеч.ДобавитьЗначение("Справка Б");
        СписокЗнПеч.ДобавитьЗначение("Торг12");
        //СписокЗнПеч.ДобавитьЗначение("Комплект ""Сладкая жизнь""");
        //СписокЗнПеч.ДобавитьЗначение("ТТН для Трио");
        //СписокЗнПеч.ДобавитьЗначение("Счет-фактура без скидки");
        //СписокЗнПеч.ДобавитьЗначение("Винотека Акт приема передачи");
        //СписокЗнПеч.ДобавитьЗначение("Винотека рекомендуемые розничные цены");
        //СписокЗнПеч.ДобавитьЗначение("Счет для Винотеки");
        СписокЗнПеч.ДобавитьЗначение("ЕГАИС");
        ЧтоПечатать = "";
        
        Если Найти(НРег(КаталогИБ()), "vitrina") = 0 Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"ПоВыбору");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
        ИначеЕсли СписокЗнПеч.ВыбратьЗначение(ЧтоПечатать, "Что печатать?",,,0) > 0 Тогда
            Если ЧтоПечатать = "Расходная накладная" Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"РасходнаяНакладная");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                //ПечатьРасходнойНакл(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;
                    КонецЕсли;
                //КонецЕсли;
                
            ИначеЕсли ЧтоПечатать = "ТТН" Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"ПечатьТТН");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                //ПечатьТТН(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;
                    КонецЕсли;
                //КонецЕсли;
            ИначеЕсли ЧтоПечатать = "Счет для Винотеки" Тогда
                ПечатьСчетНаПредоплату(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;
                    КонецЕсли;
                //КонецЕсли;
            ИначеЕсли ЧтоПечатать = "Счёт-фактура" Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"ПечатьСчфакт");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                //ПечатьСчфакт(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;
            ИначеЕсли ЧтоПечатать = "Складская накладная" Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"ПечатьСкл");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                //ПечатьСкл(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;
            ИначеЕсли ЧтоПечатать = "Комплект для МЕТРО" Тогда  
                ПечатьСкл(0);
                ПечатьРасходнойНакл(0);
                ПечатьТТНМетро(0);
                ПечатьСчФактМетро(0);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;
            ИначеЕсли ЧтоПечатать = "Комплект для Гепард" Тогда      
                ПечатьДляГепарда(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;
            ИначеЕсли ЧтоПечатать = "Комплект для Копейки" Тогда  
                //ПечатьСкл(0);
                ПечатьТТНКопейка(0);
                ПечатьСчФактКопейка(0);
                ПечатьТТНКопейка1(0);
                ПечатьРасходнойНакл1(0);
                ПечатьСправБ();
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;    
            ИначеЕсли ЧтоПечатать = "Справка Б" Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"ПечатьСправБ");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                //ПечатьСправБ();
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;
                
            ИначеЕсли ЧтоПечатать = "Торг12" Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"ПечатьТорг12");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                //ПечатьТорг12(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;
            ИначеЕсли ЧтоПечатать = "Комплект ""Сладкая жизнь""" Тогда
                //ПечатьСкл(1);
                //ПечатьРасходнойНакл(1);
                ПечатьТорг12Ск(1,0);;
                ПечатьТТН(1);
                ПечатьСчФактСладкаяЖизнь(1);
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;    
            ИначеЕсли ЧтоПечатать = "ТТН для Трио" Тогда
                ПечатьТрио(1);  
            ИначеЕсли ЧтоПечатать = "Счет-фактура без скидки" Тогда
                СписокПараметров = СоздатьОбъект("СписокЗначений");
                СписокПараметров.ВставитьЗначение(1,"ПечатьСчет");
                СписокПараметров.ВставитьЗначение(2,ТекущийДокумент());
                ОткрытьФорму("Отчет",СписокПараметров,КаталогИБ() + "ERT\Сертификаты\ПечатьСертификатов.ert");
                //ПечатьСчет();
                //Если НазваниеИнтерфейса()="Выписка" Тогда
                    Если Печать=0 Тогда
                        ФПечать=1;  
                    КонецЕсли;
                //КонецЕсли;    
            ИначеЕсли ЧтоПечатать = "Винотека Акт приема передачи" Тогда
                ВинотекаАкт(0);
            ИначеЕсли ЧтоПечатать = "Винотека рекомендуемые розничные цены" Тогда
                ВинотекаРознЦены(0);
            ИначеЕсли ЧтоПечатать = "ЕГАИС" Тогда
                ОткрытьФорму("Отчет",ТекущийДокумент(),КаталогИБ() + "PrnForms\ПечатьЕГАИС.ert");
            КонецЕсли;
        КонецЕсли;
        //Форма.КодТовара.Доступность(0);
        //Форма.Товар.Доступность(0);
        //Форма.КМ.Доступность(0);
        //Форма.Колич.Доступность(0);
        //Форма.Скид.Доступность(0);
        //Форма.ЦенаР.Доступность(0);
        //
        //Форма.КодКлиента.Доступность(0);
        //Форма.Клиент.Доступность(0);
        //Форма.АдресПоставки.Доступность(0);
        //Форма.Склад.Доступность(0);
        //Форма.Агент.Доступность(0);
        //Форма.НомерДок.Доступность(0);
        //Форма.ДатаП.Доступность(0);
        //Форма.Скидка.Доступность(0);
        //Форма.ДатаДок.Доступность(0);
    Иначе
        Предупреждение("Сначала запишите заказ!");
    КонецЕсли;
    //КонецЕсли;  
    Если (ФПечать = 1) И (Печать = 0) Тогда
        Печать = 1;
        Записать();
    КонецЕсли;
    //отмечаем печать в любом случае
    Печать =1;
    //Сообщить("Флаг печати установлен ");
    Записать();
КонецПроцедуры

(9) (10) Так... Спокойно...
Чего нет в конфигураторе?

УПД

этой строки

Это 1с77 самописная , не типовая, так что это нормально

(12) Имеется ввиду нет строки "ЧтоПечатать = "УПД""?

(12) (13) (14) С Вами все в порядке?

внешняя печатная форма

она печатается ?
Если печатается , то перехватите номер выбираемой печатной формы .. но вообще даже в 7 ке уже были пополняемые списки стандартными формами ... поэтому она или есть в конфигураторе или просто имеет другое название и вам надо найти ее во внешних печатных формах ..где одно слово заменено словом упд.

(17) (18) Вангую - УПД не печатается.
А почему?
А потому (опять вангую) - во те лохматые времена УПД еще не было.
PS И, да, со мной все норм.

(19) у нее написано что есть пункт. Про печать не написано.

(20) А в коде в (10) не увидела. Я.
И по бажу - мне (лично) не понятно. Ничего.

(0) А так не пробовала?
https://i.paste.pics/7f30b04f76370fdbf05b43ae431167b9.png

(10) а отладчик что показывает? или не пробовала им пользоваться?

(21) И я. Не увидел.
Пункт УПД-то где? В диалоге? Что это за элемент метаданных, "пункт"?

в списке выбора перед печатью

(25) А Вы можете четко описать ситуацию?

В списке выбора перед печатью есть пункт "УПД", которого нигде нет.

(25) Послушайся (25), воспользуйся отладчиком.
Или.. Есть TeamViewer?

Если хочешь - пришли мне на мыло ИД и пароль

(27) УПД - печатает?

(27) Смотри здесь: сервис -> дополнительно -> внешние печформы

ну или как там у клюшек

Опять вагану:
в док-те есть кнопка. по кнопке вываливается список, в этом списке есть "УПД".
Дальше пока затрудняюсь...

так всегда и было. Подмена названия. Но у них там код такой что подмена может быть где угодно. К какой форме УПД ближе в семерке ?

(32) + а эелемент списка должен быть отловлен в приведенной процедуре 10, поскольку (так думаю) других входов и нет.
Вот тут и посмотреть, куда попадаем, что требует, как реагирует..

(33) А это что (кусок кода из (10)):
      СписокЗнПеч = СоздатьОбъект("СписокЗначений");
        //Заполним список действий по кнопке "Печать Скидок"

        СписокЗнПеч.УдалитьВсе();
        СписокЗнПеч.ДобавитьЗначение("Расходная накладная");
        СписокЗнПеч.ДобавитьЗначение("ТТН");
        СписокЗнПеч.ДобавитьЗначение("Счёт-фактура");
        СписокЗнПеч.ДобавитьЗначение("Складская накладная");
        //СписокЗнПеч.ДобавитьЗначение("Комплект для МЕТРО");

        //СписокЗнПеч.ДобавитьЗначение("Комплект для Гепард");

        //СписокЗнПеч.ДобавитьЗначение("Комплект для Копейки");

        //СписокЗнПеч.ДобавитьЗначение("Справка Б");

        СписокЗнПеч.ДобавитьЗначение("Торг12");
        //СписокЗнПеч.ДобавитьЗначение("Комплект ""Сладкая жизнь""");

        //СписокЗнПеч.ДобавитьЗначение("ТТН для Трио");

        //СписокЗнПеч.ДобавитьЗначение("Счет-фактура без скидки");

        //СписокЗнПеч.ДобавитьЗначение("Винотека Акт приема передачи");

        //СписокЗнПеч.ДобавитьЗначение("Винотека рекомендуемые розничные цены");

        //СписокЗнПеч.ДобавитьЗначение("Счет для Винотеки");

        СписокЗнПеч.ДобавитьЗначение("ЕГАИС");

(34) Я, все-таки, ведьма?

(36) Сомневалась? :)

На форме посмотреть имя СЗ (или ТЗ, что там...) и найти, где в модуле эта СЗ формируется. Не просто так УПД эта попадает в список-то.

(35) это свои формы добавляются , но должна где то еще добавляться внешние формы и формы из глобального модуля.
В общем найти в 7 ке все достаточно просто ..
берешь кусок текста из формы и глобальным поиском по всему компу .. где нибудь найдется..

(39) А если на кнопке висит (10)?
(37) Совсем чуть-чуть.

(36) А ты имела дела с УПД-то?

Там еще какой-то Антон поминается, у него-б и спросить, откуда что есть пошло.

ЗЫ. Ладно..

(41) У себя в ТиСе нарисовала... Даже печатается... Только клиенты требуют СФ...

(40) На кнопке, к.м.к., однозначно висит 10.
А СЗ спрятана в модуле.
10-ка пользует этот СЗ, и.. вот тут отладчик-бы помог.

+ (42) И это - чего там иметь-то? Для зайца с интеллектом :)

(42) Ааа.. вот оно что..

(44) понятно :)

(43) А внешняя просто зарегана для док-та.
И - усё... Приплыли...

Усё! Получается, для меня это высшие материи :)

(47) Ой, да, ладно... Для человека, который умеет пользоваться семерочным отладчиком...

@Босечка молчит.. И в списке под топиком её нет..

(48) с таким кодом упд может быть где угодно .. например за вызовом какой нибудь торг 12 или счета фаткруры дальше будет переадрисация .
Самое простое это вбить "универсальный передаточ..." и искать везде .. потом в обратную сторону.
Особенно если он печатается.

в PrnForms наверняка лежит

И еще одно.. Где ищется эта УПД? В рабочей базе? или в локальной, созданной типа для отладки, на другом компе..

(0) сымотри зарегистрированную внешнюю печатную форму у документа.
В сервис - регистрация внеш. печ форм.

ЗЫ: твой список, что в (0) дополняется еще внешними печ формами, только и всего лишь

нашла вроде, кошмар.....внешний оказался в не типовом месте

(55) Место-то какое? PrnForms?

Традиция. Правильный ответ был дан в самом начале ветки, а потом началось унижение топик-стартера

(57) Самолюбование + фалломорфирование с целью повышения длины, чтобы было чем брякнуть об стол)))

а что тут унижать ..видно что там в коде не один программист валялся .. там чего угодно нйти можно ..
я вот ужа давно матом пишу в конфигураторе .. там матофильтра нет и все работает.

До меня здесь работало 5 или 6 программистов. Это было не в папке каталога ИБ, в другом  каталоге (другой ИБ). Не смешно на самом деле. Там многие отчеты лежат, как мне системщик наш сказал.

папка ERT

Здесь такой форум, хамить любят....

(60) Никто вроде и не смеялся..
Информации было более, чем мало, потому и вопросы сыпались, понятно, что неудобные.

ЗЫ. Где-то в середине ветки показалось, что ТС или не читает, что пишут, или игнорирует вопросы.
Ну, нашла - и хорошо.

(62) На сколько вопросов из заданных в ветке Вы ответили?
(63) Я тоже не заметила хамства.
Вот и помогай после этого людям...
Еще про "активную гражданскую позицию" выслушивай...

Я сказала вообще, а не конктретно в этой теме.

Всем спасибо за помощь!