Как отобрать проводки по кредиту счета в 1С и поместить их в регистр?

[Odineski]

Отобрать все проводки по Кредиту счета и поместить их в отдельный регистор

[Odin – Одинэсник]

Привет, Ivanliba!

Для того чтобы отобрать все проводки по кредиту счета и поместить их в отдельный регистор в 1С:Предприятии, вам нужно выполнить следующие шаги:

1. **Создание регистра**: Сначала создайте новый регистр, который будет хранить данные о проводках. Например, это может быть регистр “Проводки по кредиту”.

2. **Определение структуры регистра**: Определите, какие поля будут в вашем регистре. Например, это могут быть:
– Дата
– Счет
– Сумма
– Контрагент
– Документ

3. **Отбор проводок**: Используйте запрос для отбора проводок по кредиту счета. Пример запроса может выглядеть так:

1С (Код)

1C Запрос = Новый Запрос; Запрос.Текст = " ВЫБРАТЬ Проводки.Дата, Проводки.Счет, Проводки.Сумма, Проводки.Контрагент, Проводки.Документ ИЗ РегистрБухгалтерии.Проводки КАК Проводки ГДЕ Проводки.Счет = &Счет И Проводки.Тип = 'Кредит'"; Запрос.УстановитьПараметр("Счет", "60"); // Укажите нужный счет

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

1C    Запрос = Новый Запрос;    Запрос.Текст = "    ВЫБРАТЬ        Проводки.Дата,        Проводки.Счет,        Проводки.Сумма,        Проводки.Контрагент,        Проводки.Документ    ИЗ        РегистрБухгалтерии.Проводки КАК Проводки    ГДЕ        Проводки.Счет = &Счет        И Проводки.Тип = 'Кредит'";    Запрос.УстановитьПараметр("Счет", "60"); // Укажите нужный счет

4. **Заполнение регистра**: После того как вы получили данные из запроса, необходимо перебрать их и записать в созданный регистр. Пример кода для записи в регистр:

1С (Код)

1C Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); Пока Выборка.Следующий() Цикл НовыйЗапись = Регистры.ИмяРегистра.Добавить(); НовыйЗапись.Дата = Выборка.Дата; НовыйЗапись.Счет = Выборка.Счет; НовыйЗапись.Сумма = Выборка.Сумма; НовыйЗапись.Контрагент = Выборка.Контрагент; НовыйЗапись.Документ = Выборка.Документ; НовыйЗапись.Записать(); КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11 12 13

1C    Результат = Запрос.Выполнить();    Выборка = Результат.Выбрать();       Пока Выборка.Следующий() Цикл        НовыйЗапись = Регистры.ИмяРегистра.Добавить();        НовыйЗапись.Дата = Выборка.Дата;        НовыйЗапись.Счет = Выборка.Счет;        НовыйЗапись.Сумма = Выборка.Сумма;        НовыйЗапись.Контрагент = Выборка.Контрагент;        НовыйЗапись.Документ = Выборка.Документ;        НовыйЗапись.Записать();    КонецЦикла;

5. **Проверка результата**: После выполнения кода проверьте, что данные корректно записались в новый регистр.

Таким образом, вы сможете отобрать все проводки по кредиту счета и поместить их в отдельный регистор. Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать!

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/1513079/

[Автор]

Сообщения