|
riplyk
5 - 13.07.2009 - 07:05
|
// Предопределенная процедура.
//
Процедура ПриНачалеВыбораЗначения(Идентификатор, Флаг)
Параметр=ВыбраннаяФирма;
Если Идентификатор = "ОснованиеОбязательства" Тогда
Если ВыбраннаяФирма.Выбран()=0 Тогда
Флаг=0;
Возврат;
КонецЕсли;
ОткрытьФорму("Справочник.Договоры", Параметр);
СтатусВозврата(0);
ИначеЕсли Найти(Идентификатор,"Счет") = 1 Тогда
Флаг=0;
ГрСч = ГрСчет.Получить(Идентификатор);
Если ГрСч.РазмерСписка() = 0 Тогда
Возврат;
КонецЕсли;
СчВыб = "";
Если ГрСч.ВыбратьЗначение(СчВыб,,,,2) <> 1 Тогда
Возврат;
КонецЕСли;
УстановитьАтрибут(Идентификатор, СчВыб);
ИначеЕсли Идентификатор="КБК" Тогда
Флаг=0;
СписокДляВыбора=СоздатьОбъект("СписокЗначений");
СписокКБК.Выгрузить(СписокДляВыбора);
ОткрытьФорму("Справочник.ФКР.ДляВыбораСОтбором", СписокДляВыбора);
Если Форма.МодальныйРежим()=1 Тогда
Если ПустоеЗначение(СписокДляВыбора) = 0 Тогда
КБК=СписокДляВыбора.ТекущийЭлемент();
КонецЕсли;
КонецЕсли;
ИначеЕсли Идентификатор = "РазделЛицевогоСчета" Тогда
Флаг = 0;
Парам = СоздатьОбъект("СписокЗначений");
Парам.ДобавитьЗначение(ВыбраннаяФирма, "Фирма");
Парам.ДобавитьЗначение(ОрганКазначейства, "Казначейство");
Парам.ДобавитьЗначение(Перечисление.КодВидаДеятельности.Бюджет, "КВД");
ОткрытьФормуМодально("Обработка.ВыборРазделаЛицевогоСчета", Парам);
Если ТипЗначенияСтр(Парам)="Справочник" Тогда
УстановитьАтрибут(Идентификатор,Парам);
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ПриНачалеВыбораЗначения() |