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

Чтобы выполнить обработку выгрузки товаров, реализованную на обычных формах внутри конфигурации, в виде регламентного задания, нужно сделать следующее:

1. **Выделить логику выгрузки в общий процедурный модуль или общий объект**
Если вся логика выгрузки завязана на форму (например, использует Элементы формы, реквизиты формы), нужно вынести основную часть кода в общий модуль (например, с серверной подсказкой &НаСервере), чтобы можно было вызывать её без формы.
Это позволит запускать код из регламентного задания, где формы нет.

2. **Создать регламентное задание в конфигурации**
В конфигураторе:
— Открыть справочник «Регламентные задания» (или «Регламентные задания и фоновые задания»)
— Создать новое задание, указать имя, описание
— В качестве обработчика задания указать общий модуль и процедуру, которая запускает выгрузку товаров (ту, что вынесли из формы)

3. **Реализовать процедуру запуска выгрузки в общем модуле**
Пример:

1С (Код)

&НаСервере Процедура ВыполнитьВыгрузкуТоваров(Параметры) // Здесь вызывается код выгрузки, вынесенный из формы // Например, формируем таблицы, создаем файлы, отправляем и т.п. КонецПроцедуры

1 2 3 4 5

&НаСервере    Процедура ВыполнитьВыгрузкуТоваров(Параметры)        // Здесь вызывается код выгрузки, вынесенный из формы        // Например, формируем таблицы, создаем файлы, отправляем и т.п.    КонецПроцедуры

4. **В регламентном задании указать вызов этой процедуры**
В настройках регламентного задания укажите вызов процедуры:

1С (Код)

ОбщиеМодули.ВыгрузкаТоваров.ВыполнитьВыгрузкуТоваров(Параметры);

1	ОбщиеМодули.ВыгрузкаТоваров.ВыполнитьВыгрузкуТоваров(Параметры);

5. **Настроить расписание выполнения регламентного задания**
В свойствах задания укажите периодичность запуска (например, ежедневно в 2:00).

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

7. **Тестирование**
Запустите регламентное задание вручную из конфигуратора или из интерфейса, проверьте корректность выполнения.

—

**Важно:**
— Нельзя напрямую запускать код формы из регламентного задания, так как формы работают только в интерактивном режиме.
— Вся логика должна быть без зависимости от интерфейса (формы).
— Если в коде есть обращения к Элементам формы, их нужно заменить на параметры или данные из базы.

—

Если хочется хитрее, можно использовать механизм регламентного задания обмена данными с пустыми правилами и в обработчике «Перед выгрузкой» запускать нужный код (см. пример из статьи на infostart: https://infostart.ru/1c/articles/178760/), но это сложнее и не всегда оправдано.

—
https://infostart.ru/public/1188857/ — пример работы с заполнением табличных частей и переносом логики из формы в общий модуль

—

Кратко:
— Вынести логику из формы в общий модуль
— Создать регламентное задание, вызывающее эту логику
— Настроить расписание и параметры
— Запустить и проверить.

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

В 1С:Бухгалтерия 3.0 торговый сбор не настроен как отдельный налог по умолчанию, поскольку это региональный налог, который не входит в стандартный набор налогов конфигурации. Чтобы учесть торговый сбор, нужно выполнить следующие шаги:

1. Создать новую налоговую ставку для торгового сбора:
— Перейдите в раздел «НСИ и администрирование» → «Налоги и взносы» → «Налоговые ставки».
— Создайте новую ставку с названием «Торговый сбор», укажите ставку (например, 1% или другую, в зависимости от региона).
— В поле «Вид налога» выберите «Прочие налоги» или «Региональные налоги» (если есть).

2. Создать новый налоговый регистр или использовать существующий для учета торгового сбора:
— В типовой конфигурации обычно используется регистр налогового учета.
— Если нет готового механизма, можно вести учет торгового сбора через отдельный счет учета расчетов с бюджетом (например, 68.99).

3. Настроить проводки по начислению торгового сбора:
— В разделе «Операции» → «Регламентированные операции» или вручную через документ «Начисление налогов» создайте операцию начисления торгового сбора.
— Дебет — счет затрат (например, 44 или 26, в зависимости от учета).
— Кредит — счет расчетов с бюджетом (например, 68.99).

4. Вести учет торгового сбора в разрезе контрагентов или подразделений, если требуется.

5. При необходимости настроить отчетность:
— В стандартных отчетах 1С:Бухгалтерия 3.0 торговый сбор не выделяется отдельно.
— Можно создать собственный отчет или обработку для контроля начисленного и уплаченного торгового сбора.

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

Рекомендую посмотреть подробные инструкции и примеры настройки налогов в 1С:Бухгалтерия 3.0 на портале ИТС или на infostart.ru, например:

https://infostart.ru/public/175221/ — по учету затрат и налогов в 1С

https://its.1c.ru/db/metod8dev#content:344:hdoc — по настройке налогов и взносов

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

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

Yersain, привет!

В отчёте по движению стоимости основных средств (ФА) в 1С, если в окне «Настройка формы» кнопка «Добавить поля» неактивна, то это обычно связано с тем, что набор данных отчёта сформирован на основе фиксированного набора полей, которые нельзя расширять вручную через интерфейс настройки формы. В частности, в типовых отчетах по движению стоимости ФА (например, в конфигурациях Бухгалтерия предприятия или Управление нашей фирмой) структура набора данных жёстко задана и не предусматривает добавление новых полей через стандартный интерфейс.

Причины и решения:

1. **Отчет построен на фиксированном наборе данных**
В таких отчетах набор полей формируется из запроса или схемы компоновки данных, где список полей жёстко задан. Кнопка «Добавить поля» неактивна, потому что пользователь не может добавить произвольные поля в уже сформированный набор данных.

2. **Отсутствие прав на изменение отчета**
Проверьте, что у пользователя есть права на изменение настроек отчета. Если прав нет, то кнопка будет заблокирована.

3. **Отчет использует предопределённый макет или схему компоновки данных**
В этом случае добавление полей возможно только через редактирование схемы компоновки данных или запроса, а не через интерфейс «Настройка формы».

4. **Решение**
Чтобы добавить новые поля, нужно:
— Открыть схему компоновки данных отчета (если она используется) и добавить вычисляемые поля или расширить запрос, из которого формируется набор данных.
— Если отчет типовой и не предусматривает расширения, можно создать собственный отчет на базе типового с нужными полями.
— В некоторых случаях можно использовать расширения или доработки, чтобы добавить нужные поля в набор данных.

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

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

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

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

1С (Код)

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

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

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

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

1С (Код)

Процедура НайтиМинимумИзТрёхЧисел() Число1 = ВводЧисла("Введите первое число:"); Число2 = ВводЧисла("Введите второе число:"); Число3 = ВводЧисла("Введите третье число:"); Минимум = Число1; Если Число2 < Минимум Тогда Минимум = Число2; КонецЕсли; Если Число3 < Минимум Тогда Минимум = Число3; КонецЕсли; Сообщить("Минимальное число: " + Строка(Минимум)); КонецПроцедуры Функция ВводЧисла(ТекстПодсказки) Возврат Число(ВводСтрокиПользователя(ТекстПодсказки)); КонецФункции

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

Процедура НайтиМинимумИзТрёхЧисел()     Число1 = ВводЧисла("Введите первое число:");     Число2 = ВводЧисла("Введите второе число:");     Число3 = ВводЧисла("Введите третье число:");       Минимум = Число1;     Если Число2 < Минимум Тогда         Минимум = Число2;     КонецЕсли;     Если Число3 < Минимум Тогда         Минимум = Число3;     КонецЕсли;       Сообщить("Минимальное число: " + Строка(Минимум)); КонецПроцедуры   Функция ВводЧисла(ТекстПодсказки)     Возврат Число(ВводСтрокиПользователя(ТекстПодсказки)); КонецФункции

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

1. Раздельный учет в БП КОРП версии организован с использованием аналитик по счетам, в том числе по подразделениям, номенклатуре, статьям затрат и другим измерениям. В версии КОРП доступна аналитика по всем счетам, включая счет 26 (Общехозяйственные расходы) и счет 90.08 (Накладные расходы). Для списания (распределения) накладных расходов со счета 26 на счет 90.08 по номенклатуре можно использовать регламентные операции или документы распределения затрат, где в качестве базы распределения указывается номенклатура. Это позволяет детально учитывать накладные расходы по конкретным товарам или услугам.

2. Ежемесячная отчетность по накладным расходам в БП КОРП строится на базе стандартных отчетов по затратам и расходам, а также с помощью специализированных отчетов, которые можно настроить через схему компоновки данных (СКД). В отчетах можно группировать данные по счетам 26 и 90.08, номенклатуре, подразделениям и другим аналитикам. Для автоматизации формирования отчетности можно настроить регламентные задания и сохранить шаблоны отчетов.

3. Загрузка выписки из Казначейства по статьям расходов с кодами бюджета в БП КОРП реализуется через механизм загрузки банковских выписок с последующим распределением операций по статьям расходов. Для этого используется обработка загрузки выписки, в которой настраивается соответствие реквизитов выписки и кодов бюджетной классификации (КБК). В бюджетных учреждениях в БП КОРП предусмотрена возможность автоматического распределения операций по КФО, КПС и КЭК на основании данных выписки и настроек соответствия. Для корректной загрузки необходимо настроить правила распределения и соответствия кодов бюджета.

Рекомендую посмотреть здесь для деталей по раздельному учету и распределению затрат в БП КОРП:
https://master1c8.ru/dokumentatsiya-po-1s/1s-buhgalteriya-8-0/7426/

По загрузке выписок с кодами бюджета и их распределению:
https://infostart.ru/public/1100679/

Для отчетности по накладным расходам можно использовать стандартные отчеты с настройкой через СКД, примеры и шаблоны можно найти на форумах и в типовой поставке БП КОРП.

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

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

Димон, привет!

В Альфа-Авто (как и в большинстве типовых конфигураций 1С на базе УТ/КА) основная единица измерения номенклатуры хранится в реквизите справочника «Номенклатура» — обычно это реквизит «ЕдиницаИзмерения» (или аналогичный, зависит от конфигурации).

Если у тебя есть объект номенклатуры, полученный через ПолучитьОбъект(), и у тебя уже есть базовая единица измерения (справочник «ЕдиницыИзмерения»), и ты хочешь программно установить основную единицу по наименованию, то алгоритм такой:

1. Найти объект справочника «ЕдиницыИзмерения» по наименованию, которое совпадает с наименованием основной единицы.

2. Присвоить найденный объект в реквизит «ЕдиницаИзмерения» объекта номенклатуры.

3. Записать объект номенклатуры.

Пример кода на встроенном языке 1С:

1С (Код)

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт" // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы); Если Единица = Неопределено Тогда // Если не нашли, можно создать новую единицу или обработать ошибку Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе // Устанавливаем основную единицу измерения НоменклатураОбъект.ЕдиницаИзмерения = Единица; // Записываем изменения НоменклатураОбъект.Записать(); КонецЕсли;

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

// Получаем объект номенклатуры НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   // Наименование основной единицы, которую нужно установить ИмяЕдиницы = "шт"; // например, "шт"   // Ищем единицу измерения по наименованию Единица = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию(ИмяЕдиницы);   Если Единица = Неопределено Тогда     // Если не нашли, можно создать новую единицу или обработать ошибку     Сообщить("Единица измерения с наименованием '" + ИмяЕдиницы + "' не найдена."); Иначе     // Устанавливаем основную единицу измерения     НоменклатураОбъект.ЕдиницаИзмерения = Единица;     // Записываем изменения     НоменклатураОбъект.Записать(); КонецЕсли;

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

Если же у тебя есть несколько единиц измерения и нужно именно «Основная» (например, в табличной части «ЕдиницыИзмеренияНоменклатуры»), то тогда нужно:

— Найти нужную строку в табличной части по наименованию единицы.

— Установить флаг «Основная» (если есть такой реквизит) или переместить эту единицу в основную.

Пример для табличной части:

1С (Код)

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру); ИмяЕдиницы = "шт"; ОсновнаяУстановлена = Ложь; Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда Строка.Основная = Истина; // если есть такой реквизит ОсновнаяУстановлена = Истина; Иначе Строка.Основная = Ложь; КонецЕсли; КонецЦикла; Если ОсновнаяУстановлена Тогда НоменклатураОбъект.Записать(); Иначе Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

НоменклатураОбъект = Справочники.Номенклатура.ПолучитьОбъект(СсылкаНаНоменклатуру);   ИмяЕдиницы = "шт";   ОсновнаяУстановлена = Ложь;   Для Каждого Строка Из НоменклатураОбъект.ЕдиницыИзмерения Цикл     Если Строка.ЕдиницаИзмерения.Наименование = ИмяЕдиницы Тогда         Строка.Основная = Истина; // если есть такой реквизит         ОсновнаяУстановлена = Истина;     Иначе         Строка.Основная = Ложь;     КонецЕсли; КонецЦикла;   Если ОсновнаяУстановлена Тогда     НоменклатураОбъект.Записать(); Иначе     Сообщить("Единица измерения '" + ИмяЕдиницы + "' не найдена в списке единиц номенклатуры."); КонецЕсли;

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

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

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

[Автор]

Сообщения