PDA

Просмотр полной версии : Установка нулевых остатков


Дмитрий357
01.08.2022, 08:52
Здравствуйте! Помогите решить пжл задачу для стажера.
В типовой конфигурации «Бухгалтерия предприятия 3.0» требуется установить нулевые остатки по всем счетам в регистре бухгалтерии Хозрасчетный на заданную дату.
alexandr_ll
01.08.2022, 09:57
Здравствуйте! Помогите решить пжл задачу для стажера.
В типовой конфигурации «Бухгалтерия предприятия 3.0» требуется установить нулевые остатки по всем счетам в регистре бухгалтерии Хозрасчетный на заданную дату.

Например
https://infostart.ru/public/940283/
https://cloud.mail.ru/public/4SfJ/5M4cgiBUf
Дмитрий357
01.08.2022, 12:05
Здесь должно быть все проще, это задача начального уровня. Я так думаю, но реализовать пока не могу, надо сделать запрос на получение остатков по всем счетам, а далее их как-то обнулить на указанную на форме дату. Вот примерный запрос, естественно нужна глубокая корректировка
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ХозрасчетныйОстатки.Счет КАК Счет,
| ХозрасчетныйОстатки.Счет.П орядок КАК СчетПорядок,
| ХозрасчетныйОстатки.Сумма� �статок КАК СуммаОстаток,
| ХозрасчетныйОстатки.Колич� �ствоОстаток КАК КоличествоОстаток,
| ХозрасчетныйОстатки.Сумма� �УОстаток КАК СуммаНУОстаток,
| ХозрасчетныйОстатки.Сумма� �РОстаток КАК СуммаПРОстаток,
| ХозрасчетныйОстатки.Сумма� �РОстаток КАК СуммаВРОстаток,
| ХозрасчетныйОстатки.Валют� �аяСуммаОстаток КАК ВалютнаяСуммаОстаток
|ИЗ
| РегистрБухгалтерии.Хозрас� �етный.Остатки(&Дата, , , ) КАК ХозрасчетныйОстатки
|
|УПОРЯДОЧИТЬ ПО
| СчетПорядок";

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

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

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

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

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

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

Новые записи сделать с помощью документа ОперацияБух, пример = здесь
https://helpme1s.ru/registry-buxgalterii-v-yazyke-1s-8-v-primerax