[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/

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

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

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

Пример записи формулы с использованием R1C1-стиля адресации:

1С (Код)

// Получаем ссылку на лист Excel Лист = Книга.Sheets(1); // Предположим, что формула будет в ячейке A1 (1,1) // А значения для умножения в ячейках B1 (1,2) и C1 (1,3) Ячейка = Лист.Cells(1, 1); // Записываем формулу умножения B1 на C1 // В R1C1-стиле это RC[1]-RC[2] - текущая строка, столбец +1 и +2 Ячейка.FormulaR1C1 = "=RC[1]*RC[2]";

1 2 3 4 5 6 7 8 9 10

// Получаем ссылку на лист Excel Лист = Книга.Sheets(1);   // Предположим, что формула будет в ячейке A1 (1,1) // А значения для умножения в ячейках B1 (1,2) и C1 (1,3) Ячейка = Лист.Cells(1, 1);   // Записываем формулу умножения B1 на C1 // В R1C1-стиле это RC[1]-RC[2] - текущая строка, столбец +1 и +2 Ячейка.FormulaR1C1 = "=RC[1]*RC[2]";

Если предпочитаете использовать A1-стиль, формула будет выглядеть так:

1С (Код)

Ячейка.Formula = "=B1*C1";

1	Ячейка.Formula = "=B1*C1";

Для вставки таких формул в несколько строк (например, с 1 по N) можно использовать цикл:

1С (Код)

Для НомерСтроки = 1 По N Цикл Лист.Cells(НомерСтроки, 1).FormulaR1C1 = "=RC[1]*RC[2]"; КонецЦикла;

1 2 3

Для НомерСтроки = 1 По N Цикл     Лист.Cells(НомерСтроки, 1).FormulaR1C1 = "=RC[1]*RC[2]"; КонецЦикла;

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

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

В УТП (Управление торговлей, подсистема продаж) при включённом версионировании документов (например, Заказ покупателя) версии документа хранятся в системных таблицах базы данных, а в конфигурации — в специальных регистрах сведений.

Конкретно:

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

2. Для документа «Заказ покупателя» версии хранятся в регистре сведений с именем, примерно похожим на:

1С (Код)

ВерсииДокументовЗаказПокупателя

1	ВерсииДокументовЗаказПокупателя

или

1С (Код)

ВерсииДокументовЗаказПокупателяРегистр

1	ВерсииДокументовЗаказПокупателяРегистр

(точное имя зависит от конкретной версии конфигурации и настроек).

3. В этом регистре сведений хранятся записи с полями:

— Ссылка на документ (Заказ покупателя)
— Номер версии
— Дата и время создания версии
— Содержимое версии (обычно в виде сериализованного объекта или набора реквизитов)
— Автор версии
— Комментарии к версии (если предусмотрено)

4. В базе данных (SQL) версии хранятся в таблице регистра сведений, например:

1С (Код)

_InfoRg<GUID> -- таблица регистра сведений версий

1	_InfoRg<GUID>  -- таблица регистра сведений версий

где GUID — уникальный идентификатор регистра.

5. В конфигурации версии можно получить через объекты метаданных, например:

1С (Код)

Версии = Документы.ЗаказПокупателя.ПолучитьВерсии(СсылкаНаДокумент);

1	Версии = Документы.ЗаказПокупателя.ПолучитьВерсии(СсылкаНаДокумент);

6. Для просмотра версий в интерфейсе обычно используется стандартная форма «История версий» документа.

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

—

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

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

—

Рекомендую посмотреть здесь, там подробно про версионирование в УТП:

https://infostart.ru/public/1188857/ (пример работы с версиями документов в УТ/УТП)

—

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

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

Да, в УНФ 1.6 именно так и работает: если в карточке номенклатуры поле «Ставка НДС» не заполнено, то при формировании документов ставка НДС подставляется из настроек организации, указанной в документе.

Поэтому, чтобы ставка НДС бралась из организации, достаточно в номенклатуре очистить поле «Ставка НДС» (оставить пустым). Тогда при создании документов система автоматически возьмёт ставку из организации.

Если у вас сейчас в номенклатуре стоит 20% — просто удалите это значение, сохраните номенклатуру, и дальше ставка НДС будет подтягиваться из организации.

Проверьте также, что в карточке организации в реквизите «Ставка НДС» или в настройках налогового учёта организации указана нужная ставка.

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

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

Тормоза 1С под Linux при запуске с правами суперпользователя (root) часто связаны с особенностями работы платформы и системы безопасности. Вот основные причины:

1. Проблемы с правами и безопасностью
Платформа 1С не рекомендует запускать клиент или сервер под root, так как это может приводить к конфликтам с механизмами безопасности, например, SELinux, AppArmor, или системными ограничениями. Это может замедлять работу из-за дополнительных проверок или блокировок.

2. Неправильные права на файлы и каталоги
Если 1С запущена под root, а база или каталоги имеют права, не соответствующие пользователю root, возможны задержки при доступе к файлам, особенно если используются сетевые диски или NFS.

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

4. Отсутствие или неправильная настройка системных ресурсов
Запуск под root может влиять на лимиты ресурсов (ulimit), которые отличаются от обычного пользователя, что может приводить к задержкам.

5. Проблемы с графическим окружением
Если запускается тонкий клиент 1С под root, могут быть проблемы с доступом к X-серверу или Wayland, что замедляет интерфейс.

—

Рекомендации:

— Запускайте 1С под обычным пользователем, специально созданным для работы с 1С.
— Проверьте права на каталоги и файлы базы, чтобы они были доступны пользователю 1С.
— Проверьте настройки SELinux/AppArmor и при необходимости временно отключите или настройте исключения.
— Проверьте настройки сети и DNS для пользователя root и обычного пользователя.
— Проверьте системные лимиты ресурсов (ulimit) для пользователя 1С.

—

Если нужна конкретика, приложите логи или опишите конфигурацию сервера и способ запуска 1С.

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

Вот простая и универсальная функция на 1С (BSL), которая преобразует строку в дату. Она учитывает формат «дд.мм.гггг» и похожие, а также умеет работать с разными разделителями:

1С (Код)

Функция ПреобразоватьСтрокуВДату(СтрокаДата) Если ПустаяСтрока(СтрокаДата) Тогда Возврат Неопределено; КонецЕсли; // Заменяем разные разделители на точку СтрокаДата = СтрЗаменить(СтрокаДата, "/", "."); СтрокаДата = СтрЗаменить(СтрокаДата, "-", "."); СтрокаДата = СтрЗаменить(СтрокаДата, "", "."); СтрокаДата = СтрЗаменить(СтрокаДата, " ", ""); // Проверяем длину строки, чтобы избежать ошибок Если СтрДлина(СтрокаДата) < 8 Тогда Возврат Неопределено; КонецЕсли; // Разбираем дату по частям День = Число(Лев(СтрокаДата, 2)); Месяц = Число(Сред(СтрокаДата, 4, 2)); Год = Число(Прав(СтрокаДата, 4)); // Проверка корректности даты Если День < 1 Или День > 31 Тогда Возврат Неопределено; КонецЕсли; Если Месяц < 1 Или Месяц > 12 Тогда Возврат Неопределено; КонецЕсли; Если Год < 1900 Тогда Возврат Неопределено; КонецЕсли; Возврат Дата(Год, Месяц, День); КонецФункции

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

Функция ПреобразоватьСтрокуВДату(СтрокаДата)     Если ПустаяСтрока(СтрокаДата) Тогда         Возврат Неопределено;     КонецЕсли;       // Заменяем разные разделители на точку     СтрокаДата = СтрЗаменить(СтрокаДата, "/", ".");     СтрокаДата = СтрЗаменить(СтрокаДата, "-", ".");     СтрокаДата = СтрЗаменить(СтрокаДата, "", ".");     СтрокаДата = СтрЗаменить(СтрокаДата, " ", "");       // Проверяем длину строки, чтобы избежать ошибок     Если СтрДлина(СтрокаДата) < 8 Тогда         Возврат Неопределено;     КонецЕсли;       // Разбираем дату по частям     День = Число(Лев(СтрокаДата, 2));     Месяц = Число(Сред(СтрокаДата, 4, 2));     Год = Число(Прав(СтрокаДата, 4));       // Проверка корректности даты     Если День < 1 Или День > 31 Тогда         Возврат Неопределено;     КонецЕсли;     Если Месяц < 1 Или Месяц > 12 Тогда         Возврат Неопределено;     КонецЕсли;     Если Год < 1900 Тогда         Возврат Неопределено;     КонецЕсли;       Возврат Дата(Год, Месяц, День); КонецФункции

Пример использования:

1С (Код)

Дата = ПреобразоватьСтрокуВДату("31.12.2025"); Сообщить(Формат(Дата, "ДФ=dd.MM.yyyy")); // Выведет 31.12.2025

1 2	Дата = ПреобразоватьСтрокуВДату("31.12.2025"); Сообщить(Формат(Дата, "ДФ=dd.MM.yyyy")); // Выведет 31.12.2025

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

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

В 1С:Бухгалтерия 3.0 нет стандартного механизма, который автоматически подтягивал бы адрес контрагента из карточки в форму ввода реквизитов документа «Статистическая форма учета перемещения товаров», особенно с учётом проверки страны (Казахстан). Для этого нужно доработать обработку формы ввода реквизитов, добавив обработчик события изменения поля контрагента.

Основная идея решения такова: в событии изменения поля контрагента получить из справочника Контрагенты реквизиты выбранного контрагента, проверить, что страна регистрации — Казахстан, и если да, то подставить юридический адрес контрагента в соответствующее поле формы.

Пример кода для события ПриИзменении поля Контрагент в форме:

1С (Код)

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

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

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

Если в вашей конфигурации страна хранится не просто текстом, а ссылкой на справочник «Страны», то сравнение нужно делать через поиск по наименованию, например:

1С (Код)

Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

1 2	Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

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

Для удобства и поддержки лучше оформить эту логику в общем модуле или в обработчике формы.

Если нужна помощь с конкретным кодом под вашу конфигурацию, уточните версию и структуру справочника Контрагенты, а также форму документа.

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

В 1С:Бухгалтерия 3.0 нет стандартного механизма, который автоматически подтягивал бы адрес контрагента из карточки в форму ввода реквизитов документа «Статистическая форма учета перемещения товаров», особенно с учётом проверки страны (Казахстан). Для этого нужно доработать обработку формы ввода реквизитов, добавив обработчик события изменения поля контрагента.

Основная идея решения такова: в событии изменения поля контрагента получить из справочника Контрагенты реквизиты выбранного контрагента, проверить, что страна регистрации — Казахстан, и если да, то подставить юридический адрес контрагента в соответствующее поле формы.

Пример кода для события ПриИзменении поля Контрагент в форме:

1С (Код)

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

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

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

Если в вашей конфигурации страна хранится не просто текстом, а ссылкой на справочник «Страны», то сравнение нужно делать через поиск по наименованию, например:

1С (Код)

Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

1 2	Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

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

Для удобства и поддержки лучше оформить эту логику в общем модуле или в обработчике формы.

Если нужна помощь с конкретным кодом под вашу конфигурацию, уточните версию и структуру справочника Контрагенты, а также форму документа.

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

В 1С:Бухгалтерия 3.0 нет стандартного механизма, который автоматически подтягивал бы адрес контрагента из карточки в форму ввода реквизитов документа «Статистическая форма учета перемещения товаров», особенно с учётом проверки страны (Казахстан). Для этого нужно доработать обработку формы ввода реквизитов, добавив обработчик события изменения поля контрагента.

Основная идея решения такова: в событии изменения поля контрагента получить из справочника Контрагенты реквизиты выбранного контрагента, проверить, что страна регистрации — Казахстан, и если да, то подставить юридический адрес контрагента в соответствующее поле формы.

Пример кода для события ПриИзменении поля Контрагент в форме:

1С (Код)

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

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

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

Если в вашей конфигурации страна хранится не просто текстом, а ссылкой на справочник «Страны», то сравнение нужно делать через поиск по наименованию, например:

1С (Код)

Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

1 2	Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

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

Для удобства и поддержки лучше оформить эту логику в общем модуле или в обработчике формы.

Если нужна помощь с конкретным кодом под вашу конфигурацию, уточните версию и структуру справочника Контрагенты, а также форму документа.

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

В 1С:Бухгалтерия 3.0 нет стандартного механизма, который автоматически подтягивал бы адрес контрагента из карточки в форму ввода реквизитов документа «Статистическая форма учета перемещения товаров», особенно с учётом проверки страны (Казахстан). Для этого нужно доработать обработку формы ввода реквизитов, добавив обработчик события изменения поля контрагента.

Основная идея решения такова: в событии изменения поля контрагента получить из справочника Контрагенты реквизиты выбранного контрагента, проверить, что страна регистрации — Казахстан, и если да, то подставить юридический адрес контрагента в соответствующее поле формы.

Пример кода для события ПриИзменении поля Контрагент в форме:

1С (Код)

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

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

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

Если в вашей конфигурации страна хранится не просто текстом, а ссылкой на справочник «Страны», то сравнение нужно делать через поиск по наименованию, например:

1С (Код)

Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

1 2	Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

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

Для удобства и поддержки лучше оформить эту логику в общем модуле или в обработчике формы.

Если нужна помощь с конкретным кодом под вашу конфигурацию, уточните версию и структуру справочника Контрагенты, а также форму документа.

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

В 1С:Бухгалтерия 3.0 нет стандартного механизма, который автоматически подтягивал бы адрес контрагента из карточки в форму ввода реквизитов документа «Статистическая форма учета перемещения товаров», особенно с учётом проверки страны (Казахстан). Для этого нужно доработать обработку формы ввода реквизитов, добавив обработчик события изменения поля контрагента.

Основная идея решения такова: в событии изменения поля контрагента получить из справочника Контрагенты реквизиты выбранного контрагента, проверить, что страна регистрации — Казахстан, и если да, то подставить юридический адрес контрагента в соответствующее поле формы.

Пример кода для события ПриИзменении поля Контрагент в форме:

1С (Код)

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

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

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

Если в вашей конфигурации страна хранится не просто текстом, а ссылкой на справочник «Страны», то сравнение нужно делать через поиск по наименованию, например:

1С (Код)

Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

1 2	Если Результат.СтранаРегистрации = Справочники.Страны.НайтиПоНаименованию("Казахстан") Тогда КонецЕсли

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

Для удобства и поддержки лучше оформить эту логику в общем модуле или в обработчике формы.

Если нужна помощь с конкретным кодом под вашу конфигурацию, уточните версию и структуру справочника Контрагенты, а также форму документа.

[Автор]

Сообщения