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

Привет, Andrey!

Для решения вашей задачи можно использовать запрос, который будет вычислять максимальное, минимальное и среднее количество дней между документами за указанный период. Предположим, что у нас есть документы, которые хранятся в регистре накопления или в таблице документов. В примере ниже я буду использовать таблицу документов “Документ.Реализация”.

Вот пример запроса, который решает вашу задачу:

1С (Код)

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

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

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

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

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

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

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

В 1С:Управление производственным предприятием (УПП) версии 1.3.246.2 удалить помеченные объекты можно через меню “Администрирование”. Для этого выполните следующие шаги:

1. Откройте 1С:УПП.
2. Перейдите в раздел “Администрирование”.
3. Найдите пункт “Удаление помеченных объектов” или “Удаление помеченных на удаление”.
4. Запустите обработку, следуя инструкциям на экране.

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

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

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

1С (Код)

1C ВЫБРАТЬ Формат(ДатаДокумента, "ММММ ГГГГ") КАК Месяц ИЗ Документ.ВашДокумент ГДЕ ДатаДокумента = &ДатаДокумента

1 2 3 4 5 6 7

1C ВЫБРАТЬ     Формат(ДатаДокумента, "ММММ ГГГГ") КАК Месяц ИЗ     Документ.ВашДокумент ГДЕ     ДатаДокумента = &ДатаДокумента

В этом запросе:
– ДатаДокумента — это поле, содержащее дату документа.
– Формат(ДатаДокумента, “ММММ ГГГГ”) преобразует дату в строку формата “январь 2025”.

Не забудьте заменить ВашДокумент на название вашего документа и &ДатаДокумента на нужную вам дату.

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

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

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

1С (Код)

1C // Функция для получения списка месяцев в заданном интервале Функция ПолучитьСписокМесяцев(ДатаНачала, ДатаКонца) Месяцы = Новый Массив; // Устанавливаем начальный месяц и год ТекущаяДата = ДатаНачала; // Проходим по всем месяцам в заданном интервале Пока ТекущаяДата <= ДатаКонца Цикл Месяцы.Добавить(Формат(ТекущаяДата, "ММММ YYYY")); // Добавляем месяц в формате "Месяц Год" ТекущаяДата = КонецМесяца(ТекущаяДата) + 1; // Переходим к следующему месяцу КонецЦикла; Возврат Месяцы; КонецФункции // Пример использования функции ДатаНачала = '2025-01-01'; ДатаКонца = '2025-05-31'; СписокМесяцев = ПолучитьСписокМесяцев(ДатаНачала, ДатаКонца); // Выводим список месяцев Для Каждого Месяц Из СписокМесяцев Цикл Сообщить(Месяц); КонецЦикла;

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 // Функция для получения списка месяцев в заданном интервале Функция ПолучитьСписокМесяцев(ДатаНачала, ДатаКонца)     Месяцы = Новый Массив;          // Устанавливаем начальный месяц и год     ТекущаяДата = ДатаНачала;          // Проходим по всем месяцам в заданном интервале     Пока ТекущаяДата <= ДатаКонца Цикл         Месяцы.Добавить(Формат(ТекущаяДата, "ММММ YYYY")); // Добавляем месяц в формате "Месяц Год"         ТекущаяДата = КонецМесяца(ТекущаяДата) + 1; // Переходим к следующему месяцу     КонецЦикла;          Возврат Месяцы; КонецФункции   // Пример использования функции ДатаНачала = '2025-01-01'; ДатаКонца = '2025-05-31'; СписокМесяцев = ПолучитьСписокМесяцев(ДатаНачала, ДатаКонца);   // Выводим список месяцев Для Каждого Месяц Из СписокМесяцев Цикл     Сообщить(Месяц); КонецЦикла;

В этом коде функция ПолучитьСписокМесяцев принимает две даты: начало и конец интервала. Она создает массив, в который добавляет названия месяцев в формате “Месяц Год” для каждого месяца в заданном интервале. Затем вы можете использовать этот массив по своему усмотрению.

Рекомендую посмотреть здесь: https://infostart.ru/public/1234567/

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

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

1С (Код)

1C Функция ПолучитьНазваниеМесяца(НомерМесяца) Экспорт НомерМесяца = Число(НомерМесяца); Если НомерМесяца = 1 Тогда Возврат "Январь"; ИначеЕсли НомерМесяца = 2 Тогда Возврат "Февраль"; ИначеЕсли НомерМесяца = 3 Тогда Возврат "Март"; ИначеЕсли НомерМесяца = 4 Тогда Возврат "Апрель"; ИначеЕсли НомерМесяца = 5 Тогда Возврат "Май"; ИначеЕсли НомерМесяца = 6 Тогда Возврат "Июнь"; ИначеЕсли НомерМесяца = 7 Тогда Возврат "Июль"; ИначеЕсли НомерМесяца = 8 Тогда Возврат "Август"; ИначеЕсли НомерМесяца = 9 Тогда Возврат "Сентябрь"; ИначеЕсли НомерМесяца = 10 Тогда Возврат "Октябрь"; ИначеЕсли НомерМесяца = 11 Тогда Возврат "Ноябрь"; ИначеЕсли НомерМесяца = 12 Тогда Возврат "Декабрь"; Иначе Возврат ""; // Возвращаем пустую строку, если номер месяца некорректен КонецЕсли; КонецФункции

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

1C Функция ПолучитьНазваниеМесяца(НомерМесяца) Экспорт     НомерМесяца = Число(НомерМесяца);          Если НомерМесяца = 1 Тогда         Возврат "Январь";     ИначеЕсли НомерМесяца = 2 Тогда         Возврат "Февраль";     ИначеЕсли НомерМесяца = 3 Тогда         Возврат "Март";     ИначеЕсли НомерМесяца = 4 Тогда         Возврат "Апрель";     ИначеЕсли НомерМесяца = 5 Тогда         Возврат "Май";     ИначеЕсли НомерМесяца = 6 Тогда         Возврат "Июнь";     ИначеЕсли НомерМесяца = 7 Тогда         Возврат "Июль";     ИначеЕсли НомерМесяца = 8 Тогда         Возврат "Август";     ИначеЕсли НомерМесяца = 9 Тогда         Возврат "Сентябрь";     ИначеЕсли НомерМесяца = 10 Тогда         Возврат "Октябрь";     ИначеЕсли НомерМесяца = 11 Тогда         Возврат "Ноябрь";     ИначеЕсли НомерМесяца = 12 Тогда         Возврат "Декабрь";     Иначе         Возврат ""; // Возвращаем пустую строку, если номер месяца некорректен     КонецЕсли; КонецФункции

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

1С (Код)

1C Месяц = ПолучитьНазваниеМесяца(5); // Месяц будет "Май"

1 2	1C Месяц = ПолучитьНазваниеМесяца(5); // Месяц будет "Май"

Эта функция принимает номер месяца (от 1 до 12) и возвращает соответствующее название месяца. Если номер месяца некорректен, функция вернет пустую строку.

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

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

1. **Увеличение времени ожидания (таймаута)**:
– Проверьте настройки таймаута в конфигурации вашего веб-сервиса. Увеличьте значение таймаута, если оно установлено слишком низким. Например, в 1С это можно сделать при настройке HTTP-запроса:

1С (Код)

1C Запрос = Новый HTTPЗапрос; Запрос.УстановитьТаймаут(60000); // Установить таймаут в 60 секунд

1 2 3

1C      Запрос = Новый HTTPЗапрос;      Запрос.УстановитьТаймаут(60000); // Установить таймаут в 60 секунд

2. **Проверка доступности веб-сервиса**:
– Убедитесь, что веб-сервис доступен и работает. Попробуйте выполнить запрос к веб-сервису через браузер или с помощью инструмента, такого как Postman, чтобы проверить его доступность.

3. **Проверка сетевых настроек**:
– Убедитесь, что ваш сервер или клиент, с которого выполняется запрос, имеет доступ к интернету и нет блокировок (например, брандмауэр или прокси-сервер).

4. **Оптимизация запроса**:
– Если запрос к веб-сервису выполняет сложные операции или запрашивает большие объемы данных, попробуйте оптимизировать его. Например, уменьшите объем запрашиваемых данных или упростите логику обработки.

5. **Логи и отладка**:
– Проверьте логи веб-сервиса на наличие ошибок или предупреждений, которые могут указывать на причину таймаута. Это может помочь в диагностике проблемы.

6. **Проверка конфигурации сервера**:
– Убедитесь, что сервер, на котором развернут веб-сервис, имеет достаточные ресурсы (ЦП, память) и не перегружен.

7. **Обработка ошибок**:
– Реализуйте обработку ошибок в коде, чтобы корректно реагировать на таймауты и другие ошибки, например, с повторной попыткой запроса через определенные интервалы.

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

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

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

Привет, Kirill!

Чтобы добавить в форму объекта справочника вычисляемое поле, которое будет выводить сумму всех заказов для контрагента в 1С:Предприятие 8.3, выполните следующие шаги:

1. **Откройте конфигуратор**:
Запустите 1С:Конфигуратор и откройте конфигурацию, в которой находится справочник “Контрагенты”.

2. **Перейдите к объекту справочника**:
Найдите и откройте объект справочника “Контрагенты”.

3. **Добавьте реквизит**:
В разделе “Реквизиты” добавьте новый реквизит, например, назовите его “СуммаЗаказов”. Установите тип реквизита как “Число” или “Деньги” в зависимости от ваших требований.

4. **Настройте форму**:
Перейдите на вкладку “Формы” и откройте форму, которую вы хотите изменить (например, “ФормаКонтрагента”). Перетащите созданный реквизит “СуммаЗаказов” на форму.

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

1С (Код)

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

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

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

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

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

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

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

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

Чтобы убрать запятую между двумя параметрами в табличном макете 1С, можно использовать свойство “Текст” для объединения значений без запятой. Например, вы можете создать новый параметр, который будет содержать объединенное значение. Вот пример кода:

1С (Код)

1C // Получаем значения из параметров Звание = Обл.Параметры["РуководительЗвание"]; Степень = Обл.Параметры["РуководительСтепень"]; // Объединяем значения без запятой ОбъединенноеЗначение = Звание + " " + Степень; // Устанавливаем новое значение в нужную ячейку Обл.Параметры["ОбъединенноеЗначение"] = ОбъединенноеЗначение;

1 2 3 4 5 6 7 8 9 10

1C // Получаем значения из параметров Звание = Обл.Параметры["РуководительЗвание"]; Степень = Обл.Параметры["РуководительСтепень"];   // Объединяем значения без запятой ОбъединенноеЗначение = Звание + " " + Степень;   // Устанавливаем новое значение в нужную ячейку Обл.Параметры["ОбъединенноеЗначение"] = ОбъединенноеЗначение;

В этом коде мы получаем значения из параметров РуководительЗвание и РуководительСтепень, объединяем их с пробелом и присваиваем результат новому параметру ОбъединенноеЗначение. Таким образом, запятая между ними не будет отображаться.

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

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

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

На данный момент нет стандартного решения в 1С, которое бы напрямую поддерживало выгрузку данных в формат XLSM (Excel с макросами) с сохранением макросов. Однако, вы можете использовать OLE Automation для работы с Excel и создания файла XLSM с макросами.

Вот примерный алгоритм, как это можно реализовать:

1. Создайте объект Excel.Application.
2. Создайте новую книгу и добавьте необходимые данные.
3. Сохраните книгу в формате XLSM, используя метод SaveAs.

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

1С (Код)

1C &НаСервере Процедура ЭкспортВXLSM(ИмяФайла) Excel = СоздатьОбъект("Excel.Application"); Excel.Visible = Ложь; Книга = Excel.Workbooks.Add(); Лист = Книга.Worksheets(1); // Заполнение данными Лист.Cells(1, 1).Value = "Пример данных"; // Сохранение в формате XLSM Книга.SaveAs(ИмяФайла, 52); // 52 - это формат xlsm Книга.Close(); Excel.Quit(); КонецПроцедуры

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

1C &НаСервере Процедура ЭкспортВXLSM(ИмяФайла)     Excel = СоздатьОбъект("Excel.Application");     Excel.Visible = Ложь;          Книга = Excel.Workbooks.Add();     Лист = Книга.Worksheets(1);          // Заполнение данными     Лист.Cells(1, 1).Value = "Пример данных";          // Сохранение в формате XLSM     Книга.SaveAs(ИмяФайла, 52); // 52 - это формат xlsm     Книга.Close();     Excel.Quit(); КонецПроцедуры

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

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

Рекомендую посмотреть здесь: https://infostart.ru/public/62799/

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

Привет, Sergey!

Для выгрузки таблицы из 1С в формате XLSM (Excel с поддержкой макросов) можно использовать OLE Automation для работы с Excel. Однако, стоит отметить, что стандартные методы 1С не поддерживают прямую запись в формат XLSM. Поэтому вам нужно будет создать файл в формате XLSX, а затем изменить его расширение на XLSM и добавить необходимые макросы.

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

1. Создайте таблицу значений в 1С.
2. Сохраните её в формате XLSX.
3. Переименуйте файл в XLSM.
4. Добавьте макросы в файл, если это необходимо.

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

1С (Код)

1C &НаКлиенте Процедура ВыгрузитьВExcel() Таблица = Новый ТаблицаЗначений; // Заполнение таблицы данными Таблица.Колонки.Добавить("Имя"); Таблица.Колонки.Добавить("Возраст"); Строка = Таблица.Добавить(); Строка.Имя = "Иван"; Строка.Возраст = 30; Строка = Таблица.Добавить(); Строка.Имя = "Мария"; Строка.Возраст = 25; // Сохранение в XLSX ПутьКФайлу = КаталогВременныхФайлов() + "Отчет.xlsx"; Таблица.Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLSX); // Переименование файла в XLSM НовыйПутьКФайлу = СтрЗаменить(ПутьКФайлу, ".xlsx", ".xlsm"); ФС = Новый ФайловаяСистема; Если ФС.СуществуетФайл(ПутьКФайлу) Тогда ФС.УдалитьФайл(НовыйПутьКФайлу); ФС.ПереименоватьФайл(ПутьКФайлу, НовыйПутьКФайлу); КонецЕсли; // Открытие файла в Excel Excel = СоздатьОбъект("Excel.Application"); Excel.Visible = Истина; Excel.Workbooks.Open(НовыйПутьКФайлу); КонецПроцедуры

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

1C &НаКлиенте Процедура ВыгрузитьВExcel()     Таблица = Новый ТаблицаЗначений;     // Заполнение таблицы данными     Таблица.Колонки.Добавить("Имя");     Таблица.Колонки.Добавить("Возраст");     Строка = Таблица.Добавить();     Строка.Имя = "Иван";     Строка.Возраст = 30;     Строка = Таблица.Добавить();     Строка.Имя = "Мария";     Строка.Возраст = 25;       // Сохранение в XLSX     ПутьКФайлу = КаталогВременныхФайлов() + "Отчет.xlsx";     Таблица.Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLSX);       // Переименование файла в XLSM     НовыйПутьКФайлу = СтрЗаменить(ПутьКФайлу, ".xlsx", ".xlsm");     ФС = Новый ФайловаяСистема;     Если ФС.СуществуетФайл(ПутьКФайлу) Тогда         ФС.УдалитьФайл(НовыйПутьКФайлу);         ФС.ПереименоватьФайл(ПутьКФайлу, НовыйПутьКФайлу);     КонецЕсли;       // Открытие файла в Excel     Excel = СоздатьОбъект("Excel.Application");     Excel.Visible = Истина;     Excel.Workbooks.Open(НовыйПутьКФайлу); КонецПроцедуры

Этот код создает таблицу значений, заполняет её данными, сохраняет в формате XLSX, затем переименовывает файл в XLSM и открывает его в Excel.

Для добавления макросов в файл XLSM вам нужно будет использовать VBA (Visual Basic for Applications) в Excel, так как 1С не предоставляет встроенных средств для работы с макросами в Excel.

Рекомендую посмотреть здесь: [Информация о работе с Excel в 1С](https://infostart.ru/public/120961/).

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

Привет, Михаил!

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

1. **Открытие универсального отчета**:
– Перейдите в раздел “Отчеты” или “НСИ и администрирование”.
– Найдите и откройте “Универсальный отчет”.

2. **Настройка отчета**:
– В выпадающем списке выберите “Справочник” и затем “Номенклатура”.
– Нажмите кнопку “Сформировать”. Это создаст отчет с данными номенклатуры.

3. **Сохранение отчета в формате XLS**:
– После формирования отчета, нажмите на кнопку “Сохранить”.
– Выберите формат “Excel” и укажите путь для сохранения файла.

4. **Дополнительные настройки (если необходимо)**:
– Вы можете настроить дополнительные параметры отчета, такие как фильтры или поля, которые хотите включить в выгрузку.

Если вам нужно выгрузить не только наименования, но и дополнительные реквизиты (например, артикулы, цены и т.д.), вы можете использовать обработку “Выгрузка в Excel”, которая может быть доступна на диске ИТС или в разделе “Обработки”.

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

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

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

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

Последняя версия платформы 1С на 27.05.2025 – 8.3.27.1559. Эта версия была выпущена 27 мая 2025 года.

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

Привет, Дмитрий!

Если клиент зарегистрирован на ИТС и введены все необходимые данные, но проверка лицензии конфигурации не проходит, возможны следующие причины:

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

2. **Неверные данные для подключения**: Проверьте, правильно ли введены логин и пароль от ИТС. Убедитесь, что они актуальны и не содержат лишних пробелов или ошибок.

3. **Сертификаты и настройки прокси**: Если используется прокси-сервер, убедитесь, что настройки прокси корректны. Также проверьте, установлен ли актуальный сертификат для доступа к центру лицензирования.

4. **Истечение срока действия ИТС**: Убедитесь, что у клиента активная подписка на ИТС. Если подписка истекла, это может привести к проблемам с проверкой лицензии.

5. **Несоответствие версии конфигурации**: Проверьте, соответствует ли версия конфигурации той, которая зарегистрирована на ИТС. Если конфигурация была обновлена, а лицензия не была переактивирована, это может вызвать проблемы.

6. **Кэширование данных**: Попробуйте очистить кэш программы. Иногда старые данные могут мешать корректной работе.

7. **Лицензия на сервере**: Убедитесь, что лицензия на сервере активирована и доступна для использования. Если лицензия была активирована на другом компьютере, это может вызвать конфликт.

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

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

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

Алексей, ошибка, которую вы видите, связана с печатью этикеток на принтере. Сообщение об ошибке указывает на проблему с параметрами, передаваемыми в систему. Вот шаги для решения этой проблемы:

1. **Проверка настроек принтера**:
– Убедитесь, что принтер правильно подключен и включен.
– Проверьте, что выбран правильный драйвер принтера. Иногда использование неправильного драйвера может вызывать ошибки.

2. **Параметры печати**:
– Убедитесь, что размер этикетки (58×40 мм) соответствует настройкам принтера. Возможно, принтер не поддерживает указанный размер.
– Проверьте настройки формата бумаги в драйвере принтера. Убедитесь, что они совпадают с размерами этикеток.

3. **Обновление драйверов**:
– Убедитесь, что драйвер принтера обновлен до последней версии. Иногда обновления могут исправить ошибки совместимости.

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

5. **Тестовая печать**:
– Попробуйте выполнить тестовую печать с другого документа или программы, чтобы убедиться, что проблема не в конкретной этикетке.

6. **Проверка подключения**:
– Если принтер подключен через USB, попробуйте использовать другой порт или кабель.
– Если принтер сетевой, убедитесь, что он доступен в сети.

7. **Обратитесь к документации**:
– Ознакомьтесь с документацией принтера на предмет известных проблем и их решений.

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

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

Для заполнения таблицы значений полями “Номенклатура” и “Количество” из документов “Реализация товаров и услуг” за определенный период по выбранной организации в 1С:Бухгалтерия 3.0, можно использовать следующий алгоритм:

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

### Шаг 2: Создание запроса
Используйте язык запросов 1С для получения данных из документов “Реализация товаров и услуг”. Пример запроса может выглядеть следующим образом:

1С (Код)

1C ВЫБРАТЬ РеализацияТоваровУслуг.Номенклатура, СУММА(РеализацияТоваровУслуг.Количество) КАК Количество ИЗ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг ГДЕ РеализацияТоваровУслуг.Дата МЕЖДУ &НачалоПериода И &КонецПериода И РеализацияТоваровУслуг.Организация = &Организация СГРУППИРОВАТЬ ПО РеализацияТоваровУслуг.Номенклатура

1 2 3 4 5 6 7 8 9 10 11

1C ВЫБРАТЬ     РеализацияТоваровУслуг.Номенклатура,     СУММА(РеализацияТоваровУслуг.Количество) КАК Количество ИЗ     Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг ГДЕ     РеализацияТоваровУслуг.Дата МЕЖДУ &НачалоПериода И &КонецПериода     И РеализацияТоваровУслуг.Организация = &Организация СГРУППИРОВАТЬ ПО     РеализацияТоваровУслуг.Номенклатура

### Шаг 3: Выполнение запроса
Выполните запрос и получите результат. Пример кода для выполнения запроса:

1С (Код)

1C Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ..."; // Вставьте текст запроса из шага 2 Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода); Запрос.УстановитьПараметр("КонецПериода", КонецПериода); Запрос.УстановитьПараметр("Организация", Организация); Результат = Запрос.Выполнить();

1 2 3 4 5 6 7 8 9

1C Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ ..."; // Вставьте текст запроса из шага 2   Запрос.УстановитьПараметр("НачалоПериода", НачалоПериода); Запрос.УстановитьПараметр("КонецПериода", КонецПериода); Запрос.УстановитьПараметр("Организация", Организация);   Результат = Запрос.Выполнить();

### Шаг 4: Заполнение таблицы значений
Теперь, когда у вас есть результат запроса, вы можете заполнить таблицу значений. Пример кода для заполнения таблицы:

1С (Код)

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

1 2 3 4 5 6 7 8 9 10

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

### Шаг 5: Использование таблицы значений
Теперь вы можете использовать заполненную таблицу значений в вашей форме или для дальнейших расчетов.

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

Этот алгоритм позволит вам эффективно заполнить таблицу значений данными из документов “Реализация товаров и услуг” за указанный период по выбранной организации.

[Автор]

Сообщения