Доброго времени суток) такая беда нужно вывести от чет по амортизации в котором должны быть колонки по месяцам, количество этих колонок выбирается из количества месяцев в указанном периоде

макет выглядит так http://saveimg.ru/show-image.php?id=45d2267efb71b98fff3c6863e90f60f9

сам код

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


а на выходе получаю
http://saveimg.ru/show-image.php?id=c42690ccfd50234fa5c99dcff8178bdc
вот в этом собственно и беда? Быть может попробовать выделять не всю колонку а просто область привязывать к строке?

//ТабДок.Присоеденить зря закомментировал. Организуй цикл и в нем присоединить.

Спасибо) вопрос а если присоединить оно будет для каждой строчки писать амотртизацию за месяц?

(1) ПрисоедЕнить не заработает

ТабДок.Присоеденить(ТабДок,1,ОбластьСтроки,1);
а что тут не правильно? выдаёт такую ошибку:


{Форма.ФормаОтчета(67)}: Метод объекта не обнаружен (Присоеденить)
               ТабДок.Присоеденить(ТабДок,1,ОбластьСтроки,1);

(4) приколол

(4) феерично!

РТФМ: http://www.therules.ru/

ааа всё увидел) Да действительно лох((

Понимаю что уже наглость, но не могли бы ещё раз подскать

ставлю при выводе шапки

ОбластьШапки=Макет.ПолучитьОбласть("Шапка");
   ОбластьМесяца=Макет.ПолучитьОбласть("Месяц");
   ОбластьСтроки=Макет.ПолучитьОбласть("Строка");
   ОбластьШапки.Параметры.Организация=Организация;
   ТабДок.Вывести(ОбластьШапки);
   
   //Заполним шапку один раз что бы как дебилы не заполнять её каждый раз
   Пока ДатаНач<ДатаКон=1 Цикл
       ОбластьМесяца=Макет.ПолучитьОбласть("Шапка|Месяц");
       ОбластьМесяца.Параметры.Месяц=Месяц(ДатаНач);
       ТабДок.Присоединить(ТабДок,1,"Строка",Ложь);
       ДатаНач=ДобавитьМесяц(ДатаНач,1);
   КонецЦикла;
виснет и пишет недостаточно памяти

забыл коментарий удалить извините(

(9)

   Пока ДатаНач<ДатаКон=1 Цикл

это что за иероглифы? Почему ДатаКон = 1?

(9) Для Сч=0 По КоличествоМесяцев Цикл
...
А количество месяцев, надеюсь, знаешь как получить...

Ага понял спасибо) ща попробую)

Еще вот тут

ОбластьМесяца.Параметры.Месяц=Месяц(ДатаНач);

у тебя один и тот же месяц будет. Нужно в цикле прибавлять к ДатаНач по 1-му месяцу

КоличествоМесяцев=Месяц(ДатаКон)-Месяц(ДатаНач);
   Для Сч=0 По КоличествоМесяцев  Цикл
       ОбластьМесяца=Макет.ПолучитьОбласть("Месяц");
       ОбластьМесяца.Параметры.Месяц=Месяц(ДатаНач);
       ТабДок.Присоединить(ТабДок,1,"Строка",Ложь);
       ДатаНач=ДобавитьМесяц(ДатаНач,1);
   КонецЦикла;
всё равно пишет недостаточно памяти(

Месяц(ДатаКон)-Месяц(ДатаНач) что даст, если ДатаКон январь, а ДатаНач декабрь?

так оно выдаёт ошибку даже если Месяц(ДатаКон)-Месяц(ДатаНач)=2

(17) это я не к тому, что в этом ошибка, а к тому, что делай правильно. КоличествоМесяцев=?(Месяц(ДатаКон)-Месяц(ДатаНач)<0, Месяц(ДатаКон)-Месяц(ДатаНач)+12, Месяц(ДатаКон)-Месяц(ДатаНач)); или как-то так

а понял)

делаю вот так работает
КоличествоМесяцев=Месяц(ДатаКон)-Месяц(ДатаНач);
   Для Сч=0 По КоличествоМесяцев  Цикл
       ОбластьМесяца=Макет.ПолучитьОбласть("Месяц");
       ОбластьМесяца.Параметры.Месяц=Месяц(ДатаНач);
       ТабДок.Вывести(ОбластьМесяца);
       //ТабДок.Присоединить(ТабДок,1,"Строка",Ложь);
       ДатаНач=ДобавитьМесяц(ДатаНач,1);
   КонецЦикла;
я что то не то написал в присоеденить?

(17) кстати, если Месяц(ДатаКон)-Месяц(ДатаНач)=2, то цикл отработает три раза. так и надо, да?

присоединить*

(17) Сделай правильный расчет месяца, убери из цикла получение области

Если Месяц(ДатаКон)-Месяц(ДатаНач)<0 Тогда
       КоличествоМесяцев=Месяц(ДатаКон)-Месяц(ДатаНач)+12
   Иначе КоличествоМесяцев=Месяц(ДатаКон)-Месяц(ДатаНач);
   КонецЕсли;    
   
   Для Сч=0 По КоличествоМесяцев  Цикл
       ОбластьМесяца.Параметры.Месяц=Месяц(ДатаНач);
       //ТабДок.Вывести(ОбластьМесяца);
       ТабДок.Присоединить(ТабДок,1,"Шапка",Ложь);
       ДатаНач=ДобавитьМесяц(ДатаНач,1);
   КонецЦикла;

я не правильно написал присоединить?

а имя группы тебе зачем?

(23) у тебя Сч всегда = 0. Бесконечный цикл. В советское время за это сразу к стенке ставили.

капец я криворукий я писал  ТабДок.Присоединить(ТабДок,1,"Шапка",Ложь);

а надо было
ТабДок.Присоединить(Область месяца);

Не не бесконечный там все нормально, я просто к таб док присоеденял сам таб док. вот он и переполнялся. так что меня пока не растреляют)

Только терь новый вопрос он отступает одну колонку а потом выводит месяцы. Почему?)

(25) В этой конструкции Сч автоматически на единицу увеличивается.
(27)
ОбластьМесяц = ТабДок.ПолучитьОбласть("ИмяСекцииШапки|ИмяСекцииМесяц");
Для Сч=0 По КоличествоМесяцев  Цикл
    ОбластьМесяца.Параметры.Месяц=НазваниеМесяца;
    ТабДок.Присоединить(ОбластьМесяц);
КонецЦикла;

Ура получилось) всем спасибо) у меня просто строки и шапка было без ограничений справа. как только поставил все зароботало) Ещё раз всем огромное спасибо)