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

[Odineski]

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

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

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

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

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

1С (Код)

// Процедура на клиенте Процедура Заполнить(Команда) // Проверка года Если ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) < 2010 Или ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) > 2099 Тогда ОбщегоНазначенияКлиент.СообщитьПользователю("Некорректно указан год", , "_ОтчетГод"); Возврат; КонецЕсли; // Проверка периода Если Не ЗначениеЗаполнено(_Период) Тогда ОбщегоНазначенияКлиент.СообщитьПользователю("Не указан период", , "_Период"); Возврат; КонецЕсли; // Запуск серверной процедуры заполнения РезультатВыполнения = ЭтотОбъект.ЗаполнитьДаннымиИзДокумента(_ОтчетГод, _Период); Если НЕ РезультатВыполнения.ЗаданиеВыполнено Тогда ОповещениеОЗавершении = Новый ОписаниеОповещения("ЗаполнитьАвтоЗавершениеПослеЗаполнения", ЭтотОбъект); ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект); ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Выполняется заполнение по данным информационной базы'"); ДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатВыполнения, ОповещениеОЗавершении, ПараметрыОжидания); КонецЕсли; КонецПроцедуры // Серверная процедура, которая делает выборку из документа Функция ЗаполнитьДаннымиИзДокумента(Год, Период) Экспорт Результат = Новый Структура; Попытка // Пример запроса по документу ПодтверждениеНулевойСтавкиНДС Запрос = Новый Запрос; Запрос.Текст = |ВЫБРАТЬ | ПодтверждениеНДС.Ссылка КАК Документ, | ПодтверждениеНДС.Дата КАК Дата, | ПодтверждениеНДС.Ответственный КАК Ответственный, | ПодтверждениеНДС.Сумма КАК Сумма |ИЗ | Документ.ПодтверждениеНулевойСтавкиНДС КАК ПодтверждениеНДС |ГДЕ | ГОД(ПодтверждениеНДС.Дата) = &Год | И ПодтверждениеНДС.Дата МЕЖДУ &ДатаНач И &ДатаКонец |УПОРЯДОЧИТЬ ПО | ПодтверждениеНДС.Дата Убыв ; Запрос.УстановитьПараметр("Год", Год); Запрос.УстановитьПараметр("ДатаНач", НачалоДня(Период)); Запрос.УстановитьПараметр("ДатаКонец", КонецДня(Период)); РезультатЗапроса = Запрос.Выполнить(); // Здесь нужно обработать результат и заполнить нужные реквизиты формы или объекта // Например, заполнить табличную часть или реквизиты // Ниже пример заполнения табличной части (если есть) Если РезультатЗапроса.Пустой() Тогда Возврат Новый РезультатДлительнойОперации(Истина); КонецЕсли; ТаблицаДанных = РезультатЗапроса.Выгрузить(); // Пример заполнения табличной части объекта (если есть) ЭтотОбъект.ТабличнаяЧасть.Очистить(); Для Каждого Строка Из ТаблицаДанных Цикл НоваяСтрока = ЭтотОбъект.ТабличнаяЧасть.Добавить(); НоваяСтрока.Документ = Строка.Документ; НоваяСтрока.Дата = Строка.Дата; НоваяСтрока.Ответственный = Строка.Ответственный; НоваяСтрока.Сумма = Строка.Сумма; КонецЦикла; ЭтотОбъект.Записать(); Возврат Новый РезультатДлительнойОперации(Истина); Исключение Возврат Новый РезультатДлительнойОперации(Ложь, ОписаниеОшибки()); КонецПопытки; КонецФункции

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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76

// Процедура на клиенте Процедура Заполнить(Команда)     // Проверка года     Если ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) < 2010 Или ЭтотОбъект["ОТЧ"].ПривестиЗначение(_ОтчетГод) > 2099 Тогда         ОбщегоНазначенияКлиент.СообщитьПользователю("Некорректно указан год", , "_ОтчетГод");         Возврат;     КонецЕсли;     // Проверка периода     Если Не ЗначениеЗаполнено(_Период) Тогда         ОбщегоНазначенияКлиент.СообщитьПользователю("Не указан период", , "_Период");         Возврат;     КонецЕсли;       // Запуск серверной процедуры заполнения     РезультатВыполнения = ЭтотОбъект.ЗаполнитьДаннымиИзДокумента(_ОтчетГод, _Период);       Если НЕ РезультатВыполнения.ЗаданиеВыполнено Тогда         ОповещениеОЗавершении = Новый ОписаниеОповещения("ЗаполнитьАвтоЗавершениеПослеЗаполнения", ЭтотОбъект);         ПараметрыОжидания = ДлительныеОперацииКлиент.ПараметрыОжидания(ЭтотОбъект);         ПараметрыОжидания.ТекстСообщения = НСтр("ru = 'Выполняется заполнение по данным информационной базы'");         ДлительныеОперацииКлиент.ОжидатьЗавершение(РезультатВыполнения, ОповещениеОЗавершении, ПараметрыОжидания);     КонецЕсли; КонецПроцедуры   // Серверная процедура, которая делает выборку из документа Функция ЗаполнитьДаннымиИзДокумента(Год, Период) Экспорт     Результат = Новый Структура;     Попытка         // Пример запроса по документу ПодтверждениеНулевойСтавкиНДС         Запрос = Новый Запрос;         Запрос.Текст =         |ВЫБРАТЬ         |   ПодтверждениеНДС.Ссылка КАК Документ,         |   ПодтверждениеНДС.Дата КАК Дата,         |   ПодтверждениеНДС.Ответственный КАК Ответственный,         |   ПодтверждениеНДС.Сумма КАК Сумма         |ИЗ         |   Документ.ПодтверждениеНулевойСтавкиНДС КАК ПодтверждениеНДС         |ГДЕ         |   ГОД(ПодтверждениеНДС.Дата) = &Год         |   И ПодтверждениеНДС.Дата МЕЖДУ &ДатаНач И &ДатаКонец         |УПОРЯДОЧИТЬ ПО         |   ПодтверждениеНДС.Дата Убыв         ;         Запрос.УстановитьПараметр("Год", Год);         Запрос.УстановитьПараметр("ДатаНач", НачалоДня(Период));         Запрос.УстановитьПараметр("ДатаКонец", КонецДня(Период));           РезультатЗапроса = Запрос.Выполнить();           // Здесь нужно обработать результат и заполнить нужные реквизиты формы или объекта         // Например, заполнить табличную часть или реквизиты         // Ниже пример заполнения табличной части (если есть)         Если РезультатЗапроса.Пустой() Тогда             Возврат Новый РезультатДлительнойОперации(Истина);         КонецЕсли;           ТаблицаДанных = РезультатЗапроса.Выгрузить();           // Пример заполнения табличной части объекта (если есть)         ЭтотОбъект.ТабличнаяЧасть.Очистить();         Для Каждого Строка Из ТаблицаДанных Цикл             НоваяСтрока = ЭтотОбъект.ТабличнаяЧасть.Добавить();             НоваяСтрока.Документ = Строка.Документ;             НоваяСтрока.Дата = Строка.Дата;             НоваяСтрока.Ответственный = Строка.Ответственный;             НоваяСтрока.Сумма = Строка.Сумма;         КонецЦикла;           ЭтотОбъект.Записать();           Возврат Новый РезультатДлительнойОперации(Истина);     Исключение         Возврат Новый РезультатДлительнойОперации(Ложь, ОписаниеОшибки());     КонецПопытки; КонецФункции

—

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

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

—

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

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

[Автор]

Сообщения