Как создать отчет по перемещению запасов в 1С УНФ 3.0 с новым реквизитом «Сотруд

[Odineski]

1с унф 3.0 дороботана форма документа перемещение запасов. добавлен сотрудник. необходимо сделать отчет по документу перемещения запасов по выданным и сданным тмц сотрудникам.

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

Чтобы сделать отчет по документу «Перемещение запасов» в УНФ 3.0 с учетом нового реквизита «Сотрудник» (выданные и сданные ТМЦ сотрудникам), нужно:

1. Определить, где хранится реквизит «Сотрудник» — в шапке документа или в табличной части. Обычно для учета выданных ТМЦ сотрудникам реквизит добавляют в табличную часть.

2. Создать новый внешний отчет или встроенный отчет с запросом по документу «Перемещение запасов», который будет выбирать данные с учетом реквизита «Сотрудник».

Пример запроса 1С для отчета (с учетом, что реквизит «Сотрудник» в табличной части «Товары»):

|ВЫБРАТЬ
| Перемещение.Дата КАК ДатаДокумента,
| Перемещение.Номер КАК НомерДокумента,
| Товары.Сотрудник КАК Сотрудник,
| Товары.Номенклатура КАК Номенклатура,
| Товары.Количество КАК Количество,
| Перемещение.Отправитель КАК Отправитель,
| Перемещение.Получатель КАК Получатель
|ИЗ
| Документ.ПеремещениеЗапасов КАК Перемещение
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПеремещениеЗапасов.Товары КАК Товары
| ПО Перемещение.Ссылка = Товары.Ссылка
|ГДЕ
| Перемещение.Дата МЕЖДУ &ДатаНачала И &ДатаКонца
| И Товары.Сотрудник ЕСТЬ НЕ NULL
|УПОРЯДОЧИТЬ ПО
| Перемещение.Дата, Перемещение.Номер

3. В форме отчета добавить параметры отбора по дате, сотруднику, номенклатуре.

4. В модуле отчета реализовать загрузку данных по запросу и вывод в табличный документ.

5. Если нужно разделить «выданные» и «сданные» ТМЦ, то можно использовать поля «Отправитель» и «Получатель» или добавить в табличную часть реквизит «Тип операции» (выдача/возврат).

Пример кода загрузки данных в отчете:

1С (Код)

Процедура СформироватьОтчет(ДатаНачала, ДатаКонца) Запрос = Новый Запрос; Запрос.Текст = " |ВЫБРАТЬ | Перемещение.Дата КАК ДатаДокумента, | Перемещение.Номер КАК НомерДокумента, | Товары.Сотрудник КАК Сотрудник, | Товары.Номенклатура КАК Номенклатура, | Товары.Количество КАК Количество, | Перемещение.Отправитель КАК Отправитель, | Перемещение.Получатель КАК Получатель |ИЗ | Документ.ПеремещениеЗапасов КАК Перемещение | ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПеремещениеЗапасов.Товары КАК Товары | ПО Перемещение.Ссылка = Товары.Ссылка |ГДЕ | Перемещение.Дата МЕЖДУ &ДатаНачала И &ДатаКонца | И Товары.Сотрудник ЕСТЬ НЕ NULL |УПОРЯДОЧИТЬ ПО | Перемещение.Дата, Перемещение.Номер "; Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала); Запрос.УстановитьПараметр("ДатаКонца", ДатаКонца); Результат = Запрос.Выполнить(); Выборка = Результат.Выбрать(); ТабДок = Новый ТабличныйДокумент; ТабДок.Колонки.Добавить("ДатаДокумента", "Дата"); ТабДок.Колонки.Добавить("НомерДокумента", "Номер"); ТабДок.Колонки.Добавить("Сотрудник", "Сотрудник"); ТабДок.Колонки.Добавить("Номенклатура", "Номенклатура"); ТабДок.Колонки.Добавить("Количество", "Количество"); ТабДок.Колонки.Добавить("Отправитель", "Отправитель"); ТабДок.Колонки.Добавить("Получатель", "Получатель"); Пока Выборка.Следующий() Цикл Строка = ТабДок.Добавить(); Строка.ДатаДокумента = Выборка.ДатаДокумента; Строка.НомерДокумента = Выборка.НомерДокумента; Строка.Сотрудник = Выборка.Сотрудник; Строка.Номенклатура = Выборка.Номенклатура; Строка.Количество = Выборка.Количество; Строка.Отправитель = Выборка.Отправитель; Строка.Получатель = Выборка.Получатель; КонецЦикла; ЭтаФорма.Отчет = ТабДок; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

Процедура СформироватьОтчет(ДатаНачала, ДатаКонца)     Запрос = Новый Запрос;     Запрос.Текст =     "     |ВЫБРАТЬ     |    Перемещение.Дата КАК ДатаДокумента,     |    Перемещение.Номер КАК НомерДокумента,     |    Товары.Сотрудник КАК Сотрудник,     |    Товары.Номенклатура КАК Номенклатура,     |    Товары.Количество КАК Количество,     |    Перемещение.Отправитель КАК Отправитель,     |    Перемещение.Получатель КАК Получатель     |ИЗ     |    Документ.ПеремещениеЗапасов КАК Перемещение     |        ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПеремещениеЗапасов.Товары КАК Товары     |        ПО Перемещение.Ссылка = Товары.Ссылка     |ГДЕ     |    Перемещение.Дата МЕЖДУ &ДатаНачала И &ДатаКонца     |    И Товары.Сотрудник ЕСТЬ НЕ NULL     |УПОРЯДОЧИТЬ ПО     |    Перемещение.Дата, Перемещение.Номер     ";     Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);     Запрос.УстановитьПараметр("ДатаКонца", ДатаКонца);     Результат = Запрос.Выполнить();     Выборка = Результат.Выбрать();          ТабДок = Новый ТабличныйДокумент;     ТабДок.Колонки.Добавить("ДатаДокумента", "Дата");     ТабДок.Колонки.Добавить("НомерДокумента", "Номер");     ТабДок.Колонки.Добавить("Сотрудник", "Сотрудник");     ТабДок.Колонки.Добавить("Номенклатура", "Номенклатура");     ТабДок.Колонки.Добавить("Количество", "Количество");     ТабДок.Колонки.Добавить("Отправитель", "Отправитель");     ТабДок.Колонки.Добавить("Получатель", "Получатель");          Пока Выборка.Следующий() Цикл         Строка = ТабДок.Добавить();         Строка.ДатаДокумента = Выборка.ДатаДокумента;         Строка.НомерДокумента = Выборка.НомерДокумента;         Строка.Сотрудник = Выборка.Сотрудник;         Строка.Номенклатура = Выборка.Номенклатура;         Строка.Количество = Выборка.Количество;         Строка.Отправитель = Выборка.Отправитель;         Строка.Получатель = Выборка.Получатель;     КонецЦикла;          ЭтаФорма.Отчет = ТабДок; КонецПроцедуры

6. В форме отчета добавить кнопку «Сформировать» и вызвать процедуру с параметрами.

Если реквизит «Сотрудник» в шапке документа, то запрос и код нужно адаптировать соответственно.

Рекомендую посмотреть примеры создания отчетов по документам в УНФ и использовать встроенный механизм компоновки данных (КД) для удобства.

Если нужна помощь с конкретным кодом или формой — приложите структуру документа и реквизитов.

[Автор]

Сообщения