Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Установить цвет текста в таблице          
Vofka Подменю пользователя
сообщение 19.05.10, 7:16
Сообщение #1

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Привет!
Как устаноить цвет текста в ячейке таблицы?
Окончательный вариант (который не работает, но на который хотябы не ругается система):

Пока Док.ПолучитьДокумент() = 1 Цикл
                              // .....
            текСекц = Таб.ПолучитьСекцию("Документ");
            текОбл = текСекц.Область("R10C4");
            Если Проведен = "да" Тогда
                текОбл.ЦветТекста(Зеленый);
                текОбл.Полужирный(1);
            Иначе
                текОбл.ЦветФона(Красный);
            КонецЕсли;
            Таб.ВывестиСекцию("Документ");
                              // .....
КонецЦикла;


В одном стандартном отчете это делается так:

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


Но я не могу понять что такое "ОсталосьСчет".

Batchir Подменю пользователя
сообщение 19.05.10, 8:06
Сообщение #2

Живет на форуме
Иконка группы
Группа: Команда
Сообщений: 3568
Из: Киев
Спасибо сказали: 1443 раз
Рейтинг: 0

Пробуй раскрасить после вывода строки

Пока Док.ПолучитьДокумент() = 1 Цикл
            // .....
            текСекц = Таб.ПолучитьСекцию("Документ");
            текОбл = текСекц.Область("R10C4");
            Таб.ВывестиСекцию("Документ");
            Если Проведен = "да" Тогда
                текОбл.ЦветТекста(Зеленый);
                текОбл.Полужирный(1);
            Иначе
                текОбл.ЦветФона(Красный);
            КонецЕсли;
            // .....
КонецЦикла;

Vofka Подменю пользователя
сообщение 19.05.10, 8:18
Сообщение #3

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Результат прежний (выводит не раскрашеный текст)

Batchir Подменю пользователя
сообщение 19.05.10, 8:45
Сообщение #4

Живет на форуме
Иконка группы
Группа: Команда
Сообщений: 3568
Из: Киев
Спасибо сказали: 1443 раз
Рейтинг: 0

А если попробывать вывести секцию, потом получить её область и раскрасить?
Таб.ВывестиСекцию("Документ");
ВысТабл = Таб.ВысотаТаблицы();
текОбл = Таб.Область("R"+ВысТабл+"C4");
текОбл.ЦветФона(255,0,0);

Vofka Подменю пользователя
сообщение 19.05.10, 12:33
Сообщение #5

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

текСекц = Таб.ПолучитьСекцию("Документ");
Таб.ВывестиСекцию(текСекц);
текОбл = текСекц.Область("R10C4");
текОбл.ЦветФона(Зеленый);


Не работает sad.gif

И кто-то может сказать, что такое "ОсталосьСчет" (из 1-го поста)?

Zaval Подменю пользователя
сообщение 19.05.10, 12:52
Сообщение #6

Крутой
Иконка группы
Группа: Местный
Сообщений: 1994
Из: Киева и окрестностей
Спасибо сказали: 406 раз
Рейтинг: 0

Цитата(Vofka @ 19.05.10, 14:33) *
И кто-то может сказать, что такое "ОсталосьСчет" (из 1-го поста)?



Область секции. Обратиться таким образом можно только по имени.
Велика сила СПsmile.gif

Vofka Подменю пользователя
сообщение 19.05.10, 13:43
Сообщение #7

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Zaval,
Т.е. в моем случае, я понимаю, это выглядит так:
текСекц = Таб.ПолучитьСекцию("Документ");
текОбл = текСекц.R10C4;


Если да, то ты ошибаешься, т.к. 1С ругается на строчку "текОбл = текСекц.R10C4": ...не обнаружен агрегатный объект...

Zaval Подменю пользователя
сообщение 19.05.10, 14:10
Сообщение #8

Крутой
Иконка группы
Группа: Местный
Сообщений: 1994
Из: Киева и окрестностей
Спасибо сказали: 406 раз
Рейтинг: 0

По имени
Выдели область, Таблица - Имена, обзови как-нибудь - Присвоить. По адресу не работает.

Спасибо сказали: Vofka,

Vofka Подменю пользователя
сообщение 19.05.10, 15:44
Сообщение #9

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 14050
Из: Киев
Спасибо сказали: 4612 раз
Рейтинг: 3748.8

Zaval, оно smile.gif

dmiter Подменю пользователя
сообщение 19.05.10, 21:32
Сообщение #10

Завсегдатай
Иконка группы
Группа: Местный
Сообщений: 108
Из: Киев
Спасибо сказали: 16 раз
Рейтинг: 0

Цитата
Не знаю чего не работает?
текСекц = Таб.ПолучитьСекцию("Документ");
Таб.ВывестиСекцию(текСекц);
текОбл = текСекц.Область("R10C4");
текОбл.ЦветФона(Зеленый);


Не работает sad.gif

И кто-то может сказать, что такое "ОсталосьСчет" (из 1-го поста)?


Но я делаю так: (для меня проще)
Таб.ВывестиСекцию("Документ");
лНомерСтрокиТаблицы=Таб.ВысотаТаблицы();
Таб.Область(лНомерСтрокиТаблицы,4,лНомерСтрокиТаблицы,4).ЦветФона(Зеленый);

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 15.06.25, 15:36
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!