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

Привет, Шура!

Для того чтобы сделать запрос заказов Новой Почты через API, вам нужно выполнить несколько шагов. Ниже приведен пример, как это можно сделать на языке 1С.

1. **Получите API ключ**: Для работы с API Новой Почты вам необходимо зарегистрироваться на сайте Новой Почты и получить API ключ.

2. **Создайте HTTP соединение**: Используйте объект HTTPСоединение для отправки запросов к API.

3. **Сформируйте запрос**: Вам нужно будет сформировать JSON-объект с необходимыми параметрами для запроса заказов.

4. **Отправьте запрос**: Используйте метод ОтправитьДляОбработки для отправки запроса и получения ответа.

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

1С (Код)

1C Процедура ЗапросЗаказовНовойПочты() // Создаем HTTP соединение АдресСервиса = "https://api.novaposhta.ua/v2.0/json/"; HTTPСоединение = Новый HTTPСоединение(АдресСервиса); // Формируем тело запроса Запрос = Новый Структура; Запрос.Вставить("apiKey", "ВАШ_API_КЛЮЧ"); // Замените на ваш API ключ Запрос.Вставить("modelName", "Order"); Запрос.Вставить("calledMethod", "getOrders"); Запрос.Вставить("methodProperties", Новый Структура); // Здесь можно указать дополнительные параметры // Преобразуем запрос в JSON JSONЗапрос = В_JSON(Запрос); // Создаем HTTP запрос HTTPЗапрос = Новый HTTPЗапрос("/v2.0/json/"); HTTPЗапрос.УстановитьТелоИзСтроки(JSONЗапрос, КодировкаТекста.UTF8); HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/json"); // Отправляем запрос и получаем ответ Попытка Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос); Если Ответ.КодСостояния = 200 Тогда СтрокаОтвета = Ответ.ПолучитьТелоКакСтроку(); СоответствиеОтвета = ИЗ_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

1C Процедура ЗапросЗаказовНовойПочты()     // Создаем HTTP соединение     АдресСервиса = "https://api.novaposhta.ua/v2.0/json/";     HTTPСоединение = Новый HTTPСоединение(АдресСервиса);          // Формируем тело запроса     Запрос = Новый Структура;     Запрос.Вставить("apiKey", "ВАШ_API_КЛЮЧ"); // Замените на ваш API ключ     Запрос.Вставить("modelName", "Order");     Запрос.Вставить("calledMethod", "getOrders");     Запрос.Вставить("methodProperties", Новый Структура); // Здесь можно указать дополнительные параметры          // Преобразуем запрос в JSON     JSONЗапрос = В_JSON(Запрос);          // Создаем HTTP запрос     HTTPЗапрос = Новый HTTPЗапрос("/v2.0/json/");     HTTPЗапрос.УстановитьТелоИзСтроки(JSONЗапрос, КодировкаТекста.UTF8);     HTTPЗапрос.Заголовки.Вставить("Content-Type", "application/json");          // Отправляем запрос и получаем ответ     Попытка         Ответ = HTTPСоединение.ОтправитьДляОбработки(HTTPЗапрос);         Если Ответ.КодСостояния = 200 Тогда             СтрокаОтвета = Ответ.ПолучитьТелоКакСтроку();             СоответствиеОтвета = ИЗ_JSON(СтрокаОтвета);             // Обработка ответа             Сообщить("Ответ: " + СтрокаОтвета);         Иначе             Сообщить("Ошибка: " + Ответ.КодСостояния + " - " + Ответ.ПолучитьТелоКакСтроку());         КонецЕсли;     Исключение         Сообщить("Ошибка при отправке запроса: " + ОписаниеОшибки());     КонецПопытки; КонецПроцедуры

### Параметры запроса
— apiKey: Ваш API ключ, полученный от Новой Почты.
— modelName: Указывает, с какой моделью вы работаете (в данном случае «Order»).
— calledMethod: Метод, который вы хотите вызвать (в данном случае «getOrders»).
— methodProperties: Дополнительные параметры для метода, если они необходимы.

### Примечания
— Убедитесь, что у вас есть доступ к интернету и что API Новой Почты доступен.
— Проверьте документацию Новой Почты для получения более подробной информации о доступных методах и параметрах.

Рекомендую посмотреть здесь: [Документация Новой Почты](https://novaposhta.ua/en/api).

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

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

Ошибка «Неверный формат файла для загрузки информационной базы» при загрузке файла .dt может возникать по нескольким причинам:

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

2. **Поврежденный файл**: Файл .dt может быть поврежден или неполным, что приводит к ошибкам при его обработке.

3. **Неверный формат файла**: Файл может не соответствовать ожидаемому формату, например, если он был неправильно экспортирован или изменен.

4. **Несоответствие конфигурации**: Конфигурация базы данных, из которой был создан файл, может не совпадать с конфигурацией базы, в которую вы пытаетесь загрузить данные.

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

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

Ошибка «Метод объекта не обнаружен (ПриОпределенииНастроекПечати)» возникает, когда в коде вызывается метод, который не определен для данного объекта. В данном случае, это может быть связано с тем, что вы пытаетесь вызвать метод ПриОпределенииНастроекПечати для объекта, который не имеет этого метода.

Вот несколько шагов, которые могут помочь вам решить эту проблему:

1. **Проверьте наличие метода**: Убедитесь, что метод ПриОпределенииНастроекПечати действительно определен в модуле объекта, к которому вы обращаетесь. Если метод отсутствует, его нужно добавить.

2. **Проверьте правильность имени**: Убедитесь, что вы правильно указали имя метода. В 1С имена методов чувствительны к регистру.

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

4. **Проверьте подключение модулей**: Убедитесь, что все необходимые модули подключены и доступны. Если метод определен в общем модуле, убедитесь, что он правильно подключен к вашему объекту.

5. **Логирование и отладка**: Добавьте логирование или используйте отладчик, чтобы понять, на каком этапе возникает ошибка и какой объект вызывает проблему.

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

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

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

1С (Код)

sql SELECT d.name AS DatabaseName, mf.name AS LogFileName, mf.size * 8 / 1024 AS SizeMB FROM sys.master_files mf JOIN sys.databases d ON mf.database_id = d.database_id WHERE mf.type_desc = 'LOG' ORDER BY SizeMB DESC;

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

sql SELECT     d.name AS DatabaseName,     mf.name AS LogFileName,     mf.size * 8 / 1024 AS SizeMB FROM     sys.master_files mf JOIN     sys.databases d ON mf.database_id = d.database_id WHERE     mf.type_desc = 'LOG' ORDER BY     SizeMB DESC;

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

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

1С (Код)

sql SELECT MAX(mf.size * 8 / 1024) AS MaxLogSizeMB FROM sys.master_files mf WHERE mf.type_desc = 'LOG';

1 2 3 4 5 6 7

sql SELECT     MAX(mf.size * 8 / 1024) AS MaxLogSizeMB FROM     sys.master_files mf WHERE     mf.type_desc = 'LOG';

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

Рекомендую посмотреть здесь: https://docs.microsoft.com/en-us/sql/relational-databases/system-catalog-views/sys-master-files-transact-sql?view=sql-server-ver15

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

Для автоматического сжатия (shrink) логов транзакций на сервере MS SQL можно использовать SQL Server Agent для создания задания, которое будет выполняться по расписанию. Вот пошаговая инструкция:

1. **Создание SQL-задания**:
— Откройте SQL Server Management Studio (SSMS).
— Перейдите в раздел «SQL Server Agent» и щелкните правой кнопкой мыши на «Jobs», выберите «New Job».

2. **Настройка задания**:
— Введите имя задания на вкладке «General».
— Перейдите на вкладку «Steps» и нажмите «New» для создания нового шага.
— Введите имя шага и выберите тип «Transact-SQL script (T-SQL)».
— В поле «Command» введите следующий скрипт, заменив YourDatabaseName на имя вашей базы данных:

1С (Код)

sql USE [YourDatabaseName]; ALTER DATABASE [YourDatabaseName] SET RECOVERY SIMPLE; DBCC SHRINKFILE (N'YourDatabaseName_log' , 1); ALTER DATABASE [YourDatabaseName] SET RECOVERY FULL;

1 2 3 4 5

sql      USE [YourDatabaseName];      ALTER DATABASE [YourDatabaseName] SET RECOVERY SIMPLE;      DBCC SHRINKFILE (N'YourDatabaseName_log' , 1);      ALTER DATABASE [YourDatabaseName] SET RECOVERY FULL;

3. **Настройка расписания**:
— Перейдите на вкладку «Schedules» и нажмите «New».
— Установите имя расписания и выберите частоту выполнения (например, ежедневно, еженедельно и т.д.).

4. **Сохранение задания**:
— Нажмите «OK» для сохранения задания.

5. **Мониторинг выполнения**:
— Убедитесь, что SQL Server Agent запущен, и следите за выполнением задания через «SQL Server Agent» -> «Jobs».

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

Рекомендую посмотреть здесь: https://winitpro.ru/index.php/2016/03/10/kak-urezat-tranzakcionnye-logi-v-sql-server-2012/

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

Рекомендуемый интервал перезапуска рабочих процессов в настройках локального кластера зависит от специфики работы вашей информационной базы и нагрузки на сервер. Обычно, для большинства случаев, интервал в 86400 секунд (24 часа) является оптимальным значением. Это позволяет избежать накопления проблем с памятью и обеспечивает стабильную работу системы.

Однако, если ваша система испытывает высокие нагрузки или вы замечаете проблемы с производительностью, можно рассмотреть более короткие интервалы, например, 12 или 6 часов. Важно также учитывать, что слишком частый перезапуск может негативно сказаться на производительности, так как каждый перезапуск требует времени на инициализацию новых процессов и загрузку контекстов.

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

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

Привет, Sergey!

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

1С (Код)

1C // Объект - это ссылка на документ ОбъектДокумента = Объект; // Перебираем строки табличной части Для Индекс = ОбъектДокумента.Товары.Количество() - 1 По 0 Цикл ТекущаяСтрока = ОбъектДокумента.Товары[Индекс]; // Проверяем, является ли строка пустой Если ТекущаяСтрока.Количество = 0 И ТекущаяСтрока.Цена = 0 Тогда // Удаляем пустую строку ОбъектДокумента.Товары.Удалить(ТекущаяСтрока); КонецЕсли; КонецЦикла; // Теперь можно записать документ ОбъектДокумента.Записать();

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

1C // Объект - это ссылка на документ ОбъектДокумента = Объект;   // Перебираем строки табличной части Для Индекс = ОбъектДокумента.Товары.Количество() - 1 По 0 Цикл     ТекущаяСтрока = ОбъектДокумента.Товары[Индекс];          // Проверяем, является ли строка пустой     Если ТекущаяСтрока.Количество = 0 И ТекущаяСтрока.Цена = 0 Тогда         // Удаляем пустую строку         ОбъектДокумента.Товары.Удалить(ТекущаяСтрока);     КонецЕсли; КонецЦикла;   // Теперь можно записать документ ОбъектДокумента.Записать();

В этом примере предполагается, что в табличной части «Товары» есть два реквизита: «Количество» и «Цена». Если оба реквизита равны нулю, строка считается пустой и удаляется.

Рекомендую посмотреть здесь: https://helpf.pro/faq/view/46.html

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

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

1. **Сканирование**: Сканер считывает штрих-код или QR-код, который содержит информацию, включая управляющие символы.

2. **Декодирование**: Сканер обрабатывает считанную информацию и декодирует ее, выделяя управляющие символы, которые могут использоваться для управления процессами в системе.

3. **Передача данных**: Декодированная информация, включая управляющие символы, передается в систему через выбранный интерфейс (например, USB, RS-232, Bluetooth и т.д.).

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

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

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

Рекомендую посмотреть здесь: [Документация по сканерам и интерфейсам](https://www.example.com).

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

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

Вот как можно это реализовать:

1. **На сервере**: Вместо возврата таблицы значений, преобразуйте её в массив структур.

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 25 26

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

2. **На клиенте**: Принимаем массив структур и преобразуем его обратно в таблицу значений.

1С (Код)

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

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

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

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

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

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

1. **Проверка данных**: Убедитесь, что в Объект.НовыйПлан действительно есть данные, соответствующие введённому тексту. Если данных нет, то автоподбор не сможет вернуть результаты.

2. **Логика автоподбора**: Ваша процедура использует функцию Общий.АвтоПодборПунктаНазначения, которая должна возвращать данные на основе введённого текста. Убедитесь, что эта функция корректно реализована и возвращает ожидаемые результаты. Возможно, стоит добавить отладочные сообщения, чтобы проверить, что именно возвращает эта функция.

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

4. **Условия для автоподбора**: Убедитесь, что условие Если СтрДлина(ТекстДляАвтоПодбора) < 3 действительно соответствует вашим требованиям. Возможно, стоит уменьшить минимальную длину текста для автоподбора.

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

6. **Стандартная обработка**: Если вы хотите, чтобы стандартная обработка выполнялась после вашего кода, убедитесь, что вы не устанавливаете СтандартнаяОбработка = Ложь в конце процедуры, если это не требуется.

Вот пример, как можно улучшить вашу процедуру:

1С (Код)

1C Процедура НовыйПланАдресов_ОтправленияИНазначения_АвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка) СтандартнаяОбработка = Ложь; ТекстДляАвтоПодбора = СокрЛП(Текст); Если СтрДлина(ТекстДляАвтоПодбора) < 3 Тогда Возврат; КонецЕсли; // Проверка наличия данных КоличествоСтрок = Объект.НовыйПлан.Количество(); Если КоличествоСтрок = 0 Тогда Возврат; // Нет данных для автоподбора КонецЕсли; // Получение адреса отправления Строка = КоличествоСтрок - 1; СтрокаДляАвтозаполнения = Объект.НовыйПлан.НайтиПоИдентификатору(Строка); Если СтрокаДляАвтозаполнения = Неопределено Тогда Возврат; // Не удалось найти строку КонецЕсли; АдресОтправления = СтрокаДляАвтозаполнения.АдресОтправления; МатрицаСтавок = Истина; // Подготовка структуры Структура = Новый Структура; Структура.Вставить("АдресОтправления", АдресОтправления); Структура.Вставить("МатрицаСтавок", МатрицаСтавок); Структура.Вставить("ТекстЗапол", Текст); // Вызов автоподбора ДанныеВыбора = Общий.АвтоПодборПунктаНазначения(Текст, , Структура); // Обработка результата автоподбора Если Не ЗначениеЗаполнено(ДанныеВыбора) Тогда Возврат; // Нет результатов для автоподбора КонецЕсли; // Здесь добавьте код для обработки и добавления результатов в интерфейс КонецПроцедуры

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

1C Процедура НовыйПланАдресов_ОтправленияИНазначения_АвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)      СтандартнаяОбработка = Ложь;     ТекстДляАвтоПодбора = СокрЛП(Текст);   Если СтрДлина(ТекстДляАвтоПодбора) < 3 Тогда          Возврат;   КонецЕсли;       // Проверка наличия данных   КоличествоСтрок = Объект.НовыйПлан.Количество();   Если КоличествоСтрок = 0 Тогда     Возврат; // Нет данных для автоподбора   КонецЕсли;     // Получение адреса отправления   Строка = КоличествоСтрок - 1;   СтрокаДляАвтозаполнения = Объект.НовыйПлан.НайтиПоИдентификатору(Строка);   Если СтрокаДляАвтозаполнения = Неопределено Тогда     Возврат; // Не удалось найти строку   КонецЕсли;     АдресОтправления = СтрокаДляАвтозаполнения.АдресОтправления;   МатрицаСтавок = Истина;      // Подготовка структуры   Структура = Новый Структура;   Структура.Вставить("АдресОтправления", АдресОтправления);   Структура.Вставить("МатрицаСтавок", МатрицаСтавок);   Структура.Вставить("ТекстЗапол", Текст);      // Вызов автоподбора   ДанныеВыбора = Общий.АвтоПодборПунктаНазначения(Текст, , Структура);      // Обработка результата автоподбора   Если Не ЗначениеЗаполнено(ДанныеВыбора) Тогда     Возврат; // Нет результатов для автоподбора   КонецЕсли;     // Здесь добавьте код для обработки и добавления результатов в интерфейс   КонецПроцедуры

Проверьте указанные моменты и внесите необходимые изменения в код.

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

Привет, Виталий!

Вот пример кода на 1С для поиска дублей в справочнике «Физические лица» по ИИН:

1С (Код)

1C Процедура НайтиДубликатыПоИИН() // Создаем временную таблицу для хранения найденных дубликатов ТаблицаДубликатов = Новый ТаблицаЗначений; ТаблицаДубликатов.Колонки.Add("ИИН", Новый ОписаниеТипов("Строка", 12)); ТаблицаДубликатов.Колонки.Add("Количество", Новый ОписаниеТипов("Число", 10)); // Запрашиваем данные из справочника "Физические лица" Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ФизическиеЛица.ИИН, СЧЕТ(ФизическиеЛица.ИИН) КАК Количество ИЗ Справочник.ФизическиеЛица КАК ФизическиеЛица ГДЕ ФизическиеЛица.ИИН '' GROUP BY ФизическиеЛица.ИИН HAVING СЧЕТ(ФизическиеЛица.ИИН) > 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 29 30 31 32 33 34 35 36 37 38 39 40 41

1C Процедура НайтиДубликатыПоИИН()     // Создаем временную таблицу для хранения найденных дубликатов     ТаблицаДубликатов = Новый ТаблицаЗначений;     ТаблицаДубликатов.Колонки.Add("ИИН", Новый ОписаниеТипов("Строка", 12));     ТаблицаДубликатов.Колонки.Add("Количество", Новый ОписаниеТипов("Число", 10));       // Запрашиваем данные из справочника "Физические лица"     Запрос = Новый Запрос;     Запрос.Текст =     "ВЫБРАТЬ         ФизическиеЛица.ИИН,         СЧЕТ(ФизическиеЛица.ИИН) КАК Количество     ИЗ         Справочник.ФизическиеЛица КАК ФизическиеЛица     ГДЕ         ФизическиеЛица.ИИН  ''     GROUP BY         ФизическиеЛица.ИИН     HAVING         СЧЕТ(ФизическиеЛица.ИИН) > 1";       Результат = Запрос.Выполнить();          // Заполняем временную таблицу дубликатов     Пока Результат.Выбрать() Цикл         НоваяСтрока = ТаблицаДубликатов.Добавить();         НоваяСтрока.ИИН = Результат.ИИН;         НоваяСтрока.Количество = Результат.Количество;     КонецЦикла;       // Выводим результаты     Если ТаблицаДубликатов.Количество() > 0 Тогда         Сообщить("Найдены дубликаты по ИИН:");         Для Каждого Строка Из ТаблицаДубликатов Цикл             Сообщить("ИИН: " + Строка.ИИН + ", Количество: " + Строка.Количество);         КонецЦикла;     Иначе         Сообщить("Дубликаты не найдены.");     КонецЕсли; КонецПроцедуры

Этот код создает запрос к справочнику «Физические лица», группирует записи по ИИН и находит те, у которых количество больше одного, что указывает на наличие дублей. Результаты выводятся в сообщениях.

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

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

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

1. **Несоответствие версий**: Убедитесь, что версии 1С:Документооборот и 1С:Бухгалтерии совместимы. Возможно, требуется обновление одной из конфигураций.

2. **Настройки интеграции**: Проверьте настройки интеграции между 1С:Бухгалтерией и 1С:Документооборот. Возможно, необходимо настроить параметры подключения или обновить конфигурацию.

3. **Объекты и метаданные**: Убедитесь, что все необходимые объекты и метаданные корректно настроены и доступны в системе.

4. **Логи и отладка**: Посмотрите логи выполнения, чтобы получить больше информации о том, что именно вызывает ошибку. Это может помочь в диагностике проблемы.

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

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

Для шифрования базы данных 1С в СУБД Microsoft SQL Server можно использовать Transparent Data Encryption (TDE). Этот метод шифрует данные на уровне базы данных, что обеспечивает защиту данных в состоянии покоя. Вот пример последовательности действий для настройки TDE:

1. **Создание мастер-ключа**:

1С (Код)

sql USE master; CREATE MASTER KEY ENCRYPTION BY PASSWORD = 'Ваш_Сложный_Пароль';

1 2 3

sql    USE master;    CREATE MASTER KEY ENCRYPTION BY PASSWORD = 'Ваш_Сложный_Пароль';

2. **Создание сертификата**:

1С (Код)

sql USE master; CREATE CERTIFICATE TDE_Certificate WITH SUBJECT = 'TDE Certificate';

1 2 3 4

sql    USE master;    CREATE CERTIFICATE TDE_Certificate    WITH SUBJECT = 'TDE Certificate';

3. **Создание базы данных** (если она еще не создана):

1С (Код)

sql CREATE DATABASE YourDatabaseName;

1 2	sql    CREATE DATABASE YourDatabaseName;

4. **Создание ключа шифрования базы данных**:

1С (Код)

sql USE YourDatabaseName; CREATE DATABASE ENCRYPTION KEY WITH ALGORITHM = AES_256 ENCRYPTION BY PASSWORD = 'Ваш_Сложный_Пароль';

1 2 3

sql    USE YourDatabaseName;    CREATE DATABASE ENCRYPTION KEY WITH ALGORITHM = AES_256 ENCRYPTION BY PASSWORD = 'Ваш_Сложный_Пароль';

5. **Включение шифрования базы данных**:

1С (Код)

sql ALTER DATABASE YourDatabaseName SET ENCRYPTION ON;

1 2 3

sql    ALTER DATABASE YourDatabaseName    SET ENCRYPTION ON;

6. **Проверка статуса шифрования**:

1С (Код)

sql SELECT name, is_encrypted FROM sys.databases WHERE name = 'YourDatabaseName';

1 2 3 4

sql    SELECT name, is_encrypted    FROM sys.databases    WHERE name = 'YourDatabaseName';

7. **Резервное копирование сертификата** (обязательно для восстановления):

1С (Код)

sql BACKUP CERTIFICATE TDE_Certificate TO FILE = 'C:PathToYourBackupTDE_Certificate.cer' WITH PRIVATE KEY ( FILE = 'C:PathToYourBackupTDE_PrivateKey.pvk', ENCRYPTION BY PASSWORD = 'Ваш_Сложный_Пароль' );

1 2 3 4 5 6 7

sql    BACKUP CERTIFICATE TDE_Certificate    TO FILE = 'C:PathToYourBackupTDE_Certificate.cer'    WITH PRIVATE KEY (        FILE = 'C:PathToYourBackupTDE_PrivateKey.pvk',        ENCRYPTION BY PASSWORD = 'Ваш_Сложный_Пароль'    );

После выполнения этих шагов ваша база данных будет зашифрована с использованием TDE. Не забудьте сохранить сертификат и ключ, так как они необходимы для восстановления базы данных в будущем.

Рекомендую посмотреть здесь: https://docs.microsoft.com/en-us/sql/relational-databases/security/encryption/transparent-data-encryption?view=sql-server-ver15

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

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

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

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 25 26 27 28 29 30 31 32 33

1C &НаКлиенте Процедура ВашаНоваяПроцедура()     // Создаем объект для табличного документа     ТабДок = Новый ТабличныйДокумент;       // Определяем параметры команды, если они нужны     ПараметрКоманды = Новый Структура;     // Здесь можно добавить необходимые параметры, например:     // ПараметрКоманды.Вставить("НекоторыйПараметр", Значение);       // Вызываем команду печати     ОбработкаКоманды(ПараметрКоманды, Неопределено); КонецПроцедуры   &НаКлиенте Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)     //{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)     ТабДок = Новый ТабличныйДокумент;     Печать(ТабДок, ПараметрКоманды);       ТабДок.ОтображатьСетку = Ложь;     ТабДок.Защита = Ложь;     ТабДок.ТолькоПросмотр = Ложь;     ТабДок.ОтображатьЗаголовки = Ложь;     ТабДок.Показать();     //}} КонецПроцедуры   &НаСервере Процедура Печать(ТабДок, ПараметрКоманды)     Документы.ЗаявлениеПоступающего.Печать(ТабДок, ПараметрКоманды); КонецПроцедуры

### Объяснение:
1. **Создание новой процедуры**: Ваша новая процедура (ВашаНоваяПроцедура) создает объект ТабДок для табличного документа.
2. **Определение параметров**: Вы можете создать структуру ПараметрКоманды, если вам нужно передать какие-либо параметры в процедуру печати.
3. **Вызов команды печати**: Вызовите ОбработкаКоманды, передав ей созданный табличный документ и параметры.

Таким образом, при выполнении ВашаНоваяПроцедура будет автоматически вызываться команда печати.

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

Привет, Денис!

Команда печати, реализованная в вашем коде, работает следующим образом:

1. **Создание табличного документа**: В начале процедуры ОбработкаКоманды создается новый объект ТабличныйДокумент, который будет использоваться для формирования печатной формы.

1С (Код)

1C ТабДок = Новый ТабличныйДокумент;

1 2	1C    ТабДок = Новый ТабличныйДокумент;

2. **Вызов процедуры печати**: Затем вызывается процедура Печать, передавая ей созданный табличный документ и параметры команды. Эта процедура, как правило, отвечает за заполнение табличного документа данными из объекта, который вы хотите распечатать.

1С (Код)

1C Печать(ТабДок, ПараметрКоманды);

1 2	1C    Печать(ТабДок, ПараметрКоманды);

3. **Настройка параметров табличного документа**: После вызова процедуры Печать, устанавливаются различные параметры для табличного документа:
— ОтображатьСетку = Ложь: отключает отображение сетки.
— Защита = Ложь: отключает защиту документа, позволяя редактировать его.
— ТолькоПросмотр = Ложь: позволяет редактировать документ, а не только просматривать.
— ОтображатьЗаголовки = Ложь: отключает отображение заголовков таблицы.

1С (Код)

1C ТабДок.ОтображатьСетку = Ложь; ТабДок.Защита = Ложь; ТабДок.ТолькоПросмотр = Ложь; ТабДок.ОтображатьЗаголовки = Ложь;

1 2 3 4 5

1C    ТабДок.ОтображатьСетку = Ложь;    ТабДок.Защита = Ложь;    ТабДок.ТолькоПросмотр = Ложь;    ТабДок.ОтображатьЗаголовки = Ложь;

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

1С (Код)

1C ТабДок.Показать();

1 2	1C    ТабДок.Показать();

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

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

[Автор]

Сообщения