0
fantomrik
11.12.13
✎
23:30
|
Приветствую! Модифицирую вывод дней недели в обработке (добавил еще 4 доп колонки). Почему то в 3х колонках текст начинает идти вертикально, не могу понять почему и как поправить...
// Вывод верхней строки - Понедельний, Вторник, ...., Воскресенье
ТабДокументПонедельникВоскресенье = МакетЯчейки.ПолучитьОбласть(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 Тогда
Область.Текст = "ИнструкторИнструктор";
Иначе
Область.Текст = Формат(НачалоНедели(ПериодОкончание) + КоличествоСекундВДне * нИндексДеньНедели, "ДФ=дддд");
Область.Текст = СокращениеДняНеделиДляКалендаря(Область.Текст);
КонецЕсли;
//Расшифровка = ПолучитьСтруктуруРасшифровкиЯчейкиБланк();
//Расшифровка.ТипЯчейки = "ЗаголовокМесяца";
//Область.Расшифровка = ТаблицаРасшифровок.Индекс(Расшифровка);
КонецЦикла;
КалендарьТабличныйДокумент.Вывести(ТабДокументПонедельникВоскресенье);
|
|