2
Чайник Рассела
27.05.14
✎
20:03
|
приначалеработысистемы
ПодключитьОбработчикОжидания("УзнатьТекущуюПодсистему", 0.3, Истина);
Процедура УзнатьТекущуюПодсистему() Экспорт
Попытка
Ссылка = АктивноеОкно().ПолучитьНавигационнуюСсылку();
Исключение
КонецПопытки;
Если Найти(Ссылка,"navigationpoint") Тогда
Подсистема = СтрЗаменить(Ссылка, "e1cib/navigationpoint/", "");
Знак = Найти(Подсистема, "/");
Если Знак > 0 Тогда
Подсистема = Лев(Подсистема, Знак-1);
КонецЕсли;
Если ТекущаяПодсистема <> Подсистема Тогда
Если Подсистема = "ПриемНаКомиссию" Тогда
ОткрытьФорму("Документ.ПриемТовараНаКомиссию.ФормаСписка", , , , АктивноеОкно());
ИначеЕсли Подсистема = "Перемещение" Тогда
ОткрытьФорму("Документ.ПеремещениеТовара.ФормаСписка", , , , АктивноеОкно());
ИначеЕсли Подсистема = "Уценка" Тогда
ОткрытьФорму("Документ.УценкаТовара.ФормаСписка", , , , АктивноеОкно());
ИначеЕсли Подсистема = "ВозвратТовара" Тогда
ОткрытьФорму("Документ.ВозвратТовара.ФормаСписка", , , , АктивноеОкно());
ИначеЕсли Подсистема = "ВозвратТовараКомитенту" Тогда
ОткрытьФорму("Документ.ВозвратТовараКомитенту.ФормаСписка", , , , АктивноеОкно());
ИначеЕсли Подсистема = "Расчеты" Тогда
ОткрытьФорму("Документ.ВыплатаКомитенту.ФормаСписка", , , , АктивноеОкно());
ИначеЕсли Подсистема = "ВозвратТовараОтПокупателя" Тогда
ОткрытьФорму("Документ.ВозвратТовараОтПокупателя.ФормаСписка", , , , АктивноеОкно());
ИначеЕсли Подсистема = "Инвентаризация" Тогда
ОткрытьФорму("Документ.Инвентаризация.ФормаСписка", , , , АктивноеОкно());
КонецЕсли;
ТекущаяПодсистема = Подсистема;
КонецЕсли;
КонецЕсли;
ПодключитьОбработчикОжидания("УзнатьТекущуюПодсистему", 0.3, Истина);
КонецПроцедуры
|
|