Вопрос про обработку в 1 с 7.7

// Задаётся пириод
Процедура НомерМес()
НомерМесНач=Формат(ВыбКонПериода,"Д(0)ДД ММГГ");
Сообщить("аврпловарпол "+НомерМесНач);

НомерМес=Число(Сред(НомерМесНач,4,2));
Сообщить("ааааа "+НомерМес);
КонецПроцедуры

.............
Если ДокВид="ЗатратыПоТекущемуРемонтуСметы" Тогда
Если затраты=1 Тогда



док.ВыбратьСтроки();
Пока док.ПолучитьСтроку()=1 Цикл

Если (СокрЛП(док.Улица)<>СокрЛП(ВыбУлица)) или (СокрЛП(док.ДомКорпус)<>СокрЛП(ВыбДомКор пус)) Тогда
Продолжить;
КонецЕсли;

Если (ПустоеЗначение(док.ВидРабот)=0) Тогда
ТЗРабот.НоваяСтрока();
ТЗРабот.Улица=СокрЛП(док.Улица);
ТЗРабот.ДомКорпус=СокрЛП(док.ДомКорпус);
ТЗРабот.Квартира=СокрЛП(док.Квартира)+Со крЛП(док.Подъезд);
ТЗРабот.ВидРабот=СокрЛП(док.ВидРабот);
ТЗРабот.Сумма=док.СметнаяСтоимость;
ТЗРабот.ДатаДок=док.ДатаДок;
КонецЕсли;
КонецЦикла;
КонецЕсли;
................

ТЗР2.Очистить();
ТЗРабот.ВыбратьСтроки();
Пока ТЗРабот.ПолучитьСтроку()=1 Цикл
ТЗРабот.Ключ=ВРЕГ(СокрЛП(ТЗРабот.Улица)) +" "+СокрЛП(ТЗРабот.ДомКорпус);
КонецЦикла;
ТЗРабот.Выгрузить(ТЗР2,,,"ДатаДок,Ключ,К вартира,ВидРабот,Сумма");
ТЗР2.Свернуть("Ключ,ДатаДок,ВидРабот,Ква ртира","Сумма");
ТЗР2.Сортировать("ДатаДок,ВидРабот");
ТЗР2.НоваяКолонка("СтМесяц","Число",10,2 );
ТЗР2.ВыбратьСтроки();
Пока ТЗР2.ПолучитьСтроку()=1 Цикл
Если (ВыбНачПериода<=Дата(ТЗР2.ДатаДок)) и (Дата(ТЗР2.ДатаДок)<=ВыбКонПериода) Тогда
ТЗР2.СтМесяц=ТЗР2.Сумма;
КонецЕсли;
КонецЦикла;

...........................
ТЗР2.ВыбратьСтроки();
Таб.ВывестиСекцию("ТекРем");
номерРаботы=0;
Пока ТЗР2.ПолучитьСтроку()=1 Цикл
// Сумм1=ТЗР2.Сумма+Сумм1;
НомерРаботы=НомерРаботы+1;
ИтогоСумм1=ТЗР2.Сумма+ИтогоСумм1;
квар="";

ИтогоСумм=ТЗР2.СтМесяц+ИтогоСумм;
Таб.ВывестиСекцию("ВидРабот");

КонецЦикла;