временныйрасчет » Поиск

Результаты по ключевому слову: временныйрасчет

Рассчитать все регистры на конец события Категория: Регистры

Рассчитать все временные регистры на начало события Категория: Регистры

Временный расчет регистров Категория: Регистры

Выбрать все движения регистра с остатками Категория: Регистры

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

Код 1C v 7.x

 

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

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

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

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

   Иначе

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

      Возврат;

   КонецЕсли;

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

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

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

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



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

      Иначе

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

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

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

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

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

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

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

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

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

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



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

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

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

               Продолжить;

            КонецЕсли;

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

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

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

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



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

                  Продолжить;

               КонецЕсли;

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

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

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

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

               Иначе

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

               КонецЕсли;

            КонецЦикла;

         КонецЦикла;



      КонецЕсли;

   КонецЦикла;

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

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

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

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

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

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

Категория: Регистры

Установить фильтр для оптимизации действий с регистром

Код 1C v 7.x

 // Пример 1

// Для регистра с измерениями «Товар», «Склад», «МОЛ» запись

Рег.УстановитьФильтр(Тов1, , );

// означает, что расчеты будут проводиться только по одному товару (Тов1), но по всем складам и МОЛам.

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

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

Рег.УстановитьФильтр(Клиент, );

РассчитатьРегистрыНа(ДатаНачала);

Рег.ВыбратьДвиженияСОстатками(ДатаКонца);

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

   Прих = 0;

   Расх = 0;

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

      Прих = Рег.Долг;

   Иначе

      Расх = Рег.Долг;

   КонецЕсли;

   ТекущееСальдо = Рег.Остаток(Клиент, "Задолженность");

   Док = Рег.ТекущийДокумент();

   Таб.ВывестиСекцию("Документ");

КонецЦикла;



// Пример 2

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

//выбрать все движения по данному складу за период

РегТовары.УстановитьФильтр(,ТекСклад);

РегТовары.ВыбратьДвижения(ДатаНач, ДатаКон);

Пока РегТовары.ПолучитьДвижение()=1 Цикл

	//... код

КонецЦикла; 



// Пример 3

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

//выбрать все товары на данном складе

РегТовары.УстановитьФильтр(,ТекСклад);

РегТовары.ВыбратьИтоги();

Пока РегТовары.ПолучитьИтог()=1 Цикл

	//... код

КонецЦикла;

Категория: Регистры

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

Метод ВыбратьДвиженияСОстатками инициирует выбор всех движении регистра в указанном интервале дат. До вызова данной процедуры может быть установлен фильтр (см. УстановитьФильтр), ограничивающий выборку значений из регистра. Если <КонецВыборки> не указан или равен 0, то конном временного интервала выбора движений регистра считается ТА.
Данный метод отличается от метода ВыбратьДвижения тем, что после получения очередного движения метод Остаток будет выдавать актуальные значения остатков для этого регистра. Но для этого перед вызовом метода ВыбратьДвиженияСОстатками регистру должен быть установлен признак временногоРасчета» (см. ВременныйРасчет) и должен быть выполнен временный расчет (см. РассчитатьРегистрыНа и РассчитатьРегистрыПо) — его дата и будет являться начальной датой выбираемых движений регистра.
Данная возможность не может быть использована совместно с дальнейшими «Временными» расчетами.

Собственно выбор первого и последующих движений регистра осуществляется методом ПолучитьДвижение.

Код 1C v 7.x

 

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

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

Рег.УстановитьФильтр(Клиент, );

РассчитатьРегистрыНа(ДатаНачала);

Рег.ВыбратьДвиженияСОстатками(ДатаКонца);

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

   Прих = 0;

   Расх = 0;

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



      Прих = Рег.Долг;

   Иначе

      Расх = Рег.Долг;

   КонецЕсли;

   ТекущееСальдо = Рег.Остаток(Клиент, "Задолженность");

   Док = Рег.ТекущийДокумент();

КонецЦикла;

Категория: Регистры