В начало

Процедура Взаиморасчеты

 

Процедура Взаиморасчеты (ВыбКлиент, ДатаНачало, ДатаКонец)

   // Создание Таблицы для выходного отчета

   Заг = "Неизвестно.";

   Таб = СоздатьОбъект ("Таблица");

   Клн = СоздатьОбъект ("Справочник.Клиенты");

   Клн.ИспользоватьДату (ДатаКонец);

   Док = СоздатьОбъект ("Документ");

   Рег = СоздатьОбъект ("Регистр.Взаиморасчеты");

   Рег1 = СоздатьОбъект ("Регистр.Взаиморасчеты");

   Рег.ВременныйРасчет ();

   РассчитатьРегистрыНа (ДатаКонец);

   Если ВыбКлиент.Выбран () = 0 Тогда

      //Без условий

      Заг = "По всем клиентам.";

   ИначеЕсли ВыбКлиент.ЭтоГруппа () = 1 Тогда

      Клн.ВключатьПодчиненные (ВыбКлиент);

      Клн.ИспользоватьРодителя (ВыбКлиент);

      Заг = "По клиентам группы " + ВыбКлиент.Наименование;

   Иначе

      Предупреждение ("Выберите группу клиентов!");

      Возврат;

   КонецЕсли;

   Таб.ВывестиСекцию ("Отчет");

   Клн.ВыбратьЭлементы ();

   Пока Клн.ПолучитьЭлемент () > 0 Цикл

      Если Клн.ЭтоГруппа () = 1 Тогда

         Таб.ВывестиСекцию ("Группа");

      Иначе

         Рег.Клиент = Клн.ТекущийЭлемент ();

         Рег.ОстаткиПолучить ();

         Баз_сум = Рег.СуммаБазовая;

         Вал_сум = Рег.СуммаВалютная;

         Таб.ВывестиСекцию ("Клиент");

         // Цикл по всем документам

         Док.ВыбратьДокументы (ДатаНачало, ДатаКонец);

         Пока Док.ПолучитьДокумент () > 0 Цикл

            // Отфильтруем документы

            Если  (Док.Вид () = "Перемещение") ИЛИ  (Док.Вид () = "Счет") ИЛИ

                  (Док.Вид () = "Списание") ИЛИ

                  (Док.Вид () = "РучноеИзмОстатка") Тогда

               // Эти Документы не изменяют Взаиморасчеты

               Продолжить;

            КонецЕсли;

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

            Рег1.ВыбратьДвиженияДокумента (Док.ТекущийДокумент ());

            Пока Рег1.ПолучитьДвижение () > 0 Цикл

               Если Строка (Рег1.Клиент.Код) <> Строка (Клн.Код) Тогда

                  // Не тот клиент

                  Продолжить;

               КонецЕсли;

               Дв_Баз_Сум = Рег1.СуммаБазовая;

               Дв_Вал_Сум = Рег1.СуммаВалютная;

               Если Рег1.Приход = 1 Тогда

                  Таб.ВывестиСекцию ("Приход");

               Иначе

                  Таб.ВывестиСекцию ("Расход");

               КонецЕсли;

            КонецЦикла;

         КонецЦикла;

      КонецЕсли;

   КонецЦикла;

   //Вызов выходного отчета в окно просмотра и редактирования.

   Таб.ТолькоПросмотр (1);

   Таб.Опции (0, 0, 4, 0);

   Таб.Показать ("Взаиморасчеты с клиентами", "");

   ВыбКлиент = 0;

КонецПроцедуры