Выделение цветом строки табличной части в 1С 7.7: различия WinXP и Win7
03.09.2013
16:28
#11
Скорее знаний... О чем я и пишу, собственно... Но понять хочется, и зания приобрести
03.09.2013
16:39
#12
у Вас функция глПолучитьЦвет() возвращает значение куда-то дальше. Вот это "дальше" сделано умельцами, а не 1С, т.к. 7.7 не "красит" строки сама по себе. Кто-то (видимо до Вас) установил внешнюю компоненту для реализации подобной возможности, но с новой ОС эта компонента не работает. Поэтому надо найти либо новую версию, либо лучше того кто там так "извратился".
03.09.2013
17:13
#13
я Вас поняла. Вернусь к обработке строки документа и посмотрю обращение к этой функции. Подумаю... и потом с Вашего позволения продолжим дальше, если я не пойму сама в чем там дело
04.09.2013
18:03
#17
"Та-а-а-к! Продолжаем изыскания и ищем, в чем проблема. В приведенном куске кода уважаемого Вовы
вижу, что функция ГлПолучитьЦвет(...) точно такая же... КомандаРаскраски(...) выглядит немного по-другому. Но принцип тот же самый. Вот, смотрите, что у меня:
Функция ПолучитьРаскраску()
Если РучнаяПравка = 1 Тогда
Возврат "BRUSH["+глПолучитьЦвет(255,255,200)+"]";
Сообщить(НомерСтроки);
ИначеЕсли РучнаяПравка = 2 Тогда
Возврат "BRUSH["+глПолучитьЦвет(200,255,200)+"]";
ИначеЕсли Филиал.Выбран() = 0 Тогда
Возврат "BRUSH["+глПолучитьЦвет(250,200,200)+"]";
ИначеЕсли СуммаБезНДСПризнано <> СуммаБезНДС Тогда
Возврат "BRUSH["+глПолучитьЦвет(200,200,250)+"]";
ИначеЕсли ЖДНакладная.Выбран() = 1 Тогда
Возврат """";
Иначе
Возврат "BRUSH["+глПолучитьЦвет(200,200,200)+"]";
КонецЕсли;
Вкладываю файлик, как она используется.... Вопрос тот же - почему из-под Win7 не работает"
Функция ПолучитьРаскраску()
Если РучнаяПравка = 1 Тогда
Возврат "BRUSH["+глПолучитьЦвет(255,255,200)+"]";
Сообщить(НомерСтроки);
ИначеЕсли РучнаяПравка = 2 Тогда
Возврат "BRUSH["+глПолучитьЦвет(200,255,200)+"]";
ИначеЕсли Филиал.Выбран() = 0 Тогда
Возврат "BRUSH["+глПолучитьЦвет(250,200,200)+"]";
ИначеЕсли СуммаБезНДСПризнано <> СуммаБезНДС Тогда
Возврат "BRUSH["+глПолучитьЦвет(200,200,250)+"]";
ИначеЕсли ЖДНакладная.Выбран() = 1 Тогда
Возврат """";
Иначе
Возврат "BRUSH["+глПолучитьЦвет(200,200,200)+"]";
КонецЕсли;
Вкладываю файлик, как она используется.... Вопрос тот же - почему из-под Win7 не работает"
Читают тему
(гостей: 1)