Есть задача.
Создать обработку,которая сворачивает обороты по счету 19.07 между реализациями. В связи с изменением законодательства (откладывать НДС для экспорта больше не требуется). Остатки спишу.
Вопрос следующий, направьте как это лучше сделать, не совсем понял смысл задачи. Информации больше к сожалению нету. Приложил скриншоты для примерного понимания.
Создать обработку,которая сворачивает обороты по счету 19.07 между реализациями. В связи с изменением законодательства (откладывать НДС для экспорта больше не требуется). Остатки спишу.
Вопрос следующий, направьте как это лучше сделать, не совсем понял смысл задачи. Информации больше к сожалению нету. Приложил скриншоты для примерного понимания.
Прикрепленные файлы:
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(10) Нету стармани к сожалению.
Может подскажете тогда,как программно взять все документу у которых есть остаток по дебету по счету 19.07 и сделать по ним новую проводки только уже по кредиту на ту же сумму ?
укажите на ошибки,вот пытаюсь по-тихоньку реализовать уже:
Может подскажете тогда,как программно взять все документу у которых есть остаток по дебету по счету 19.07 и сделать по ним новую проводки только уже по кредиту на ту же сумму ?
укажите на ошибки,вот пытаюсь по-тихоньку реализовать уже:
Запрос = Новый Запрос("ВЫБРАТЬ
| ХозрасчетныйОстатки.Организация,
| ХозрасчетныйОстатки.Счет КАК Счет,
| ХозрасчетныйОстатки.Субконто1,
| ХозрасчетныйОстатки.Субконто2,
| ХозрасчетныйОстатки.Субконто3,
| ХозрасчетныйОстатки.СуммаОстатокДт КАК СуммаОстатокДт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет В (&СписокСчетовБУ), , ) КАК ХозрасчетныйОстатки
|ГДЕ
| ХозрасчетныйОстатки.КоличествоОстатокДт = 0
| И ХозрасчетныйОстатки.СуммаОстатокДт <> 0");
Запрос.УстановитьПараметр("Период", КонецДня(ДатаКон));
Запрос.УстановитьПараметр("СписокСчетовБУ", СписокСчетовБУ);
РезультатЗапроса = Запрос.Выполнить().Выбрать();
Если СписокСчетовБУ.Количество() > 0 И РезультатЗапроса.Количество() = 0 Тогда
Сообщить("Нет остатков на указанную дату");
Возврат;
КонецЕсли;
// Заполняем регистры бухгалтерии
Если РезультатЗапроса <> Неопределено И РезультатЗапроса.Количество() > 0 Тогда
Пока РезультатЗапроса.Следующий() Цикл
ДвиженияДокумента = Документ.Движения[РезультатЗапросаПоРегистрамБухгалтерии.ИмяРегистра];
НоваяСтрока = Документ.ТаблицаРегистровБухгалтерии.Добавить();
НоваяСтрока.Имя = ДвиженияДокумента.Метаданные().Имя;
НоваяСтрока.Представление = ДвиженияДокумента.Метаданные().Синоним;
РезультатЗапросаОбходПоРегистрам = РезультатЗапросаПоРегистрамБухгалтерии.Выбрать();
Пока РезультатЗапросаОбходПоРегистрам.Следующий() Цикл
Движение = ДвиженияДокумента.Добавить();
ЗаполнитьЗначенияСвойств(Движение, РезультатЗапросаОбходПоРегистрам);
Движение.СубконтоДт.НоменклатурныеГруппы = РезультатЗапросаОбходПоРегистрам.НоменклатурныеГруппы;
Движение.СчетКт = РезультатЗапросаОбходПоРегистрам.Счет;
Движение.СубконтоКт.Номенклатура = РезультатЗапросаОбходПоРегистрам.Номенклатура;
Движение.СубконтоКт.Склады = РезультатЗапросаОбходПоРегистрам.Склады;
Движение.Сумма = РезультатЗапросаОбходПоРегистрам.СуммаОстатокДт;
КонецЦикла;
КонецЦикла;
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот