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

[Дмитрий357]

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

[LexaK]

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

[Дмитрий357]

LexaK,  на форме обработки я создал поле "Дата" и кнопку "Обнулить счета". Я так понимаю остатки надо получать запросом. Вот посмотрите пжл код, все ли правильно (пока тяжело ориентируюсь):

Код Выделить Развернуть

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

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

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

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


[LexaK]

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

[Дмитрий357]

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

[LexaK]

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

Код Выделить Развернуть

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