v7: Помогите разобраться с циклами.

В документе надо посчитать тариф и разбросать это тариф на каждую квартиру дома. Так как округлять тариф нельзя, нахожу разницу между суммой которую ввожу вручную и суммой которая получается после нахождения тарифа после. Отклонение надо в любой адрес засунуть.

[code]
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 цикл

если (ПустоеЗначение(Дом)=1) или (ПустоеЗначение(Сумма)=1) тогда
Продолжить;
конецесли;

Кл.ПорядокКодов();
Кл.ВыбратьЭлементыПоРеквизиту("Дом", Дом, 1,0) ;

сообщить("++++++++++++++++++++++++++++");
сообщить("Дом :" + Кл.Дом);
сообщить("++++++++++++++++++++++++++++");

// цикл где поквартирно собирается площадь дома

суммитог=0;
ПлДома=0;
Пока Кл.ПолучитьЭлемент()=1 цикл
ПлДома=ПлДома+ Кл.ОбщПл.Получить(глДатаНачалаПериода);
КонецЦикла;

тариф=сумма/ПлДома;

сообщить("Площадь дома : " + ПлДома);
сообщить("Тариф : " + Тариф);
сообщить("Сумма : " + Сумма);

Кл.ВыбратьЭлементыПоРеквизиту("Дом", Дом, 1,0);
Пока Кл.ПолучитьЭлемент()=1 цикл

ЖурКв.ВыбратьЗаписиПоОбъекту(Кл.ТекущийЭлемент(), глДатаНачалаПериода, глДатаКонцаПериода) ;
Пока ЖурКв.ПолучитьЗапись()=1 цикл

если (Нрег(ЖурКв.Расчет.Наименование)="одн электроэнергия") и (ЖурКв.Документ.Вид() = "ПодготовкаОДНЭл") тогда

суммитог= суммитог+ журкв.тариф*Кл.ОбщПл.Получить(глДатаНачалаПериода) ;
откл= сумма-суммитог; // ФлагОткл=0;

конецесли;
конеццикла;
конеццикла;

сообщить(суммитог);
сообщить(откл);

Кл.ВыбратьЭлементыПоРеквизиту("Дом", Дом, 1,0);
Пока Кл.ПолучитьЭлемент()=1 цикл

ЖурКв.ВыбратьЗаписиПоОбъекту(Кл.ТекущийЭлемент(), глДатаНачалаПериода, глДатаКонцаПериода) ;
Пока ЖурКв.ПолучитьЗапись()=1 цикл

если (Нрег(ЖурКв.Расчет.Наименование)="одн электроэнергия") и (ЖурКв.Документ.Вид() = "ПодготовкаОДНЭл") тогда

Если Кл.ОбщПл.Получить(глДатаНачалаПериода)=0 тогда
прервать
иначе
ЖурКв.УстановитьРеквизит("Тариф",Тариф);
ЖурКв.УстановитьРеквизит("Результат",Кл.ОбщПл.Получить(глДатаНачалаПериода)*тариф - Откл);
//ЖурКв.УстановитьРеквизит("Результат",Кл.ОбщПл.Получить(глДатаНачалаПериода)*тариф + ?(ФлагОткл = 0,Откл,0)) ;

ЖурКв.УстановитьРеквизит("Количество",0);
ЖурКв.УстановитьРеквизит("Рассчитана",1);
ЖурКв.Записать();
//ФлагОткл = 1;
Конецесли;

конецесли;
конеццикла;
конеццикла;

[/code]