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

Здравствуйте!

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

1. **Добавление полей в печатную форму:**
— Внешняя печатная форма создаётся на базе типовой или собственной формы расходной накладной.
— В макете (например, в формате FastReport или в обработке внешней печатной формы) добавляются новые поля.
— Поля «Адрес доставки», «Телефон», «Комментарий» обычно берутся из реквизитов документа или связанных справочников (например, адрес из контрагента или из реквизитов документа).
— «Ответственный менеджер» — это обычно реквизит документа или связанный сотрудник.
— «Итоговый вес (кг)» — рассчитывается суммированием веса всех позиций табличной части документа.

2. **Где брать данные:**
— Адрес доставки и телефон можно брать из реквизитов документа (если они есть) или из связанных с документом объектов (например, из адреса доставки контрагента).
— Комментарий — реквизит документа.
— Ответственный менеджер — реквизит документа (например, поле «Ответственный»).
— Итоговый вес — сумма по табличной части, где в каждой позиции есть поле «Вес» или «Вес единицы» умноженное на количество.

3. **Пример кода для расчёта итогового веса в модуле печатной формы:**

1С (Код)

ИтоговыйВес = 0; Для Каждого Строка Из Документ.Товары Цикл Если ЗначениеЗаполнено(Строка.Вес) Тогда ИтоговыйВес = ИтоговыйВес + (Строка.Вес * Строка.Количество); КонецЕсли; КонецЦикла;

1 2 3 4 5 6

ИтоговыйВес = 0; Для Каждого Строка Из Документ.Товары Цикл     Если ЗначениеЗаполнено(Строка.Вес) Тогда         ИтоговыйВес = ИтоговыйВес + (Строка.Вес * Строка.Количество);     КонецЕсли; КонецЦикла;

4. **Пример вывода дополнительных полей в макете FastReport:**

— В разделе «Данные» добавить переменные, например:
— АдресДоставки = Документ.АдресДоставки
— Телефон = Документ.Телефон
— Комментарий = Документ.Комментарий
— Ответственный = Документ.Ответственный.Наименование
— ИтоговыйВес = рассчитанное значение

— В макете разместить текстовые поля с этими переменными.

5. **Если в типовой конфигурации нет нужных реквизитов:**
— Добавьте дополнительные реквизиты в документ (через расширение или конфигуратор).
— Заполните их в процессе работы с документом.
— Используйте их в печатной форме.

6. **Кто может разработать:**
— Если у вас нет возможности сделать самостоятельно, рекомендую обратиться к профессиональным 1С-программистам.
— Например, на популярных ресурсах (Infostart, 1C-Сообщество) можно найти исполнителей.
— Также могу порекомендовать услуги разработчиков с сайта https://master1c8.ru/ — там есть специалисты, которые делают внешние печатные формы под заказ.

7. **Готовые решения:**
— Иногда на Infostart.ru или других ресурсах можно найти готовые внешние печатные формы с подобным функционалом, которые можно адаптировать под себя.

—

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

—

https://master1c8.ru/obrabotki-i-ottchet/12639/ — пример внешней печатной формы с дополнительными колонками и реквизитами.

https://infostart.ru/1c/articles/633085/ — пример создания комплекта внешних печатных форм.

—

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

—

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

—

Если хотите, могу написать пример кода для внешней печатной формы на 1С (FastReport) с этими полями.

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

Автоматизировать закрытие сеансов пользователей в 1С:Предприятие 8.3 с базой на SQL-сервере можно несколькими способами. Самый гибкий и рекомендуемый — использовать COM-объект v8.COMConnector для программного завершения сеансов через агент сервера 1С. Также можно применять стандартную обработку блокировки пользователей, скрипты остановки/запуска сервера или программное завершение работы пользователей из 1С.

Кратко по методам:

1. Через COM-объект агента сервера можно получить список сеансов и завершить все, кроме системных и текущего пользователя. Этот способ подходит для автоматизации и запуска по расписанию.

2. Стандартная обработка «Блокировка работы пользователей» позволяет без программирования заблокировать базу для новых сеансов и завершить текущие.

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

4. В 1С можно написать процедуру, которая по времени завершает работу пользователей, вызывая ПрекратитьРаботуСистемы.

СИНХРОН-КОД: в вопросе упомянуто «закрытие сеансов пользователей», а в финальном коде используется именно COM-объект v8.COMConnector и процедуры для завершения сеансов, а также скрипты остановки сервера и программное завершение работы пользователей.

Ниже приведены примеры и шаблоны кода для каждого из описанных способов.

1С (Код)

Процедура ЗавершитьСеансыПользователей() СтрокаСоединения = СтрокаСоединенияИнформационнойБазы(); Параметры = ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения); Если Параметры.ИмяСервера = "" Тогда Возврат; КонецЕсли; Если ТипПлатформы() = ТипПлатформы.ОперационнаяСистемаUnix Тогда Возврат; КонецЕсли; Агент = ПолучитьАгентКластера(Параметры.ИмяСервера); Если Агент = Неопределено Тогда Возврат; КонецЕсли; ЗавершитьСеансыПоАгенту(Агент, Параметры.ИмяБазы); КонецПроцедуры Функция ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения) ИмяПараметраСервера = "Srvr="; ИмяПараметраБазы = "Ref="; СтруктураРезультат = Новый Структура("ИмяСервера, ИмяБазы", "", ""); Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраСервера); Если Позиция = 0 Тогда Возврат СтруктураРезультат; КонецЕсли; Позиция = Позиция + СтрДлина(ИмяПараметраСервера); Остаток = Сред(СтрокаСоединения, Позиция); Знак = СтрНайти(Остаток, """"); Если Знак = 0 Тогда Возврат СтруктураРезультат; КонецЕсли; СтруктураРезультат.ИмяСервера = Лев(Остаток, Знак - 1); Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраБазы); Если Позиция = 0 Тогда Возврат СтруктураРезультат; КонецЕсли; Позиция = Позиция + СтрДлина(ИмяПараметраБазы); Остаток = Сред(СтрокаСоединения, Позиция); Знак = СтрНайти(Остаток, """"); Если Знак = 0 Тогда Возврат СтруктураРезультат; КонецЕсли; СтруктураРезультат.ИмяБазы = Лев(Остаток, Знак - 1); Возврат СтруктураРезультат; КонецФункции Функция ПолучитьАгентКластера(ИмяСервера) Возврат Новый COMОбъект("v8.COMConnector").ConnectAgent(ИмяСервера); КонецФункции Процедура ЗавершитьСеансыПоАгенту(Агент, ИмяБазы) Кластеры = Агент.GetClusters(); Для Каждого Кластер Из Кластеры Цикл Агент.Authenticate(Кластер, "АдминистраторКластера", "ПарольКластера"); ИнформационнаяБаза = НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы); Если ИнформационнаяБаза = Неопределено Тогда Продолжить; КонецЕсли; ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза); Прервать; КонецЦикла; КонецПроцедуры Функция НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы) Базы = Агент.GetInfoBases(Кластер); Для Каждого База Из Базы Цикл Если База.Name = ИмяБазы Тогда Возврат База; КонецЕсли; КонецЦикла; Возврат Неопределено; КонецФункции Процедура ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза) Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза); Для Каждого Сеанс Из Сеансы Цикл Если Сеанс.AppID = "designer" Или Сеанс.AppID = "backgroundjob" Тогда Продолжить; КонецЕсли; Если Сеанс.UserName = ИмяПользователя() Тогда Продолжить; КонецЕсли; Агент.TerminateSession(Кластер, Сеанс); КонецЦикла; КонецПроцедуры

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 81 82 83 84

Процедура ЗавершитьСеансыПользователей()     СтрокаСоединения = СтрокаСоединенияИнформационнойБазы();     Параметры = ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения);     Если Параметры.ИмяСервера = "" Тогда         Возврат;     КонецЕсли;     Если ТипПлатформы() = ТипПлатформы.ОперационнаяСистемаUnix Тогда         Возврат;     КонецЕсли;     Агент = ПолучитьАгентКластера(Параметры.ИмяСервера);     Если Агент = Неопределено Тогда         Возврат;     КонецЕсли;     ЗавершитьСеансыПоАгенту(Агент, Параметры.ИмяБазы); КонецПроцедуры   Функция ПолучитьПараметрыСервераИзСтрокиСоединения(СтрокаСоединения)     ИмяПараметраСервера = "Srvr=";     ИмяПараметраБазы = "Ref=";     СтруктураРезультат = Новый Структура("ИмяСервера, ИмяБазы", "", "");     Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраСервера);     Если Позиция = 0 Тогда         Возврат СтруктураРезультат;     КонецЕсли;     Позиция = Позиция + СтрДлина(ИмяПараметраСервера);     Остаток = Сред(СтрокаСоединения, Позиция);     Знак = СтрНайти(Остаток, """");     Если Знак = 0 Тогда         Возврат СтруктураРезультат;     КонецЕсли;     СтруктураРезультат.ИмяСервера = Лев(Остаток, Знак - 1);     Позиция = СтрНайти(СтрокаСоединения, ИмяПараметраБазы);     Если Позиция = 0 Тогда         Возврат СтруктураРезультат;     КонецЕсли;     Позиция = Позиция + СтрДлина(ИмяПараметраБазы);     Остаток = Сред(СтрокаСоединения, Позиция);     Знак = СтрНайти(Остаток, """");     Если Знак = 0 Тогда         Возврат СтруктураРезультат;     КонецЕсли;     СтруктураРезультат.ИмяБазы = Лев(Остаток, Знак - 1);     Возврат СтруктураРезультат; КонецФункции   Функция ПолучитьАгентКластера(ИмяСервера)     Возврат Новый COMОбъект("v8.COMConnector").ConnectAgent(ИмяСервера); КонецФункции   Процедура ЗавершитьСеансыПоАгенту(Агент, ИмяБазы)     Кластеры = Агент.GetClusters();     Для Каждого Кластер Из Кластеры Цикл         Агент.Authenticate(Кластер, "АдминистраторКластера", "ПарольКластера");         ИнформационнаяБаза = НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы);         Если ИнформационнаяБаза = Неопределено Тогда             Продолжить;         КонецЕсли;         ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза);         Прервать;     КонецЦикла; КонецПроцедуры   Функция НайтиИнформационнуюБазу(Агент, Кластер, ИмяБазы)     Базы = Агент.GetInfoBases(Кластер);     Для Каждого База Из Базы Цикл         Если База.Name = ИмяБазы Тогда             Возврат База;         КонецЕсли;     КонецЦикла;     Возврат Неопределено; КонецФункции   Процедура ЗавершитьСеансыБазы(Агент, Кластер, ИнформационнаяБаза)     Сеансы = Агент.GetInfoBaseSessions(Кластер, ИнформационнаяБаза);     Для Каждого Сеанс Из Сеансы Цикл         Если Сеанс.AppID = "designer" Или Сеанс.AppID = "backgroundjob" Тогда             Продолжить;         КонецЕсли;         Если Сеанс.UserName = ИмяПользователя() Тогда             Продолжить;         КонецЕсли;         Агент.TerminateSession(Кластер, Сеанс);     КонецЦикла; КонецПроцедуры

1С (Код)

net stop "1C:Enterprise 8.3 Server Agent"

1	net stop "1C:Enterprise 8.3 Server Agent"

1С (Код)

net start "1C:Enterprise 8.3 Server Agent"

1	net start "1C:Enterprise 8.3 Server Agent"

1С (Код)

Процедура ЗавершитьРаботуПользователей() ТекущийЧасДляЗавершения = 22; Если Час(ТекущаяДатаСеанса()) >= ТекущийЧасДляЗавершения Тогда ПрекратитьРаботуСистемы(Ложь); КонецЕсли; КонецПроцедуры

1 2 3 4 5 6

Процедура ЗавершитьРаботуПользователей()     ТекущийЧасДляЗавершения = 22;     Если Час(ТекущаяДатаСеанса()) >= ТекущийЧасДляЗавершения Тогда         ПрекратитьРаботуСистемы(Ложь);     КонецЕсли; КонецПроцедуры

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

Цвет из ЦветаСтиля.ReportGroup1BackColor обычно не является абсолютным цветом (RGB), а представляет собой цвет в виде WebЦвета или ЭлементаСтиля. Чтобы получить абсолютный цвет, нужно выполнить конвертацию.

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

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

1С (Код)

Функция ПолучитьАбсолютныйЦвет(ИсходныйЦвет) Экспорт Если ТипЗнч(ИсходныйЦвет) <> Тип("Цвет") Тогда Возврат Неопределено; КонецЕсли; Если ИсходныйЦвет.Вид = ВидЦвета.Абсолютный Тогда Возврат ИсходныйЦвет; КонецЕсли; ТабДок = Новый ТабличныйДокумент; ТабДок.Область("R1C1").ЦветФона = ИсходныйЦвет; ВремФайл = ПолучитьИмяВременногоФайла("mxl"); ТабДок.Записать(ВремФайл, ТипФайлаТабличногоДокумента.MXL7); ТабДок = Новый ТабличныйДокумент; ТабДок.Прочитать(ВремФайл); АбсЦвет = ТабДок.Область("R1C1").ЦветФона; УдалитьФайлы(ВремФайл); Возврат АбсЦвет; КонецФункции

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

Функция ПолучитьАбсолютныйЦвет(ИсходныйЦвет) Экспорт     Если ТипЗнч(ИсходныйЦвет) <> Тип("Цвет") Тогда         Возврат Неопределено;     КонецЕсли;       Если ИсходныйЦвет.Вид = ВидЦвета.Абсолютный Тогда         Возврат ИсходныйЦвет;     КонецЕсли;       ТабДок = Новый ТабличныйДокумент;     ТабДок.Область("R1C1").ЦветФона = ИсходныйЦвет;       ВремФайл = ПолучитьИмяВременногоФайла("mxl");     ТабДок.Записать(ВремФайл, ТипФайлаТабличногоДокумента.MXL7);       ТабДок = Новый ТабличныйДокумент;     ТабДок.Прочитать(ВремФайл);       АбсЦвет = ТабДок.Область("R1C1").ЦветФона;       УдалитьФайлы(ВремФайл);       Возврат АбсЦвет; КонецФункции

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

1С (Код)

АбсолютныйЦвет = ПолучитьАбсолютныйЦвет(ЦветаСтиля.ReportGroup1BackColor);

1	АбсолютныйЦвет = ПолучитьАбсолютныйЦвет(ЦветаСтиля.ReportGroup1BackColor);

В результате вы получите объект Цвет с видом Абсолютный и доступными компонентами RGB.

Если вам нужна строка в HEX-формате, можно дополнительно получить её из абсолютного цвета так:

1С (Код)

Функция ПолучитьХексИзАбсолютногоЦвета(АбсЦвет) Экспорт Если ТипЗнч(АбсЦвет) <> Тип("Цвет") Тогда Возврат "" КонецЕсли Если АбсЦвет.Вид <> ВидЦвета.Абсолютный Тогда Возврат "" КонецЕсли ХексКрасный = Формат(АбсЦвет.Красный, "Х2") ХексЗеленый = Формат(АбсЦвет.Зеленый, "Х2") ХексСиний = Формат(АбсЦвет.Синий, "Х2") Возврат ХексКрасный + ХексЗеленый + ХексСиний КонецФункции

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

Функция ПолучитьХексИзАбсолютногоЦвета(АбсЦвет) Экспорт     Если ТипЗнч(АбсЦвет) <> Тип("Цвет") Тогда         Возврат ""     КонецЕсли     Если АбсЦвет.Вид <> ВидЦвета.Абсолютный Тогда         Возврат ""     КонецЕсли       ХексКрасный = Формат(АбсЦвет.Красный, "Х2")     ХексЗеленый = Формат(АбсЦвет.Зеленый, "Х2")     ХексСиний = Формат(АбсЦвет.Синий, "Х2")       Возврат ХексКрасный + ХексЗеленый + ХексСиний КонецФункции

Итог: цвет из ЦветаСтиля не абсолютный, но с помощью записи и чтения через ТабличныйДокумент можно получить абсолютный цвет и работать с его RGB-компонентами.

# Кратко:
— Цвет из ЦветаСтиля — не абсолютный
— Записать цвет в ТабличныйДокумент и прочитать обратно — получите абсолютный цвет
— Используйте приведённую функцию ПолучитьАбсолютныйЦвет для конвертации.

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

ЦветаСтиля.ReportGroup1BackColor — это один из предопределённых цветов в объекте «ЦветаСтиля» в 1С, который используется для оформления групп в отчетах. Конкретно ReportGroup1BackColor задаёт цвет фона первой группы в отчёте.

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

Если нужно узнать точное значение цвета (RGB), можно получить его программно, например:

1С (Код)

Цвет = ЦветаСтиля.ReportGroup1BackColor; Сообщить(Цвет); // Выведет цвет в формате Цвет(R,G,B)

1 2	Цвет = ЦветаСтиля.ReportGroup1BackColor; Сообщить(Цвет); // Выведет цвет в формате Цвет(R,G,B)

Или, если нужно получить RGB компоненты:

1С (Код)

R = ЦветаСтиля.ReportGroup1BackColor.Красный; G = ЦветаСтиля.ReportGroup1BackColor.Зеленый; B = ЦветаСтиля.ReportGroup1BackColor.Синий;

1 2 3

R = ЦветаСтиля.ReportGroup1BackColor.Красный; G = ЦветаСтиля.ReportGroup1BackColor.Зеленый; B = ЦветаСтиля.ReportGroup1BackColor.Синий;

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

Рекомендую посмотреть документацию по объекту ЦветаСтиля и настройкам корпоративного стиля в 1С:
https://wonderland.v8.1c.ru/blog/podderzhka-korporativnogo-stilya/

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

В 1С цвета из ЦветаСтиля (например, ЦветаСтиля.ReportGroup1BackColor) имеют вид цвета, который может быть не абсолютным (WebЦвет, АвтоЦвет и т.п.). Чтобы получить абсолютный цвет (RGB), нужно конвертировать этот цвет.

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

Пример функции для получения абсолютного цвета из любого цвета (взято и адаптировано из публикации AlexxSys):

1С (Код)

Функция ПолучитьАбсолютныйЦвет(ИсходныйЦвет) Экспорт Если ИсходныйЦвет.Вид = ВидЦвета.Абсолютный Тогда Возврат ИсходныйЦвет; КонецЕсли; ТабДок = Новый ТабличныйДокумент; ТабДок.Область("R1C1").ЦветФона = ИсходныйЦвет; // Записываем и читаем обратно, чтобы получить абсолютный цвет ВремФайл = ПолучитьИмяВременногоФайла("mxl"); ТабДок.Записать(ВремФайл, ТипФайлаТабличногоДокумента.MXL7); ТабДок.Прочитать(ВремФайл); АбсолютныйЦвет = ТабДок.Область("R1C1").ЦветФона; ТабДок = Неопределено; УдалитьФайлы(ВремФайл); Возврат АбсолютныйЦвет; КонецФункции

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

Функция ПолучитьАбсолютныйЦвет(ИсходныйЦвет) Экспорт     Если ИсходныйЦвет.Вид = ВидЦвета.Абсолютный Тогда         Возврат ИсходныйЦвет;     КонецЕсли;       ТабДок = Новый ТабличныйДокумент;     ТабДок.Область("R1C1").ЦветФона = ИсходныйЦвет;     // Записываем и читаем обратно, чтобы получить абсолютный цвет     ВремФайл = ПолучитьИмяВременногоФайла("mxl");     ТабДок.Записать(ВремФайл, ТипФайлаТабличногоДокумента.MXL7);     ТабДок.Прочитать(ВремФайл);       АбсолютныйЦвет = ТабДок.Область("R1C1").ЦветФона;     ТабДок = Неопределено;     УдалитьФайлы(ВремФайл);       Возврат АбсолютныйЦвет; КонецФункции

Далее в вашем коде заменяете:

1С (Код)

Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", ЦветаСтиля.ReportGroup1BackColor);

1	Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", ЦветаСтиля.ReportGroup1BackColor);

на

1С (Код)

АбсолютныйЦвет = ПолучитьАбсолютныйЦвет(ЦветаСтиля.ReportGroup1BackColor); Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", АбсолютныйЦвет);

1 2	АбсолютныйЦвет = ПолучитьАбсолютныйЦвет(ЦветаСтиля.ReportGroup1BackColor); Элемент.Оформление.УстановитьЗначениеПараметра("ЦветФона", АбсолютныйЦвет);

Таким образом, вы гарантированно получите абсолютный цвет (RGB), который корректно отобразится в оформлении.

Если функция ПолучитьАбсолютныйЦвет у вас уже есть, просто используйте её. Если нет — добавьте приведённый код.

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

Код в целом рабочий, но есть несколько рекомендаций и замечаний по улучшению и повышению надежности, читаемости и производительности:

1. Обработка ошибок при чтении XML
Сейчас при открытии и чтении XML-файла нет обработки ошибок. Если файл поврежден или невалиден, будет ошибка.
Рекомендую обернуть чтение в Попытка...Исключение и выводить понятное сообщение пользователю.

2. Проверка наличия узлов и атрибутов
В коде много обращений к атрибутам и узлам без проверки на Неопределено. Лучше добавить проверки, чтобы избежать ошибок.
Например:

1С (Код)

Если УзелЮЛ.Атрибуты <> Неопределено Тогда АтрИНН = УзелЮЛ.Атрибуты.ПолучитьИменованныйЭлемент("ИННЮЛ"); Если АтрИНН <> Неопределено Тогда ИННПоставщика = АтрИНН.Значение; КонецЕсли; КонецЕсли;

1 2 3 4 5 6

Если УзелЮЛ.Атрибуты <> Неопределено Тогда        АтрИНН = УзелЮЛ.Атрибуты.ПолучитьИменованныйЭлемент("ИННЮЛ");        Если АтрИНН <> Неопределено Тогда            ИННПоставщика = АтрИНН.Значение;        КонецЕсли;    КонецЕсли;

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

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

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

6. Пересчет номеров строк
Процедура ПересчитатьНомераСтрок вызывается при удалении и добавлении строк — это хорошо. Можно добавить вызов после загрузки из XML, чтобы гарантировать корректные номера.

7. Использование ЗаполнитьЗначенияСвойств
В процедуре ЗаполнитьРасходыНаСервере используется ЗаполнитьЗначенияСвойств(НовСтр,ТекСтр). Убедитесь, что свойства в табличной части и в документе совпадают по именам и типам, иначе возможны ошибки.

8. Закрытие формы после заполнения
В процедуре ЗаполнитьЗаказ вызывается Закрыть(). Если это метод формы, то всё ок, но лучше явно указать ЭтотОбъект.ВладелецФормы.Закрыть(), чтобы не было путаницы.

9. Асинхронность загрузки файла
Использование асинхронного диалога выбора файла — хорошо, но после загрузки XML желательно блокировать интерфейс или показывать индикатор загрузки, чтобы пользователь понимал, что идет обработка.

10. Кодировка файла
При открытии XML файла через ЧтениеXML.ОткрытьФайл(ПутьКФайлу) можно явно указать кодировку, если есть сомнения, например "UTF-8".

11. Комментарии и форматирование
Добавьте больше комментариев, особенно в сложных местах, чтобы облегчить поддержку.
Также можно разбить длинные процедуры на более мелкие.

12. Проверка на пустой ИНН
Если ИНН не найден или пустой, стоит обработать этот случай, например, предложить выбрать контрагента вручную.

13. Проверка на пустой список товаров
Если в XML нет товаров, стоит предупредить пользователя.

14. Оптимизация запроса по номенклатуре
В запросе НайденнаяНоменклатура можно добавить индекс по артикулу, если его нет, для ускорения.

15. Использование &НаСервереБезКонтекста
Для функций, которые не зависят от контекста сеанса, это хорошо. Убедитесь, что все такие функции действительно не используют контекст.

—

Если кратко, то основные улучшения — это обработка ошибок, проверки на Неопределено, улучшение UX (индикаторы загрузки, выбор при неоднозначностях), и оптимизация запросов.

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

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

Чтобы реквизиты «Номер кассы», «Номер z-отчета», «Номер чека» были видны только при выборе переключателя «Данные из Артикса», нужно управлять свойством Видимость этих реквизитов в форме отчёта.

Алгоритм:

1. В форме отчёта у вас есть переключатель (RadioButton) с двумя вариантами:
— «Сравнение данных из Супермага и Артикса»
— «Данные из Артикса»

2. Для переключателя создайте реквизит (например, ПереключательДанных), который будет принимать значения, например, 0 и 1.

3. Для реквизитов «Номер кассы», «Номер z-отчета», «Номер чека» в форме установите свойство Видимость (Visible) через выражение, зависящее от значения переключателя.

Пример:

— Допустим, переключатель связан с реквизитом формы ПереключательДанных, где:
— 0 — «Сравнение данных из Супермага и Артикса»
— 1 — «Данные из Артикса»

— Тогда для каждого из трёх реквизитов в форме в свойстве Видимость укажите:

1С (Код)

ПереключательДанных = 1

1	ПереключательДанных = 1

Или в модуле формы:

1С (Код)

Процедура ПереключательДанныхПриИзменении(Элемент) ЭлементыФормы.НомерКассы.Видимость = (Элемент.Значение = 1); ЭлементыФормы.НомерZОтчета.Видимость = (Элемент.Значение = 1); ЭлементыФормы.НомерЧека.Видимость = (Элемент.Значение = 1); КонецПроцедуры

1 2 3 4 5

Процедура ПереключательДанныхПриИзменении(Элемент)     ЭлементыФормы.НомерКассы.Видимость = (Элемент.Значение = 1);     ЭлементыФормы.НомерZОтчета.Видимость = (Элемент.Значение = 1);     ЭлементыФормы.НомерЧека.Видимость = (Элемент.Значение = 1); КонецПроцедуры

Где ПереключательДанных — имя реквизита, связанного с переключателем, а НомерКассы, НомерZОтчета, НомерЧека — имена элементов формы с этими реквизитами.

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

—

Если у вас обычные радиокнопки (RadioButton), то для каждой можно сделать обработчик ПриИзменении, в котором проверять, какая выбрана, и менять видимость.

Пример для двух радиокнопок:

1С (Код)

Процедура РадиоДанныеИзАртиксаПриИзменении(Элемент) Если Элемент.Значение Тогда ЭлементыФормы.НомерКассы.Видимость = Истина; ЭлементыФормы.НомерZОтчета.Видимость = Истина; ЭлементыФормы.НомерЧека.Видимость = Истина; Иначе ЭлементыФормы.НомерКассы.Видимость = Ложь; ЭлементыФормы.НомерZОтчета.Видимость = Ложь; ЭлементыФормы.НомерЧека.Видимость = Ложь; КонецЕсли; КонецПроцедуры

1 2 3 4 5 6 7 8 9 10 11

Процедура РадиоДанныеИзАртиксаПриИзменении(Элемент)     Если Элемент.Значение Тогда         ЭлементыФормы.НомерКассы.Видимость = Истина;         ЭлементыФормы.НомерZОтчета.Видимость = Истина;         ЭлементыФормы.НомерЧека.Видимость = Истина;     Иначе         ЭлементыФормы.НомерКассы.Видимость = Ложь;         ЭлементыФормы.НомерZОтчета.Видимость = Ложь;         ЭлементыФормы.НомерЧека.Видимость = Ложь;     КонецЕсли; КонецПроцедуры

И аналогично для другой радиокнопки.

—

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

—

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

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

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

Чтобы получить данные о драгоценных металлах основных средств, нужно:

1. Открыть конфигуратор 1С 7.7.
2. Найти справочник «Основные средства» (обычно это «Справочники» -> «Основные средства»).
3. Посмотреть структуру справочника, есть ли реквизиты или табличные части, связанные с драгоценными металлами (например, «Драгметаллы», «Вес», «Состав», «Стоимость драгметаллов»).
4. Если есть табличная часть с драгметаллами, то данные там хранятся по каждой позиции металла.

Для выгрузки данных из базы можно использовать запрос или обработку.

Пример запроса 1С 7.7 (в синтаксисе 7.7) для получения основных средств с драгметаллами (если есть табличная часть «Драгметаллы»):

1С (Код)

ВЫБРАТЬ ОС.Ссылка КАК ОсновноеСредство, ОС.Наименование, ДМ.Металл, ДМ.Вес, ДМ.Стоимость ИЗ Справочник.ОсновныеСредства КАК ОС ВНУТРЕННЕЕ СОЕДИНЕНИЕ ОС.Драгметаллы КАК ДМ ПО ОС.Ссылка = ДМ.СсылкаНаОсновноеСредство

1 2 3 4 5 6 7 8 9 10 11

ВЫБРАТЬ   ОС.Ссылка КАК ОсновноеСредство,   ОС.Наименование,   ДМ.Металл,   ДМ.Вес,   ДМ.Стоимость ИЗ   Справочник.ОсновныеСредства КАК ОС   ВНУТРЕННЕЕ СОЕДИНЕНИЕ ОС.Драгметаллы КАК ДМ ПО   ОС.Ссылка = ДМ.СсылкаНаОсновноеСредство

Если табличная часть называется иначе, замените «Драгметаллы» и поля на актуальные из вашей конфигурации.

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

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

Рекомендую посмотреть здесь, где обсуждают учет драгметаллов в 1С 7.7:

https://infostart.ru/public/84763/ (пример работы со справочниками и выгрузкой данных)

Если нужна помощь с конкретным запросом или обработкой — уточните детали.

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

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

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

Конфигурация «Управление Фирмой Аутсорсером» (УФА) — специализированное решение для автоматизации аутсорсинговых компаний, построенное на платформе 1С:Предприятие 8.3. В ней есть свои справочники, документы и регистры, специфичные для аутсорсинга.

Для создания отчета в УФА нужно понимать, какие данные хотите получить. Например:

— Список клиентов (контрагентов) с контактами и договорами
— Отчет по выполненным услугам за период
— Анализ по сотрудникам и их загрузке
— Финансовые показатели: счета, оплаты, задолженности

Если скажете, какой именно отчет нужен, могу помочь с примером.

—

Пример простого отчета на СКД для УФА — список клиентов с контактами:

|ВЫБРАТЬ
| Контрагенты.Ссылка КАК Ссылка,
| Контрагенты.Наименование КАК Наименование,
| Контрагенты.ИНН КАК ИНН,
| Контрагенты.Телефон КАК Телефон
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.ЭтоГруппа = ЛОЖЬ

Этот запрос можно использовать в СКД для построения отчета.

—

Если нужно, могу помочь с кодом отчета на встроенном языке 1С или с настройкой СКД в УФА. Пишите, что именно хотите видеть в отчете.

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

Могу помочь с созданием отчета в 1С, но нужно уточнить:

1. Какая конфигурация 1С (Управление торговлей, Бухгалтерия, Зарплата и т.п.)?
2. Какие данные нужно вывести в отчете? (например, остатки товаров, продажи, сотрудники и т.д.)
3. Какие параметры отбора нужны? (период, организация, контрагент и т.п.)
4. Какой тип отчета: простой табличный, с группировками, с графиками?
5. Нужно ли использовать СКД (Схему Компоновки Данных) или писать запрос и выводить табличный документ вручную?

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

Если хочешь, могу сразу привести пример простого отчета на СКД с выборкой из справочника или регистра. Напиши, что именно нужно.

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

Причина в том, что метод Параметры.Заполнить() области табличного документа не умеет принимать объект типа Соответствие. Он ожидает либо структуру, либо строку таблицы значений, либо объект с открытыми свойствами (например, структуру).

В вашем коде вы создаёте Итоги как Новый Соответствие, а потом пытаетесь передать его в Заполнить — это не сработает.

Чтобы исправить, замените Соответствие на Структуру:

1С (Код)

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

1 2 3 4 5 6 7 8 9

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

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

Если хотите, можно проверить тип параметров области через Отладчик или через:

1С (Код)

Сообщить(ТипЗнч(ОбластьПодвал.Параметры));

1	Сообщить(ТипЗнч(ОбластьПодвал.Параметры));

И убедиться, что это именно Структура.

Итого: замените Соответствие на Структуру — и область подвала заполнится корректно.

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

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

Подробности:

1. Файловая база (1CD)
— При внезапном отключении питания возможна потеря последних записей, которые не успели сохраниться на диск.
— Файловая база может повредиться, что приведёт к ошибкам при открытии или работе с базой.
— Восстановить можно через утилиту chdbfl.exe или через «Тестирование и исправление» в конфигураторе, но гарантий полного восстановления нет.
— Рекомендую регулярно делать резервные копии и хранить их отдельно.

2. Серверная база (MS SQL, PostgreSQL и др.)
— Современные СУБД используют журналы транзакций, которые позволяют при аварийном отключении восстановить базу до последнего консистентного состояния.
— Однако если отключение произошло в момент критической операции, возможна потеря последних транзакций, которые не были зафиксированы.
— В редких случаях база может перейти в повреждённое состояние (например, Suspect Mode в MS SQL), тогда требуется восстановление с помощью специальных процедур (EMERGENCY режим, DBCC checkdb и т.п.).
— Важно настроить корректное резервное копирование и мониторинг состояния сервера.

3. Общие рекомендации
— Использовать источники бесперебойного питания (ИБП) для серверов и рабочих станций.
— Регулярно делать резервные копии.
— Проверять целостность базы и проводить профилактическое обслуживание.
— Для файловых баз — избегать работы с базой на ненадёжных носителях и в нестабильных условиях.

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

Рекомендую посмотреть здесь:
https://infostart.ru/1c/articles/187832/ — про восстановление файловых баз
https://infostart.ru/1c/articles/59520/ — про восстановление SQL баз в Suspect Mode

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

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

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

Для увеличения лимита на загрузку файлов (POST-запросов) в IIS через web.config нужно настроить два основных параметра:

1. maxAllowedContentLength — максимальный размер содержимого запроса в байтах (ограничение IIS).
2. maxRequestLength — максимальный размер запроса в килобайтах (ограничение ASP.NET).

Пример корректного web.config с увеличенными лимитами (например, до 500 МБ):

1С (Код)

<?xml version="1.0" encoding="UTF-8"?> <configuration> <system.web> <!-- Максимальный размер запроса в килобайтах (500 МБ = 512000 КБ) --> <httpruntime maxRequestLength="512000" executionTimeout="3600"></httpruntime> </system.web> <system.webServer> <security> <requestfiltering> <!-- Максимальный размер содержимого запроса в байтах (500 МБ = 524288000 байт) --> <requestlimits maxAllowedContentLength="524288000"></requestlimits> </requestfiltering> </security> </system.webServer> </configuration>

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

<?xml version="1.0" encoding="UTF-8"?> <configuration>   <system.web>     <!-- Максимальный размер запроса в килобайтах (500 МБ = 512000 КБ) -->     <httpruntime maxRequestLength="512000" executionTimeout="3600"></httpruntime>   </system.web>   <system.webServer>     <security>       <requestfiltering>         <!-- Максимальный размер содержимого запроса в байтах (500 МБ = 524288000 байт) -->         <requestlimits maxAllowedContentLength="524288000"></requestlimits>       </requestfiltering>     </security>   </system.webServer> </configuration>

Объяснение:

— maxRequestLength в секции system.web/httpRuntime — ограничение ASP.NET, указывается в килобайтах.
— executionTimeout — время ожидания выполнения запроса в секундах, увеличено для больших загрузок.
— maxAllowedContentLength в секции system.webServer/security/requestFiltering/requestLimits — ограничение IIS, указывается в байтах.

После внесения изменений нужно перезапустить пул приложений или IIS.

Если у вас 64-битный IIS и 32-битное приложение, убедитесь, что в пуле приложений разрешены 32-битные приложения (Enable 32-bit Applications = True).

[Автор]

Сообщения