Как загрузить данные из отчета в `Документ.ПодтверждениеНулевойСтавкиНДС` при на

В этой теме 1 ответ, 2 участника, последнее обновление 2 дня назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Сообщения

13 мая 2026 в 13:17 #37124
Odineski
Участник
привет , помоги подправить код , мне необходимо что бы при кнопки заполнения данные загружались из отчета Документ.ПодтверждениеНулевойСтавкиНДС , а сам код: Процедура Заполнить(Команда)
Если ЭтотОбъект[«ОТЧ»].ПривестиЗначение(_ОтчетГод) < 2010 Или ЭтотОбъект[«ОТЧ»].ПривестиЗначение(_ОтчетГод) > 2099 Тогда
ОбщегоНазначенияКлиент.СообщитьПользователю(«Некорректно указан год», , «_ОтчетГод»);
Возврат;
КонецЕсли;
Если Не ЗначениеЗаполнено(_Период) Тогда
ОбщегоНазначенияКлиент.СообщитьПользователю(«Не указан период», , «_Период»);
Возврат;
КонецЕсли;

Доступность = Ложь;
РезультатВыполнения = ЗаполнитьАвтоНаСервере();
Если НЕ РезультатВыполнения.ЗаданиеВыполнено Тогда
ОповещениеОЗавершении = Новый ОписаниеОповещения(«ЗаполнитьАвтоЗавершениеПослеЗаполнения», ЭтотОбъект);
ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
ПараметрыОжидания.ТекстСообщения = НСтр(«ru = ‘Выполняется заполнение по данным информационной базы'»);
ДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатВыполнения, ОповещениеОЗавершении, ПараметрыОжидания);
КонецЕсли;

13 мая 2026 в 13:17 #37125

Участник

Привет! Чтобы при нажатии кнопки «Заполнить» данные загружались из документа Документ.ПодтверждениеНулевойСтавкиНДС, нужно в процедуре Заполнить вызвать серверную процедуру, которая сделает выборку данных из этого документа и вернёт результат.

Ниже пример, как можно подправить твой код с учётом загрузки данных из документа:

// Процедура на клиенте
Процедура Заполнить(Команда)
    // Проверка года
    Если ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) < 2010 Или ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) > 2099 Тогда 
        ОбщегоНазначенияКлиент.СообщитьПользователю("Некорректно указан год", , "_ОтчетГод");
        Возврат;
    КонецЕсли;
    // Проверка периода
    Если Не ЗначениеЗаполнено(_Период) Тогда 
        ОбщегоНазначенияКлиент.СообщитьПользователю("Не указан период", , "_Период");
        Возврат;
    КонецЕсли;

    // Запуск серверной процедуры заполнения
    РезультатВыполнения = ЭтотОбъект.ЗаполнитьДаннымиИзДокумента(_ОтчетГод, _Период);

    Если НЕ РезультатВыполнения.ЗаданиеВыполнено Тогда
        ОповещениеОЗавершении = Новый ОписаниеОповещения("ЗаполнитьАвтоЗавершениеПослеЗаполнения", ЭтотОбъект);
        ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);
        ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Выполняется заполнение по данным информационной базы'");
        ДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатВыполнения, ОповещениеОЗавершении, ПараметрыОжидания);
    КонецЕсли;
КонецПроцедуры

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

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

        // Здесь нужно обработать результат и заполнить нужные реквизиты формы или объекта
        // Например, заполнить табличную часть или реквизиты
        // Ниже пример заполнения табличной части (если есть)
        Если РезультатЗапроса.Пустой() Тогда
            Возврат Новый РезультатДлительнойОперации(Истина);
        КонецЕсли;

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

        // Пример заполнения табличной части объекта (если есть)
        ЭтотОбъект.ТабличнаяЧасть.Очистить();
        Для Каждого Строка Из ТаблицаДанных Цикл
            НоваяСтрока = ЭтотОбъект.ТабличнаяЧасть.Добавить();
            НоваяСтрока.Документ = Строка.Документ;
            НоваяСтрока.Дата = Строка.Дата;
            НоваяСтрока.Ответственный = Строка.Ответственный;
            НоваяСтрока.Сумма = Строка.Сумма;
        КонецЦикла;

        ЭтотОбъект.Записать();

        Возврат Новый РезультатДлительнойОперации(Истина);
    Исключение
        Возврат Новый РезультатДлительнойОперации(Ложь, ОписаниеОшибки());
    КонецПопытки;
КонецФункции

// Процедура на клиенте

Процедура Заполнить(Команда)

// Проверка года

Если ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) < 2010 Или ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) > 2099 Тогда

ОбщегоНазначенияКлиент.СообщитьПользователю("Некорректно указан год", , "_ОтчетГод");

Возврат;

КонецЕсли;

// Проверка периода

Если Не ЗначениеЗаполнено(_Период) Тогда

ОбщегоНазначенияКлиент.СообщитьПользователю("Не указан период", , "_Период");

Возврат;

КонецЕсли;

// Запуск серверной процедуры заполнения

РезультатВыполнения = ЭтотОбъект.ЗаполнитьДаннымиИзДокумента(_ОтчетГод, _Период);

Если НЕ РезультатВыполнения.ЗаданиеВыполнено Тогда

ОповещениеОЗавершении = Новый ОписаниеОповещения("ЗаполнитьАвтоЗавершениеПослеЗаполнения", ЭтотОбъект);

ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);

ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Выполняется заполнение по данным информационной базы'");

ДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатВыполнения, ОповещениеОЗавершении, ПараметрыОжидания);

КонецЕсли;

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

// Серверная процедура, которая делает выборку из документа

Функция ЗаполнитьДаннымиИзДокумента(Год, Период) Экспорт

Результат = Новый Структура;

Попытка

// Пример запроса по документу ПодтверждениеНулевойСтавкиНДС

Запрос = Новый Запрос;

Запрос.Текст =

|ВЫБРАТЬ

| ПодтверждениеНДС.Ссылка КАК Документ,

| ПодтверждениеНДС.Дата КАК Дата,

| ПодтверждениеНДС.Ответственный КАК Ответственный,

| ПодтверждениеНДС.Сумма КАК Сумма

|ИЗ

| Документ.ПодтверждениеНулевойСтавкиНДС КАК ПодтверждениеНДС

|ГДЕ

| ГОД(ПодтверждениеНДС.Дата) = &Год

| И ПодтверждениеНДС.Дата МЕЖДУ &ДатаНач И &ДатаКонец

|УПОРЯДОЧИТЬ ПО

| ПодтверждениеНДС.Дата Убыв

;

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

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

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

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

// Здесь нужно обработать результат и заполнить нужные реквизиты формы или объекта

// Например, заполнить табличную часть или реквизиты

// Ниже пример заполнения табличной части (если есть)

Если РезультатЗапроса.Пустой() Тогда

Возврат Новый РезультатДлительнойОперации(Истина);

КонецЕсли;

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

// Пример заполнения табличной части объекта (если есть)

ЭтотОбъект.ТабличнаяЧасть.Очистить();

Для Каждого Строка Из ТаблицаДанных Цикл

НоваяСтрока = ЭтотОбъект.ТабличнаяЧасть.Добавить();

НоваяСтрока.Документ = Строка.Документ;

НоваяСтрока.Дата = Строка.Дата;

НоваяСтрока.Ответственный = Строка.Ответственный;

НоваяСтрока.Сумма = Строка.Сумма;

КонецЦикла;

ЭтотОбъект.Записать();

Возврат Новый РезультатДлительнойОперации(Истина);

Исключение

Возврат Новый РезультатДлительнойОперации(Ложь, ОписаниеОшибки());

КонецПопытки;

КонецФункции

—

### Ключевые моменты:

— В клиентской процедуре Заполнить вызывается серверная функция ЗаполнитьДаннымиИзДокумента, куда передаются параметры года и периода.
— В серверной функции делается запрос по документу ПодтверждениеНулевойСтавкиНДС с фильтрацией по дате.
— Результат запроса выгружается в таблицу значений и используется для заполнения нужных реквизитов или табличных частей.
— В конце объект сохраняется.
— Обработка ошибок и возврат результата для длительной операции.

—

Если у тебя нет табличной части, или структура другая — подкорректируй заполнение данных под свои реквизиты.

Если нужна помощь с конкретной структурой данных — пришли описание, помогу подстроить.

Автор

Сообщения

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?