|
Вывод в табличный документ - направление текста | ☑ | ||
---|---|---|---|---|
0
fantomrik
11.12.13
✎
23:30
|
Приветствую! Модифицирую вывод дней недели в обработке (добавил еще 4 доп колонки). Почему то в 3х колонках текст начинает идти вертикально, не могу понять почему и как поправить...
http://imgdisk.ru/images/gjsli.jpg // Вывод верхней строки - Понедельний, Вторник, ...., Воскресенье ТабДокументПонедельникВоскресенье = МакетЯчейки.ПолучитьОбласть(1, 1, 1, 62); ШиринаДопКолонок = 6; //Для нИндексДеньНедели = 0 По 6 Цикл Для нИндексДеньНедели = 0 По 10 Цикл // Доп 4 колонки после дней недели //Область = ТабДокументПонедельникВоскресенье.Область(1, нИндексДеньНедели * ШиринаДняВЯчейках + 1, 1, нИндексДеньНедели * ШиринаДняВЯчейках + ШиринаДняВЯчейках); Если нИндексДеньНедели = 7 Тогда Область = ТабДокументПонедельникВоскресенье.Область(1, 38 , 1, 44); ИначеЕсли нИндексДеньНедели = 8 Тогда Область = ТабДокументПонедельникВоскресенье.Область(1, 44 , 1, 50); ИначеЕсли нИндексДеньНедели = 9 Тогда Область = ТабДокументПонедельникВоскресенье.Область(1, 50 , 1, 56); ИначеЕсли нИндексДеньНедели = 10 Тогда Область = ТабДокументПонедельникВоскресенье.Область(1, 56 , 1, 62); Иначе Область = ТабДокументПонедельникВоскресенье.Область(1, нИндексДеньНедели * ШиринаДняВЯчейках + 1 + рсШиринаНомераНедели , 1, нИндексДеньНедели * ШиринаДняВЯчейках + ШиринаДняВЯчейках + рсШиринаНомераНедели); КонецЕсли; Область.Объединить(); Область.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр; //Область.ГоризонтальноеПоложение = ГоризонтальноеПоложение.Лево; Область.ЦветФона = НастройкиОтображения.КалендарьЦветФонаЗаголовкаДень; Область.Шрифт = НастройкиОтображения.КалендарьШрифтЗаголовковДнейНеделиВМесяце; Область.ЦветТекста = НастройкиОтображения.КалендарьЦветШрифтаЗаголовковДнейНеделиВМесяце; Область.Обвести(ЛинияГраница, ЛинияГраница, ЛинияГраница, ЛинияГраница); Область.АвтоВысотаСтроки = Истина; Область.ВысотаСтроки = 0; Если нИндексДеньНедели = 7 Тогда Область.Текст = "Инструктор"; ИначеЕсли нИндексДеньНедели = 8 Тогда Область.Текст = "Количество"; ИначеЕсли нИндексДеньНедели = 9 Тогда Область.Текст = "Участники"; ИначеЕсли нИндексДеньНедели = 10 Тогда Область.Текст = "ИнструкторИнструктор"; Иначе Область.Текст = Формат(НачалоНедели(ПериодОкончание) + КоличествоСекундВДне * нИндексДеньНедели, "ДФ=дддд"); Область.Текст = СокращениеДняНеделиДляКалендаря(Область.Текст); КонецЕсли; //Расшифровка = ПолучитьСтруктуруРасшифровкиЯчейкиБланк(); //Расшифровка.ТипЯчейки = "ЗаголовокМесяца"; //Область.Расшифровка = ТаблицаРасшифровок.Индекс(Расшифровка); КонецЦикла; КалендарьТабличныйДокумент.Вывести(ТабДокументПонедельникВоскресенье); |
|||
1
fantomrik
11.12.13
✎
23:36
|
Очень важно победить этот кусочек сегодня, помогите, кто в курсе
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |