PDA

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



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

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

Например
https://infostart.ru/public/940283/
https://cloud.mail.ru/public/4SfJ/5M4cgiBUf

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

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

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

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

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

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

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

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

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