I
Irsis
Ну конечно они его затёрли я заново всё ставила.а тебе конфу не обновили случаем? тогда прощай formex - его запросто могли затереть( в смысле загрузку).
Код:
Если ЗагрузитьВнешнююКомпоненту("FormEx.dll") = 0 Тогда
Предупреждение("Неудачная попытка загрузить FormEx.dll");
СтатусВозврата(0);
Возврат;
КонецЕсли;
Сервис = СоздатьОбъект("Сервис");
//разрешаем использование раскраски таблиц
Сервис.ВключитьРаскраскуТаблиц();
Сервис.ПерехватКлавиатуры(0);
Я так понимаю, если бы FormEx не загрузился, комп бы выругался. Что ты думал под "версию dll махнули"?
Интересно... Ну пройдусь ещё раз по глобальному модулю. Вдруг что не туда вставила....
А условие Число(ТекущийДокумент.Выбран())>0 выполняет?
Если не ругается - значит кажись проходит условие.
Вот мне как раз и кажется, что не выполняет. У меня сейчас так осталось
Код:
Функция ПроверитьСтатус()
Если (Число(ТекущийДокумент.Выбран())>0) тогда
Сообщить ("Да");
Если СокрЛП(Строка(ТекущийДокумент.Статус.Наименование))="PIETEIKTS" Тогда
Возврат "BRUSH[" + ПолучитьЦвет(255,153,204) + "]";
ИначеЕсли СокрЛП(Строка(ТекущийДокумент.Статус.Наименование))="PASјT¬TS" Тогда
Возврат "BRUSH[" + ПолучитьЦвет(255,255,153) + "]";
ИначеЕсли СокрЛП(Строка(ТекущийДокумент.Статус.Наименование))="IZPILD¬TS" Тогда
Возврат "FONT[" + ПолучитьЦвет(128,128,128) + "]";
ИначеЕсли СокрЛП(Строка(ТекущийДокумент.Статус.Наименование))="DA±¦JI IZPILD¬TS" Тогда
Возврат "FONT[" + ПолучитьЦвет(128,128,128) + "]"+ "BRUSH[" + ПолучитьЦвет(255,255,153) + "]";
ИначеЕсли СокрЛП(Строка(ТекущийДокумент.Статус.Наименование))="CENU PIEDЎVЎJUMS" Тогда
Возврат "BRUSH[" + ПолучитьЦвет(255,153,204) + "]";
Иначе
Возврат "";
КонецЕсли;
КонецЕсли;
КонецФункции
Если бы выполнялось условие Если (Число(ТекущийДокумент.Выбран())>0) тогда он бы мне много много раз написал Да, а он молчит