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

Ошибка «Недопустимая операция для неоткрытой формы» при вызове метода Форма.Закрыть(СтруктураПараметров) означает, что вы пытаетесь закрыть форму, которая уже закрыта или не была открыта.

В вашем стеке вызовов:

— В модуле объекта расширения на строке 211 вызывается Форма.Закрыть(СтруктураПараметров);
— В модуле объекта основной обработки на строке 1525 вызывается процедура мВыборВозврат(Форма);
— В форме ВводПараметров на строке 38 вызывается мКнопкаОКНажатие
— В основной форме на строке 829 вызывается ФормаВводПараметров.ОткрытьМодально();

Скорее всего, проблема в том, что вы пытаетесь закрыть форму, которая уже закрыта или не была открыта (например, повторный вызов Закрыть).

Что проверить и как исправить:

1. Проверить, что форма действительно открыта перед вызовом Закрыть:

1С (Код)

Если Форма <> Неопределено И Форма.Открыта Тогда Форма.Закрыть(СтруктураПараметров); КонецЕсли;

1 2 3

Если Форма <> Неопределено И Форма.Открыта Тогда     Форма.Закрыть(СтруктураПараметров); КонецЕсли;

2. Убедиться, что метод Закрыть вызывается только один раз. Возможно, в коде есть повторные вызовы закрытия формы.

3. Если форма открывается модально (ОткрытьМодально()), то закрывать её нужно изнутри формы через Закрыть(<параметр>). Внешний код, который вызвал ОткрытьМодально(), получает результат и не должен сам закрывать форму.

4. Проверить логику вызова мВыборВозврат(Форма). Возможно, там происходит двойное закрытие.

5. Если форма создаётся через ПолучитьФорму(), убедитесь, что она открыта через Открыть() или ОткрытьМодально() перед вызовом Закрыть.

—

Кратко: ошибка возникает, когда вызывается Форма.Закрыть() для формы, которая уже закрыта или не была открыта. Нужно добавить проверку Форма.Открыта перед вызовом Закрыть и проверить логику вызовов, чтобы не было двойного закрытия.

—

Рекомендую посмотреть, как правильно работать с модальными формами и их закрытием:
https://helpf.pro/faq/view/42.html
https://helpf.pro/faq/view/1344.html

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

При ручном удалении элемента справочника в 1С автоматически не удаляются элементы других справочников, даже если удаляемый элемент является владельцем (например, если он используется как ссылка в других справочниках). Платформа 1С не выполняет каскадное удаление по ссылкам между справочниками.

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

Исключение — иерархические справочники, где при удалении группы автоматически удаляются все ее подчиненные элементы внутри этого же справочника, но это не распространяется на другие справочники.

Рекомендую всегда проверять ссылки на удаляемый элемент и при необходимости реализовывать обработчики удаления, которые будут корректно очищать связанные данные.

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

В 1С нет встроенного универсального метода, который бы напрямую возвращал список всех подчинённых справочников для заданного справочника, например, «Организации». Подчинённые справочники — это справочники, у которых есть реквизит-ссылка на справочник «Организации» (владелец).

Чтобы получить список таких справочников, нужно программно проверить все справочники конфигурации и найти те, у которых есть реквизит-ссылка на «Организации».

Примерный алгоритм на встроенном языке 1С (8.3):

1С (Код)

Функция ПолучитьПодчинённыеСправочники(ИмяВладельца) Подчинённые = Новый СписокЗначений; МетаданныеКонфигурации = Метаданные; // Получаем метаданные справочника-владельца СправочникВладелец = МетаданныеКонфигурации.Справочники[ИмяВладельца]; Если СправочникВладелец = Неопределено Тогда Возврат Подчинённые; // пустой список КонецЕсли; // Перебираем все справочники конфигурации Для Каждого Справочник Из МетаданныеКонфигурации.Справочники Цикл // Перебираем реквизиты справочника Для Каждого Реквизит Из Справочник.Реквизиты Цикл // Проверяем, что реквизит - это ссылка на справочник "Организации" Если Реквизит.Тип = Тип("СправочникСсылка." + ИмяВладельца) Тогда // Добавляем имя справочника в список подчинённых Подчинённые.Добавить(Справочник.Имя); Прервать; // достаточно одного реквизита-ссылки, чтобы считать справочник подчинённым КонецЕсли; КонецЦикла; КонецЦикла; Возврат Подчинённые; КонецФункции // Использование: ПодчинённыеСправочники = ПолучитьПодчинённыеСправочники("Организации"); Для Каждого ИмяСправочника Из ПодчинённыеСправочники Цикл Сообщить(ИмяСправочника); КонецЦикла;

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

Функция ПолучитьПодчинённыеСправочники(ИмяВладельца) Подчинённые = Новый СписокЗначений; МетаданныеКонфигурации = Метаданные; // Получаем метаданные справочника-владельца СправочникВладелец = МетаданныеКонфигурации.Справочники[ИмяВладельца]; Если СправочникВладелец = Неопределено Тогда Возврат Подчинённые; // пустой список КонецЕсли; // Перебираем все справочники конфигурации Для Каждого Справочник Из МетаданныеКонфигурации.Справочники Цикл // Перебираем реквизиты справочника Для Каждого Реквизит Из Справочник.Реквизиты Цикл // Проверяем, что реквизит - это ссылка на справочник "Организации" Если Реквизит.Тип = Тип("СправочникСсылка." + ИмяВладельца) Тогда // Добавляем имя справочника в список подчинённых Подчинённые.Добавить(Справочник.Имя); Прервать; // достаточно одного реквизита-ссылки, чтобы считать справочник подчинённым КонецЕсли; КонецЦикла; КонецЦикла; Возврат Подчинённые; КонецФункции   // Использование: ПодчинённыеСправочники = ПолучитьПодчинённыеСправочники("Организации"); Для Каждого ИмяСправочника Из ПодчинённыеСправочники Цикл Сообщить(ИмяСправочника); КонецЦикла;

Объяснение:
— Функция перебирает все справочники конфигурации.
— Для каждого справочника проверяет реквизиты.
— Если среди реквизитов есть ссылка на справочник «Организации», то этот справочник считается подчинённым.
— Возвращается список имён таких справочников.

Если нужно получить не только имена, а объекты метаданных или формы, можно расширить функцию.

Если конфигурация большая, можно оптимизировать перебор.

Там подробно описано, как работать с метаданными и получать информацию о реквизитах и типах.

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

Код в целом выглядит логично, но есть несколько моментов, на которые стоит обратить внимание и поправить:

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

2. Обращение к табличной части ЭтотОбъект.ТабличнаяЧасть
В первой серверной процедуре есть строка:

1С (Код)

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

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

Это невалидно, так как у объекта документа или справочника нет свойства с именем ТабличнаяЧасть. Нужно указать конкретное имя табличной части, например:

1С (Код)

ТабЧасть = ЭтотОбъект.Реестр; // или другое имя табличной части

1	ТабЧасть = ЭтотОбъект.Реестр; // или другое имя табличной части

Иначе будет ошибка.

3. Вызов клиентской процедуры из серверной
В серверной процедуре вызывается:

1С (Код)

ОбщегоНазначенияКлиент.СообщитьПользователю(...)

1	ОбщегоНазначенияКлиент.СообщитьПользователю(...)

Это клиентская процедура, её нельзя вызвать с сервера напрямую. Нужно либо возвращать результат на клиент и там показывать сообщение, либо использовать механизм событий.

4. Параметры _ОтчетГод и _Период
В клиентских процедурах используются переменные _ОтчетГод и _Период. Убедитесь, что они определены и доступны в контексте формы.

5. Обращение к _РеестрДокПОбНЛ и _ПредТипДог
В расширенной серверной процедуре используются объекты _РеестрДокПОбНЛ и _ПредТипДог. Убедитесь, что это табличные части или объекты, доступные в контексте ЭтотОбъект. Если это реквизиты формы, то нужно передавать их в процедуру или работать с ними на клиенте.

6. Использование ОбщегоНазначенияКлиент.СообщитьПользователю
В клиентских процедурах вызов корректен, но в серверных — нет. Для серверных процедур лучше возвращать результат или использовать ВызватьИсключение для ошибок.

7. Обработка пустой выборки
В расширенной серверной процедуре есть проверка:

1С (Код)

Если Не Выборка.Следующий() Тогда ОбщегоНазначенияКлиент.СообщитьПользователю("Нет документов ..."); Возврат; КонецЕсли;

1 2 3 4

Если Не Выборка.Следующий() Тогда        ОбщегоНазначенияКлиент.СообщитьПользователю("Нет документов ...");        Возврат;    КонецЕсли;

Здесь Выборка.Следующий() сдвигает курсор, и при повторном переборе выборки данные будут пропущены. Лучше сделать так:

1С (Код)

Если Выборка.Пустая() Тогда // сообщение Возврат; КонецЕсли;

1 2 3 4

Если Выборка.Пустая() Тогда        // сообщение        Возврат;    КонецЕсли;

Или сохранить результат в переменную.

8. Вызов Модифицированность = Истина; Доступность = Истина;
Эти переменные не объявлены и не используются явно. Если это свойства формы, то нужно обращаться через ЭтотОбъект или ЭлементыФормы.

—

Рекомендации по исправлению:

— Переименуйте серверные процедуры с одинаковым именем.
— Уточните имена табличных частей.
— В серверных процедурах не вызывайте клиентские методы напрямую.
— Проверьте доступность переменных и объектов.
— Исправьте проверку пустой выборки.
— Если нужно показать сообщение с сервера, возвращайте результат на клиент и там вызывайте СообщитьПользователю.

—

Если нужно, могу помочь с конкретным исправленным вариантом кода.

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

Ошибка «Процедура или функция с указанным именем уже определена (Заполнить)» говорит о том, что в модуле формы уже есть процедура с именем Заполнить, и ты пытаешься добавить вторую с таким же именем.

В 1С в одном модуле не может быть две процедуры с одинаковым именем.

Что делать:

1. Найди в модуле форму, где ты пишешь код, уже существующую процедуру с именем Заполнить.

2. Либо замени её код на твой, либо объедини логику в одну процедуру.

3. Если хочешь, чтобы твоя процедура вызывалась из интерфейса, оставь имя Заполнить, но удали или переименуй старую.

—

Если не хочешь менять существующую процедуру, то переименуй свою, например:

1С (Код)

&НаКлиенте Процедура ЗаполнитьДанные(Команда) // твой код КонецПроцедуры

1 2 3 4

&НаКлиенте Процедура ЗаполнитьДанные(Команда)     // твой код КонецПроцедуры

И вызови её из нужного места.

—

Также проверь, нет ли в модуле процедуры с таким же именем, но с другим регистром (например, Заполнить и заполнить — 1С не чувствительна к регистру, это тоже конфликт).

—

Если не можешь найти старую процедуру, попробуй:

— В конфигураторе открыть модуль формы, нажать Ctrl+F и поискать «Процедура Заполнить».

— Убедиться, что в модуле нет дублирующихся процедур.

—

В итоге, в модуле должна быть только одна процедура с именем Заполнить.

—

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

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

В табличном документе 1С нельзя напрямую добавить формулу в ячейку, чтобы она автоматически работала и пересчитывалась при выгрузке в Excel. Табличный документ — это структура 1С, которая хранит значения, а не формулы Excel.

Если вы просто запишете в ячейку табличного документа текст формулы, например «=RC[8]*RC[10]», то при выгрузке в Excel эта формула будет восприниматься как текст, а не как формула, и не будет автоматически пересчитываться.

Чтобы формула работала в Excel после выгрузки, нужно:

1. При выгрузке в Excel через COM-объект Excel (через Automation) программно записывать формулы в ячейки Excel, используя свойства Formula или FormulaR1C1 объекта Range.

2. Если выгрузка происходит через сохранение табличного документа в файл Excel (например, через Встроенные средства 1С), то формулы не сохранятся как формулы, а будут просто текстом.

Пример кода для записи формулы в Excel через COM из 1С:

1С (Код)

// Создаем Excel Excel = СоздатьОбъект("Excel.Application"); Книга = Excel.Workbooks.Add(); Лист = Книга.Worksheets(1); // Записываем формулу в ячейку C1 (3-я колонка, 1-я строка) Лист.Cells(1, 3).FormulaR1C1 = "=RC[8]*RC[10]"; // Показываем Excel Excel.Visible = Истина;

1 2 3 4 5 6 7 8 9 10

// Создаем Excel Excel = СоздатьОбъект("Excel.Application"); Книга = Excel.Workbooks.Add(); Лист = Книга.Worksheets(1);   // Записываем формулу в ячейку C1 (3-я колонка, 1-я строка) Лист.Cells(1, 3).FormulaR1C1 = "=RC[8]*RC[10]";   // Показываем Excel Excel.Visible = Истина;

Если вы хотите, чтобы формулы были в выгруженном файле и работали, выгружайте данные через COM-объект Excel и записывайте формулы именно в Excel, а не в табличный документ.

Итог: в табличном документе формулы не работают, но при выгрузке через COM в Excel можно программно записать формулы, которые будут работать и пересчитываться.
https://infostart.ru/1c/articles/1668099/

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

Да, такой код корректно открывает существующий файл Excel, получает лист по номеру, устанавливает значение в указанную ячейку, сохраняет изменения и закрывает книгу и приложение Excel.

Важные моменты из примера:
— Используется объект Excel через универсальный API 1С («V8Excel.Application»), что подходит и для Unix-систем.
— Номер листа, строки и столбца задаются переменными, что удобно для настройки.
— Значение устанавливается в конкретную ячейку через свойство Value.
— После изменений книга сохраняется методом Save(), затем закрывается.
— Приложение Excel закрывается методом Quit(), и объекты освобождаются, чтобы не оставлять процессы в памяти.
— Путь к файлу берется из отдельной функции, что позволяет не хранить его жестко в коде.

1С (Код)

НомерЛистаДляОбновления = 2; НомерСтрокиЯчейки = 2; НомерСтолбцаЯчейки = 2; Процедура ВыполнитьОбновлениеExcel() Попытка // Путь к файлу Excel - вынесено в константу ПутьКФайлу = ПолучитьПутьКФайлу(); // Создаем Excel COM-объект через универсальный API 1С, чтобы работать на Unix Excel = Новый Объект("V8Excel.Application"); // альтернатива COMОбъект для Unix Excel.Visible = Ложь; // Можно поставить Истина, чтобы видеть процесс // Открываем книгу Книга = Excel.Workbooks.Open(ПутьКФайлу); // Получаем лист по номеру (например, 1) Лист = Книга.Worksheets(НомерЛистаДляОбновления); // Устанавливаем значение в ячейку, например, в ячейку B2 (строка 2, колонка 2) Лист.Cells(НомерСтрокиЯчейки, НомерСтолбцаЯчейки).Value = "Новое значение"; // Сохраняем книгу Книга.Save(); // Закрываем книгу Книга.Close(); // Закрываем Excel Excel.Quit(); // Освобождаем объекты Книга = Неопределено; Лист = Неопределено; Excel = Неопределено; Исключение Сообщить("Ошибка при работе с Excel: " + ОписаниеОшибки()); КонецПопытки; КонецПроцедуры Функция ПолучитьПутьКФайлу() // Получение пути к файлу из настройки или конфигурации, чтобы не хранить в коде жестко Возврат СсылкаНаОбьектНастройки.ПутьКФайлаExcel; // Здесь нужно реализовать получение пути из настроек КонецФункции

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

НомерЛистаДляОбновления = 2; НомерСтрокиЯчейки = 2; НомерСтолбцаЯчейки = 2;   Процедура ВыполнитьОбновлениеExcel()     Попытка         // Путь к файлу Excel - вынесено в константу         ПутьКФайлу = ПолучитьПутьКФайлу();           // Создаем Excel COM-объект через универсальный API 1С, чтобы работать на Unix         Excel = Новый Объект("V8Excel.Application"); // альтернатива COMОбъект для Unix         Excel.Visible = Ложь; // Можно поставить Истина, чтобы видеть процесс           // Открываем книгу         Книга = Excel.Workbooks.Open(ПутьКФайлу);           // Получаем лист по номеру (например, 1)         Лист = Книга.Worksheets(НомерЛистаДляОбновления);           // Устанавливаем значение в ячейку, например, в ячейку B2 (строка 2, колонка 2)         Лист.Cells(НомерСтрокиЯчейки, НомерСтолбцаЯчейки).Value = "Новое значение";           // Сохраняем книгу         Книга.Save();           // Закрываем книгу         Книга.Close();           // Закрываем Excel         Excel.Quit();           // Освобождаем объекты         Книга = Неопределено;         Лист = Неопределено;         Excel = Неопределено;     Исключение         Сообщить("Ошибка при работе с Excel: " + ОписаниеОшибки());     КонецПопытки; КонецПроцедуры   Функция ПолучитьПутьКФайлу()     // Получение пути к файлу из настройки или конфигурации, чтобы не хранить в коде жестко     Возврат СсылкаНаОбьектНастройки.ПутьКФайлаExcel; // Здесь нужно реализовать получение пути из настроек КонецФункции

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

Файл настроек подключения для синхронизации 1С:ERP и 1С:Бухгалтерия создаётся в формате XML и содержит параметры подключения, пути обмена, префиксы и настройки обмена.

Пример минимального файла настроек подключения для синхронизации ERP и Бухгалтерии через файл (синхронизация через каталог):

1С (Код)

<?xml version="1.0" encoding="utf-8"?> <НастройкиОбменаВерсия="1.0" xmlns="http://v8.1c.ru/8.3/sync"> <Обмен> <Программа>ERP</Программа> <Префикс>ERP_</Префикс> <КаталогОбмена>\serversyncerp_buh</КаталогОбмена> <Параметры> <Параметр Имя="ТипОбмена" Значение="Файловый"/> <Параметр Имя="ПериодОбмена" Значение="Месячный"/> <Параметр Имя="НачалоОбмена" Значение="2026-01-01"/> </Параметры> </Обмен> <Обмен> <Программа>Бухгалтерия</Программа> <Префикс>BUH_</Префикс> <КаталогОбмена>\serversyncerp_buh</КаталогОбмена> <Параметры> <Параметр Имя="ТипОбмена" Значение="Файловый"/> <Параметр Имя="ПериодОбмена" Значение="Месячный"/> <Параметр Имя="НачалоОбмена" Значение="2026-01-01"/> </Параметры> </Обмен> </НастройкиОбмена>

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

<?xml version="1.0" encoding="utf-8"?> <НастройкиОбменаВерсия="1.0" xmlns="http://v8.1c.ru/8.3/sync">   <Обмен>     <Программа>ERP</Программа>     <Префикс>ERP_</Префикс>     <КаталогОбмена>\serversyncerp_buh</КаталогОбмена>     <Параметры>       <Параметр Имя="ТипОбмена" Значение="Файловый"/>       <Параметр Имя="ПериодОбмена" Значение="Месячный"/>       <Параметр Имя="НачалоОбмена" Значение="2026-01-01"/>     </Параметры>   </Обмен>   <Обмен>     <Программа>Бухгалтерия</Программа>     <Префикс>BUH_</Префикс>     <КаталогОбмена>\serversyncerp_buh</КаталогОбмена>     <Параметры>       <Параметр Имя="ТипОбмена" Значение="Файловый"/>       <Параметр Имя="ПериодОбмена" Значение="Месячный"/>       <Параметр Имя="НачалоОбмена" Значение="2026-01-01"/>     </Параметры>   </Обмен> </НастройкиОбмена>

Объяснение:

— <Программа> — имя конфигурации (ERP и Бухгалтерия).
— <Префикс> — префикс для файлов обмена, важен для корректного сопоставления.
— <КаталогОбмена> — общий каталог, куда обе программы будут выгружать и откуда загружать файлы обмена.
— <Параметры> — дополнительные параметры, например, тип обмена (файловый), период и дата начала обмена.

Для создания такого файла:

1. В 1С:ERP зайдите в Администрирование → Синхронизация данных → Настройка синхронизации → Создайте новую синхронизацию с типом «Синхронизация через файл».
2. Укажите каталог обмена, префикс (например, ERP_).
3. Аналогично в 1С:Бухгалтерия настройте синхронизацию с тем же каталогом и префиксом BUH_.
4. После настройки в каталоге появятся файлы настроек обмена, которые можно сохранить и использовать.

Если нужно именно готовый файл для загрузки — создайте его в текстовом редакторе с примером выше, заменив пути и префиксы под свои условия.

Рекомендую посмотреть здесь для подробной настройки синхронизации через файл:
https://infostart.ru/1c/articles/1052083/

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

Проблема в том, что в 1С при присвоении многострочной строки с запросом через Запрос.Текст = нужно, чтобы символ | стоял строго в начале строки, без отступов.

В твоём коде, судя по отступам, перед | есть пробелы или табуляция — это вызывает ошибку «Ожидается выражение».

Правильно должно быть так (без отступов перед |):

1С (Код)

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

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

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

То есть символ | должен быть первым символом в строке, без пробелов слева.

—

### Что сделать:

1. Убери все пробелы и табуляции перед символом | в строках запроса.
2. Проверь, чтобы после Запрос.Текст = был перенос строки, а не кавычки.
3. В конце запроса поставь точку с запятой.

—

### Пример исправленного кода процедуры:

1С (Код)

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

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

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

—

Если используешь обычный редактор, попробуй удалить все отступы перед | и поставить их заново, чтобы точно не было пробелов.

—

Если после этого ошибка останется — пришли скриншот или точный текст с отступами, посмотрю.

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

Ошибка «Ожидается выражение» на строке с присвоением Запрос.Текст = обычно связана с тем, что в коде стоит лишний символ или неверный синтаксис.

Проверь, что в коде именно так (без кавычек, без лишних символов, с переносом строки после знака =):

1С (Код)

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

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

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

Обрати внимание:

— После = обязательно перенос строки.
— Каждая строка начинается с символа |.
— В конце запроса стоит точка с запятой.
— Никаких кавычек вокруг всего текста запроса нет.

Если у тебя в коде стоит что-то вроде:

1С (Код)

Запрос.Текст = "|ВЫБРАТЬ ...";

1	Запрос.Текст = "|ВЫБРАТЬ ...";

или

1С (Код)

Запрос.Текст = "ВЫБРАТЬ ...";

1	Запрос.Текст = "ВЫБРАТЬ ...";

то это вызовет ошибку.

—

Если ошибка сохраняется, попробуй заменить на такой вариант (с использованием многострочной строки):

1С (Код)

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

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

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

Но первый вариант с | предпочтительнее.

—

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

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

Ошибка «Ожидается выражение» на строке с присвоением Запрос.Текст = обычно связана с неправильным оформлением многострочной строки запроса.

В 1С для многострочных строк с запросом нужно использовать либо:

— Конкатенацию строк с + и кавычки, либо
— Специальный синтаксис многострочной строки с символом | в начале каждой строки (рекомендуется для запросов).

Правильный пример оформления запроса в 1С:

1С (Код)

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

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

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

Обрати внимание:

— Каждая строка начинается с символа |.
— После = ставится перенос строки, а не кавычки.
— В конце запроса ставится точка с запятой.

Если у тебя в коде было так:

1С (Код)

Запрос.Текст = "ВЫБРАТЬ ПодтверждениеНДС.Ссылка КАК Документ, ..."

1 2 3 4

Запрос.Текст = "ВЫБРАТЬ ПодтверждениеНДС.Ссылка КАК Документ, ..."

то это вызовет ошибку.

—

### Исправленный пример процедуры с правильным оформлением запроса:

1С (Код)

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

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

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

—

Проверь, чтобы в твоём коде запрос был оформлен именно так, с | в начале каждой строки и без кавычек вокруг всего текста.

Если ошибка останется — пришли точный кусок кода с присвоением Запрос.Текст, посмотрю.

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

Понял, нужно в документ «РегламентированноеУведомлениеРеестрДокументовПодтверждающихЛьготы» подгружать данные из документа «ПодтверждениеНулевойСтавкиНДС».

Примерный алгоритм и код для процедуры заполнения в форме документа «РегламентированноеУведомлениеРеестрДокументовПодтверждающихЛьготы»:

1С (Код)

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

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

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

—

### Что нужно сделать:

— В форме документа «РегламентированноеУведомлениеРеестрДокументовПодтверждающихЛьготы» добавить кнопку «Заполнить» и привязать к ней эту процедуру.
— Убедиться, что в табличной части документа есть колонки/реквизиты: Документ, Дата, Ответственный, Сумма (или свои, подкорректировать).
— Параметры ОтчетГод и Период — реквизиты документа, по которым фильтруется выборка.
— При нажатии кнопки данные из документов «ПодтверждениеНулевойСтавкиНДС» за указанный период загрузятся в табличную часть.

—

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

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

—

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

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

—

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

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

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

В форме типа ОбработкаТабличнаяЧасть.ПодборНоменклатурыМатериалы.НоменклатураДляПодбора для отбора строки по ссылке на номенклатуру нужно работать с табличной частью формы — обычно это ЭлементыФормы.Номенклатура или аналогичный элемент.

Чтобы отфильтровать строки по ссылке на номенклатуру, можно сделать так:

1С (Код)

Процедура ОтобратьПоНоменклатуре(СсылкаНоменклатуры) Если ЗначениеЗаполнено(СсылкаНоменклатуры) Тогда // Получаем таблицу данных формы ТаблицаДанных = ЭлементыФормы.Номенклатура.Значение; // Создаем фильтр по ссылке Отбор = Новый Структура("Номенклатура", СсылкаНоменклатуры); // Применяем фильтр к таблице данных ОтобранныеСтроки = ТаблицаДанных.НайтиСтроки(Отбор); Если ОтобранныеСтроки.Количество() > 0 Тогда // Устанавливаем текущую строку в элементе формы ЭлементыФормы.Номенклатура.ТекущаяСтрока = ОтобранныеСтроки[0]; Иначе // Если строка не найдена, можно очистить выбор ЭлементыФормы.Номенклатура.ТекущаяСтрока = Неопределено; КонецЕсли; КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Процедура ОтобратьПоНоменклатуре(СсылкаНоменклатуры) Если ЗначениеЗаполнено(СсылкаНоменклатуры) Тогда // Получаем таблицу данных формы ТаблицаДанных = ЭлементыФормы.Номенклатура.Значение; // Создаем фильтр по ссылке Отбор = Новый Структура("Номенклатура", СсылкаНоменклатуры); // Применяем фильтр к таблице данных ОтобранныеСтроки = ТаблицаДанных.НайтиСтроки(Отбор); Если ОтобранныеСтроки.Количество() > 0 Тогда // Устанавливаем текущую строку в элементе формы ЭлементыФормы.Номенклатура.ТекущаяСтрока = ОтобранныеСтроки[0]; Иначе // Если строка не найдена, можно очистить выбор ЭлементыФормы.Номенклатура.ТекущаяСтрока = Неопределено; КонецЕсли; КонецЕсли; КонецПроцедуры

Где:

— ЭлементыФормы.Номенклатура — элемент табличной части с данными номенклатуры (название может отличаться, смотрите в вашей форме).
— СсылкаНоменклатуры — ссылка на нужный элемент справочника Номенклатура.

Если нужно именно отфильтровать (сделать отбор, чтобы в списке осталась только эта строка), то можно использовать фильтр элемента формы:

1С (Код)

Процедура ОтфильтроватьПоНоменклатуре(СсылкаНоменклатуры) Если ЗначениеЗаполнено(СсылкаНоменклатуры) Тогда ЭлементыФормы.Номенклатура.Отбор.Очистить(); ЭлементыФормы.Номенклатура.Отбор.Добавить("Номенклатура", СсылкаНоменклатуры); ЭлементыФормы.Номенклатура.Обновить(); КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9

Процедура ОтфильтроватьПоНоменклатуре(СсылкаНоменклатуры) Если ЗначениеЗаполнено(СсылкаНоменклатуры) Тогда ЭлементыФормы.Номенклатура.Отбор.Очистить(); ЭлементыФормы.Номенклатура.Отбор.Добавить("Номенклатура", СсылкаНоменклатуры); ЭлементыФормы.Номенклатура.Обновить(); КонецЕсли; КонецПроцедуры

Если в форме нет свойства Отбор у элемента, тогда фильтрация делается через запрос, который формирует данные для табличной части.

—

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

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

В расширениях нельзя менять код обычных форм напрямую, но можно влиять на логику через расширения и события. В вашем случае, чтобы изменить поведение округления в процедуре ТаблицаНоменклатурыВыбор, где вызывается

|Цена = ТиСиЭМ.ОкрД(ВыбСтрока.Цена * (100 + ПроцентНадбавки) / 100, ДатаДокумента);

а нужно убрать округление, есть несколько вариантов без снятия с поддержки:

1. Переопределить процедуру ТаблицаНоменклатурыВыбор в расширении
В расширении создайте процедуру с таким же именем и параметрами, скопируйте код из основной конфигурации, но замените строку с округлением на:

|Цена = ВыбСтрока.Цена * (100 + ПроцентНадбавки) / 100;

При этом в расширении нужно обязательно вызвать оригинал процедуры, если остальной код важен, или полностью заменить логику.
Минус — придется поддерживать копию процедуры, что неудобно.

2. Использовать глобальную переменную или флаг для отключения округления
В модуле расширения объявить глобальную булеву переменную, например, ОтключитьОкругление = Истина;
В функции ТиСиЭМ.ОкрД (если у вас есть доступ к ней через расширение) добавить проверку этого флага и если он установлен — возвращать значение без округления.
Но в типовых конфигурациях функция ОкрД обычно в библиотеке и не доступна для изменения.
Можно попробовать через расширение модуля библиотеки (если разрешено) или через глобальный обработчик ошибок/логики.

3. Обойти вызов функции округления, передавая уже округленное значение
Если ТиСиЭМ.ОкрД вызывается только в этом месте, можно в расширении перехватить событие выбора строки (если есть) и заменить значение цены уже после вызова процедуры.
Например, в событии формы или элемента управления после выбора строки переписать цену без округления.

4. Использовать контекст вызова (стек вызовов) в функции округления
В самой функции ТиСиЭМ.ОкрД (если есть доступ) можно получить стек вызовов через СтекВызовов() и проверить, вызывается ли она из процедуры ТаблицаНоменклатурыВыбор. Если да — не округлять.
Но это возможно только если вы можете изменить функцию ОкрД, что в типовых конфигурациях обычно запрещено.

5. Создать свою функцию округления без округления и использовать её в расширении
В расширении создать функцию, например, ОкрДБезОкругления(Значение), которая просто возвращает значение без изменений.
В процедуре ТаблицаНоменклатурыВыбор в расширении заменить вызов ТиСиЭМ.ОкрД на ОкрДБезОкругления.
Но опять же, придется переопределять процедуру.

—

Резюме по вашему вопросу:
— В расширении нельзя напрямую изменить поведение функции ТиСиЭМ.ОкрД или процедуры ТаблицаНоменклатурыВыбор в обычной форме.
— Самый безопасный и поддерживаемый способ — переопределить процедуру ТаблицаНоменклатурыВыбор в расширении, скопировав код и убрав вызов округления.
— Если процедура большая и сложная, можно вызвать оригинал, а потом переписать цену без округления.
— Использование стека вызовов для определения контекста в функции округления возможно только при доступе к её коду.

—

Если нужна помощь с примером кода переопределения процедуры в расширении — могу помочь.
Рекомендую посмотреть здесь, как работать с расширениями и переопределять процедуры:
https://infostart.ru/public/1044329/
https://infostart.ru/public/1044330/

Там подробно описано, как в расширении переопределять процедуры и работать с обычными формами.

[Автор]

Сообщения