Paste1C
  • API
  • О проекте
  • Контакты
  • Регистрация
  • Вход
Процедура ВыполнитьДвижениеПоРегиструГрафикаПлатежей(РежимПроведения, Отказ)
Запрос = Новый Запрос;
Запрос.Текст = 
"ВЫБРАТЬ РАЗЛИЧНЫЕ
|	бит_стр_ДоговорРеализацииНедвижимостиУУ.Ссылка КАК Ссылка,
|	бит_стр_ДоговорРеализацииНедвижимостиУУПомещения.НоменклатурнаяГруппа КАК НоменклатурнаяГруппа,
|	бит_стр_ДоговорРеализацииНедвижимостиУУПомещения.Номенклатура КАК Номенклатура,
|	бит_ОборотыПоБюджетам.Проект КАК Проект,
|	бит_ОборотыПоБюджетам.ЦФО КАК ЦФО,
|	бит_ОборотыПоБюджетам.СтатьяОборотов КАК СтатьяОборотов,
|	НАЧАЛОПЕРИОДА(бит_стр_ДоговорРеализацииНедвижимостиУУГрафикПлатежей.ДатаПлатежа, ДЕНЬ) КАК ДатаПлатежа,
|	бит_стр_ДоговорРеализацииНедвижимостиУУГрафикПлатежей.Итого КАК Итого
|		
|	ИЗ
|	РегистрНакопления.бит_ОборотыПоБюджетам КАК бит_ОборотыПоБюджетам
|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.бит_стр_ДоговорРеализацииНедвижимостиУУ КАК бит_стр_ДоговорРеализацииНедвижимостиУУ
|			ПРАВОЕ СОЕДИНЕНИЕ Документ.бит_стр_ДоговорРеализацииНедвижимостиУУ.Помещения КАК бит_стр_ДоговорРеализацииНедвижимостиУУПомещения
|			ПО (бит_стр_ДоговорРеализацииНедвижимостиУУПомещения.Ссылка = бит_стр_ДоговорРеализацииНедвижимостиУУ.Ссылка)
|			ПРАВОЕ СОЕДИНЕНИЕ Документ.бит_стр_ДоговорРеализацииНедвижимостиУУ.ГрафикПлатежей КАК бит_стр_ДоговорРеализацииНедвижимостиУУГрафикПлатежей
|			ПО (бит_стр_ДоговорРеализацииНедвижимостиУУГрафикПлатежей.Ссылка = бит_стр_ДоговорРеализацииНедвижимостиУУ.Ссылка)
|		ПО (бит_ОборотыПоБюджетам.Регистратор = бит_стр_ДоговорРеализацииНедвижимостиУУ.Ссылка)
|ГДЕ
|	бит_ОборотыПоБюджетам.Регистратор = бит_стр_ДоговорРеализацииНедвижимостиУУ.Ссылка";

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();

Пока Выборка.Следующий() Цикл 
	битНоменклатурнаяГруппа = Выборка.НоменклатурнаяГруппа;
	битНоменклатура = Выборка.Номенклатура;
	битПроект = Выборка.Проект;
	битЦФО = Выборка.ЦФО;
	битСтатьяОборотов = Выборка.СтатьяОборотов;
	битДата = Выборка.ДатаПлатежа;	
	битИтого = Выборка.Итого;

КонецЦикла;         

Движения.бит_стр_РегистрГрафикаПлатежей.Записывать = Истина;
	Для Каждого Стр Из ГрафикПлатежей Цикл
		Движение = Движения.бит_стр_РегистрГрафикаПлатежей.Добавить();
		Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
		Движение.Период = Дата;
		Движение.НоменклатурнаяГруппа = битНоменклатурнаяГруппа;
		Движение.Номенклатура = битНоменклатура;
		Движение.Проект = битПроект;
		Движение.ЦФО = битЦФО;
		Движение.СтатьяОборотов = битСтатьяОборотов;
		Движение.Дата = битДата;
		Движение.Итоги = битИтого;
	КонецЦикла;  	
	
КонецПроцедуры
{"contextData":{"NaN":{}},"contextMarkers":[]}

Публикация кода

Размещая информацию на сайте, Вы подтверждаете согласие со всеми пунктами Пользовательского соглашения

Замечание к коду:

  • Загрузить конфигурацию
    • ERP 2.4
    • Управление торговлей 10.3
    • Управление торговлей 11.4
    • Бухгалтерия 2.0
    • Бухгалтерия 3.0
    • ЗУП 3.1
    • Розница 2.3
    • УНФ 1.6
    • БСП 3.1
  • Тема
    • Светлая
    • Светлая c подсветкой запросов
    • Темная
    • Темная с подсветкой запросов
  • Режим запроса
  • Поделиться
Код:

© Александр Шкураев 2025