Закрытие остатков по регистрам накопления

Публикация № 927990

Программирование - Практика программирования

закрытие остатки регистры накопления

7
Гибкий способ закрытия остатков по регистрам накопления. ДЛЯ ПРОГРАММИСТОВ, НЕ ДЛЯ БУХГАЛТЕРОВ.

Как относительно быстро закрыть остатки по регистрам накопления. Разработано для конфигурации "Управление производственным предприятием", но частично доработав можно использовать с другими конфигурациями.

Делается на основе Инструменты разработчика (ИР). Тестировалось на версии 4.57

Задачу закрытия остатков можно разделить на два этапа - получение данных, занесение этих данных в документ. Все это можно сделать в Консоли запросов. Получение данных через запрос (со всеми имеющимися возможностями запросов), а результат запроса заносится в документ на вкладке "Обработка результата".

 

 

Код занесения данных 

//код адаптирован под конфигурацию "Управление производственным предприятием"

//исходные данные для заполнения
ДатаДокумента = ТекущаяДата();
ИмяРегистраНакопления = "ДенежныеСредства";

//Вариант 1. Создание нового документа.
ДокДвижения = Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
ДокДвижения.Дата = ДатаДокумента;
ДокДвижения.УстановитьНовыйНомер();
//Вариант 2. Вставка в существующий документ. (Через кнопку Вставка/Ссылка на объект БД)
//ДокДвижения = Параметры.КорректировкаЗаписейРегистров03400000717От22_10_201816_12_02.ПолучитьОбъект();

РегистрМетаданные = Метаданные.РегистрыНакопления[ИмяРегистраНакопления];//этой строкой можем поймать ошибки

//заполняем данные, чтобы движения были видны в документе
СтрокаТЧ = ДокДвижения.ТаблицаРегистровНакопления.Добавить();
СтрокаТЧ.Имя = РегистрМетаданные.Имя;
СтрокаТЧ.Представление = РегистрМетаданные.Синоним;

ВыборкаЗапроса = мРезультатЗапроса.Выбрать();
Пока ВыборкаЗапроса.Следующий() Цикл
	//добавление построчно, т.к. таким образом не затираем уже имеющиеся данные в документе
	
	НовСтр =ДокДвижения.Движения[ИмяРегистраНакопления].Добавить();
	ЗаполнитьЗначенияСвойств(НовСтр, ВыборкаЗапроса);
	
	НовСтр.ВидДвижения = ВидДвиженияНакопления.Расход;	//либо в запросе ставить минус перед значением
	
	//НовСтр.Период = НовДок.Дата;	//в УПП период в регистры накопления устанавливается при записи документа
КонецЦикла;

//полученный (или дополненный) документ можно сразу записать, 
//а в текущей реализации документ НЕ ЗАПИСЫВАЕТСЯ СРАЗУ в базу данных
//ДокДвижения.Записать();
ОткрытьЗначение(ДокДвижения);

 

Грабли, примечания и дополнения.

Не просто так в кратком описании написано ДЛЯ ПРОГРАММИСТОВ, НЕ ДЛЯ БУХГАЛТЕРОВ. Гибкость и относительная простота требует понимания выполняемых действий и некоторую работу по доработке кода при применении.

1. И это весьма существенно, в коде необходимо прописывать значение ИмяРегистраНакопления.

2. В запросе необходимо выводить все поля регистра (это для начинающих программистов, иначе можете не закрыть именно эти остатки).

3. Если остатки выбираются из Таблицы остатков регистра накопления, то полям Ресурсов необходимо  дать синоним в соответствии с именами в конфигураторе (их легко посмотреть в конструкторе запроса).

3.1. Если вдруг необходимо сделать движения на основе Таблицы оборотов регистра накопления, то надо опредяться какие данные ресурсов нужны, и которым необходимо присвоить корректный синоним.

4. Можно заносить данные в документ порциями - первый раз в новый документ, затем в уже существующий. Но при этом условия в запросе надо будет менять, код занесения данных для довнесения данных в документ также изменить, а документ записывать после каждого занесения данных. Либо наоборот, в документ внести избыточные данные, а затем удалить из документа лишние строки.

5. Код внесения данных в документ заточен на конфигурацию Управление производственным предприятием. То есть - данные будут заноситься в документ "Корректировка записей регистров", который имеет следующие особенности:
- чтобы данные в документе были видны пользователю необходимо занести информацию о изменяемом регистре в табличную часть ТаблицаРегистровНакопления;
- данные сразу записываются в движения документа;
- частично данные обрабатываются самим документом при записи (в частности устанавливается период).

Для иных конфигураций требуется адаптировать код под эту конфигурацию.

6. Кстати, убедитесь, что документ, куда заносятся данные, является регистратором данного движения. :)

7. Возможно, в некоторых конфигурациях, при занесении данных в документ, надо будет часть данных прописывать в коде (например период) либо наоборот, в тексте запроса убрать некоторые поля (например регистратор).

8. Возможно, некоторые бухгалтеры потребуют, чтобы в документе был вид движения - приход. В этом случае в тексте запроса перед полями ресурсов надо будет поставить знак "минус".

В целом, подобное использование Консоли запросов можно использовать и для регистров сведений, и для регистров бухгалтерии. Но в этих случаях код занесения данных усложняется, особенно для регистров бухгалтерии (проводки надо прописывать).

7

См. также

Специальные предложения

Комментарии
Избранное Подписка Сортировка: Древо
1. kosmo0 81 31.10.18 10:00 Сейчас в теме
:) Прям какая-то мистика творится. Первоначально ИР были без ссылки. Попросили сделать ссылку. Сделал. В итоге ссылка не та которую прописывал.

А в целом ИР хороши для разовых проблем. Тех, которые возникают внезапно и больше не проявляются. Плюс можно данные перетаскивать из инструмента в инструмент. Например из консоли запроса в консоль кода, там данные изменил и тут же посмотрел таблицу значений (в плане что там получилось после изменения).
Оставьте свое сообщение