0
ech2000
16.08.13
✎
10:46
|
Есть код, который выводит календарь за выбранный период. Все работает, вот только выводит в столбец, т.е. вертикально каждый месяц. Как сделать чтобы выводило по горизонтали, т.е. каждый месяц добавлялся справа, а не вниз. Уже пробывал и присоединить секцию, ниче не получается, выводит но некорректно. Вот код вывода календаря:
к = ДатаМесяц(ДатаНач)-1;
Пока к <= ДатаМесяц(ДатаКон)-1 Цикл
к = к + 1;
м01=СоздатьОбъект("ТаблицаЗначений");
м01.НоваяКолонка("Неделя1","Строка");
Для с=1 по 7 цикл
м01.НоваяСтрока();
м01.Неделя1="";
КонецЦикла;
тд=Дата(ДатаГод(ДатаНач),к,1);
Для д=1 по ДатаЧисло(КонМесяца(тд)) цикл
тд=Дата(ДатаГод(ДатаНач),к,д);
м01.УстановитьЗначение(НомерДняНедели(тд),м01.КоличествоКолонок(),""+д);
Если НомерДняНедели(тд)=7 тогда
м01.НоваяКолонка("Неделя"+м01.КоличествоКолонок()+1,"Строка");
Для с=1 по м01.КоличествоСтрок() цикл
м01.УстановитьЗначение(с,м01.КоличествоКолонок(),"");
КонецЦикла;
КонецЕсли;
КонецЦикла;
м01.ВыбратьСтроки();
Пока м01.ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию("СтрокаТ");
КонецЦикла;
КонецЦикла;
|
|
5
ech2000
16.08.13
✎
11:09
|
(4) это для вывода календаря не всего, а за определенный период, т.е. на форме выбираю дата1 = 1, дата2 = 6, и выводит месяцы с января по июнь.
(3) тз заполняют числами для вывода в макет. Как по другому?
|
|