1
rozer76
29.02.12
✎
18:13
|
Процедура ДействияФормыЗафиксироватьШапку(Кнопка)
Результат = ЭлементыФормы.Результат;
ИмяОбласти = Результат.ТекущаяОбласть.Имя;
ПозицияДвоеточия = Найти(ИмяОбласти,":");
Если ПозицияДвоеточия > 0 тогда
ВсегоСимволов = СтрДлина(ИмяОбласти);
ИмяОбласти = Сред(ИмяОбласти,ПозицияДвоеточия+1,ВсегоСимволов-ПозицияДвоеточия);
КонецЕсли;
ПозицияС = Найти(ИмяОбласти,"C");
Строк = Сред(ИмяОбласти,2,ПозицияС-2);
Столбцов = Сред(ИмяОбласти,ПозицияС+1,СтрДлина(ИмяОбласти)-ПозицияС);
Результат.ФиксацияСверху = Число(Строк);
Результат.ФиксацияСлева = Число(Столбцов);
КонецПроцедуры
|
|