[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

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

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

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

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

[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

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

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

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

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

[Автор]

Сообщения