Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
03 дек 2022, 17:02

Установить нулевые остатки по всем счетам в регистре бухгалтерии Хозрасчетный

Автор Дмитрий357, 31 июл 2022, 11:37

0 Пользователей и 1 гость просматривают эту тему.

Дмитрий357

Здравствуйте! Помогите решить пжл задачу для стажера.
В типовой конфигурации «Бухгалтерия предприятия 3.0» требуется установить нулевые остатки по всем счетам в регистре бухгалтерии Хозрасчетный на заданную дату.

LexaK

Дмитрий357, вот один из вариантов, на нужную дату получаете остатки, затем эти же остатки, но со знаком минус пишите в регистр.
если все правильно сделаете, то на указанную дату получите нулевые остатки.
если помогло нажмите: Спасибо!

Дмитрий357

LexaK,  на форме обработки я создал поле "Дата" и кнопку "Обнулить счета". Я так понимаю остатки надо получать запросом. Вот посмотрите пжл код, все ли правильно (пока тяжело ориентируюсь):
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ХозрасчетныйОстатки.Счет КАК Счет,
| ХозрасчетныйОстатки.Счет.Порядок КАК СчетПорядок,
| ХозрасчетныйОстатки.СуммаОстаток КАК СуммаОстаток,
| ХозрасчетныйОстатки.КоличествоОстаток КАК КоличествоОстаток,
| ХозрасчетныйОстатки.СуммаНУОстаток КАК СуммаНУОстаток,
| ХозрасчетныйОстатки.СуммаПРОстаток КАК СуммаПРОстаток,
| ХозрасчетныйОстатки.СуммаВРОстаток КАК СуммаВРОстаток,
| ХозрасчетныйОстатки.ВалютнаяСуммаОстаток КАК ВалютнаяСуммаОстаток
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, , , ) КАК ХозрасчетныйОстатки
|
|УПОРЯДОЧИТЬ ПО
| СчетПорядок";

Запрос.УстановитьПараметр("Дата", Дата);

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

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

LexaK

Дмитрий357, вообще, лучше все поля выбирать! я например у вас Субконто не вижу (а может их нет?)
примерно в этом направлении двигаетесь.
когда получите остатки, сформируете документ Операция (или что там у вас для корректировки можно использовать)
и запишите движения/проводки
если помогло нажмите: Спасибо!

Дмитрий357

LexaK, не могу составить рабочий запрос. Поможете написать код запроса?

LexaK

Дмитрий357, да сам запрос не сложный, как вы потом из него проводки сформируете?

Выбрать
рег.*
из
РегистрБухгалтерии.Хозрасчетный.Остатки(&ДатаОстатков) рег
если помогло нажмите: Спасибо!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru Rambler's Top100

Поиск