7.7 Расчетный листок

Код:

 
Сумма1 = 0;  
Сумма = 0;  
н = 0;
Пока Запрос1.Группировка(1) = 1 Цикл  
Пока Запрос1.Группировка(2) = 1 Цикл
Пока Запрос1.Группировка(3) = 1 Цикл       
Если (Сводно = 1) и (ПоМесяцам = 1) Тогда
Пока Запрос1.Группировка(4) = 1 Цикл
Пока Запрос1.Группировка(5) = 1 Цикл
ВыбраныйДокумент = Запрос1.ТекущийДокумент; 
Если ((ВыбраныйДокумент.Вид() = "НакопленнаяЗадолженность") или (ВыбраныйДокумент.Вид() = "ВводНачальногоСальдо"))
и (СписокДокНакЗадолж.Принадлежит(ВыбраныйДокумент) = 1)Тогда
СписокДокНакЗадолж.ДобавитьЗначение(ВыбраныйДокумент);  
КонецЕсли;
КонецЦикла;
КонецЦикла;
Иначе  

Пока Запрос1.Группировка(4) = 1 Цикл
н=н+1; 
Если Запрос1.Сотрудник = Сотрудник Тогда 
ТЗ.НоваяСтрока();    
ВыбраныйДокумент = Запрос1.ТекущийДокумент;
Если ((ВыбраныйДокумент.Вид() = "НакопленнаяЗадолженность") или (ВыбраныйДокумент.Вид() = "ВводНачальногоСальдо"))
и (СписокДокНакЗадолж.Принадлежит(ВыбраныйДокумент) = 1)Тогда
СписокДокНакЗадолж.ДобавитьЗначение(ВыбраныйДокумент);   
КонецЕсли;   
ТЗ.Сотрудник = Запрос1.Сотрудник;
НаименованиеДокумента = Запрос1.ТекущийДокумент;
ТЗ.НаименованиеДокумента = НаименованиеДокумента; 
Сумма = Запрос1.Результат; 
ТЗ.Сумма = Сумма;
Если Н=1 Тогда
Сумма1=ТЗ.Сумма;
Иначе
Сумма=Сумма+ТЗ.Сумма;
КонецЕсли;
Таблица.ВывестиСекцию("Новая");  
КонецЕсли;
КонецЦикла;  
КонецЕсли;        
КонецЦикла; 
КонецЦикла;
КонецЦикла;   

Выводит последнее значение в цикле в два раза больше. первые 2-а - правильные, а последнее нет. может я не туда вставил ваш код?

выше находиться код, в который я добавил ваше условие. уточним переменные:
Сумма - значение непосредственно из запроса, которую мы не изменяем, так как она на нужна объективной какая она и есть
Сумма1 - разность полученных данных из запроса1, т.е. сумма1 = разности всех сумм (их первого вычитаем последующие) когда значений Сумма больше нет, то тогда выводим значение сумма1

Код:

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

при таком коде вернулись на то же место от куда и начинали тему. по одному сотруднику выводит все правильно, по нескольким чушь, причем полная, даже не близкая к правде :unsure:

Огромное спасибо! все получилось, заработало! :aua: :unsure: :smile: