• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Не могу найти ошибку :(

  • Автор темы Irsis
  • Дата начала
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) тогда он бы мне много много раз написал Да, а он молчит
 
P

puh14

Проверь - не объявили ли переменную ТекущийДокумент в глобальнике и в модуле формы списка.
Проверил. Объявление перемнной в глобальнике не дает эффекта, а вот в форме - ещё как, сплошные реквизит не найден.
 
I

Irsis

Да нет... Не объявили... Займусь наверное полным сравнением конфигураций до и после... Может быть, когда увижу, что поменяли, пойму в чём дело.
 
P

puh14

а у тебя в журнале счетов только документы вида счет? или ещё какие есть?
Кстати - а статус не периодический ли?
 
I

Irsis

а у тебя в журнале счетов только документы вида счет? или ещё какие есть?

Есть ещё Заказ и СнятиеРезерва, но они и до этого были. Статус не переодический :) Документы и журналы вроде сравнила, ничего подозрительного. Займусь глобальным модулем. А ведь наверняка какая-нибудь глупость будет.
 
P

puh14

Значит скорее всего в документах Заказ и СнятиеРезерва нет реквизита статус, посему и шла ругань
поле агрегатного объекта не обнаружено (Статус).
. Добавь этот реквизит в шапку Заказ и СнятиеРезерва, а код функции оставить как был когда он ругался

Функция ПроверитьСтатус()


Если СокрЛП(Строка(ТекущийДокумент.Статус.Наименование))="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) + "]";
Иначе
Возврат "";
КонецЕсли;



КонецФункции

ежли и тут не покажет - тогда что-то точно с formex
 
I

Irsis

Formex загружается, у меня проверка стоит. На сколько я понимаю, у меня текущий документ не находит и соотвественно нечего проверять и раскрашивать. Помучаюсь сегодня ещё, если что-нибудь получится - отпишу :unsure:

Забыла написать, у меня во всех документах журнала есть реквизит шапки Статус

Мне тут один факт подозрительным кажется, но сама не настолько сильна в 1С, чтобы разобраться. Пока меня не было и объединяли мою конфигурацию с исправленной, документ Заказ пропал вообще. После отпуска я заново создала в конфигурации такой документ. В журнале документов старые док я конечно не вижу. Те места, что после обновлений пропали я вручную копировала из старой конфы. Может здесь я что-то не так сделала?
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!