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

Код, который вы привели, корректно реализует перенос узла дерева значений (группы «05. КРЕПЕЖ») в другую ветку (в папку «19. АВТОТОВАРЫ») с сохранением всех вложенных подузлов.

Разберу по шагам, что происходит и как это работает:

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

1С (Код)

ДеревоВыгрузки = РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

1	ДеревоВыгрузки = РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

Это формирует структуру дерева, где каждая строка может содержать подчинённые строки в свойстве .Строки.

2. Поиск узлов по справочнику номенклатуры:

1С (Код)

Для каждого Строка из ДеревоВыгрузки.Строки Цикл Если Строка.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("УТ000016443") Тогда // 19. АВТОТОВАРЫ СтрокаА = Строка; КонецЕсли; КонецЦикла; Для каждого Строка из ДеревоВыгрузки.Строки Цикл Если Строка.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00004044") Тогда // 05. КРЕПЕЖ СтрокаК = Строка; КонецЕсли; КонецЦикла;

1 2 3 4 5 6 7 8 9 10 11

Для каждого Строка из ДеревоВыгрузки.Строки Цикл     Если Строка.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("УТ000016443") Тогда // 19. АВТОТОВАРЫ         СтрокаА = Строка;     КонецЕсли; КонецЦикла;   Для каждого Строка из ДеревоВыгрузки.Строки Цикл     Если Строка.Номенклатура = Справочники.Номенклатура.НайтиПоКоду("00004044") Тогда // 05. КРЕПЕЖ         СтрокаК = Строка;     КонецЕсли; КонецЦикла;

Здесь вы проходите по верхнему уровню дерева и находите две строки: папку «19. АВТОТОВАРЫ» и группу «05. КРЕПЕЖ».

3. Перенос группы «05. КРЕПЕЖ» в папку «19. АВТОТОВАРЫ»:

1С (Код)

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

1 2 3 4 5 6

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

— Создаёте новую строку в дочерних элементах папки «19. АВТОТОВАРЫ».
— Копируете все реквизиты из «05. КРЕПЕЖ» в новую строку.
— Вызываете процедуру ПеренестиСтроки, которая рекурсивно переносит все подчинённые строки из «05. КРЕПЕЖ» в новую строку.
— Удаляете исходную строку «05. КРЕПЕЖ» из корня дерева.

—

Что важно:

— Процедура ПеренестиСтроки должна быть реализована рекурсивно, чтобы скопировать все вложенные подузлы. Пример реализации:

1С (Код)

Процедура ПеренестиСтроки(СтрокаПриемник, СтрокаИсточник) Для каждого ПодСтрока Из СтрокаИсточник.Строки Цикл НоваяПодСтрока = СтрокаПриемник.Строки.Добавить(); ЗаполнитьЗначенияСвойств(НоваяПодСтрока, ПодСтрока); ПеренестиСтроки(НоваяПодСтрока, ПодСтрока); КонецЦикла; КонецПроцедуры

1 2 3 4 5 6 7

Процедура ПеренестиСтроки(СтрокаПриемник, СтрокаИсточник)     Для каждого ПодСтрока Из СтрокаИсточник.Строки Цикл         НоваяПодСтрока = СтрокаПриемник.Строки.Добавить();         ЗаполнитьЗначенияСвойств(НоваяПодСтрока, ПодСтрока);         ПеренестиСтроки(НоваяПодСтрока, ПодСтрока);     КонецЦикла; КонецПроцедуры

— Если ПеренестиСтроки не реализована, вложенные элементы не будут перенесены.

— После удаления исходной строки «05. КРЕПЕЖ» в корне дерева, она будет только в новой ветке «19. АВТОТОВАРЫ».

—

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

— Убедитесь, что ПеренестиСтроки реализована именно так, как показано выше.

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

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

—

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

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

Salam! Excel-dən 1C-yə siyahı import etmək üçün aşağıdakı addımları və nümunə kodu təqdim edirəm. Bu nümunə 1C:Предприятие 8.x üçün yazılıb, COM-obyekt vasitəsilə Excel faylını oxuyur və məlumatları справочник (məsələn, «Номенклатура») və ya başqa obyektə yükləyir.

—

### Addımlar:

1. Excel faylını açmaq və məlumatları oxumaq:

— COM-obyekt yaradılır: Excel.Application
— Fayl açılır, aktiv səhifə seçilir
— Məlumatların sonuncu sətir və sütun sayı tapılır
— Məlumatlar massivə yüklənir

2. Məlumatları 1C obyektinə yazmaq:

— Dövr vasitəsilə massivdəki sətirlər oxunur
— Hər sətirdən məlumatlar alınır
— Yeni элемент yaradılır və doldurulur
— Записать() çağırılır

3. Excel obyektini bağlamaq və yaddaşı boşaltmaq

—

### Nümunə kod (1C:Enterprise 8.x, встроенный язык):

1С (Код)

Перем ExcelApp; Процедура ИмпортИзExcel(ПутьКФайлу) Попытка // Инициализация Excel ExcelApp = Новый COMОбъект("Excel.Application"); ExcelApp.Visible = Ложь; ExcelApp.DisplayAlerts = Ложь; // Открываем книгу Книга = ExcelApp.Workbooks.Open(ПутьКФайлу); Лист = Книга.Sheets(1); // Определяем диапазон с данными ПоследняяСтрока = Лист.UsedRange.Rows.Count; ПоследнийСтолбец = Лист.UsedRange.Columns.Count; // Считываем данные в массив Область = Лист.Range(Лист.Cells(1,1), Лист.Cells(ПоследняяСтрока, ПоследнийСтолбец)); МассивДанных = Область.Value; // Закрываем книгу и Excel Книга.Close(Ложь); ExcelApp.Quit(); ОсвободитьОбъект(ExcelApp); // Обработка данных Для НомерСтроки = 2 По ПоследняяСтрока Цикл // Предполагаем, что первая строка - заголовки // Пример: импортируем в справочник "Номенклатура" НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент(); // Пример заполнения реквизитов из колонок Excel // МассивДанных[Строка, Столбец] НовыйЭлемент.Наименование = МассивДанных[НомерСтроки, 1]; // Если есть другие поля, например, код, цена и т.п. // НовыйЭлемент.Код = МассивДанных[НомерСтроки, 2]; // НовыйЭлемент.Цена = МассивДанных[НомерСтроки, 3]; НовыйЭлемент.Записать(); КонецЦикла; Сообщить("Импорт завершен успешно. Импортировано строк: " + (ПоследняяСтрока - 1)); Исключение Если Не ПустаяСтрока(ОписаниеОшибки()) Тогда Сообщить("Ошибка при импорте: " + ОписаниеОшибки()); КонецЕсли; Если НЕ ПустаяСтрока(ExcelApp) Тогда ExcelApp.Quit(); ОсвободитьОбъект(ExcelApp); КонецЕсли; КонецПопытки; КонецПроцедуры

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

Перем ExcelApp;   Процедура ИмпортИзExcel(ПутьКФайлу) Попытка // Инициализация Excel ExcelApp = Новый COMОбъект("Excel.Application"); ExcelApp.Visible = Ложь; ExcelApp.DisplayAlerts = Ложь; // Открываем книгу Книга = ExcelApp.Workbooks.Open(ПутьКФайлу); Лист = Книга.Sheets(1); // Определяем диапазон с данными ПоследняяСтрока = Лист.UsedRange.Rows.Count; ПоследнийСтолбец = Лист.UsedRange.Columns.Count; // Считываем данные в массив Область = Лист.Range(Лист.Cells(1,1), Лист.Cells(ПоследняяСтрока, ПоследнийСтолбец)); МассивДанных = Область.Value; // Закрываем книгу и Excel Книга.Close(Ложь); ExcelApp.Quit(); ОсвободитьОбъект(ExcelApp); // Обработка данных Для НомерСтроки = 2 По ПоследняяСтрока Цикл // Предполагаем, что первая строка - заголовки // Пример: импортируем в справочник "Номенклатура" НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент(); // Пример заполнения реквизитов из колонок Excel // МассивДанных[Строка, Столбец] НовыйЭлемент.Наименование = МассивДанных[НомерСтроки, 1]; // Если есть другие поля, например, код, цена и т.п. // НовыйЭлемент.Код = МассивДанных[НомерСтроки, 2]; // НовыйЭлемент.Цена = МассивДанных[НомерСтроки, 3]; НовыйЭлемент.Записать(); КонецЦикла; Сообщить("Импорт завершен успешно. Импортировано строк: " + (ПоследняяСтрока - 1)); Исключение Если Не ПустаяСтрока(ОписаниеОшибки()) Тогда Сообщить("Ошибка при импорте: " + ОписаниеОшибки()); КонецЕсли; Если НЕ ПустаяСтрока(ExcelApp) Тогда ExcelApp.Quit(); ОсвободитьОбъект(ExcelApp); КонецЕсли; КонецПопытки; КонецПроцедуры

—

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

— В Excel первая строка обычно заголовки, поэтому импорт начинается со второй.
— В зависимости от структуры Excel файла, нужно подстроить индексы колонок.
— Если импортируете в другой справочник или документ, меняйте соответствующие объекты.
— Обязательно освобождайте COM-объекты, чтобы не оставлять процессы Excel в памяти.
— Для больших файлов лучше использовать пакетную обработку или загрузку через табличный документ.

—

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

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

—

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

—

Рекомендую посмотреть здесь для подробностей и примеров:
https://helpf.pro/faq8/view/1045.html
https://helpf.pro/faq/view/1024.html

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

Чтобы правильно добавить новую константу «Почта» в общую форму «НастройкаПрограммы» (обычные формы), нужно:

1. Создать константу «Почта» в конфигураторе, указав нужный тип (например, строка).

2. В форме «НастройкаПрограммы» добавить эту константу в набор констант, который отображается на форме. Для этого в реквизитах формы найти набор констант (например, КонстантыНабор) и в его составе указать «Почта» или включить флажок «Использовать все константы», чтобы отображались все константы без явного перечисления.

3. В модуле формы обращаться к константе через набор констант, например, так:

1С (Код)

// Получаем набор констант из реквизита формы Набор = ЭтотОбъект.КонстантыНабор; // Записываем новое значение Набор.Почта = "example@mail.com"; Набор.Записать();

1 2 3 4 5 6

// Получаем набор констант из реквизита формы Набор = ЭтотОбъект.КонстантыНабор;   // Записываем новое значение Набор.Почта = "example@mail.com"; Набор.Записать();

Если в форме нет реквизита с набором констант, его нужно добавить и связать с объектом Константы.СоздатьНабор(«Почта, …»).

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

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

Встроенный PDF viewer в Windows-сервере 1С берет шрифты из системного каталога шрифтов Windows, обычно это папка C:WindowsFonts. Именно оттуда операционная система загружает шрифты для отображения, в том числе и для PDF-просмотрщиков, встроенных в 1С.

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

Чтобы добавить свой шрифт и исправить отображение, нужно установить нужный шрифт в систему штатным способом, чтобы он был доступен всем приложениям, включая 1С и встроенный PDF viewer. Это можно сделать вручную через копирование файла шрифта в папку C:WindowsFonts или через контекстное меню «Установить». Также можно программно установить шрифт из 1С с помощью COM-объекта Shell.Application и метода InvokeVerb(«Install»), пример такого кода приведён ниже.

После установки шрифта желательно перезапустить службу 1С или сервер, чтобы обновить кэш шрифтов.

Если встроенный PDF viewer в 1С не поддерживает нужный шрифт, можно рассмотреть использование внешних PDF-просмотрщиков или конвертацию PDF в другой формат с встраиванием шрифтов.

1С (Код)

СистемнаяИнформация = Новый СистемнаяИнформация; ВерсияОС = СистемнаяИнформация.ВерсияОС; ИмяФайла = "MyFont.ttf"; Макет = ПолучитьМакет("МакетШрифта"); // макет с двоичными данными шрифта Если СтрНайти(ВерсияОС, "Microsoft Windows XP") = 0 Тогда Каталог = ВременныеФайлы.КаталогВременныхФайлов(); ПолноеИмяФайла = Каталог + ИмяФайла; Макет.Записать(ПолноеИмяФайла); // В Unix-клиенте COMОбъекты недоступны, альтернативу реализовать отдельно при необходимости УдалитьФайлы(ПолноеИмяФайла); Иначе WshShell = Новый COMОбъект("WScript.Shell"); FSO = Новый COMОбъект("Scripting.FileSystemObject"); ПутьШрифты = WshShell.SpecialFolders.Item("Fonts"); ПолноеИмяФайла = ПутьШрифты + "" + ИмяФайла; Макет.Записать(ПолноеИмяФайла); WshShell.Run("RunDll32.exe gdi32.dll,AddFontResourceA " + FSO.GetBaseName(ПолноеИмяФайла)); КонецЕсли;

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

СистемнаяИнформация = Новый СистемнаяИнформация; ВерсияОС = СистемнаяИнформация.ВерсияОС; ИмяФайла = "MyFont.ttf"; Макет = ПолучитьМакет("МакетШрифта"); // макет с двоичными данными шрифта Если СтрНайти(ВерсияОС, "Microsoft Windows XP") = 0 Тогда     Каталог = ВременныеФайлы.КаталогВременныхФайлов();     ПолноеИмяФайла = Каталог + ИмяФайла;     Макет.Записать(ПолноеИмяФайла);     // В Unix-клиенте COMОбъекты недоступны, альтернативу реализовать отдельно при необходимости     УдалитьФайлы(ПолноеИмяФайла); Иначе     WshShell = Новый COMОбъект("WScript.Shell");     FSO = Новый COMОбъект("Scripting.FileSystemObject");     ПутьШрифты = WshShell.SpecialFolders.Item("Fonts");     ПолноеИмяФайла = ПутьШрифты + "" + ИмяФайла;     Макет.Записать(ПолноеИмяФайла);     WshShell.Run("RunDll32.exe gdi32.dll,AddFontResourceA " + FSO.GetBaseName(ПолноеИмяФайла)); КонецЕсли;

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

Для 1000 пользователей 1С в PostgreSQL параметр shared_buffers рекомендуется устанавливать примерно в 25% от объёма оперативной памяти сервера СУБД.

Пример из практики и рекомендаций:

— Если у вас сервер с 128 ГБ ОЗУ, то shared_buffers = 32GB.
— Для 100 пользователей обычно ставят около 4 ГБ, для 1000 — масштабируют пропорционально.

Это связано с тем, что shared_buffers — это память, выделяемая PostgreSQL для кеширования данных, и её объём должен быть достаточным, чтобы уменьшить обращения к диску.

Рекомендации по настройке для 1000 пользователей 1С:

|shared_buffers = 32GB

Также обратите внимание на другие параметры, важные для 1С:

|temp_buffers = 128-256MB
|work_mem = 256MB
|maintenance_work_mem = 512-1024MB

Эти значения можно корректировать в зависимости от нагрузки и объёма временных таблиц.

Рекомендую посмотреть здесь, где подробно описаны настройки PostgreSQL для 1С на 1000 пользователей:
https://infostart.ru/1c/articles/1003015/
(там есть пример с 128 ГБ RAM и shared_buffers = 32GB)

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

В версии КА 2.5.26.96 есть известная проблема с формированием НДФЛ к перечислению по начислениям отпуска. Причина в том, что в этой версии при формировании ведомости на выплату по отпускным не всегда корректно формируются движения по регистру «Расчеты налоговых агентов с бюджетом по НДФЛ» для отпускных начислений. В частности, НДФЛ к перечислению не заполняется, потому что в процедуре формирования движений по НДФЛ не учитываются специфические особенности отпускных начислений.

Основные причины:

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

2. В версии 2.5.26.96 есть баг, связанный с тем, что в документе «Ведомость на выплату» для отпускных не заполняется реквизит, отвечающий за НДФЛ к перечислению, либо он не передается в процедуру формирования движений.

3. Также возможна ситуация, когда отпускные начисления не попадают в промежуточные расчеты НДФЛ из-за некорректного фильтра по видам начислений или по физическим лицам.

Решение:

— Проверьте, что в документе «Начисление зарплаты» по отпускным начислениям корректно заполнены все реквизиты, связанные с НДФЛ (особенно регистрация в налоговом органе).

— Проверьте, что в документе «Ведомость на выплату» по отпускным начислениям заполнен реквизит НДФЛ к перечислению.

— Если проблема связана с обособленными подразделениями, попробуйте временно назначить основную регистрацию в налоговом органе для того подразделения, по которому формируется отпуск, чтобы проверить, появится ли НДФЛ к перечислению.

— Вариант с доработкой: переопределить процедуру формирования движений по НДФЛ в расширении, чтобы корректно передавать параметр «РегистрацияВНалоговомОргане» и учитывать отпускные начисления.

— Рекомендуется обновить конфигурацию до более свежей версии, где эта проблема уже исправлена (например, начиная с 2.5.30 и выше).

— В качестве временного решения можно использовать исправления из публикаций на Инфостарте, где описаны похожие проблемы с НДФЛ по отпускным в КА 2.5.
https://infostart.ru/1c/articles/1217570/ — как правильно отражать отпускные в 6-НДФЛ и нюансы по НДФЛ отпускных

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

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

Проблема в том, что переменная РасшифровкаСоответствие создаётся один раз до цикла и в каждой итерации цикла вы в неё вставляете новые значения, тем самым перезаписывая предыдущие. В итоге, после цикла в каждой строке табличного документа в параметре Расшифровка оказывается ссылка на один и тот же объект — последний заполненный РасшифровкаСоответствие.

Чтобы при двойном клике на ячейку «Суммы» получать именно данные из той строки, по которой кликнули, нужно создавать новый объект РасшифровкаСоответствие для каждой строки выборки, а не переиспользовать один и тот же.

Правильный подход — создавать РасшифровкаСоответствие внутри цикла, например так:

1С (Код)

ОбластьСтрока = Макет.ПолучитьОбласть("Строка"); Пока Выборка.Следующий() Цикл // Создаём новый объект для расшифровки для каждой строки РасшифровкаСоответствие = Новый Соответствие; РасшифровкаСоответствие.Вставить("ПоказыватьЗаголовок", ИСТИНА); РасшифровкаСоответствие.Вставить("ДатаНач", ДатаНач); РасшифровкаСоответствие.Вставить("ДатаКон", ДатаКон); РасшифровкаСоответствие.Вставить("ИмяОбъекта", "КарточкаСчетаОсновной"); ОбластьСтрока.Параметры.Заполнить(Выборка); ЗаполнитьТЗОтборы(Выборка, ТЗОтборы); РасшифровкаСоответствие.Вставить("Счет", Выборка.Счет); РасшифровкаСоответствие.Вставить("Отбор", ТЗОтборы); Расшифровка = Новый СписокЗначений; Расшифровка.Вставить(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

ОбластьСтрока = Макет.ПолучитьОбласть("Строка");   Пока Выборка.Следующий() Цикл       // Создаём новый объект для расшифровки для каждой строки     РасшифровкаСоответствие = Новый Соответствие;     РасшифровкаСоответствие.Вставить("ПоказыватьЗаголовок", ИСТИНА);     РасшифровкаСоответствие.Вставить("ДатаНач", ДатаНач);     РасшифровкаСоответствие.Вставить("ДатаКон", ДатаКон);     РасшифровкаСоответствие.Вставить("ИмяОбъекта", "КарточкаСчетаОсновной");       ОбластьСтрока.Параметры.Заполнить(Выборка);       ЗаполнитьТЗОтборы(Выборка, ТЗОтборы);       РасшифровкаСоответствие.Вставить("Счет", Выборка.Счет);     РасшифровкаСоответствие.Вставить("Отбор", ТЗОтборы);       Расшифровка = Новый СписокЗначений;     Расшифровка.Вставить(0, РасшифровкаСоответствие, "Карточка счета " + Выборка.Счет.Код);       ОбластьСтрока.Область("Суммы").Расшифровка = Расшифровка;       ТабДок.Вывести(ОбластьСтрока);   КонецЦикла;   ТабДок.Вывести(ОбластьПодвал);

Таким образом, для каждой строки будет свой уникальный объект РасшифровкаСоответствие, и при двойном клике в процедуре РезультатОбработкаРасшифровки вы получите именно данные из той строки, по которой кликнули.

Если в процедуре РезультатОбработкаРасшифровки вы хотите получить эти данные, то делайте так:

1С (Код)

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

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

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

Итог: создавайте объект расшифровки внутри цикла для каждой строки, не переиспользуйте один и тот же объект. Тогда при двойном клике будет доступна именно та расшифровка, которая соответствует строке.

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

Если журнал регистрации в 1С перестал записываться, скорее всего файл журнала поврежден или достиг максимального размера, и его нужно заменить новым. В 1С начиная с версии 8.3 журнал регистрации хранится в файле с расширением .lgd (SQLite база). Чтобы создать новый журнал регистрации, нужно:

1. Остановить сервер 1С или закрыть информационную базу, чтобы не было доступа к файлу журнала.

2. Найти папку с журналом регистрации. Для файловой базы это папка 1Cv8Log в каталоге информационной базы, например:

1С (Код)

<Путь_к_информационной_базе>1Cv8Log

1	<Путь_к_информационной_базе>1Cv8Log

Для клиент-серверной базы — путь можно посмотреть в настройках сервера или в сообщении об ошибке.

3. Сделать резервную копию папки 1Cv8Log (на всякий случай).

4. Удалить или переименовать папку 1Cv8Log (например, в 1Cv8Log_old).

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

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

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

Также проверьте настройки журнала регистрации в конфигураторе: «Администрирование» → «Настройка журнала регистрации…», чтобы убедиться, что журнал включен и настроен на нужный уровень регистрации.

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

Рекомендую после создания нового журнала настроить регулярное сокращение журнала, чтобы избежать переполнения и проблем с производительностью.
https://infostart.ru/1c/articles/402536/
https://helpf.pro/faq/view/963.html

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

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

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

Пример кода на 1С:

1С (Код)

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

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

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

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

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

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

# Кратко:
— ПолучитьСеансыИнформационнойБазы() — получить сеансы.
— Из сеанса взять имя пользователя.
— Через ПользователиИнформационнойБазы.ПолучитьПользователей() получить роли пользователя.
— Роли — и есть права пользователя.

Это стандартный способ получить права пользователя из сеансов в 1С.

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

Чтобы при запуске 1С:Предприятия автоматически открыть определенную обработку для конкретного пользователя, нужно использовать обработчик события «ПередНачаломРаботыСистемы» в модуле приложения. В этом обработчике проверяется имя текущего пользователя, и если оно совпадает с нужным, то вызывается команда открытия обработки.

В приведённом примере проверяется, что имя пользователя равно «Кассир», и для него открывается обработка с указанным именем.

Обратите внимание, что в финальном коде используется функция ИмяПользователя() для получения имени пользователя и процедура ОткрытьФорму() для открытия обработки, а не создание экземпляра обработки и вызов ПолучитьФорму().Открыть(), как это иногда делают.

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

1С (Код)

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

1 2 3 4 5 6

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

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

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

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

1С (Код)

Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей(); Для каждого Пользователь Из Пользователи Цикл Сообщить("Имя пользователя: " + Пользователь.Имя); КонецЦикла;

1 2 3 4

Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей(); Для каждого Пользователь Из Пользователи Цикл     Сообщить("Имя пользователя: " + Пользователь.Имя); КонецЦикла;

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

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

1С (Код)

УстановитьПривилегированныйРежимИстина(); Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей(); УстановитьПривилегированныйРежимЛожь(); Для каждого Пользователь Из Пользователи Цикл Сообщить("Имя пользователя: " + Пользователь.Имя); КонецЦикла;

1 2 3 4 5 6 7

УстановитьПривилегированныйРежимИстина(); Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей(); УстановитьПривилегированныйРежимЛожь();   Для каждого Пользователь Из Пользователи Цикл     Сообщить("Имя пользователя: " + Пользователь.Имя); КонецЦикла;

Без включения привилегированного режима платформа ограничит доступ к данным.

Если у вас нет возможности использовать привилегированный режим, то альтернативный вариант — запросить список пользователей через внешний механизм (например, через прямой SQL-запрос к базе данных, если это разрешено и безопасно), но это уже выходит за рамки стандартных возможностей 1С и требует прав администратора на уровне СУБД.

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

Шура, выдача разменной монеты в кассу ККМ — это хозяйственная операция по внесению наличных денежных средств в кассу предприятия. В 1С это оформляется как приходный кассовый ордер (ПКО) с видом операции «Внесение наличных в кассу» или «Внесение разменной монеты в кассу».

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

— Дебет 50 (Касса) — увеличение наличных денег в кассе
— Кредит 51 (Расчетный счет) или другой счет, с которого берутся деньги на размен

Если разменная монета берется из кассы банка (например, из кассы филиала банка), то операция оформляется как получение наличных из банка (ПКО с видом операции «Получение наличных в банке»).

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

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

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

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

В только что приобретённой базе 1С:Альфа-Авто Автосервис обычно сразу должны быть заполнены следующие справочники, чтобы можно было начать работу:

1. **Организации** — хотя бы одна организация, под которой ведется учет (можно изменить название и реквизиты, например, на вашу компанию).
2. **Контрагенты** — клиенты, поставщики, партнеры.
3. **Физические лица** — сотрудники, если планируется кадровый учет.
4. **Сотрудники организации** — для кадрового учета и назначения прав.
5. **Автомобили** — модели и конкретные автомобили клиентов.
6. **Модели автомобилей** — для правильного учета и обслуживания.
7. **Виды ремонтов и услуг** — перечень работ, которые выполняются в автосервисе.
8. **Номенклатура** — запчасти, материалы, работы.
9. **Склады** — места хранения запасных частей и материалов.
10. **Пользователи** — для разграничения доступа к базе.

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

—

**Как создать пользователя в 1С:Альфа-Авто:**

1. Перейдите в раздел **Администрирование** → **Пользователи** → **Пользователи**.
2. Нажмите кнопку **Создать** (через меню «Все действия» или клавишу Insert).
3. В открывшейся форме заполните:
— **Полное имя** — ФИО пользователя.
— **Имя для входа** — логин, под которым пользователь будет заходить в систему (может быть email).
4. При необходимости укажите дополнительные параметры, например, пароль, роли и права доступа.
5. Сохраните пользователя.

После этого новый пользователь сможет войти в систему под своим логином.

—

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

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

[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 19 20 21 22 23

Процедура ПередПроведением(Отказ)     ЕстьАлкоголь = Ложь;     ЕстьБезалкоголь = Ложь;       Для Каждого Строка Из ЭтотОбъект.Товары Цикл         // Предполагается, что в справочнике номенклатуры есть реквизит "АлкогольнаяПродукция" типа Булево         Если Строка.Номенклатура.АлкогольнаяПродукция Тогда             ЕстьАлкоголь = Истина;         Иначе             ЕстьБезалкоголь = Истина;         КонецЕсли;           // Если оба флага уже установлены, можно прервать цикл         Если ЕстьАлкоголь И ЕстьБезалкоголь Тогда             Прервать;         КонецЕсли;     КонецЦикла;       Если ЕстьАлкоголь И ЕстьБезалкоголь Тогда         Отказ = Истина;         Сообщить("Документ не может быть проведен, так как содержит одновременно алкогольную и безалкогольную продукцию.");     КонецЕсли; КонецПроцедуры

Объяснения:

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

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

— Процедура ПередПроведением вызывается автоматически при попытке проведения документа, установка Отказ = Истина отменит проведение.

— Сообщение выводится пользователю, чтобы он понял причину отказа.

Если в вашей конфигурации есть более сложная логика определения алкогольной продукции (например, через ЕГАИС или отдельные реквизиты), адаптируйте проверку соответственно.

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

Александр, привет!

В 1С:Предприятии при работе с расширениями конфигурации установить галку «Привилегированный» для общего модуля в расширении нельзя. Это ограничение платформы. Расширения не могут содержать привилегированные общие модули.

Объяснение:

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

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

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

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

[Автор]

Сообщения