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

Привет, Pavel!

Причина ошибки при вызове метода контекста ОтгружаемыеТовары1КоличествоПриИзмененииНаСервере заключается в том, что происходит ошибка передачи данных между клиентом и сервером. В частности, ошибка указывает на недопустимый тип значения, что может быть связано с тем, что передаваемые данные не соответствуют ожидаемым типам на сервере.

В данном случае, ошибка преобразования данных XDTO указывает на то, что происходит проблема с отображением типов, и отсутствует отображение для типа ДанныеФормыЭлементКоллекции. Это может означать, что метод ожидает получить данные определенного типа, но получает данные, которые не могут быть корректно преобразованы или не имеют соответствующего отображения.

Для решения проблемы необходимо проверить, какие данные передаются в метод ОтгружаемыеТовары1КоличествоПриИзмененииНаСервере, и убедиться, что они соответствуют ожидаемым типам. Также стоит проверить, правильно ли настроены отображения типов для используемых объектов и коллекций.

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

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

Для формирования JSON из массива в 1С:Предприятии можно использовать функцию, которая будет преобразовывать массив в строку формата JSON. Вот пример кода, который демонстрирует, как это сделать:

1С (Код)

1C Функция СформироватьJSONИзМассива(Массив) Экспорт СтрокаJSON = "["; Разделитель = ""; Для Каждого Элемент Из Массив Цикл СтрокаJSON = СтрокаJSON + Разделитель + JSON(Элемент); Разделитель = ","; КонецЦикла; СтрокаJSON = СтрокаJSON + "]"; Возврат СтрокаJSON; КонецФункции // Пример использования МассивДанных = Новый Массив; МассивДанных.Добавить("Первый элемент"); МассивДанных.Добавить("Второй элемент"); МассивДанных.Добавить(123); МассивДанных.Добавить(Истина); РезультатJSON = СформироватьJSONИзМассива(МассивДанных); Сообщить(РезультатJSON);

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

1C Функция СформироватьJSONИзМассива(Массив) Экспорт     СтрокаJSON = "[";     Разделитель = "";          Для Каждого Элемент Из Массив Цикл         СтрокаJSON = СтрокаJSON + Разделитель + JSON(Элемент);         Разделитель = ",";     КонецЦикла;          СтрокаJSON = СтрокаJSON + "]";     Возврат СтрокаJSON; КонецФункции   // Пример использования МассивДанных = Новый Массив; МассивДанных.Добавить("Первый элемент"); МассивДанных.Добавить("Второй элемент"); МассивДанных.Добавить(123); МассивДанных.Добавить(Истина);   РезультатJSON = СформироватьJSONИзМассива(МассивДанных); Сообщить(РезультатJSON);

В этом примере функция СформироватьJSONИзМассива принимает массив и формирует строку JSON, добавляя каждый элемент массива в строку. Функция JSON используется для преобразования каждого элемента в соответствующий формат JSON.

Результат выполнения кода будет выглядеть так:

1С (Код)

json ["Первый элемент","Второй элемент",123,true]

1 2	json ["Первый элемент","Второй элемент",123,true]

Таким образом, вы можете легко формировать JSON из массива в 1С:Предприятии.

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

Привет, Domiurg!

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

Вот шаги, которые вы можете предпринять:

1. **Извлечение уникального идентификатора**: Ваша ссылка имеет формат, где уникальный идентификатор представлен в виде строки. В вашем случае это 68:85750050569d83fc11ec3009f2bd6cbc. Вам нужно выделить этот идентификатор.

2. **Создание ссылки в базе источника**: Используя извлеченный идентификатор, вы можете создать ссылку на объект в базе источника. Например, если это ссылка на документ, то она будет выглядеть так:

1С (Код)

1C Ссылка = Документы.ИмяДокумента.СоздатьДокумент(); Ссылка.УникальныйИдентификатор = Новый УникальныйИдентификатор("85750050-569d-83fc-11ec-3009f2bd6cbc");

1 2 3

1C    Ссылка = Документы.ИмяДокумента.СоздатьДокумент();    Ссылка.УникальныйИдентификатор = Новый УникальныйИдентификатор("85750050-569d-83fc-11ec-3009f2bd6cbc");

3. **Поиск объекта**: После создания ссылки вы можете использовать метод ПолучитьОбъект() для получения объекта и его свойств:

1С (Код)

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

1 2 3 4 5 6 7

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

Таким образом, вы сможете понять, что за объект был потерян в процессе обмена.

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

Надеюсь, это поможет вам разобраться с вашей проблемой!

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

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

1. **Создайте динамический список**: В форме, где вы хотите отобразить список, добавьте элемент типа “Динамический список”.

2. **Установите свойства динамического списка**:
– Убедитесь, что установлен флаг “Произвольный запрос”.
– Настройте запрос, который будет возвращать необходимые данные. Например:

1С (Код)

1C ВЫБРАТЬ Справочник.Номенклатура.Ссылка, Справочник.Номенклатура.Наименование, Справочник.Номенклатура.Ссылка В (&ВыбранныеЭлементы) КАК Пометка ИЗ Справочник.Номенклатура КАК Номенклатура

1 2 3 4 5 6 7

1C      ВЫБРАТЬ          Справочник.Номенклатура.Ссылка,          Справочник.Номенклатура.Наименование,          Справочник.Номенклатура.Ссылка В (&ВыбранныеЭлементы) КАК Пометка      ИЗ          Справочник.Номенклатура КАК Номенклатура

3. **Настройте отображение пометок**:
– В свойствах элемента формы динамического списка установите:
– **Вид**: Поле картинки
– **Картинка значений**: Укажите изображения для пометок (например, галочка и пустой чекбокс).
– **Гиперссылка ячейки**: Установите в значение “Да”.

4. **Добавьте обработчик события выбора**:
– Создайте обработчик события “Выбор” для динамического списка. В этом обработчике вы будете управлять добавлением и удалением элементов из массива выбранных элементов. Пример кода:

1С (Код)

1C &НаКлиенте Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка) Если Поле = Элементы.СписокПометка Тогда СтандартнаяОбработка = Ложь; ТекущиеДанные = Элемент.ТекущиеДанные; Если ТекущиеДанные Неопределено Тогда Если ТекущиеДанные.Пометка Тогда СнятьПометку(ТекущиеДанные.Ссылка); Иначе ПоставитьПометку(ТекущиеДанные.Ссылка); КонецЕсли; КонецЕсли; КонецЕсли; Список.Обновить(); КонецПроцедуры

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

1C      &НаКлиенте      Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)          Если Поле = Элементы.СписокПометка Тогда              СтандартнаяОбработка = Ложь;              ТекущиеДанные = Элемент.ТекущиеДанные;              Если ТекущиеДанные  Неопределено Тогда                  Если ТекущиеДанные.Пометка Тогда                      СнятьПометку(ТекущиеДанные.Ссылка);                  Иначе                      ПоставитьПометку(ТекущиеДанные.Ссылка);                  КонецЕсли;              КонецЕсли;          КонецЕсли;          Список.Обновить();      КонецПроцедуры

5. **Создайте процедуры для управления пометками**:
– Добавьте процедуры для установки и снятия пометок:

1С (Код)

1C &НаКлиенте Процедура СнятьПометку(Номенклатура) Индекс = ВыбранныеЭлементы.Найти(Номенклатура); Если Индекс >= 0 Тогда ВыбранныеЭлементы.Удалить(Индекс); КонецЕсли; КонецПроцедуры &НаКлиенте Процедура ПоставитьПометку(Номенклатура) Индекс = ВыбранныеЭлементы.Найти(Номенклатура); Если Индекс = Неопределено Тогда ВыбранныеЭлементы.Добавить(Номенклатура); КонецЕсли; КонецПроцедуры

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

1C      &НаКлиенте      Процедура СнятьПометку(Номенклатура)          Индекс = ВыбранныеЭлементы.Найти(Номенклатура);          Если Индекс >= 0 Тогда              ВыбранныеЭлементы.Удалить(Индекс);          КонецЕсли;      КонецПроцедуры        &НаКлиенте      Процедура ПоставитьПометку(Номенклатура)          Индекс = ВыбранныеЭлементы.Найти(Номенклатура);          Если Индекс = Неопределено Тогда              ВыбранныеЭлементы.Добавить(Номенклатура);          КонецЕсли;      КонецПроцедуры

6. **Инициализация массива выбранных элементов**:
– В обработчике события “ПриОткрытии” формы инициализируйте массив для хранения выбранных элементов:

1С (Код)

1C &НаКлиенте Процедура ПриОткрытии(Отказ) ВыбранныеЭлементы = Новый Массив; Список.Параметры.УстановитьЗначениеПараметра("ВыбранныеЭлементы", ВыбранныеЭлементы); КонецПроцедуры

1 2 3 4 5 6

1C      &НаКлиенте      Процедура ПриОткрытии(Отказ)          ВыбранныеЭлементы = Новый Массив;          Список.Параметры.УстановитьЗначениеПараметра("ВыбранныеЭлементы", ВыбранныеЭлементы);      КонецПроцедуры

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

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/1273816/

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

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

1. **Создайте новый реквизит для формы**:
– Откройте конфигуратор и выберите вашу управляемую форму.
– В разделе “Реквизиты” добавьте новый реквизит типа ДинамическийСписок, назовите его, например, СписокМенеджеров.

2. **Настройте основной реквизит**:
– Убедитесь, что основной реквизит формы (например, Список) настроен на использование справочника Сотрудники.

3. **Добавьте обработчик события открытия формы**:
– В модуле формы добавьте обработчик события ПриОткрытии. В этом обработчике вы будете заполнять список менеджеров.

4. **Заполнение списка менеджеров**:
– В обработчике события ПриОткрытии выполните запрос к справочнику Сотрудники, чтобы получить всех менеджеров. Например:

1С (Код)

1C &НаКлиенте Процедура ПриОткрытии() // Создаем запрос для получения сотрудников с пометкой "Менеджер" Запрос = Новый Запрос; Запрос.Текст = " ВЫБРАТЬ Сотрудники.Ссылка, Сотрудники.Наименование ИЗ Справочник.Сотрудники КАК Сотрудники ГДЕ Сотрудники.Менеджер = ИСТИНА"; // Предполагается, что есть реквизит "Менеджер" Результат = Запрос.Выполнить(); // Заполняем динамический список СписокМенеджеров.Очистить(); Для Каждого Строка Из Результат.Выборка() Цикл НоваяСтрока = СписокМенеджеров.Добавить(); НоваяСтрока.Менеджер = Строка.Ссылка; // Ссылка на сотрудника НоваяСтрока.Наименование = Строка.Наименование; // Наименование сотрудника КонецЦикла; КонецПроцедуры

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

1C &НаКлиенте Процедура ПриОткрытии()     // Создаем запрос для получения сотрудников с пометкой "Менеджер"     Запрос = Новый Запрос;     Запрос.Текст = "         ВЫБРАТЬ             Сотрудники.Ссылка,             Сотрудники.Наименование         ИЗ             Справочник.Сотрудники КАК Сотрудники         ГДЕ             Сотрудники.Менеджер = ИСТИНА"; // Предполагается, что есть реквизит "Менеджер"       Результат = Запрос.Выполнить();          // Заполняем динамический список     СписокМенеджеров.Очистить();     Для Каждого Строка Из Результат.Выборка() Цикл         НоваяСтрока = СписокМенеджеров.Добавить();         НоваяСтрока.Менеджер = Строка.Ссылка; // Ссылка на сотрудника         НоваяСтрока.Наименование = Строка.Наименование; // Наименование сотрудника     КонецЦикла; КонецПроцедуры

5. **Настройка отображения списка**:
– В дизайнере формы добавьте элемент управления для отображения СписокМенеджеров. Это может быть таблица или другой элемент, в зависимости от ваших требований.

6. **Проверка работы**:
– Сохраните изменения и запустите форму. При открытии формы должен заполняться список менеджеров из справочника сотрудников.

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

Рекомендую посмотреть здесь: [Документация 1С](https://its.1c.ru/db/v8std/content/1000/hdoc)

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

Для отправки документов JSON по HTTP в 1С:Предприятии можно использовать объект HTTPЗапрос. Вот пример кода, который демонстрирует, как это сделать:

1С (Код)

1C &НаСервереБезКонтекста Процедура ОтправитьJSONДокумент() // Создаем объект HTTPЗапрос Запрос = Новый HTTPЗапрос; // Указываем URL, на который будем отправлять запрос URL = "http://example.com/api/endpoint"; // Замените на ваш URL Запрос.УстановитьURL(URL); // Устанавливаем заголовки Запрос.ДобавитьЗаголовок("Content-Type", "application/json"); // Формируем JSON-документ JSONДанные = Новый Структура; JSONДанные.Вставить("Код", "000000017"); JSONДанные.Вставить("Наименование", "ОАО Топаз"); JSONДанные.Вставить("Телефоны", Новый Массив("8-999-777-55-33", "+71112223344")); JSONДанные.Вставить("ОбъемПродаж", 5000000); JSONДанные.Вставить("Поставщик?", Ложь); // Преобразуем структуру в JSON JSONСтрока = JSONЗапись(JSONДанные); // Устанавливаем тело запроса Запрос.УстановитьТело(JSONСтрока); // Отправляем запрос Ответ = HTTPСоединение.Отправить(Запрос); // Обрабатываем ответ Если Ответ.КодСостояния = 200 Тогда Сообщить("Документ успешно отправлен."); Иначе Сообщить("Ошибка отправки документа: " + Ответ.КодСостояния + " " + Ответ.ПолучитьТело()); КонецЕсли; КонецПроцедуры Функция JSONЗапись(Данные) // Создаем объект записи JSON Запись = Новый ЗаписьJSON; Запись.УстановитьСтроку(Новый Строка); // Записываем данные в JSON Запись.ЗаписатьНачалоОбъекта(); Для Каждого Параметр Из Данные Цикл Запись.ЗаписатьИмяСвойства(Параметр.Ключ); Запись.ЗаписатьЗначение(Параметр.Значение); КонецЦикла; Запись.ЗаписатьКонецОбъекта(); // Возвращаем JSON-строку Возврат Запись.ПолучитьСтроку(); КонецФункции

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

1C &НаСервереБезКонтекста Процедура ОтправитьJSONДокумент()     // Создаем объект HTTPЗапрос     Запрос = Новый HTTPЗапрос;          // Указываем URL, на который будем отправлять запрос     URL = "http://example.com/api/endpoint"; // Замените на ваш URL     Запрос.УстановитьURL(URL);          // Устанавливаем заголовки     Запрос.ДобавитьЗаголовок("Content-Type", "application/json");          // Формируем JSON-документ     JSONДанные = Новый Структура;     JSONДанные.Вставить("Код", "000000017");     JSONДанные.Вставить("Наименование", "ОАО Топаз");     JSONДанные.Вставить("Телефоны", Новый Массив("8-999-777-55-33", "+71112223344"));     JSONДанные.Вставить("ОбъемПродаж", 5000000);     JSONДанные.Вставить("Поставщик?", Ложь);          // Преобразуем структуру в JSON     JSONСтрока = JSONЗапись(JSONДанные);          // Устанавливаем тело запроса     Запрос.УстановитьТело(JSONСтрока);          // Отправляем запрос     Ответ = HTTPСоединение.Отправить(Запрос);          // Обрабатываем ответ     Если Ответ.КодСостояния = 200 Тогда         Сообщить("Документ успешно отправлен.");     Иначе         Сообщить("Ошибка отправки документа: " + Ответ.КодСостояния + " " + Ответ.ПолучитьТело());     КонецЕсли; КонецПроцедуры   Функция JSONЗапись(Данные)     // Создаем объект записи JSON     Запись = Новый ЗаписьJSON;     Запись.УстановитьСтроку(Новый Строка);          // Записываем данные в JSON     Запись.ЗаписатьНачалоОбъекта();     Для Каждого Параметр Из Данные Цикл         Запись.ЗаписатьИмяСвойства(Параметр.Ключ);         Запись.ЗаписатьЗначение(Параметр.Значение);     КонецЦикла;     Запись.ЗаписатьКонецОбъекта();          // Возвращаем JSON-строку     Возврат Запись.ПолучитьСтроку(); КонецФункции

В этом примере:
– Мы создаем HTTP-запрос и устанавливаем URL.
– Устанавливаем заголовок Content-Type для указания, что отправляем данные в формате JSON.
– Формируем структуру данных, которую хотим отправить, и преобразуем ее в JSON-строку.
– Устанавливаем тело запроса и отправляем его.
– Обрабатываем ответ от сервера.

Не забудьте заменить http://example.com/api/endpoint на ваш фактический URL.

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

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

Для подключения к MS SQL Server 2022 с использованием объекта ADODB.Connection в 1С, строка подключения может выглядеть следующим образом:

1С (Код)

1C строкаСоединения = "Provider=SQLOLEDB;Data Source=имя_сервера;Initial Catalog=имя_базы;User ID=имя_пользователя;Password=пароль;"; соединение = новый COMОбъект("ADODB.Connection"); соединение.Open(строкаСоединения);

1 2 3 4

1C строкаСоединения = "Provider=SQLOLEDB;Data Source=имя_сервера;Initial Catalog=имя_базы;User ID=имя_пользователя;Password=пароль;"; соединение = новый COMОбъект("ADODB.Connection"); соединение.Open(строкаСоединения);

Здесь:
– имя_сервера — это имя вашего SQL сервера или его IP-адрес.
– имя_базы — это имя базы данных, к которой вы хотите подключиться.
– имя_пользователя и пароль — это учетные данные для доступа к базе данных.

Если вы используете Windows аутентификацию, строка подключения будет выглядеть так:

1С (Код)

1C строкаСоединения = "Provider=SQLOLEDB;Data Source=имя_сервера;Initial Catalog=имя_базы;Integrated Security=SSPI;";

1 2	1C строкаСоединения = "Provider=SQLOLEDB;Data Source=имя_сервера;Initial Catalog=имя_базы;Integrated Security=SSPI;";

В этом случае Integrated Security=SSPI позволяет использовать текущие учетные данные Windows для подключения.

Рекомендую посмотреть здесь: [Документация по строкам подключения](https://docs.microsoft.com/en-us/sql/connect/ado/connection-strings?view=sql-server-ver15).

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

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

Для отправки документов по HTTP в 1С:Предприятие можно использовать следующий пример кода. Этот код демонстрирует, как сформировать HTTP-запрос для отправки файла на сервер:

1С (Код)

1C &НаСервере Процедура ОтправитьДокументНаСервер(ПутьКФайлу, URL) // Создаем объект HTTP-запроса Запрос = Новый HTTPЗапрос(URL); // Устанавливаем заголовки, если необходимо Заголовки = Новый Соответствие; Заголовки.Вставить("Content-Type", "application/octet-stream"); Запрос.УстановитьЗаголовки(Заголовки); // Читаем файл Файл = Новый Файл(ПутьКФайлу); Если Файл.Существует() Тогда Данные = Новый ДвоичныеДанные(Файл.Прочитать()); Запрос.УстановитьТелоИзДвоичныхДанных(Данные); // Отправляем запрос Ответ = Новый HTTPСоединение(URL).ВызватьHTTPМетод("POST", Запрос); // Обработка ответа Если Ответ.КодСостояния = 200 Тогда Сообщить("Документ успешно отправлен."); Иначе Сообщить("Ошибка отправки документа: " + Ответ.КодСостояния + " " + Ответ.Текст); КонецЕсли; Иначе Сообщить("Файл не найден: " + ПутьКФайлу); КонецЕсли; КонецПроцедуры

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

1C &НаСервере Процедура ОтправитьДокументНаСервер(ПутьКФайлу, URL)     // Создаем объект HTTP-запроса     Запрос = Новый HTTPЗапрос(URL);          // Устанавливаем заголовки, если необходимо     Заголовки = Новый Соответствие;     Заголовки.Вставить("Content-Type", "application/octet-stream");     Запрос.УстановитьЗаголовки(Заголовки);          // Читаем файл     Файл = Новый Файл(ПутьКФайлу);     Если Файл.Существует() Тогда         Данные = Новый ДвоичныеДанные(Файл.Прочитать());         Запрос.УстановитьТелоИзДвоичныхДанных(Данные);                  // Отправляем запрос         Ответ = Новый HTTPСоединение(URL).ВызватьHTTPМетод("POST", Запрос);                  // Обработка ответа         Если Ответ.КодСостояния = 200 Тогда             Сообщить("Документ успешно отправлен.");         Иначе             Сообщить("Ошибка отправки документа: " + Ответ.КодСостояния + " " + Ответ.Текст);         КонецЕсли;     Иначе         Сообщить("Файл не найден: " + ПутьКФайлу);     КонецЕсли; КонецПроцедуры

### Объяснение кода:
1. **Создание HTTP-запроса**: Мы создаем объект HTTPЗапрос с указанным URL.
2. **Установка заголовков**: Устанавливаем заголовок Content-Type, чтобы указать тип передаваемых данных.
3. **Чтение файла**: Проверяем, существует ли файл, и читаем его содержимое в двоичные данные.
4. **Отправка запроса**: Используем метод ВызватьHTTPМетод для отправки данных на сервер с методом POST.
5. **Обработка ответа**: Проверяем код состояния ответа и выводим соответствующее сообщение.

Этот код можно адаптировать под ваши нужды, изменив URL и путь к файлу.

Если у вас есть дополнительные вопросы или нужна помощь с конкретными аспектами, дайте знать!

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

Привет, VLADIMIR!

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

1С (Код)

1C Процедура ПриОткрытии() Экспорт ЭлементыФормы.Номенклатура.Доступность = Не ЗначениеЗаполнено(ЭлементыФормы.Номенклатура.Значение); ЭлементыФормы.Процент.Доступность = Не ЗначениеЗаполнено(ЭлементыФормы.Процент.Значение); ЭлементыФормы.ДатаПо.Доступность = Не ЗначениеЗаполнено(ЭлементыФормы.ДатаПо.Значение); КонецПроцедуры

1 2 3 4 5 6

1C Процедура ПриОткрытии() Экспорт     ЭлементыФормы.Номенклатура.Доступность = Не ЗначениеЗаполнено(ЭлементыФормы.Номенклатура.Значение);     ЭлементыФормы.Процент.Доступность = Не ЗначениеЗаполнено(ЭлементыФормы.Процент.Значение);     ЭлементыФормы.ДатаПо.Доступность = Не ЗначениеЗаполнено(ЭлементыФормы.ДатаПо.Значение); КонецПроцедуры

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

Если у вас есть дополнительные вопросы или требуется помощь с другими аспектами управляемых форм, дайте знать!

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

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

Вот пример кода, который демонстрирует, как это сделать:

1С (Код)

1C &НаСервере Процедура МассивВТаблицуЗначений(Массив, ТаблицаЗначений, ИмяКолонки) // Проверяем, что массив не пустой Если Массив.Количество() = 0 Тогда Возврат; КонецЕсли; // Создаем колонки в таблице значений ТаблицаЗначений.Колонки.Добавить(ИмяКолонки); // Заполняем таблицу значениями из массива Для Каждого Элемент Из Массив Цикл НоваяСтрока = ТаблицаЗначений.Добавить(); НоваяСтрока[ИмяКолонки] = Элемент; КонецЦикла; КонецПроцедуры

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

1C &НаСервере Процедура МассивВТаблицуЗначений(Массив, ТаблицаЗначений, ИмяКолонки)     // Проверяем, что массив не пустой     Если Массив.Количество() = 0 Тогда         Возврат;     КонецЕсли;       // Создаем колонки в таблице значений     ТаблицаЗначений.Колонки.Добавить(ИмяКолонки);       // Заполняем таблицу значениями из массива     Для Каждого Элемент Из Массив Цикл         НоваяСтрока = ТаблицаЗначений.Добавить();         НоваяСтрока[ИмяКолонки] = Элемент;     КонецЦикла; КонецПроцедуры

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

1С (Код)

1C &НаСервере Процедура ПримерИспользования() МассивДанных = Новый Массив(); МассивДанных.Добавить("Значение1"); МассивДанных.Добавить("Значение2"); МассивДанных.Добавить("Значение3"); ТаблицаЗначений = Новый ТаблицаЗначений(); МассивВТаблицуЗначений(МассивДанных, ТаблицаЗначений, "Имя"); // Теперь ТаблицаЗначений заполнена данными из массива КонецПроцедуры

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

1C &НаСервере Процедура ПримерИспользования()     МассивДанных = Новый Массив();     МассивДанных.Добавить("Значение1");     МассивДанных.Добавить("Значение2");     МассивДанных.Добавить("Значение3");       ТаблицаЗначений = Новый ТаблицаЗначений();     МассивВТаблицуЗначений(МассивДанных, ТаблицаЗначений, "Имя");       // Теперь ТаблицаЗначений заполнена данными из массива КонецПроцедуры

### Описание:
1. **Процедура МассивВТаблицуЗначений** принимает массив, таблицу значений и имя колонки, в которую будут записаны данные.
2. **Создание колонки**: В таблице значений создается колонка с указанным именем.
3. **Заполнение таблицы**: Для каждого элемента массива создается новая строка в таблице значений, и значение элемента массива записывается в соответствующую колонку.

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

Рекомендую посмотреть здесь: https://infostart.ru/1c/articles/2152196/

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

Привет, Mikhail!

Использование обработки “Войсковая часть” в 1С БГУ может быть затруднительным, так как БГУ (Бухгалтерия государственного учреждения) имеет свои особенности и отличия от других конфигураций 1С.

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

2. **Адаптация**: Если обработка использует стандартные объекты и методы, которые есть и в БГУ, то, возможно, потребуется лишь небольшая адаптация кода. Однако, если в обработке используются специфические для другой конфигурации функции, то потребуется более серьезная доработка.

3. **Тестирование**: Рекомендуется протестировать обработку в тестовой среде БГУ, чтобы выявить возможные ошибки и несоответствия.

4. **Документация**: Ознакомьтесь с документацией по БГУ, чтобы понять, какие изменения могут потребоваться для корректной работы обработки.

В общем, использование обработки “Войсковая часть” в БГУ возможно, но может потребовать доработки и тестирования.

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

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

Привет, Данил!

Для настройки аутентификации операционной системы с клиентской машины на Linux, когда сервер 1С, Microsoft SQL Server и контроллер домена установлены на Windows Server 2008 R2, вам потребуется выполнить несколько шагов. Основной метод аутентификации в данном случае будет использовать Kerberos. Вот пошаговая инструкция:

### Шаг 1: Установка необходимых пакетов на Linux

Убедитесь, что на вашей клиентской машине под управлением Linux установлены необходимые пакеты для работы с Kerberos. Обычно это krb5-user, libkrb5-dev и другие зависимости. Установите их с помощью пакетного менеджера:

1С (Код)

bash sudo apt update sudo apt install krb5-user libkrb5-dev

1 2 3

bash sudo apt update sudo apt install krb5-user libkrb5-dev

### Шаг 2: Настройка конфигурации Kerberos

Отредактируйте файл конфигурации Kerberos /etc/krb5.conf, чтобы он соответствовал вашему домену. Пример конфигурации:

1С (Код)

ini [libdefaults] default_realm = DOMAIN.LOC dns_lookup_realm = false dns_lookup_kdc = true [realms] DOMAIN.LOC = { kdc = your.kdc.server admin_server = your.kdc.server } [domain_realm] .domain.loc = DOMAIN.LOC domain.loc = DOMAIN.LOC

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

ini [libdefaults]     default_realm = DOMAIN.LOC     dns_lookup_realm = false     dns_lookup_kdc = true   [realms]     DOMAIN.LOC = {         kdc = your.kdc.server         admin_server = your.kdc.server     }   [domain_realm]     .domain.loc = DOMAIN.LOC     domain.loc = DOMAIN.LOC

Замените your.kdc.server на имя вашего контроллера домена.

### Шаг 3: Создание ключевого табличного файла (keytab)

На контроллере домена создайте пользователя для 1С и сгенерируйте ключевой файл (keytab). Используйте утилиту ktpass:

1С (Код)

bash ktpass -princ usr1cv8/srv-1cserver.domain.ru@DOMAIN.LOC -mapuser usr1cv8 -pass YourPassword -out usr1cv8.keytab

1 2	bash ktpass -princ usr1cv8/srv-1cserver.domain.ru@DOMAIN.LOC -mapuser usr1cv8 -pass YourPassword -out usr1cv8.keytab

Скопируйте полученный файл usr1cv8.keytab на клиентскую машину в удобное место, например, /etc/krb5.keytab.

### Шаг 4: Проверка Kerberos

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

1С (Код)

bash kinit -k -t /etc/krb5.keytab usr1cv8/srv-1cserver.domain.ru@DOMAIN.LOC

1 2	bash kinit -k -t /etc/krb5.keytab usr1cv8/srv-1cserver.domain.ru@DOMAIN.LOC

Если все настроено правильно, команда не должна выдавать ошибок.

### Шаг 5: Настройка 1С

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

1. Откройте 1С и перейдите в раздел «Администрирование».
2. Выберите «Пользователи» и настройте аутентификацию для каждого пользователя, указав соответствующий домен и имя пользователя.

### Шаг 6: Тестирование

Попробуйте подключиться к серверу 1С с клиентской машины под управлением Linux. Убедитесь, что аутентификация проходит успешно.

### Заключение

Следуя этим шагам, вы сможете настроить аутентификацию операционной системы с клиентской машины на Linux для работы с сервером 1С, Microsoft SQL Server и контроллером домена на Windows Server 2008 R2.

Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать!

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

Ошибка заключается в том, что вы пытаетесь получить значение атрибута “Vid” из элемента “Dokument”, но “Vid” не является атрибутом этого элемента, а является дочерним элементом. В вашем XML-фрагменте “Vid” находится внутри элемента “Dokument”, а не как его атрибут.

Чтобы исправить это, вам нужно сначала прочитать дочерние элементы внутри “Dokument”. Вот пример, как это можно сделать:

1С (Код)

1C ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.ОткрытьФайл(ПутьКФайлу); Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Dokument" Тогда Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Vid" Тогда Вид = ЧтениеXML.Значение; // Получаем значение элемента Vid Сообщить("Вид: " + Вид); КонецЕсли; Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента И ЧтениеXML.Имя = "Dokument" Тогда // Выходим из цикла, когда достигли конца элемента Dokument break; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; ЧтениеXML.Закрыть();

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

1C ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.ОткрытьФайл(ПутьКФайлу);       Пока ЧтениеXML.Прочитать() Цикл     Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Dokument" Тогда         Пока ЧтениеXML.Прочитать() Цикл             Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Vid" Тогда                 Вид = ЧтениеXML.Значение; // Получаем значение элемента Vid                 Сообщить("Вид: " + Вид);             КонецЕсли;             Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента И ЧтениеXML.Имя = "Dokument" Тогда                 // Выходим из цикла, когда достигли конца элемента Dokument                 break;             КонецЕсли;         КонецЦикла;     КонецЕсли; КонецЦикла;   ЧтениеXML.Закрыть();

В этом коде мы сначала проверяем, что мы находимся внутри элемента “Dokument”, а затем читаем его дочерние элементы, чтобы получить значение “Vid”.

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

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

Здравствуйте, Наталья!

Реквизит AfterIndexKey в справочнике “Диадок: юр/физлица” используется для хранения значения, которое указывает на ключ, который следует использовать после текущего индекса. Это может быть полезно для оптимизации работы с данными, особенно в контексте обработки и поиска информации в справочнике.

Основные функции этого реквизита могут включать:

1. **Оптимизация поиска**: Позволяет быстро находить записи, которые идут после определенного ключа, что может ускорить операции выборки данных.
2. **Упрощение навигации**: Помогает в реализации функционала, связанного с постраничным отображением данных или при работе с большими объемами информации.
3. **Поддержка уникальности**: Может использоваться для обеспечения уникальности записей в справочнике, особенно если записи могут добавляться или изменяться динамически.

Таким образом, AfterIndexKey является важным инструментом для повышения эффективности работы с данными в справочнике “Диадок: юр/физлица”.

Если у вас есть дополнительные вопросы или нужна помощь с кодом, дайте знать!

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

Сергей, вот пример кода для загрузки прихода из XML файла в 1С. Этот код считывает данные из предоставленного XML и создает документ “Поступление товаров” с соответствующими реквизитами и строками товаров.

1С (Код)

1C &НаСервереФункция ЗагрузитьПриходИзXML(ПутьКФайлу) // Создаем объект для чтения XML ЧтениеXML = Новый ЧтениеXML; ЧтениеXML.ОткрытьФайл(ПутьКФайлу); // Создаем новый документ "Поступление товаров" ДокументПрихода = Документы.ПоступлениеТоваров.СоздатьДокумент(); // Читаем корневой элемент ЧтениеXML.Прочитать(); Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "issuance" Тогда // Читаем данные документа ЧтениеXML.Прочитать(); Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Dokument" Тогда // Читаем реквизиты документа Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда Если ЧтениеXML.Имя = "Vid" Тогда ДокументПрихода.Вид = ЧтениеXML.ЧитатьТекст(); КонецЕсли; Если ЧтениеXML.Имя = "DataDok" Тогда ДокументПрихода.Дата = ЧтениеXML.ЧитатьТекст(); КонецЕсли; Если ЧтениеXML.Имя = "NomerDok" Тогда ДокументПрихода.Номер = ЧтениеXML.ЧитатьТекст(); КонецЕсли; Если ЧтениеXML.Имя = "SkladOtpravitel" Тогда ДокументПрихода.СкладОтправитель = ЧтениеXML.ЧитатьТекст(); КонецЕсли; Если ЧтениеXML.Имя = "SkladPoluchatel" Тогда ДокументПрихода.СкладПолучатель = ЧтениеXML.ЧитатьТекст(); КонецЕсли; КонецЕсли; Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда Если ЧтениеXML.Имя = "Dokument" Тогда // Переходим к чтению товаров Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; // Читаем товары Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Tovar" Тогда // Создаем строку товара СтрокаТовара = ДокументПрихода.Товары.Добавить(); Пока ЧтениеXML.Прочитать() Цикл Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда Если ЧтениеXML.Имя = "Tovar_Artikul" Тогда СтрокаТовара.Артикул = ЧтениеXML.ЧитатьТекст(); КонецЕсли; Если ЧтениеXML.Имя = "Tovar_Name" Тогда СтрокаТовара.Наименование = ЧтениеXML.ЧитатьТекст(); КонецЕсли; Если ЧтениеXML.Имя = "Tovar_Kol" Тогда СтрокаТовара.Количество = Число(ЧтениеXML.ЧитатьТекст()); КонецЕсли; Если ЧтениеXML.Имя = "Tovar_CenaRealizaciiUchetnaya" Тогда СтрокаТовара.Цена = Число(ЧтениеXML.ЧитатьТекст()); КонецЕсли; КонецЕсли; Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда Если ЧтениеXML.Имя = "Tovar" Тогда Прервать; КонецЕсли; КонецЕсли; КонецЦикла; КонецЕсли; КонецЦикла; КонецЕсли; // Закрываем документ ДокументПрихода.Записать(); ЧтениеXML.Закрыть(); КонецФункции

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80

1C &НаСервереФункция ЗагрузитьПриходИзXML(ПутьКФайлу)     // Создаем объект для чтения XML     ЧтениеXML = Новый ЧтениеXML;     ЧтениеXML.ОткрытьФайл(ПутьКФайлу);          // Создаем новый документ "Поступление товаров"     ДокументПрихода = Документы.ПоступлениеТоваров.СоздатьДокумент();          // Читаем корневой элемент     ЧтениеXML.Прочитать();     Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "issuance" Тогда         // Читаем данные документа         ЧтениеXML.Прочитать();         Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Dokument" Тогда             // Читаем реквизиты документа             Пока ЧтениеXML.Прочитать() Цикл                 Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда                     Если ЧтениеXML.Имя = "Vid" Тогда                         ДокументПрихода.Вид = ЧтениеXML.ЧитатьТекст();                     КонецЕсли;                     Если ЧтениеXML.Имя = "DataDok" Тогда                         ДокументПрихода.Дата = ЧтениеXML.ЧитатьТекст();                     КонецЕсли;                     Если ЧтениеXML.Имя = "NomerDok" Тогда                         ДокументПрихода.Номер = ЧтениеXML.ЧитатьТекст();                     КонецЕсли;                     Если ЧтениеXML.Имя = "SkladOtpravitel" Тогда                         ДокументПрихода.СкладОтправитель = ЧтениеXML.ЧитатьТекст();                     КонецЕсли;                     Если ЧтениеXML.Имя = "SkladPoluchatel" Тогда                         ДокументПрихода.СкладПолучатель = ЧтениеXML.ЧитатьТекст();                     КонецЕсли;                 КонецЕсли;                                  Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда                     Если ЧтениеXML.Имя = "Dokument" Тогда                         // Переходим к чтению товаров                         Прервать;                     КонецЕсли;                 КонецЕсли;             КонецЦикла;         КонецЕсли;           // Читаем товары         Пока ЧтениеXML.Прочитать() Цикл             Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента И ЧтениеXML.Имя = "Tovar" Тогда                 // Создаем строку товара                 СтрокаТовара = ДокументПрихода.Товары.Добавить();                                  Пока ЧтениеXML.Прочитать() Цикл                     Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда                         Если ЧтениеXML.Имя = "Tovar_Artikul" Тогда                             СтрокаТовара.Артикул = ЧтениеXML.ЧитатьТекст();                         КонецЕсли;                         Если ЧтениеXML.Имя = "Tovar_Name" Тогда                             СтрокаТовара.Наименование = ЧтениеXML.ЧитатьТекст();                         КонецЕсли;                         Если ЧтениеXML.Имя = "Tovar_Kol" Тогда                             СтрокаТовара.Количество = Число(ЧтениеXML.ЧитатьТекст());                         КонецЕсли;                         Если ЧтениеXML.Имя = "Tovar_CenaRealizaciiUchetnaya" Тогда                             СтрокаТовара.Цена = Число(ЧтениеXML.ЧитатьТекст());                         КонецЕсли;                     КонецЕсли;                       Если ЧтениеXML.ТипУзла = ТипУзлаXML.КонецЭлемента Тогда                         Если ЧтениеXML.Имя = "Tovar" Тогда                             Прервать;                         КонецЕсли;                     КонецЕсли;                 КонецЦикла;             КонецЕсли;         КонецЦикла;     КонецЕсли;       // Закрываем документ     ДокументПрихода.Записать();     ЧтениеXML.Закрыть(); КонецФункции

### Описание кода:
1. **Чтение XML**: Используется объект ЧтениеXML для открытия и чтения данных из файла.
2. **Создание документа**: Создается новый документ “Поступление товаров”.
3. **Чтение реквизитов**: Извлекаются реквизиты документа из XML.
4. **Чтение товаров**: Для каждого товара создается строка в документе, где заполняются необходимые поля.
5. **Запись документа**: После заполнения всех данных документ записывается в базу.

Этот код можно вызывать, передавая путь к XML файлу, например:

1С (Код)

1C ЗагрузитьПриходИзXML("C:pathtoyourfile.xml");

1 2	1C ЗагрузитьПриходИзXML("C:pathtoyourfile.xml");

Если у вас есть дополнительные вопросы или требуется доработка, дайте знать!

[Автор]

Сообщения