0
kupec
13.02.17
✎
09:01
|
Ребята с началом рабочей недели. Бьюсь с пятницы. Не могу понять в чем загвоздка. На форме есть 30 полей аля текст с идентификаторами Т1,Т2....Т30. В формуле объекта прописано КодКнопки("Кнопка_Товар1 ( и т.д. до 30)") Также есть числовые атрибуты Кнопка_Товар1 и т.д. ниже функция. Работает возврат данных правильно но расскрас не работает....что я только не пробовал...не получается. До условия когда нужно ставить тот или иной цвет доходит правильно и попадает в него правильно, а вот раскраса нет. Подскажите что не так. Заранее спасибо
Функция КодКнопки(Кн)
Результат=ФормаРасш.ПолучитьАтрибут(Кн).Значение;
Если СокрЛП(Результат)="0" Тогда
Если Найти(Кн,"Кнопка_Товар")<>0 Тогда
АтрФормы = СоздатьОбъект("АтрибутФормы");
АтрФормы.УстановитьАтрибут(Форма,"Т"+Сред(Кн,13));
АтрФормы.ЦветШрифта= 255;
//ФормаРасш.ПолучитьАтрибут("Т"+Сред(Кн,13)).ЦветШрифта=255;
КонецЕсли;
Возврат "Не установлен";
Иначе
Если Найти(Кн,"Кнопка_Товар")<>0 Тогда
ФормаРасш.ПолучитьАтрибут("Т"+Сред(Кн,13)).ЦветШрифта=32768;
КонецЕсли;
Возврат "Код: "+СокрЛП(Результат);
КонецЕсли;
//АФ=СоздатьОбъект("АтрибутФормы");
//АФ.УстановитьАтрибут(Форма,СокрЛП(Кн));
//Если АФ.Значение=0 Тогда
// Возврат "Не установлен";
//Иначе
// Возврат "Код: "+СокрЛП(АФ.Значение);
//КонецЕсли;
КонецФункции
|
|