Выбрать все движения регистра по документу

 
Процедура Взаиморасчеты(ВыбКлиент, ДатаНачало, ДатаКонец)
   // Создание Таблицы для выходного отчета
   Заг = "Неизвестно.";
   Таб = СоздатьОбъект("Таблица");
   Клн = СоздатьОбъект("Справочник.Клиенты");
   Клн.ИспользоватьДату(ДатаКонец);
   Док = СоздатьОбъект("Документ");
   Рег = СоздатьОбъект("Регистр.Взаиморасчеты");
   Рег1 = СоздатьОбъект("Регистр.Взаиморасчеты");
   Рег.ВременныйРасчет();
   РассчитатьРегистрыНа(ДатаКонец);
   Если ВыбКлиент.Выбран() = 0 Тогда
      //Без условий

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

         Таб.ВывестиСекцию("Группа");
      Иначе
         Рег.Клиент = Клн.ТекущийЭлемент();
         Рег.ОстаткиПолучить();
         Баз_сум = Рег.СуммаБазовая;
         Вал_сум = Рег.СуммаВалютная;
         Таб.ВывестиСекцию("Клиент");
         // цикл по всем документам
         Док.ВыбратьДокументы(ДатаНачало, ДатаКонец);
         Пока Док.ПолучитьДокумент() > 0 Цикл
            // отфильтруем документы
            Если (Док.Вид() = "Перемещение") ИЛИ (Док.Вид() = "Счет") ИЛИ

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

                  // не тот клиент
                  Продолжить;
               КонецЕсли;
               Дв_Баз_Сум = Рег1.СуммаБазовая;
               Дв_Вал_Сум = Рег1.СуммаВалютная;
               Если Рег1.Приход = 1 Тогда
                  Таб.ВывестиСекцию("Приход");
               Иначе
                  Таб.ВывестиСекцию("Расход");
               КонецЕсли;
            КонецЦикла;
         КонецЦикла;

      КонецЕсли;
   КонецЦикла;
   //Вызов выходного отчета в окно просмотра и редактирования.
   Таб.ТолькоПросмотр(1);
   Таб.Опции(0, 0, 4, 0);
   Таб.Показать("Взаиморасчеты с клиентами", "");
   ВыбКлиент = 0;
КонецПроцедуры