[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 — Одинэсник]

I

Для платформы 1С:Предприятие версии 8.2.19.130 предпочтительной версией Windows Server будет одна из поддерживаемых в официальных системных требованиях 1С для платформы 8.2. Обычно для 8.2 рекомендуются следующие версии Windows Server:

— Windows Server 2008 R2 (x64) с установленными всеми актуальными обновлениями;
— Windows Server 2012 (x64) с актуальными обновлениями;
— Windows Server 2012 R2 (x64);
— Windows Server 2016 (x64) — поддерживается, но с оговорками по совместимости, лучше проверить конкретные обновления платформы 1С 8.2.

Windows Server 2019 и 2022 официально не поддерживаются платформой 8.2, так как эта версия платформы устарела и не рассчитана на новейшие ОС.

Рекомендация: для стабильной работы 1С 8.2.19.130 лучше использовать Windows Server 2012 R2 или Windows Server 2008 R2, так как они официально поддерживаются и имеют проверенную совместимость.

Если есть возможность, лучше планировать переход на платформу 8.3, которая поддерживает более новые версии Windows Server (2016, 2019, 2022).

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

В 1С:Розница валюта документа продажи (чека) жёстко фиксируется при создании и изменить её в уже проведённом документе нельзя. Вот почему:

1. Валюта чека задаётся при открытии смены и формируется на основании настроек кассы и параметров пользователя. Она влияет на расчёты, курсы валют, цены и налоги.

2. После проведения документа в базе фиксируются суммы в валюте чека и в валюте учёта. Изменение валюты задним числом нарушит целостность данных и расчётов.

3. В типовой конфигурации 1С:Розница нет механизма для смены валюты в уже проведённом чеке, чтобы избежать ошибок в учёте и отчётности.

Если нужно работать с другой валютой, то:

— Создайте новый чек с нужной валютой (обычно это делается при открытии смены или настройке кассы).

— Если требуется изменить валюту в уже проведённом документе, то придётся его отменить (отменить проведение) и создать заново с правильной валютой.

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

Если у вас задача именно поменять валюту в уже проведённом документе, то это не предусмотрено типовой логикой 1С:Розница и требует доработки или нестандартных решений, что крайне не рекомендуется.

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

Если нужна помощь с конкретной версией 1С:Розница или с доработкой — уточните, могу подсказать варианты.

Рекомендую посмотреть здесь:
https://infostart.ru/public/348852/ (про особенности работы с валютой в 1С)
https://helpf.pro/faq/view/354.html (работа с курсами валют)

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

Владимир, ошибка «Дублирование имени объекта метаданных» при обновлении 1С возникает из-за того, что в конфигурации или базе данных присутствуют объекты метаданных с одинаковыми именами. Это может случиться при неправильном слиянии конфигураций, некорректном обновлении или ручных правках.

Что делать:

1. **Проверка и исправление метаданных вручную:**

— Выгрузите текущую конфигурацию в XML (через конфигуратор — «Выгрузить конфигурацию в файлы»).
— Найдите в папке выгрузки объекты, упомянутые в ошибках (например, РегистрНакопления.УдалитьПрочиеДоходы).
— Проверьте, нет ли в папке дублирующихся файлов или внутри файлов дублирующихся определений реквизитов, измерений, ресурсов с одинаковыми именами.
— Если дубли есть — удалите или переименуйте их, чтобы имена были уникальны.
— Особое внимание уделите вложенным элементам: Ресурс, Реквизит, Измерение.
— Проверьте файл ConfigDumpInfo.xml — там тоже могут быть дубли по UUID или именам.

2. **Сравнение конфигурации базы и основной конфигурации:**

— Выгрузите конфигурацию из базы (текущую) и из основного файла конфигурации (обновления).
— Сравните их с помощью внешних инструментов (например, Beyond Compare) или средствами 1С.
— Найдите объекты с одинаковыми именами, которые конфликтуют.
— Внесите исправления в XML-файлы, чтобы устранить дубли.

3. **Использование штатных средств 1С:**

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

4. **Если обновление невозможно из-за критических ошибок:**

— Сделайте резервную копию базы.
— Попробуйте вручную исправить XML-файлы конфигурации, как описано выше.
— Загрузите исправленную конфигурацию в базу.
— Если есть возможность — обратитесь к разработчику конфигурации или в техподдержку.

5. **Профилактика:**

— Не вносите изменения в конфигурацию напрямую в базе без контроля.
— Используйте систему контроля версий для конфигурации.
— Перед обновлением всегда делайте резервные копии.

—

В вашем случае, судя по сообщению, дублируются имена реквизитов и ресурсов в регистре накопления «УдалитьПрочиеДоходы». Нужно проверить именно этот регистр в XML-выгрузке и устранить дубли.

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

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

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

Примерный алгоритм:

1. Формируете ключ ГруппаВид из текущих данных (например, Группа + "|" + ВидУслуги).
2. Пытаетесь найти строку в таблице итогов по виду услуги по этому ключу.
3. Если не нашли — добавляете новую строку и инициализируете поля.
4. Накопляете суммы в найденной/созданной строке.

—

### Пример кода (фрагмент):

1С (Код)

// Формируем ключ для строки вида группы КлючВидаГруппы = ГруппаСубконто.Группа + "|" + Строка(ВыборкаДетальныеЗаписи.ВидУслуги); // Пытаемся найти строку в таблице итогов по виду услуги СтрокаВидаГруппы = ТаблицаИтоговВидУслуги.Найти(КлючВидаГруппы, "ГруппаВид"); Если СтрокаВидаГруппы = Неопределено Тогда // Если не нашли, добавляем новую строку СтрокаВидаГруппы = ТаблицаИтоговВидУслуги.Добавить(); СтрокаВидаГруппы.Группа = ГруппаСубконто.Группа; СтрокаВидаГруппы.ВидУслуги = ВыборкаДетальныеЗаписи.ВидУслуги; СтрокаВидаГруппы.ГруппаВид = КлючВидаГруппы; // Инициализация полей СтрокаВидаГруппы.ИтогоСуммаБезНДС_ФизЛица = 0; СтрокаВидаГруппы.ИтогоНДС_ФизЛица = 0; СтрокаВидаГруппы.ИтогоСумма_ФизЛица = 0; СтрокаВидаГруппы.ИтогоСуммаБезНДС_ЮрЛица = 0; СтрокаВидаГруппы.ИтогоНДС_ЮрЛица = 0; СтрокаВидаГруппы.ИтогоСумма_ЮрЛица = 0; КонецЕсли; // Накопление сумм Если ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ФизЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ФизЛицо Тогда СтрокаВидаГруппы.ИтогоСуммаБезНДС_ФизЛица = СтрокаВидаГруппы.ИтогоСуммаБезНДС_ФизЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС; СтрокаВидаГруппы.ИтогоНДС_ФизЛица = СтрокаВидаГруппы.ИтогоНДС_ФизЛица + ВыборкаДетальныеЗаписи.НДС; СтрокаВидаГруппы.ИтогоСумма_ФизЛица = СтрокаВидаГруппы.ИтогоСумма_ФизЛица + ВыборкаДетальныеЗаписи.Сумма; ИначеЕсли ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ЮрЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда СтрокаВидаГруппы.ИтогоСуммаБезНДС_ЮрЛица = СтрокаВидаГруппы.ИтогоСуммаБезНДС_ЮрЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС; СтрокаВидаГруппы.ИтогоНДС_ЮрЛица = СтрокаВидаГруппы.ИтогоНДС_ЮрЛица + ВыборкаДетальныеЗаписи.НДС; СтрокаВидаГруппы.ИтогоСумма_ЮрЛица = СтрокаВидаГруппы.ИтогоСумма_ЮрЛица + ВыборкаДетальныеЗаписи.Сумма; КонецЕсли;

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

// Формируем ключ для строки вида группы КлючВидаГруппы = ГруппаСубконто.Группа + "|" + Строка(ВыборкаДетальныеЗаписи.ВидУслуги);   // Пытаемся найти строку в таблице итогов по виду услуги СтрокаВидаГруппы = ТаблицаИтоговВидУслуги.Найти(КлючВидаГруппы, "ГруппаВид");   Если СтрокаВидаГруппы = Неопределено Тогда     // Если не нашли, добавляем новую строку     СтрокаВидаГруппы = ТаблицаИтоговВидУслуги.Добавить();     СтрокаВидаГруппы.Группа = ГруппаСубконто.Группа;     СтрокаВидаГруппы.ВидУслуги = ВыборкаДетальныеЗаписи.ВидУслуги;     СтрокаВидаГруппы.ГруппаВид = КлючВидаГруппы;     // Инициализация полей     СтрокаВидаГруппы.ИтогоСуммаБезНДС_ФизЛица = 0;     СтрокаВидаГруппы.ИтогоНДС_ФизЛица = 0;     СтрокаВидаГруппы.ИтогоСумма_ФизЛица = 0;     СтрокаВидаГруппы.ИтогоСуммаБезНДС_ЮрЛица = 0;     СтрокаВидаГруппы.ИтогоНДС_ЮрЛица = 0;     СтрокаВидаГруппы.ИтогоСумма_ЮрЛица = 0; КонецЕсли;   // Накопление сумм Если ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ФизЛицо     ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ФизЛицо Тогда       СтрокаВидаГруппы.ИтогоСуммаБезНДС_ФизЛица = СтрокаВидаГруппы.ИтогоСуммаБезНДС_ФизЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС;     СтрокаВидаГруппы.ИтогоНДС_ФизЛица = СтрокаВидаГруппы.ИтогоНДС_ФизЛица + ВыборкаДетальныеЗаписи.НДС;     СтрокаВидаГруппы.ИтогоСумма_ФизЛица = СтрокаВидаГруппы.ИтогоСумма_ФизЛица + ВыборкаДетальныеЗаписи.Сумма;   ИначеЕсли ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ЮрЛицо     ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда       СтрокаВидаГруппы.ИтогоСуммаБезНДС_ЮрЛица = СтрокаВидаГруппы.ИтогоСуммаБезНДС_ЮрЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС;     СтрокаВидаГруппы.ИтогоНДС_ЮрЛица = СтрокаВидаГруппы.ИтогоНДС_ЮрЛица + ВыборкаДетальныеЗаписи.НДС;     СтрокаВидаГруппы.ИтогоСумма_ЮрЛица = СтрокаВидаГруппы.ИтогоСумма_ЮрЛица + ВыборкаДетальныеЗаписи.Сумма;   КонецЕсли;

—

### Важные моменты:

— Таблица ТаблицаИтоговВидУслуги должна быть создана заранее с колонками:

1С (Код)

ТаблицаИтоговВидУслуги = Новый ТаблицаЗначений; ТаблицаИтоговВидУслуги.Колонки.Добавить("Группа", Новый ОписаниеТипов("Строка")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ВидУслуги", Новый ОписаниеТипов("Строка")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ГруппаВид", Новый ОписаниеТипов("Строка")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСуммаБезНДС_ФизЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоНДС_ФизЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСумма_ФизЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСуммаБезНДС_ЮрЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоНДС_ЮрЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСумма_ЮрЛица", Новый ОписаниеТипов("Число"));

1 2 3 4 5 6 7 8 9 10

ТаблицаИтоговВидУслуги = Новый ТаблицаЗначений; ТаблицаИтоговВидУслуги.Колонки.Добавить("Группа", Новый ОписаниеТипов("Строка")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ВидУслуги", Новый ОписаниеТипов("Строка")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ГруппаВид", Новый ОписаниеТипов("Строка")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСуммаБезНДС_ФизЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоНДС_ФизЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСумма_ФизЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСуммаБезНДС_ЮрЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоНДС_ЮрЛица", Новый ОписаниеТипов("Число")); ТаблицаИтоговВидУслуги.Колонки.Добавить("ИтогоСумма_ЮрЛица", Новый ОписаниеТипов("Число"));

— Используйте составной ключ ГруппаВид для поиска строки, чтобы не было конфликтов.

—

Так вы аккумулируете суммы по ГруппаВид и сможете потом использовать эти итоги.

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

Чтобы добавить дополнительную группировку по виду услуги и посчитать итоги по ней, нужно:

1. В запрос добавить выборку и группировку по виду услуги (например, по полю ВидУслуги или аналогичному).
2. В коде обработки результата добавить накопление итогов по виду услуги.
3. В итоговой таблице добавить колонку для вида услуги.
4. В цикле заполнения итоговой таблицы по группам учитывать и вид услуги.

—

### Пример модификации:

#### 1. В запросе

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

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

Пример (добавить в выборку и группировку):

MySQL

| РеализацияТоваровУслугУслуги.ВидУслуги КАК ВидУслуги,

1	|  РеализацияТоваровУслугУслуги.ВидУслуги КАК ВидУслуги,

И в конце запроса добавить в ГРУППИРОВАТЬ ПО:

MySQL

| РеализацияТоваровУслугУслуги.ВидУслуги,

1	|  РеализацияТоваровУслугУслуги.ВидУслуги,

Если поле называется иначе — подставьте правильное имя.

—

#### 2. В коде обработки результата

Добавьте колонку ВидУслуги в таблицу УслугиРаспределенныеПоГруппам:

1С (Код)

УслугиРаспределенныеПоГруппам.Колонки.Добавить("ВидУслуги", Новый ОписаниеТипов("Строка"));

1	УслугиРаспределенныеПоГруппам.Колонки.Добавить("ВидУслуги", Новый ОписаниеТипов("Строка"));

—

#### 3. При обработке выборки

В цикле, где вы проходите по ВыборкаДетальныеЗаписи, вместо группировки только по ГруппаСубконто.Группа группируйте по составному ключу — по группе и виду услуги.

Для этого можно сформировать ключ, например:

1С (Код)

КлючГруппы = ГруппаСубконто.Группа + "|" + Строка(ВыборкаДетальныеЗаписи.ВидУслуги);

1	КлючГруппы = ГруппаСубконто.Группа + "|" + Строка(ВыборкаДетальныеЗаписи.ВидУслуги);

И искать строку по этому ключу:

1С (Код)

СтрокаГруппы = УслугиРаспределенныеПоГруппам.Найти(КлючГруппы, "ГруппаВид");

1	СтрокаГруппы = УслугиРаспределенныеПоГруппам.Найти(КлючГруппы, "ГруппаВид");

Если колонки ГруппаВид нет — создайте её:

1С (Код)

УслугиРаспределенныеПоГруппам.Колонки.Добавить("ГруппаВид", Новый ОписаниеТипов("Строка"));

1	УслугиРаспределенныеПоГруппам.Колонки.Добавить("ГруппаВид", Новый ОписаниеТипов("Строка"));

При добавлении новой строки:

1С (Код)

СтрокаГруппы = УслугиРаспределенныеПоГруппам.Добавить(); СтрокаГруппы.Группа = ГруппаСубконто.Группа; СтрокаГруппы.ВидУслуги = ВыборкаДетальныеЗаписи.ВидУслуги; СтрокаГруппы.ГруппаВид = КлючГруппы;

1 2 3 4

СтрокаГруппы = УслугиРаспределенныеПоГруппам.Добавить(); СтрокаГруппы.Группа = ГруппаСубконто.Группа; СтрокаГруппы.ВидУслуги = ВыборкаДетальныеЗаписи.ВидУслуги; СтрокаГруппы.ГруппаВид = КлючГруппы;

—

#### 4. При заполнении итоговой таблицы объекта

В цикле по УслугиРаспределенныеПоГруппам добавьте заполнение поля ВидУслуги:

1С (Код)

СтрокаУслуг.ВидУслуги = СтрокаГруппы.ВидУслуги;

1	СтрокаУслуг.ВидУслуги = СтрокаГруппы.ВидУслуги;

—

### Итоговый пример фрагмента кода:

1С (Код)

// Добавляем колонку для составного ключа и вида услуги УслугиРаспределенныеПоГруппам.Колонки.Добавить("ВидУслуги", Новый ОписаниеТипов("Строка")); УслугиРаспределенныеПоГруппам.Колонки.Добавить("ГруппаВид", Новый ОписаниеТипов("Строка")); Пока ВыборкаДетальныеЗаписи.Следующий() Цикл ГруппаУслуг = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоУслуги, "Субконто"); ГруппаТоваров = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоТовары, "Субконто"); ГруппаСубконто = Неопределено; Если ГруппаУслуг <> Неопределено Тогда ГруппаСубконто = ГруппаУслуг; ИначеЕсли ГруппаТоваров <> Неопределено Тогда ГруппаСубконто = ГруппаТоваров; КонецЕсли; Если ГруппаСубконто <> Неопределено Тогда КлючГруппы = ГруппаСубконто.Группа + "|" + Строка(ВыборкаДетальныеЗаписи.ВидУслуги); СтрокаГруппы = УслугиРаспределенныеПоГруппам.Найти(КлючГруппы, "ГруппаВид"); Если СтрокаГруппы = Неопределено Тогда СтрокаГруппы = УслугиРаспределенныеПоГруппам.Добавить(); СтрокаГруппы.Группа = ГруппаСубконто.Группа; СтрокаГруппы.ВидУслуги = ВыборкаДетальныеЗаписи.ВидУслуги; СтрокаГруппы.ГруппаВид = КлючГруппы; // Инициализация сумм как в вашем коде Если ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ФизЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ФизЛицо Тогда СтрокаГруппы.СуммаБезНДС_ФизЛица = 0; СтрокаГруппы.НДС_ФизЛица = 0; СтрокаГруппы.Сумма_ФизЛица = 0; ИначеЕсли ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ЮрЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда СтрокаГруппы.СуммаБезНДС_ЮрЛица = 0; СтрокаГруппы.НДС_ЮрЛица = 0; СтрокаГруппы.Сумма_ЮрЛица = 0; КонецЕсли; КонецЕсли; // Накопление сумм Если ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ФизЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ФизЛицо Тогда СтрокаГруппы.СуммаБезНДС_ФизЛица = СтрокаГруппы.СуммаБезНДС_ФизЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС; СтрокаГруппы.НДС_ФизЛица = СтрокаГруппы.НДС_ФизЛица + ВыборкаДетальныеЗаписи.НДС; СтрокаГруппы.Сумма_ФизЛица = СтрокаГруппы.Сумма_ФизЛица + ВыборкаДетальныеЗаписи.Сумма; ИначеЕсли ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ЮрЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда СтрокаГруппы.СуммаБезНДС_ЮрЛица = СтрокаГруппы.СуммаБезНДС_ЮрЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС; СтрокаГруппы.НДС_ЮрЛица = СтрокаГруппы.НДС_ЮрЛица + ВыборкаДетальныеЗаписи.НДС; СтрокаГруппы.Сумма_ЮрЛица = СтрокаГруппы.Сумма_ЮрЛица + ВыборкаДетальныеЗаписи.Сумма; КонецЕсли; КонецЕсли; КонецЦикла; // Заполнение объекта с учетом вида услуги Для Каждого СтрокаГруппы Из УслугиРаспределенныеПоГруппам Цикл СтрокаУслуг = Объект.Услуги.Добавить(); СтрокаУслуг.Группа = СтрокаГруппы.Группа; СтрокаУслуг.ВидУслуги = СтрокаГруппы.ВидУслуги; СтрокаУслуг.ВыручкаФизЛица = СтрокаГруппы.Сумма_ФизЛица; СтрокаУслуг.НДСФизЛица = СтрокаГруппы.НДС_ФизЛица; СтрокаУслуг.ВыручкаЮрЛица = СтрокаГруппы.Сумма_ЮрЛица; СтрокаУслуг.НДСЮрЛица = СтрокаГруппы.НДС_ЮрЛица; СтрокаУслуг.ВыручкаИтого = СтрокаГруппы.Сумма_ФизЛица + СтрокаГруппы.Сумма_ЮрЛица; СтрокаУслуг.НДСИтого = СтрокаГруппы.НДС_ФизЛица + СтрокаГруппы.НДС_ЮрЛица; КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

// Добавляем колонку для составного ключа и вида услуги УслугиРаспределенныеПоГруппам.Колонки.Добавить("ВидУслуги", Новый ОписаниеТипов("Строка")); УслугиРаспределенныеПоГруппам.Колонки.Добавить("ГруппаВид", Новый ОписаниеТипов("Строка"));   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл       ГруппаУслуг = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоУслуги, "Субконто");       ГруппаТоваров = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоТовары, "Субконто");       ГруппаСубконто = Неопределено;          Если ГруппаУслуг <> Неопределено Тогда       ГруппаСубконто = ГруппаУслуг;     ИначеЕсли ГруппаТоваров <> Неопределено Тогда       ГруппаСубконто = ГруппаТоваров;     КонецЕсли;          Если ГруппаСубконто <> Неопределено Тогда            КлючГруппы = ГруппаСубконто.Группа + "|" + Строка(ВыборкаДетальныеЗаписи.ВидУслуги);         СтрокаГруппы = УслугиРаспределенныеПоГруппам.Найти(КлючГруппы, "ГруппаВид");         Если СтрокаГруппы = Неопределено Тогда             СтрокаГруппы = УслугиРаспределенныеПоГруппам.Добавить();             СтрокаГруппы.Группа = ГруппаСубконто.Группа;             СтрокаГруппы.ВидУслуги = ВыборкаДетальныеЗаписи.ВидУслуги;             СтрокаГруппы.ГруппаВид = КлючГруппы;             // Инициализация сумм как в вашем коде             Если ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ФизЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ФизЛицо Тогда                 СтрокаГруппы.СуммаБезНДС_ФизЛица = 0;                 СтрокаГруппы.НДС_ФизЛица = 0;                 СтрокаГруппы.Сумма_ФизЛица = 0;             ИначеЕсли ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ЮрЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда                 СтрокаГруппы.СуммаБезНДС_ЮрЛица = 0;                 СтрокаГруппы.НДС_ЮрЛица = 0;                 СтрокаГруппы.Сумма_ЮрЛица = 0;             КонецЕсли;                 КонецЕсли;                // Накопление сумм         Если ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ФизЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ФизЛицо Тогда             СтрокаГруппы.СуммаБезНДС_ФизЛица = СтрокаГруппы.СуммаБезНДС_ФизЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС;             СтрокаГруппы.НДС_ФизЛица = СтрокаГруппы.НДС_ФизЛица + ВыборкаДетальныеЗаписи.НДС;             СтрокаГруппы.Сумма_ФизЛица = СтрокаГруппы.Сумма_ФизЛица + ВыборкаДетальныеЗаписи.Сумма;             ИначеЕсли ВыборкаДетальныеЗаписи.ЮрФизЛицоУслуги = Перечисления.ЮрФизЛицо.ЮрЛицо ИЛИ ВыборкаДетальныеЗаписи.ЮрФизЛицоТовары = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда             СтрокаГруппы.СуммаБезНДС_ЮрЛица = СтрокаГруппы.СуммаБезНДС_ЮрЛица + ВыборкаДетальныеЗаписи.СуммаБезНДС;             СтрокаГруппы.НДС_ЮрЛица = СтрокаГруппы.НДС_ЮрЛица + ВыборкаДетальныеЗаписи.НДС;             СтрокаГруппы.Сумма_ЮрЛица = СтрокаГруппы.Сумма_ЮрЛица + ВыборкаДетальныеЗаписи.Сумма;         КонецЕсли;     КонецЕсли; КонецЦикла;   // Заполнение объекта с учетом вида услуги Для Каждого СтрокаГруппы Из УслугиРаспределенныеПоГруппам Цикл     СтрокаУслуг = Объект.Услуги.Добавить();     СтрокаУслуг.Группа = СтрокаГруппы.Группа;     СтрокаУслуг.ВидУслуги = СтрокаГруппы.ВидУслуги;     СтрокаУслуг.ВыручкаФизЛица = СтрокаГруппы.Сумма_ФизЛица;     СтрокаУслуг.НДСФизЛица = СтрокаГруппы.НДС_ФизЛица;     СтрокаУслуг.ВыручкаЮрЛица = СтрокаГруппы.Сумма_ЮрЛица;     СтрокаУслуг.НДСЮрЛица = СтрокаГруппы.НДС_ЮрЛица;     СтрокаУслуг.ВыручкаИтого = СтрокаГруппы.Сумма_ФизЛица + СтрокаГруппы.Сумма_ЮрЛица;     СтрокаУслуг.НДСИтого = СтрокаГруппы.НДС_ФизЛица + СтрокаГруппы.НДС_ЮрЛица; КонецЦикла;

—

### Кратко:

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

—

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

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

Если нужно в переменную Группа записать результат поиска либо в ГруппаУслуг, либо в ГруппаТоваров (т.е. если ГруппаУслуг не пустое/не Неопределено, то взять его, иначе взять ГруппаТоваров), то делайте так:

1С (Код)

Группа = Неопределено; ГруппаУслуг = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоУслуги, "Субконто"); ГруппаТоваров = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоТовары, "Субконто"); Если ГруппаУслуг <> Неопределено Тогда Группа = ГруппаУслуг; ИначеЕсли ГруппаТоваров <> Неопределено Тогда Группа = ГруппаТоваров; КонецЕсли;

1 2 3 4 5 6 7 8 9 10

Группа = Неопределено;   ГруппаУслуг = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоУслуги, "Субконто"); ГруппаТоваров = Таблица.Найти(ВыборкаДетальныеЗаписи.СубконтоТовары, "Субконто");   Если ГруппаУслуг <> Неопределено Тогда     Группа = ГруппаУслуг; ИначеЕсли ГруппаТоваров <> Неопределено Тогда     Группа = ГруппаТоваров; КонецЕсли;

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

—

Если Таблица.Найти возвращает строку таблицы, то Группа будет эта строка. Если нужно конкретное поле из найденной строки, например "Группа", то:

1С (Код)

Если ГруппаУслуг <> Неопределено Тогда Группа = ГруппаУслуг.Группа; ИначеЕсли ГруппаТоваров <> Неопределено Тогда Группа = ГруппаТоваров.Группа; КонецЕсли;

1 2 3 4 5

Если ГруппаУслуг <> Неопределено Тогда     Группа = ГруппаУслуг.Группа; ИначеЕсли ГруппаТоваров <> Неопределено Тогда     Группа = ГруппаТоваров.Группа; КонецЕсли;

—

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

1С (Код)

Группа = ГруппаУслуг; Если Группа = Неопределено Тогда Группа = ГруппаТоваров; КонецЕсли;

1 2 3 4

Группа = ГруппаУслуг; Если Группа = Неопределено Тогда     Группа = ГруппаТоваров; КонецЕсли;

—

Так будет корректно и понятно.

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

В 1С передать массив из одной серверной процедуры в другую очень просто — достаточно передать его как параметр.

Пример:

1С (Код)

&НаСервере Процедура Процедура1() МойМассив = Новый Массив; МойМассив.Добавить("Элемент1"); МойМассив.Добавить("Элемент2"); Процедура2(МойМассив); КонецПроцедуры &НаСервере Процедура Процедура2(ВходнойМассив) Для Каждого Элемент Из ВходнойМассив Цикл Сообщить(Элемент); КонецЦикла; КонецПроцедуры

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

&НаСервере Процедура Процедура1()     МойМассив = Новый Массив;     МойМассив.Добавить("Элемент1");     МойМассив.Добавить("Элемент2");          Процедура2(МойМассив); КонецПроцедуры   &НаСервере Процедура Процедура2(ВходнойМассив)     Для Каждого Элемент Из ВходнойМассив Цикл         Сообщить(Элемент);     КонецЦикла; КонецПроцедуры

Если процедуры находятся в одном общем модуле или в одном объекте, просто вызовите вторую процедуру, передав массив.

Если процедуры в разных модулях, то:

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

—

Если массив очень большой и есть сомнения по производительности, можно использовать ВременноеХранилище:

1С (Код)

Адрес = ПоместитьВоВременноеХранилище(Массив); Процедура2(Адрес);

1 2	Адрес = ПоместитьВоВременноеХранилище(Массив); Процедура2(Адрес);

А в Процедура2:

1С (Код)

Процедура Процедура2(Адрес) Массив = ПолучитьИзВременногоХранилища(Адрес); // работа с Массивом КонецПроцедуры

1 2 3 4

Процедура Процедура2(Адрес)     Массив = ПолучитьИзВременногоХранилища(Адрес);     // работа с Массивом КонецПроцедуры

—

В общем, передача массива — это просто передача параметра процедуры.

[Автор]

Сообщения