v7: Получение и передача данных в форму

Код в накладной

[code]Процедура ПечатьТоварнаяНакладная()
Параметры = СоздатьОбъект("СписокЗначений");
Параметры.ДобавитьЗначение(Фирмы,"Фирмы");
Параметры.ДобавитьЗначение(Клиент,"Клиенты");
Параметры.Установить("Устройство",0);
Параметры.Установить("КоличествоКопий",1);
//Параметры.ДобавитьЗначение(?((Модифицированность()=0)и(ПустоеЗначение(ТекущийДокумент())=0), ТекущийДокумент(), глВзятьКонтекст(Контекст)), "Контекст");
Параметры.Установить("Контекст",глВзятьКонтекст(Контекст));

ОткрытьФорму("Отчет",Параметры,КаталогИБ()+"\tables\ТоварнаяНакладная.ert");

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

Это код в обработке

[code]//////Перем УчитыватьНДС, СуммаВклНДС, УчитыватьНП, СуммаВклНП, Скидка;
//////
Перем Фирма, Контрагент, ТабличнаяЧасть;
////// СуммаНП, Сумма, ДатаДок, КоличествоСтрок,
////// НазваниеДокумента, Валюта, Курс, Кратность;

//////Перем ТекущийДокумент, КодОперации;

Перем Номер;

Перем НазваниеДокумента;

//******************************************************************************
// Предопределенная процедура
//
Процедура ПриВыбореЗакладки(НомерЗакладки, ЗначениеЗакладки)

Если ЗначениеЗакладки = 1 Тогда

Форма.ИспользоватьСлой("Основной, Разделы1_2_3_4, Кнопки", 2);

ИначеЕсли ЗначениеЗакладки = 2 Тогда

Форма.ИспользоватьСлой("Основной, Разделы5_6_7, Кнопки", 2);

ИначеЕсли ЗначениеЗакладки = 3 Тогда

Форма.ИспользоватьСлой("Основной, Разделы8_9, Кнопки", 2);

ИначеЕсли ЗначениеЗакладки = 4 Тогда

Форма.ИспользоватьСлой("Основной, Разделы10_11_12_13, Кнопки", 2);

ИначеЕсли ЗначениеЗакладки = 5 Тогда

Форма.ИспользоватьСлой("Основной, Разделы14_15_16_17, Кнопки", 2);

КонецЕсли;

КонецПроцедуры // ПриВыбореЗакладки()

//******************************************************************************
Процедура ВыбратьНаимГрузаОтгрузочное()

СпНаимГр = СоздатьОбъект("ТаблицаЗначений");

СпНаимГр.НоваяКолонка("Код", , , , , 16);
СпНаимГр.НоваяКолонка("Наименование", , , , , 255);

ТаблицаПеречень = СоздатьОбъект("Таблица");
ТаблицаПеречень.ИсходнаяТаблица("ЕТСНГ");
ТаблицаПеречень.Вывести();

НомСтрокиТаблицы = 2;

Пока Лев(ТаблицаПеречень.Область(НомСтрокиТаблицы, 1).Текст, 3) <> "###" Цикл

Код = СокрЛП(ТаблицаПеречень.Область(НомСтрокиТаблицы, 1).Текст);
Наименование = СокрЛП(ТаблицаПеречень.Область(НомСтрокиТаблицы, 2).Текст);

СпНаимГр.НоваяСтрока();

СпНаимГр.Код = Код;
СпНаимГр.Наименование = Наименование;

НомСтрокиТаблицы = НомСтрокиТаблицы + 1;

КонецЦикла;

НомерСтрокиСписка = 0;

НаимГрузаОтгрузочное_Код = Прав(НаимГрузаОтгрузочное,6);

СпНаимГр.НайтиЗначение(НаимГрузаОтгрузочное_Код, НомерСтрокиСписка, 1);

СпНаимГр.ВыбратьСтроку(НомерСтрокиСписка, "Выбор значения");

Если НомерСтрокиСписка > 0 Тогда

НаимГрузаОтгрузочное = СокрЛП(СпНаимГр.ПолучитьЗначение (НомерСтрокиСписка, "Наименование")) + " " + СокрЛП(СпНаимГр.ПолучитьЗначение (НомерСтрокиСписка, "Код"));

КонецЕсли;

КонецПроцедуры //ВыбратьНаимГрузаОтгрузочное()

//******************************************************************************
Функция ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес)
ТекОргДанные = "";

ТекОргДанные = СокрЛП(ТекОргНаим);

Если ПустоеЗначение(ТекОргАдрес) = 0 Тогда
ТекОргДанные = ТекОргДанные + ", " + СокрЛП(ТекОргАдрес);
КонецЕсли;

Возврат ТекОргДанные;

КонецФункции //ПоказатьДанныеФизЛица()

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

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

Если (ПустоеЗначение(ТекОрганизация) = 0) и (ТекОрганизация.Вид() = "СвоиЮрЛица") Тогда

ТекОргИП = ТекОрганизация.ИндивидуальныйПредприниматель;
ТекОргНаим = ТекОрганизация.ПолнНаименование;
ТекОргАдрес = глПредставлениеАдреса(ТекОрганизация.ФактАдрес);

КонецЕсли;

КонецПроцедуры //СобратьДанныеКонтрагента()

//******************************************************************************
Функция ПоказатьДанныеКонтрагента(ТекКонтрНаим, ТекКонтрАдрес, ТекКонтрТелефоны)
ТекКонтрДанные = "";

ТекКонтрДанные = СокрЛП(ТекКонтрНаим);

Если ПустоеЗначение(ТекКонтрАдрес) = 0 Тогда
ТекКонтрДанные = ТекКонтрДанные + ", " + СокрЛП(ТекКонтрАдрес);
КонецЕсли;

Если ПустоеЗначение(ТекКонтрТелефоны) = 0 Тогда
ТекКонтрДанные = ТекКонтрДанные + ", тел." + СокрЛП(ТекКонтрТелефоны);
КонецЕсли;

Возврат ТекКонтрДанные;

КонецФункции //ПоказатьДанныеФизЛица()

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

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

//Если (ПустоеЗначение(ТекКонтрагент) = 0) и (ТекКонтрагент.Вид() = "Контрагенты") Тогда
Если (ПустоеЗначение(ТекКонтрагент) = 0) и (ТекКонтрагент.Вид() = "Клиенты") Тогда //у нас в место спр Контрагенты, спр Клиенты

Если (ПустоеЗначение(ТекКонтрагент.ЮрФизЛицо) = 0) Тогда

ТекКонтрВид = ТекКонтрагент.ЮрФизЛицо.Вид();

//спр СвоиЮрЛица, ЮрЛица и ФизЛица у нас нет, есть Фирмы, Клиенты и Сотрудники

//Если ТекКонтрВид = "СвоиЮрЛица" Тогда
Если ТекКонтрВид = "Фирмы" Тогда
ТекКонтрИП = ТекКонтрагент.ЮрФизЛицо.ИндивидуальныйПредприниматель;
ТекКонтрНаим = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
//ТекКонтрАдрес = глПредставлениеАдреса(ТекКонтрагент.ЮрФизЛицо.ФактАдрес);

//ИначеЕсли ТекКонтрВид = "ЮрЛица" Тогда
Если ТекКонтрВид = "Клиенты" Тогда
ТекКонтрИП = 0;
ТекКонтрНаим = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
//ТекКонтрАдрес = глПредставлениеАдреса(ТекКонтрагент.ЮрФизЛицо.ФактАдрес);

//ИначеЕсли ТекКонтрВид = "ФизЛица" Тогда
Если ТекКонтрВид = "Сотрудники" Тогда
ТекКонтрИП = 1;
ТекКонтрНаим = ТекКонтрагент.ЮрФизЛицо.ПолнНаименование;
//ТекКонтрАдрес = глПредставлениеАдреса(ТекКонтрагент.ЮрФизЛицо.ФактАдрес);
ТекКонтрТелефоны = ТекКонтрагент.ЮрФизЛицо.Телефоны;

КонецЕсли;

КонецЕсли;
КонецЕсли;

КонецПроцедуры //СобратьДанныеКонтрагента()

//******************************************************************************
Функция ПоказатьДанныеФизЛица(ТекФЛФИО, ТекФЛТелефоны)

ТекФЛДанные = "";

ТекФЛДанные = СокрЛП(ТекФЛФИО);

Если ПустоеЗначение(ТекФЛТелефоны) = 0 Тогда
ТекФЛДанные = ТекФЛДанные + ", тел." + СокрЛП(ТекФЛТелефоны);
КонецЕсли;

Возврат ТекФЛДанные;

КонецФункции //ПоказатьДанныеФизЛица()

//******************************************************************************
Процедура СобратьДанныеФизЛица(ТекФизЛицо, ТекФЛФИО, ТекФЛТелефоны)

ТекФЛФИО = "";
ТекФЛТелефоны = "";

//Если (ПустоеЗначение(ТекФизЛицо) = 0) и (ТекФизЛицо = "ФизЛица") Тогда
Если (ПустоеЗначение(ТекФизЛицо) = 0) и (ТекФизЛицо = "Сотрудники") Тогда

ТекФЛФИО = СокрЛП(ТекФизЛицо.Наименование);
ТекФЛТелефоны = СокрЛП(ТекФизЛицо.Телефоны);

КонецЕсли;

КонецПроцедуры //СобратьДанныеФизЛица()

//******************************************************************************
//Предопределенная процедура
//ОбработкаВыбораЗначения()
//
//Параметры:
//
//
//Возвращаемое значение:
//
//
//Описание:
//
//
Процедура ОбработкаВыбораЗначения(ВыбЗнач, ИдентЭлемДиалога, ФлагСтандОбр = 0)

Если ИдентЭлемДиалога = "ГрузоотпрФизЛицо" Тогда

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

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

Если ТекОргИП = 0 Тогда
Если Вопрос("Выбранная организация является юр.лицом. Заполнить данные о грузоотправителе-юридическом лице?",4, 60) = 7 Тогда
ГрузоотпрФизЛицо = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрЮрЛицо = "";
Иначе
ГрузоотпрЮрЛицо = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрФизЛицо = "";
КонецЕсли;
Иначе
ГрузоотпрФизЛицо = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрЮрЛицо = "";
КонецЕсли;

ИначеЕсли ИдентЭлемДиалога = "ГрузоотпрЮрЛицо" Тогда

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

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

Если ТекОргИП = 1 Тогда
Если Вопрос("Выбранная организация является ИП. Заполнить данные о грузоотправителе-физическом лице?",4, 60) = 7 Тогда
ГрузоотпрЮрЛицо = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрФизЛицо = "";
Иначе
ГрузоотпрФизЛицо = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрЮрЛицо = "";
КонецЕсли;
Иначе
ГрузоотпрЮрЛицо = ПоказатьДанныеОрганизации(ТекОргНаим, ТекОргАдрес);
ГрузоотпрФизЛицо = "";
КонецЕсли;

ИначеЕсли ИдентЭлемДиалога = "ГрузоотпрОтветственный" Тогда

ТекФЛФИО = "";
ТекФЛТелефоны = "";

СобратьДанныеФизЛица(ВыбЗнач, ТекФЛФИО, ТекФЛТелефоны);

ГрузоотпрОтветственный = ПоказатьДанныеФизЛица(ТекФЛФИО, ТекФЛТелефоны);

ИначеЕсли ИдентЭлемДиалога = "ГрузополФизЛицо" Тогда

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

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

Если КонтрИП = 0 Тогда
Если Вопрос("Выбранная организация является юр.лицом. Заполнить данные о грузополучателе-юридическом лице?",4, 60) = 7 Тогда
ГрузополФизЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополЮрЛицо = "";
Иначе
ГрузополЮрЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополФизЛицо = "";
КонецЕсли;
Иначе
ГрузополФизЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополЮрЛицо = "";
КонецЕсли;

ИначеЕсли ИдентЭлемДиалога = "ГрузополЮрЛицо" Тогда

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

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

Если КонтрИП = 1 Тогда
Если Вопрос("Выбранная организация является физическим.лицом. Заполнить данные о грузополучателе-физическом лице?",4, 60) = 7 Тогда
ГрузополЮрЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополФизЛицо = "";
Иначе
ГрузополФизЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополЮрЛицо = "";
КонецЕсли;
Иначе
ГрузополЮрЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ГрузополФизЛицо = "";
КонецЕсли;

ИначеЕсли ИдентЭлемДиалога = "ГрузополОтветственный" Тогда

ТекФЛФИО = "";
ТекФЛТелефоны = "";

СобратьДанныеФизЛица(ВыбЗнач, ТекФЛФИО, ТекФЛТелефоны);

ГрузополОтветственный = ПоказатьДанныеФизЛица(ТекФЛФИО, ТекФЛТелефоны);

ИначеЕсли ИдентЭлемДиалога = "ПеревозФизЛицо" Тогда

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

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

Если КонтрИП = 0 Тогда
Если Вопрос("Выбранная организация является юридическом.лицом. Заполнить данные о перевозчике-юридическом лице?",4, 60) = 7 Тогда
ПеревозФизЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ПеревозЮрЛицо = "";
Иначе
ПеревозЮрЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ПеревозФизЛицо = "";
КонецЕсли;
Иначе
ПеревозФизЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ПеревозЮрЛицо = "";
КонецЕсли;

ИначеЕсли ИдентЭлемДиалога = "ПеревозЮрЛицо" Тогда

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

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

Если КонтрИП = 1 Тогда
Если Вопрос("Выбранная организация является физическим.лицом. Заполнить данные о перевозчике-физическом лице?",4, 60) = 7 Тогда
ПеревозЮрЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ПеревозФизЛицо = "";
Иначе
ПеревозФизЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ПеревозЮрЛицо = "";
КонецЕсли;
Иначе
ПеревозЮрЛицо = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, КонтрТелефоны);
ПеревозФизЛицо = "";
КонецЕсли;

ИначеЕсли ИдентЭлемДиалога = "ПеревозОтветственный" Тогда

ТекФЛФИО = "";
ТекФЛТелефоны = "";

СобратьДанныеФизЛица(ВыбЗнач, ТекФЛФИО, ТекФЛТелефоны);

ПеревозОтветственный = ПоказатьДанныеФизЛица(ТекФЛФИО, ТекФЛТелефоны);

ИначеЕсли ИдентЭлемДиалога = "ПеревозВодитель" Тогда

ТекФЛФИО = "";
ТекФЛТелефоны = "";

СобратьДанныеФизЛица(ВыбЗнач, ТекФЛФИО, ТекФЛТелефоны);

ПеревозВодитель = ПоказатьДанныеФизЛица(ТекФЛФИО, ТекФЛТелефоны);

ИначеЕсли ИдентЭлемДиалога = "ПереадресовкаПолучатель" Тогда

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

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

ПереадресовкаПолучатель = ПоказатьДанныеКонтрагента(КонтрНаим, КонтрАдрес, "");

КонецЕсли;

КонецПроцедуры // ОбработкаВыбораЗначения()

//******************************************************************************
//Предопределенная процедура
//ПриНачалеВыбораЗначения()
//
//Параметры:
//
//
//Возвращаемое значение:
//
//
//Описание:
//
//
Процедура ПриНачалеВыбораЗначения(ИдентЭлемДиалога)

Если (ИдентЭлемДиалога = "ГрузоотпрФизЛицо")
или (ИдентЭлемДиалога = "ГрузоотпрЮрЛицо") Тогда

Параметр = 1;

//ОткрытьФорму("Справочник.СвоиЮрЛица", Параметр);
ОткрытьФорму("Справочник.Клиенты", Параметр);

ИначеЕсли (ИдентЭлемДиалога = "ГрузополФизЛицо")
или (ИдентЭлемДиалога = "ГрузополЮрЛицо")
или (ИдентЭлемДиалога = "ПеревозФизЛицо")
или (ИдентЭлемДиалога = "ПеревозЮрЛицо")
или (ИдентЭлемДиалога = "ПереадресовкаПолучатель") Тогда

Параметр = "Выбор";

//ОткрытьФорму("Справочник.Контрагенты", Параметр);
ОткрытьФорму("Справочник.Клиенты", Параметр);

ИначеЕсли (ИдентЭлемДиалога = "ГрузоотпрОтветственный")
или (ИдентЭлемДиалога = "ГрузополОтветственный")
или (ИдентЭлемДиалога = "ПеревозОтветственный")
или (ИдентЭлемДиалога = "ПеревозВодитель") Тогда

//ОткрытьФорму("Справочник.ФизЛица");
ОткрытьФорму("Справочник.Сотрудники");

ИначеЕсли (ИдентЭлемДиалога = "НаимГрузаОтгрузочное") Тогда

ВыбратьНаимГрузаОтгрузочное();

КонецЕсли;

КонецПроцедуры // ПриНачалеВыбораЗначения()

//******************************************************************************
// СчитатьДокумент(Конт)
//
// Параметры:
// Конт - переданный контекст;
//
// Возвращаемое значение:
// Нет
//
// Описание:
// Считывает необходимые для печати реквизиты документа, контекст которого передали через
// параметр формы, в модульные переменные
//
Процедура СчитатьДокумент(Конт)
//
//Сообщить(ТипЗначенияСтр(Конт));
//Сообщить(ТипЗначения(Конт));

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

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

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

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

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

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

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

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

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

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

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

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

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

//******************************************************************************
Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ВывестиСекцию("ЛицеваяСторона");
Таб.НоваяСтраница();
Таб.ВывестиСекцию("ОборотнаяСторона");
Таб.ПараметрыСтраницы(1,,,,0,0,0,0,0,1);

Таб.Опции(0,0,0,0,"ОпцииПечатиНакладной","ОкноНакладной");
Таб.ТолькоПросмотр(1);

//Если глПолучитьПолномочие("РазрешитьРедактированиеТаблиц") = 0 Тогда
// Таб.Защита(1);
//Иначе
// Таб.Защита(0);
//КонецЕсли;

Таб.Показать(НазваниеДокумента,"");

КонецПроцедуры //Печать

//******************************************************************************
// ПоКнопкеПечать()
//
// Параметры:
// Нет
//
// Возвращаемое значение:
// Нет
//
// Описание:
//
Процедура ПоКнопкеПечать()

Печать();

КонецПроцедуры // ПоКнопкеПечать()

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

//Если ПустоеЗначение(Форма.Параметр) = 1 Тогда
// Предупреждение("Данная обработка предназначена для печати товарной накладной
// |и должна быть зарегистрирована в списке внешних печатных форм конфигурации.
// |Запуск обработки без параметра невозможен.",60);
// Статусвозврата(0);
// Возврат;
//КонецЕсли;

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

ЭкзНомер = 1;

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

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

КонецЕсли;

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

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