Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Не получается раскрасить таблицу (число прочтений - 5693 )
Spirit
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 2
Зарегистрирован: 21. Января 2008
Не получается раскрасить таблицу
21. Января 2008 :: 12:35
Печать  
Привет всем!
Может мне кто-нибудь указать на мою ошибку. Начальство поставило задачу раскрасить журнал. Я нашел компоненту "FormEx", которая позволяет это сделать, но раскрасить журнал так и не получилось. Сделал вот что:

1. В глобальный модуль добавил:
Перем Сервис Экспорт;

В процедуру ПриНачалеРаботыСистемы() добавил

  Если ЗагрузитьВнешнююКомпоненту("FormEx.dll") = 0 Тогда
     Предупреждение("Неудачная попытка загрузить FormEx.dll");
     СтатусВозврата(0);
     Возврат;
  КонецЕсли;
  Сервис = СоздатьОбъект("Сервис");
  Сервис.ВключитьРаскраскуТаблиц();
  Сервис.ПоказыватьИндикаторКлавиатуры(1);

2. В модуль формы нужного журнала добавил:

Процедура ПослеОткрытия()
     РФорма = СоздатьОбъект("РасширениеФормы");
     РФорма.РаскрашиватьТаблицу("МногострочнаяЧасть");
КонецПроцедуры

Функция ПроверитьВид()
     Если ПустоеЗначение(ТекущийДокумент) = 0 Тогда
           Если ПустоеЗначение(ТекущийДокумент.Статус1)=1 Тогда
                 Возврат "BRUSH["+ПолучитьЦвет(255,100,100)+"]";
           ИначеЕсли (ТекущийДокумент.Статус1=глПодборЗапчастей1) Тогда
                 Возврат "BRUSH["+ПолучитьЦвет(255,255,153)+"]";
           ИначеЕсли ((ТекущийДокумент.Статус1=глПодборЗапЧастейНеНужен1) или (ТекущийДокумент.Статус1=глПодборЗапЧастейОкончен1)) и (ПустоеЗначение(ТекущийДокумент.ЗаполненПодборщиком)=0) Тогда
                 Возврат "BRUSH["+ПолучитьЦвет(255,100,100)+"]";
           КонецЕсли;
     КонецЕсли;
     Возврат "";
КонецФункции

После открытии формы журнала функция "ПроверитьВид" даже не обрабатывается. Тип журнала "Общий", в самом журнале используются закладки.

Подскажите в чем я не прав.
  
Наверх
 
IP записан
 
artbear
1c++ developer
1c++ moderator
Отсутствует


Эх, дайте что-нибудь новенькое
да полезное потести

Сообщений: 6303
Местоположение: Москва
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Не получается раскрасить таблицу
Ответ #1 - 21. Января 2008 :: 12:40
Печать  
1. Добавь в таб.часть журнала новую колонку с формулой ПроверитьВид()
2. Перем Сервис Экспорт; не нужно на самом деле Улыбка
  

OpenConf developer :: http://openconf.1cpp.ru&&FormEx developer :: http://formex.dorex.ru&&1C++ active developer && tester :: www.1cpp.ru
Наверх
GTalkSkype/VoIPICQ  
IP записан
 
Spirit
YaBB Newbies
*
Отсутствует


I Love YaBB 2!

Сообщений: 2
Зарегистрирован: 21. Января 2008
Re: Не получается раскрасить таблицу
Ответ #2 - 21. Января 2008 :: 13:00
Печать  
To artbear: Спасибо огромное, все получилось! Сейчас буду разбираться с цветами.
  
Наверх
 
IP записан
 
Melifaro
Junior Member
**
Отсутствует


in beer we trust!

Сообщений: 58
Местоположение: г. Ижевск
Зарегистрирован: 05. Февраля 2008
Пол: Мужской
Re: Не получается раскрасить таблицу
Ответ #3 - 12. Февраля 2008 :: 08:17
Печать  
а как можно (и можно ли) победить вот такое (см. скриншот)
т.е. устанавливается раскраска, раскраска для текущей строки (1), но текущая колонка "перекрашивается" стандартным Печаль (2)
  

formex.jpg ( 9 KB | Загрузки )
formex.jpg

...and nothing else matters...
Наверх
wwwICQ  
IP записан
 
vip
1c++ power user
Отсутствует



Сообщений: 1570
Зарегистрирован: 19. Мая 2006
Re: Не получается раскрасить таблицу
Ответ #4 - 12. Февраля 2008 :: 08:24
Печать  
Melifaro писал(а) 12. Февраля 2008 :: 08:17:
а как можно (и можно ли) победить вот такое (см. скриншот)
т.е. устанавливается раскраска, раскраска для текущей строки (1), но текущая колонка "перекрашивается" стандартным Печаль (2)

Если ты курсор текущей колонкой называешь, то нельзя.
Можешь использовать ТабличноеПоле, там цвет курсора любым может быть.
  
Наверх
ICQ  
IP записан
 
kovalexion
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 2
Зарегистрирован: 10. Июля 2014
Пол: Мужской
Re: Не получается раскрасить таблицу
Ответ #5 - 10. Июля 2014 :: 23:29
Печать  
Спасибо за полезную длл Улыбка, по 1с в коде особо не разбираюсь, подскажите как правильно прописать условие: нужно чтоб в журнале подсвечивались документы у которых не заполнен реквизит с типом дата (типа не указана дата оплаты , то светится желтым в журнале), пробовал так  Нерешительный:

Код
Выбрать все
ИначеЕсли ТекущийДокумент.ДатаОплаты = 0 Тогда
    Возврат "FONT["+ПолучитьЦвет(0,0,0)+"] BRUSH["+ПолучитьЦвет(255,255,0)+"]"; 



  
Наверх
 
IP записан
 
kovalexion
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 2
Зарегистрирован: 10. Июля 2014
Пол: Мужской
Re: Не получается раскрасить таблицу
Ответ #6 - 10. Июля 2014 :: 23:44
Печать  
Вопрос снят, совсем туплю, все работает если прописать так:
Код
Выбрать все
ИначеЕсли ПустоеЗначение(ТекущийДокумент.ДатаОплаты) = 1 Тогда
    Возврат "FONT["+ПолучитьЦвет(0,0,0)+"] BRUSH["+ПолучитьЦвет(255,255,0)+"]"; 



Еще раз большое всем спасибо, много полезной инфы нашел для себя в этой ветки форума, дллка супер Улыбка
  
Наверх
 
IP записан
 
Aleksey31
YaBB Newbies
*
Отсутствует


1C++ rocks!

Сообщений: 1
Зарегистрирован: 23. Января 2015
Re: Не получается раскрасить таблицу
Ответ #7 - 23. Января 2015 :: 11:49
Печать  
Я тоже благороден, мне тоже очень помогли ваши ответы.
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать