Конфигурация Бухгалтерия предприятия 3.0.
Есть ли возможность заполнить акт сверки непроведенными реализациями?
Кто-то сталкивался? Приобрел бы обработку/расширение
---
Реализовал сам в расширении, добавил команду на форме
Код

```1c
    &НаСервере
    Процедура Доп_ЗаполнитьнепроведеннымиРеализациямиПослеНаСервере();

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

    Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
    НоваяСтрока = ТЧ.Добавить();
    НоваяСтрока.Дата = Выборка.Док.Дата;
    НоваяСтрока.Документ = Выборка.Док;
    НоваяСтрока.Представление = "Продажа" + " (" + ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(Выборка.Номер) + " от " + Формат(Выборка.Док.Дата, "ДФ=dd.MM.yyyy") + ")";;
    НоваяСтрока.Дебет = Выборка.СуммаДокумента;
    НоваяСтрока.Кредит = 0;
    НоваяСтрока.Договор = Выборка.Док.ДоговорКонтрагента;
    КонецЦикла;
    ТЧ.Сортировать("Дата");

    КонецПроцедуры

    &НаКлиенте
    Процедура Доп_ЗаполнитьнепроведеннымиРеализациямиПосле(Команда)
    Доп_ЗаполнитьнепроведеннымиРеализациямиПослеНаСервере();
    КонецПроцедуры
```
---
Как вы себе это представляете.. чтоб без реализации уже акт выдать?
---
Бухгалтерии пытались это объяснить, бесполезно
---
Сообщение было скрыто модератором.
---
Реализовал сам в расширении, добавил команду на форме
Код

```1c
    &НаСервере
    Процедура Доп_ЗаполнитьнепроведеннымиРеализациямиПослеНаСервере();

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

    Выборка = Запрос.Выполнить().Выбрать();
    Пока Выборка.Следующий() Цикл
    НоваяСтрока = ТЧ.Добавить();
    НоваяСтрока.Дата = Выборка.Док.Дата;
    НоваяСтрока.Документ = Выборка.Док;
    НоваяСтрока.Представление = "Продажа" + " (" + ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(Выборка.Номер) + " от " + Формат(Выборка.Док.Дата, "ДФ=dd.MM.yyyy") + ")";;
    НоваяСтрока.Дебет = Выборка.СуммаДокумента;
    НоваяСтрока.Кредит = 0;
    НоваяСтрока.Договор = Выборка.Док.ДоговорКонтрагента;
    КонецЦикла;
    ТЧ.Сортировать("Дата");

    КонецПроцедуры

    &НаКлиенте
    Процедура Доп_ЗаполнитьнепроведеннымиРеализациямиПосле(Команда)
    Доп_ЗаполнитьнепроведеннымиРеализациямиПослеНаСервере();
    КонецПроцедуры
```