7.7 Передача параметра и контекста из формы в форму

Всем добрый день.
Помогите разобраться с передачей контекста и параметра.
Из формы расходной накладной вызываю новую форму ТНН

Код:

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

КонецПроцедуры//ПечатьТоварнаяНакладная

//***********************************************************

В открывшейся форме вызываю

Код:

Процедура СчитатьДокумент(Конт)
//

Фирма = Конт.Фирма;

Организация = ""; 
ТекОргНаим  = "";
ТекОргАдрес = "";
ТекОргИП    = "";


Если ПустоеЗначение(Фирма) = 0 Тогда
Организация      = Конт.Фирма;
КонецЕсли;

СобратьДанныеОрганизации(Организация, ТекОргИП, ТекОргНаим, ТекОргАдрес);

Если ТекОргИП = 0 Тогда
ГрузоотпрЮрЛицо  = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрФизЛицо = "";
Иначе
ГрузоотпрФизЛицо = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрЮрЛицо  = "";
КонецЕсли;

Контрагент = Конт.Клиент;



КонтрВид      = "";
КонтрНаим     = "";
КонтрАдрес    = "";
КонтрТелефоны = "";
КонтрИП       = 2;

СобратьДанныеКонтрагента(Контрагент, КонтрИП, КонтрНаим, КонтрАдрес, КонтрТелефоны); 

Если КонтрИП = 0 Тогда
ГрузополЮрЛицо  = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополФизЛицо = "";
Иначе
ГрузополФизЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополЮрЛицо  = "";
КонецЕсли;


НаклДата = Конт.ДатаДок;
НаклНомер = Конт.НомерДок;



Конт.ВыгрузитьТабличнуюЧасть(ТабличнаяЧасть);

ОбщКолво   = ТабличнаяЧасть.Итог("Количество");
НаимГрузаКолвоМаркировка = СокрЛП(ОбщКолво) + "кор";


КонецПроцедуры // СчитатьДокумент()

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриОткрытии()

// Определение закладок формы
Форма.ИспользоватьЗакладки(1);
Форма.Закладки.ДобавитьЗначение(1, "Разделы 1-4"); 
Форма.Закладки.ДобавитьЗначение(2, "Разделы 5-7"); 
Форма.Закладки.ДобавитьЗначение(3, "Разделы 8-9");
Форма.Закладки.ДобавитьЗначение(4, "Об.сторона. Разделы 10-13");
Форма.Закладки.ДобавитьЗначение(5, "Об.сторона. Разделы 14-17");	
Форма.ИспользоватьСлой("Основной, Разделы1_2_3_4, Кнопки", 2); 

ЭкзНомер = 1; 

Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначения" Тогда

Конт = Форма.Параметр.Получить("Контекст");


КонецЕсли;


СчитатьДокумент(Конт);

КонецПроцедуры // ПриОткрытии()

ДатаДок и ДатНомер передаются, а Фирма и клиент нет.
Не могу разобраться почему.

с виду фсё верно
отладчиком пройдись
или сюда внеш.форму выложи

Скорее всего

Код:

Если ПустоеЗначение(Фирма)=0 Тогда
Организация = Конт.Клиент;
КонецЕсли;

А вот форма
Посмотреть вложение 7959

А еще при проверке

Код:

Сообщить(ТипЗначенияСтр(Конт));
Сообщить(ТипЗначения(Конт));

Фирма = Конт.Фирма;

Выдает сообщение

0
Фирма = Конт.Фирма.ТекущийЭлемент();
{J:\BASES_ANPO\FARMACEFT\TABLES\ТОВАРНАЯНАКЛАДНАЯ.ERT(498)}: Значение не представляет агрегатный объект (Фирма)

Все равно ругается как было написано выше.

Исправил в коде

Код:

Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначения" Тогда

на

Код:

Если ТипЗначенияСтр(Форма.Параметр)="СписокЗначений" Тогда

Теперь выдает сообщение

Документ
12

Что это значит?

а если я в место кода

Код:

	//Параметры.ДобавитьЗначение(?((Модифицированность()=0)и(ПустоеЗначение(ТекущийДокумент())=0), ТекущийДокумент(), глВзятьКонтекст(Контекст)), "Контекст");

делаю код

Код:

	Параметры.Установить("Контекст",глВзятьКонтекст(Контекст));

то сообщает
ГрупповойКонтекст
100

ну да, прос то синтаксическая ощибка была "СписокЗначения"
теперь-то все должно работать

Форма открывается, некоторые данные попадают, а
основные организация и контрагент нет(.