Имя: Пароль:
1C
 
FormEx и раскраска текстового поля на форме
0 kupec
 
13.02.17
09:01
Ребята с началом рабочей недели. Бьюсь с пятницы. Не могу понять в чем загвоздка. На форме есть 30 полей аля текст с идентификаторами Т1,Т2....Т30. В формуле объекта прописано КодКнопки("Кнопка_Товар1 ( и т.д. до 30)") Также есть числовые атрибуты Кнопка_Товар1 и т.д. ниже функция. Работает возврат данных правильно но расскрас не работает....что я только не пробовал...не получается. До условия когда нужно ставить тот или иной цвет доходит правильно и попадает в него правильно, а вот раскраса нет. Подскажите что не так. Заранее спасибо

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

я в шоке....
2 kupec
 
13.02.17
09:04
(1) у всех свои задачи и проблемы