Всем добрый вечер!
Нужна помощь или помогите разобраться в прикреплении новой ТТН к конфигурации.
Конфигурация самописная.
Из расходной накладной вызываю новую форму.
Что нужно передавать контекст или параметр?
Процедура ПечатьТоварнаяНакладная()
 ОткрытьФорму("Отчет.ТоварнаяНакладная",глВзятьКонтекст(Контекст));
КонецПроцедуры
или так
Процедура ПечатьТоварнаяНакладная()
 ОткрытьФорму("Отчет.ТоварнаяНакладная",Параметр);
КонецПроцедуры

зависит от того, как написан данный отчёт...

Данный отчет стандартный  из ТиС
TN01PRINT

регистрация внешних печформ - не оно?

блин, она же ч/з механизм вн.печ.форм сделана, там вообще ПРОСТО НАДО СКОПИРОВАТЬ

конфигурация самописная механизма вн.печ.форм нет.(((

(5) т.е. вообще не на базе ТиС? так?

может обратиться к автору самописки?

так там только бланк вроде. вставьте этот бланк в конфу. и заполняйте как хотите.

(8) я имел ввиду сначала про внешнюю )))

наверно тогда аналогично товарно транспортной накладной.

Параметры = СоздатьОбъект("СписокЗначений");
           Параметры.Установить("Устройство", 0);
           Параметры.Установить("КоличествоКопий", 1);
           Параметры.Установить("Контекст",глВзятьКонтекст(Контекст));
           ОткрытьФорму("Отчет", Параметры, КаталогИБ()+"\ExtForms\TN01PRINT.ert");

(8) там форма и бланк

(6) на базе фармацевт рарус

этот отчет допилить - пол часа включая беготню за уточнением хотелок

Сомневаюсь, что TN01PRINT - штатная в ТиС, у них обычно не такие "правила" именования файлов...

(15) фигли, им 8-ка уже вынесла мозг.

штатная

А теперь полная засада с передачей параметров.
Помогите разобраться, только камнями и другими предметами не кидайтесь.
Есть процедуры
СобратьДанныеКонтрагента и ПоказатьДанныеКонтрагента
Насколько я понимаю мы сначало собираем данные,а потом их показываем. Но у меня ничего не показывает, что не так.
Процедура СобратьДанныеКонтрагента(ТекКонтрагент, ТекКонтрИП, ТекКонтрНаим, ТекКонтрАдрес, ТекКонтрТелефоны)
   
   ТекКонтрВид        = "";
   ТекКонтрНаим       = "";
   ТекКонтрАдрес      = "";
   ТекКонтрТелефоны   = "";
   ТекКонтрИП         = 2;
   
   //Если (ПустоеЗначение(ТекКонтрагент) = 0)  и (ТекКонтрагент = "Контрагенты") Тогда
   Если (ПустоеЗначение(ТекКонтрагент) = 0)  и (ТекКонтрагент = "Клиенты") Тогда // у нас Контрагенты это спр.Клиенты
       
       
       Если (ПустоеЗначение(ТекКонтрагент.ЮрФизЛицо) = 0)  Тогда
           
       
       
           ТекКонтрВид = ТекКонтрагент.ЮрФизЛицо.Вид();
           
           //Спр СвоиЮрЛица, ЮрЛица, ФизЛица у нас нет, есть Клиенты и Сотрудники
           
           //Если ТекКонтрВид  = "СвоиЮрЛица" Тогда
           Если ТекКонтрВид  = "Клиенты" Тогда
               
               ТекКонтрИП    = ТекКонтрагент.ЮрФизЛицо.ИндивидуальныйПредприниматель;
               ТекКонтрНаим  = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
               //ТекКонтрАдрес = глПредставлениеАдреса(ТекКонтрагент.ЮрФизЛицо.ФактАдрес);
               ТекКонтрАдрес = ТекКонтрагент.ЮрФизЛицо.ФактАдрес;
               
               
           //ИначеЕсли ТекКонтрВид = "ЮрЛица" Тогда
           ИначеЕсли ТекКонтрВид = "Клиенты" Тогда
               ТекКонтрИП    = 0;
               ТекКонтрНаим  = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
               //ТекКонтрАдрес = глПредставлениеАдреса(ТекКонтрагент.ЮрФизЛицо.ФактАдрес);
               ТекКонтрАдрес = ТекКонтрагент.ЮрФизЛицо.ФактАдрес;
               
           //ИначеЕсли ТекКонтрВид = "ФизЛица" Тогда
           ИначеЕсли ТекКонтрВид = "Сотрудники" Тогда
               ТекКонтрИП       = 1;
               ТекКонтрНаим     = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
               //ТекКонтрАдрес    = глПредставлениеАдреса(ТекКонтрагент.ЮрФизЛицо.ФактАдрес);
               ТекКонтрАдрес    = ТекКонтрагент.ЮрФизЛицо.ФактАдрес;
               
               ТекКонтрТелефоны = ТекКонтрагент.ЮрФизЛицо.Телефоны;
               
           КонецЕсли;
           
       КонецЕсли;        
   КонецЕсли;        

КонецПроцедуры //СобратьДанныеКонтрагента()
В форму ничего не выводится