Архивы БСП

1С: размещение штрихкода в макете

10.01.2023 Павел Грибов 1C

Задача: в одной из конфигураций необходима вывести на печать штрихкод.

Решение:

В БСП этой конфигурации (3.1.5) поддержка печати есть, но «зашита намертво», т.е. без особых настроек. Чуть больше настроек можно получить если вынести функцию ПолучитьКартинкуШтрихкода в отдельный модуль.

В макете разместим картинку, назовем её например ШтрихКод1. Далее в конфигурацию необходимо добавить код:

&НаСервере
Функция ПолучитьКартинкуШтрихкода(Код, ТипКода = 1, ВысотаВМиллиметрах, ВставлятьЦифры) Экспорт
	
	ИнформацияОСистеме = Новый СистемнаяИнформация;
	
	ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиШтрихкодов", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);
	
	// Создадим объект внешней компоненты
	Компонент = Новый("AddIn.КартинкаШтрихкода.Barcode");

	// Если нет возможности рисовать
	Если НЕ Компонент.ГрафикаУстановлена Тогда
		// То картинку сформировать не сможем
		ТекстСообщения = НСтр("ru = 'Не удалось установить компонент штрихкодирования.'");
		ЗаписьЖурналаРегистрации(
			НСтр("ru = 'Штрихкодирование'"), 
			УровеньЖурналаРегистрации.Ошибка,
			, , 
			ТекстСообщения);
		ВызватьИсключение(ТекстСообщения);	
	КонецЕсли;
	
	Компонент.ОтображатьТекст = ВставлятьЦифры;
	Компонент.ПоложениеТекста=1;
	
	// Установим размер шрифта
	Компонент.РазмерШрифта = 12;
	//Компонент.ОриентацияТекста = 3;
	
	// Зададим размер картинки
	Если НЕ ЗначениеЗаполнено(ВысотаВМиллиметрах) Тогда
		ВысотаВМиллиметрах = 10;
	КонецЕсли;
	Компонент.Высота = Число(Формат((ВысотаВМиллиметрах/35.3) * 100, "ЧДЦ=0"));
	Компонент.АвтоТип = Ложь;
	
	//EAN-13 по умолчанию
	Компонент.ТипКода = ТипКода;
	 
	// Если код содержит контрольный символ, обязательно указываем
	Компонент.СодержитКС = Истина;
	
	// Формируем картинку штрихкода
	Компонент.ЗначениеКода = Код;

	Компонент.Ширина = Компонент.МинимальнаяШиринаКода + 5;

	// Сформируем картинку
	ДвоичныеДанныеКартинки = Компонент.ПолучитьШтрихкод();
	// Если картинка сформировалась
	Если НЕ ДвоичныеДанныеКартинки = Неопределено Тогда
		// Формируем из двоичных данных
		Картинка = Новый Картинка(ДвоичныеДанныеКартинки);
		Возврат Картинка;
	КонецЕсли;
	
	ТекстСообщения = НСтр("ru = 'Неизвестная ошибка штрихкодирования. Необходимо обратиться к администратору.'");
	ЗаписьЖурналаРегистрации(
		НСтр("ru = 'Штрихкодирование'"), 
		УровеньЖурналаРегистрации.Ошибка,
		, , 
		ТекстСообщения);
	ВызватьИсключение(ТекстСообщения);

КонецФункции

&НаСервере

Функция ПолучитьКартинкуШтрихкода(Код, ТипКода = 1, ВысотаВМиллиметрах, ВставлятьЦифры) Экспорт

ИнформацияОСистеме = Новый СистемнаяИнформация;

ПодключитьВнешнююКомпоненту("ОбщийМакет.КомпонентаПечатиШтрихкодов", "КартинкаШтрихкода", ТипВнешнейКомпоненты.Native);

// Создадим объект внешней компоненты

Компонент = Новый("AddIn.КартинкаШтрихкода.Barcode");

// Если нет возможности рисовать

Если НЕ Компонент.ГрафикаУстановлена Тогда

// То картинку сформировать не сможем

ТекстСообщения = НСтр("ru = 'Не удалось установить компонент штрихкодирования.'");

ЗаписьЖурналаРегистрации(

НСтр("ru = 'Штрихкодирование'"),

УровеньЖурналаРегистрации.Ошибка,

, ,

ТекстСообщения);

ВызватьИсключение(ТекстСообщения);

КонецЕсли;

Компонент.ОтображатьТекст = ВставлятьЦифры;

Компонент.ПоложениеТекста=1;

// Установим размер шрифта

Компонент.РазмерШрифта = 12;

//Компонент.ОриентацияТекста = 3;

// Зададим размер картинки

Если НЕ ЗначениеЗаполнено(ВысотаВМиллиметрах) Тогда

ВысотаВМиллиметрах = 10;

КонецЕсли;

Компонент.Высота = Число(Формат((ВысотаВМиллиметрах/35.3) * 100, "ЧДЦ=0"));

Компонент.АвтоТип = Ложь;

//EAN-13 по умолчанию

Компонент.ТипКода = ТипКода;

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

Компонент.СодержитКС = Истина;

// Формируем картинку штрихкода

Компонент.ЗначениеКода = Код;

Компонент.Ширина = Компонент.МинимальнаяШиринаКода + 5;

// Сформируем картинку

ДвоичныеДанныеКартинки = Компонент.ПолучитьШтрихкод();

// Если картинка сформировалась

Если НЕ ДвоичныеДанныеКартинки = Неопределено Тогда

// Формируем из двоичных данных

Картинка = Новый Картинка(ДвоичныеДанныеКартинки);

Возврат Картинка;

КонецЕсли;

ТекстСообщения = НСтр("ru = 'Неизвестная ошибка штрихкодирования. Необходимо обратиться к администратору.'");

ЗаписьЖурналаРегистрации(

НСтр("ru = 'Штрихкодирование'"),

УровеньЖурналаРегистрации.Ошибка,

, ,

ТекстСообщения);

ВызватьИсключение(ТекстСообщения);

КонецФункции

Более подробно о параметрах компоненты:

Название RU/EN	Тип	Чтение	Запись	Описание
Свойства, общие для всех типов штриховых кодов
ТипКода (CodeType)	Число	+	+	Свойство содержит идентификатор типа штрихкода. Может принимать одно из следующих значений: 0 (тип кода — EAN8) 1 (тип кода — EAN13) 2 (тип кода — EAN128) 3 (тип кода — CODE39) 4 (тип кода — CODE128) 5 (тип кода — CODE16K) 6 (тип кода — PDF417) 7 (тип кода — Industrial2of5) 8 (тип кода — Interleaved2of5) 9 (тип кода — Code39FullASCII) 10 (тип кода — CODE93) 11 (тип кода — ITF14) 12 (тип кода — RSS14) 13 (тип кода — CodaBar) 14 (тип кода — EAN13 AddOn 2) 15 (тип кода — EAN13 AddOn 5) 16(тип кода — QR) 17(тип кода — GS1 databar extended stacked), [с версии 9.0.2.2], 18(тип кода DataMatrix ASCII), [с версии 9.0.2.2], 19(тип кода DataMatrix Base256), [с версии 9.0.2.2], 20(тип кода DataMatrix Text), [с версии 9.0.2.2], 21(тип кода DataMatrix C40), [с версии 9.0.2.2], 22(тип кода DataMatrix X12), [с версии 9.0.2.2], 23(тип кода DataMatrix Edifact)[с версии 9.0.2.2], 24(тип кода GS1 Datamatrix) [с версии 9.0.6.4]
АвтоТип (CodeAuto, AutoType)	Булево	+	+	Свойство определяет признак автоматического определения ТипаКода в зависимости от значения переданных в свойствах ЗначениеКода и ТипВходныхДанных. Когда значение свойства принимает значение «Истина» ТипКода определяется автоматически.
ЗначениеКода (CodeValue))	Строка	+	+	Строка или Base64 Строка (см. свойство ТипВходныхДанных) содержащая данные генерируемого ШК
ТекстКода (CodeText)	Строка	+	—	Свойство содержит подпись штрихкода
ОтображатьТекст (TextVisible)	Булево	+	+	Свойство указывает необходимость отображать подпись штрихкода на сгенерированном изображении
Шрифт (Font)	Шрифт	+	+	Свойство содержит шрифт, используемый при отображении подписи штрихкода
РазмерШрифта (FontSize)	Число	+	+	Свойство содержит размер шрифта в пикселах
КоличествоШрифтов(FontCount)	Число	+	—	Свойство содержит количество шрифтов установленных в системе, которые может использовать компонент.
Разделители (CodeSentinel)	Число	+	+	Свойство содержит высоту полос-разделителей (только в EAN8 и EAN13) в процентах от высоты текста
Шрифт (Font)	Шрифт	+	+	Свойство содержит шрифт, используемый при отображении строки на поверхности штрихкода (свойство имеет смысл только в том случае, когда предусмотрен вывод данной строки).
РазмерШрифта (FontSize)	Число	+	+	Свойство содержит размер шрифта в пикселях
КоличествоШрифтов(FontCount)	Число	+	—	Свойство содержит количество шрифтов установленных в системе, которые может использовать компонента.
ПоложениеТекста (TextPosition)	Число	+	+	Свойство задаёт положение подписи. Свойство принимать следующие значения: 0 (снизу) 1 (сверху)
ПрозрачныйФон (BgTransparent)	Булево	+	+	Свойство содержит признак использования прозрачного фона
УголПоворота (CanvasRotation)	Число	+	+	Свойство содержит угол поворота (в градусах) штрихкода на сгенерированном изображении. Может принимать следующие значения: 0 90 180 270
УголПоворота (CanvasRotation)	Число	+	+	Свойство содержит угол поворота (в градусах) штрихкода. Может принимать следующие значения: 0 90 180 270
ВертикальноеВыравниваниеКода(BarVerticalAlign, CodeVerticalAlign)	Число	+	+	Свойство задает способ вертикального выравнивания штрихкода на сгенерированном изображении. Свойство может принимать следующие значения: 1 (по верхнему краю) 2 (по центру) 3 (по нижнему краю)
ТипВходныхДанных (InputDataType)	Число	+	+	Отмечает тип входных данных, которые задаются в свойстве ЗначениеКода. Свойство может принимать следующие значения 0 –Строка 1 – Base64 строка
Результат (Result)	Число	+	—	Возвращает результат генерации изображения ШК 0 – успешная генерация 1 – ошибка
УбратьЛишнийФон (RemoveExeedBackgroud, RemoveExtraBackgroud)	Булево	+	+	Указывает генератору, что требуется убрать лишний фон по краям ШК. В этом случае сгенерированное изображение ШК может быть меньше, чем указанные в свойствах Ширина и Высота. Изображение штрихкода будет совпадать с максимальным размером ШК, который можно вписать в указанные Ширину и Высоту
Ширина (Width)	Число	+	+	Свойство задает Ширину генерируемого изображения в пикселах
Высота (Height)	Число	+	+	Свойство задает Высоту генерируемого изображения в пикселах
УровеньКоррекции (ECL)	Строка	+	+	Свойство задаёт уровень коррекции ошибок. Актуально для PDF417.
МинимальнаяВысота (CodeMinHeight)	Число	+	—	Свойство содержит минимально возможную высоту области, на которой может быть отображён данный штрихкод
МинимальнаяШирина (CodeMinWidth)	Число	+	—	Свойство содержит минимально возможную ширину области, на которой может быть отображён штрихкод с заданными параметрами
Линейные (ld) штрихкоды
СодержитКС (CodeIsRaw, CodeHasCS)	Булево	+	+	Данное свойство содержит признак того, что переданное сообщение содержит контрольный символ
ВидимостьКС (CodeShowCS)	Булево	+	+	В случае, когда данное свойство принимает значение «Истина», контрольный символ будет включён в строку подписи
КонтрольныйСимвол (CodeCheckSymbol)	Строка	+	—	Свойство содержит контрольный символ, если тип штрихкода предполагает его использование
PDF417
КоличествоСтолбцов (ColumnCount)	Число	+	+	Свойство задаёт количество столбцов штрихкода. Актуально для PDF417
КоличествоСтрок (RowCount)	Число	+	+	Свойство задаёт количество строк штрихкода. Актуально для PDF417
Пропорции (AspectRatio)	Строка	+	+	Свойство задаёт соотношение высоты: ширины модулей штрихкода. Актуально для PDF417
УровеньКоррекции (ECL)	Строка	+	+	Свойство задаёт уровень коррекции ошибок. Актуально для PDF417
QR
УровеньКоррекцииQR(QRErrorCorrectionLevel)	Число	+	+	Свойство содержит значение уровня коррекции QR-кода. Может принимать одно из следующих значений: 0 — L 1 — M 2 — Q 3 – H
ЛоготипКартинка(LogoImage) ЛоготипКартинкаBase64(LogoImageBase64)	Строка	+	—	Передает PNG картинку логотипа вписываемого в QR-код в виде Base64 строки
ЛоготипРазмерПроцентОтШК(LogoSizePercentFromBarcode)	Число	+	+	Отмечает процент заполнения логотипом изображения QR-кода
GS1 Databar extended stacked
GS1DatabarКоличествоСтрок(GS1DatabarRowCount)	Число	+	+	Свойство содержит количество строк штрихкода GS1 Databar extended stacked
Устаревшие свойства*
Разделители (CodeSentinel)	Число	+	+	Свойство содержит высоту полос-разделителей (только в EAN8 и EAN13) в процентах от высоты текста
ЦветТекста (TextColor	Цвет	+	+	Свойство содержит цвет, используемый при отображении строки на поверхности штрихкода (свойство имеет смысл только в том случае, когда предусмотрен вывод данной строки).
ЦветФона (BgColor)	Цвет	+	+	Свойство задаёт цвет заливки фона штрихкода. Имеет смысл только тогда, когда не используется прозрачный фон.
ЦветПолос (BarColor)	Цвет	+	+	Свойство содержит цвет, используемый для заливки полос на поверхности штрихкода
ГорСмещение (CanvasXOffset)	Число	+	+	(В настоящий момент не используется) Свойство содержит значение горизонтального смещения изображения штрихкода
ВертСмещение (CanvasYOffset)	Число	+	+	(В настоящий момент не используется) Свойство содержит значение вертикального смещения изображения штрихкода
РазмерКрая (CanvasMargin)	Число	+	+	(В настоящий момент не используется) Свойство задаёт ширину рамки вокруг изображения штрихкода
ВыравниваниеКода (BarAlign)	Число	+	+	(В настоящий момент не используется) Свойство задаёт способ автоматического расположения изображения штрихкода. Может принимать следующие значения: 0 (не использовать автоматическое выравнивание) 1 (по левому краю области) 2 (по центру) 3 (по правому краю области)
ОриентацияТекста (TextAlign)	Число	+	+	Свойство задаёт способ размещения подписи штрихкода. Свойство может принимать следующие значения: 0 (выравнивание текста по центру области) 1 (выравнивание текста по левому краю области) 2 (выравнивание текста по правому краю области) 3 (растянуть текст по ширине области) 4,5,6 (варианты расположения текста, обычно применяемые на штрихкодах типов EAN8 и EAN13)

Далее собственно вывод штрихкода (пример):

ОбластьСтрока.Рисунки.ШтрихКод1.Картинка=ПолучитьКартинкуШтрихкода(н.ИдентификаторПочты,4,100,Истина);

1	ОбластьСтрока.Рисунки.ШтрихКод1.Картинка=ПолучитьКартинкуШтрихкода(н.ИдентификаторПочты,4,100,Истина);

Оставить комментарий БСП, штрихкод

1С БСП: ИнициализироватьМакетОфисногоДокумента с колонтитулами

22.11.2022 Павел Грибов 1C

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

Решение: гугл не помог, помог отладчик.

...
ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийТитульныйКолонтитул", "НижнийТитульныйКолонтитул");
...
ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета, Макет);
...
				Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["НижнийТитульныйКолонтитул"]);
				УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ПараметрыОбласти, Ложь);
...

...

ДобавитьОписаниеОбласти(ОписаниеОбластей, "НижнийТитульныйКолонтитул", "НижнийТитульныйКолонтитул");

...

ПечатнаяФорма = УправлениеПечатью.ИнициализироватьПечатнуюФорму(ТипМакета, Макет.НастройкиСтраницыМакета, Макет);

...

Область = УправлениеПечатью.ОбластьМакета(Макет, Области[ИмяМакета]["НижнийТитульныйКолонтитул"]);

УправлениеПечатью.ПрисоединитьОбластьИЗаполнитьПараметры(ПечатнаяФорма, Область, ПараметрыОбласти, Ложь);

...

Оставить комментарий 1С, БСП, колонтитулы

БСП 3.1.13 Добавление контактной информации в свой справочник

12.11.2020 Павел Грибов 1C

Задача: Внедрить в свой справочник контактную информацию (Например Телефон и Адрес)

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

В переопределяемые типы ВладелецКонтактнойИнформации добавляем справочник, куда нужно добавить контактную информацию. Если Не казан составной тип — указываем.
В справочник ВидыКонтактнойИнформации добавляем предопределенные значения: группа с указанием имени справочника и реквизиты. Например:

3. В справочник где хотим разместить контактную информацию, на форму добавляем группу «КонтактнаяИнформация»

4. В модуль формы справочника добавляем:

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

//Стандартная подсистема Управление контактной информацией
 УправлениеКонтактнойИнформацией.ПриСозданииНаСервере(ЭтотОбъект, Объект, "ГруппаКонтактнаяИнформация", ПоложениеЗаголовкаЭлементаФормы.Лево);
//Конец Стандартная подсистема Управление контактной информацией

	// инициализация !! выполняем 1 раз, далее коментируем!
	
		//КМ_Организации = Справочники.ВидыКонтактнойИнформации.СправочникЭЗС.ПолучитьОбъект();
		//КМ_Организации.Используется = Истина;
		//ОбновлениеИнформационнойБазы.ЗаписатьДанные(КМ_Организации);

		//ПараметрыВида = УправлениеКонтактнойИнформацией.ПараметрыВидаКонтактнойИнформации(Перечисления.ТипыКонтактнойИнформации.Телефон);
		//ПараметрыВида.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонЭЗС;
		//ПараметрыВида.МожноИзменятьСпособРедактирования = Истина;
		//ПараметрыВида.Порядок = 1;
		//УправлениеКонтактнойИнформацией.УстановитьСвойстваВидаКонтактнойИнформации(ПараметрыВида);
		//
		//ПараметрыВида = УправлениеКонтактнойИнформацией.ПараметрыВидаКонтактнойИнформации(Перечисления.ТипыКонтактнойИнформации.Адрес);
		//ПараметрыВида.Вид = Справочники.ВидыКонтактнойИнформации.АдресЭЗС;
		//ПараметрыВида.МожноИзменятьСпособРедактирования = Истина;
		//ПараметрыВида.Порядок = 2;
		//УправлениеКонтактнойИнформацией.УстановитьСвойстваВидаКонтактнойИнформации(ПараметрыВида);
	
	// конец инициализации!	
	
КонецПроцедуры

&НаСервере
Процедура ПриЧтенииНаСервере(ТекущийОбъект)
	Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");
		МодульУправлениеКонтактнойИнформацией.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);
	КонецЕсли;
	

КонецПроцедуры

&НаСервере
Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)
	Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");
		МодульУправлениеКонтактнойИнформацией.ОбработкаПроверкиЗаполненияНаСервере(ЭтотОбъект, Объект, Отказ);
	КонецЕсли;

КонецПроцедуры

&НаСервере
Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	Если ОбщегоНазначения.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");
		МодульУправлениеКонтактнойИнформацией.ПередЗаписьюНаСервере(ЭтотОбъект, ТекущийОбъект);
	КонецЕсли;

КонецПроцедуры


// СтандартныеПодсистемы.КонтактнаяИнформация

&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияПриИзменении(Элемент)
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.НачатьИзменение(ЭтотОбъект, Элемент);
	КонецЕсли;
КонецПроцедуры

// Параметры:
// 	Элемент - ПолеФормы
//


&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		
		ПараметрыОткрытия = Новый Структура;
		
		Отбор = Новый Структура("ИмяРеквизита", Элемент.Имя);
		Строки = ЭтотОбъект.КонтактнаяИнформацияОписаниеДополнительныхРеквизитов.НайтиСтроки(Отбор);
		ДанныеСтроки = ?(Строки.Количество() = 0, Неопределено, Строки[0]);
		Если ДанныеСтроки <> Неопределено Тогда
			//ДобавитьСтрануВПараметрыОткрытия(ПараметрыОткрытия, ДанныеСтроки.Вид, Объект.СтранаРегистрации);
		КонецЕсли;
		
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.НачатьВыбор(ЭтотОбъект, Элемент,, СтандартнаяОбработка, ПараметрыОткрытия);
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияПриНажатии(Элемент, СтандартнаяОбработка)
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.НачатьВыбор(ЭтотОбъект, Элемент,, СтандартнаяОбработка);
	КонецЕсли;
КонецПроцедуры

// Параметры:
// 	Элемент - ПолеФормы
// 	СтандартнаяОбработка - Булево
//
&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияОчистка(Элемент, СтандартнаяОбработка)
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.НачатьОчистку(ЭтотОбъект, Элемент.Имя);
	КонецЕсли;
КонецПроцедуры


// Параметры:
// 	Команда - КомандаФормы
//
&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияВыполнитьКоманду(Команда)
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда.Имя);
	КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)
	
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.АвтоПодборАдреса(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка);
	КонецЕсли;
	
КонецПроцедуры

// Параметры:
// 	Элемент - ПолеФормы
// 	
&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
	
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.ОбработкаВыбора(ЭтотОбъект, ВыбранноеЗначение, Элемент.Имя, СтандартнаяОбработка);
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_КонтактнаяИнформацияОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)
	
	Если ОбщегоНазначенияКлиент.ПодсистемаСуществует("СтандартныеПодсистемы.КонтактнаяИнформация") Тогда
		МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");
		МодульУправлениеКонтактнойИнформациейКлиент.НачатьОбработкуНавигационнойСсылки(ЭтотОбъект, Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка);
	КонецЕсли;
	
КонецПроцедуры

&НаКлиенте
Процедура Подключаемый_ПродолжитьОбновлениеКонтактнойИнформации(Результат, ДополнительныеПараметры) Экспорт
	ОбновитьКонтактнуюИнформацию(Результат);
КонецПроцедуры

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

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

//Стандартная подсистема Управление контактной информацией

УправлениеКонтактнойИнформацией.ПриСозданииНаСервере(ЭтотОбъект, Объект, "ГруппаКонтактнаяИнформация", ПоложениеЗаголовкаЭлементаФормы.Лево);

//Конец Стандартная подсистема Управление контактной информацией

// инициализация !! выполняем 1 раз, далее коментируем!

//КМ_Организации = Справочники.ВидыКонтактнойИнформации.СправочникЭЗС.ПолучитьОбъект();

//КМ_Организации.Используется = Истина;

//ОбновлениеИнформационнойБазы.ЗаписатьДанные(КМ_Организации);

//ПараметрыВида = УправлениеКонтактнойИнформацией.ПараметрыВидаКонтактнойИнформации(Перечисления.ТипыКонтактнойИнформации.Телефон);

//ПараметрыВида.Вид = Справочники.ВидыКонтактнойИнформации.ТелефонЭЗС;

//ПараметрыВида.МожноИзменятьСпособРедактирования = Истина;

//ПараметрыВида.Порядок = 1;

//УправлениеКонтактнойИнформацией.УстановитьСвойстваВидаКонтактнойИнформации(ПараметрыВида);

//ПараметрыВида = УправлениеКонтактнойИнформацией.ПараметрыВидаКонтактнойИнформации(Перечисления.ТипыКонтактнойИнформации.Адрес);

//ПараметрыВида.Вид = Справочники.ВидыКонтактнойИнформации.АдресЭЗС;

//ПараметрыВида.МожноИзменятьСпособРедактирования = Истина;

//ПараметрыВида.Порядок = 2;

//УправлениеКонтактнойИнформацией.УстановитьСвойстваВидаКонтактнойИнформации(ПараметрыВида);

// конец инициализации!

КонецПроцедуры

&НаСервере

Процедура ПриЧтенииНаСервере(ТекущийОбъект)

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

МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");

МодульУправлениеКонтактнойИнформацией.ПриЧтенииНаСервере(ЭтотОбъект, ТекущийОбъект);

КонецЕсли;

КонецПроцедуры

&НаСервере

Процедура ОбработкаПроверкиЗаполненияНаСервере(Отказ, ПроверяемыеРеквизиты)

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

МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");

МодульУправлениеКонтактнойИнформацией.ОбработкаПроверкиЗаполненияНаСервере(ЭтотОбъект, Объект, Отказ);

КонецЕсли;

КонецПроцедуры

&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

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

МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");

МодульУправлениеКонтактнойИнформацией.ПередЗаписьюНаСервере(ЭтотОбъект, ТекущийОбъект);

КонецЕсли;

КонецПроцедуры

// СтандартныеПодсистемы.КонтактнаяИнформация

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияПриИзменении(Элемент)

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

МодульУправлениеКонтактнойИнформациейКлиент = ОбщегоНазначенияКлиент.ОбщийМодуль("УправлениеКонтактнойИнформациейКлиент");

МодульУправлениеКонтактнойИнформациейКлиент.НачатьИзменение(ЭтотОбъект, Элемент);

КонецЕсли;

КонецПроцедуры

// Параметры:

// Элемент - ПолеФормы

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)

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

ПараметрыОткрытия = Новый Структура;

Отбор = Новый Структура("ИмяРеквизита", Элемент.Имя);

Строки = ЭтотОбъект.КонтактнаяИнформацияОписаниеДополнительныхРеквизитов.НайтиСтроки(Отбор);

ДанныеСтроки = ?(Строки.Количество() = 0, Неопределено, Строки[0]);

Если ДанныеСтроки <> Неопределено Тогда

//ДобавитьСтрануВПараметрыОткрытия(ПараметрыОткрытия, ДанныеСтроки.Вид, Объект.СтранаРегистрации);

КонецЕсли;

МодульУправлениеКонтактнойИнформациейКлиент.НачатьВыбор(ЭтотОбъект, Элемент,, СтандартнаяОбработка, ПараметрыОткрытия);

КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияПриНажатии(Элемент, СтандартнаяОбработка)

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

МодульУправлениеКонтактнойИнформациейКлиент.НачатьВыбор(ЭтотОбъект, Элемент,, СтандартнаяОбработка);

КонецЕсли;

КонецПроцедуры

// Параметры:

// Элемент - ПолеФормы

// СтандартнаяОбработка - Булево

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияОчистка(Элемент, СтандартнаяОбработка)

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

МодульУправлениеКонтактнойИнформациейКлиент.НачатьОчистку(ЭтотОбъект, Элемент.Имя);

КонецЕсли;

КонецПроцедуры

// Параметры:

// Команда - КомандаФормы

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияВыполнитьКоманду(Команда)

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

МодульУправлениеКонтактнойИнформациейКлиент.НачатьВыполнениеКоманды(ЭтотОбъект, Команда.Имя);

КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияАвтоПодбор(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка)

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

МодульУправлениеКонтактнойИнформациейКлиент.АвтоПодборАдреса(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, Ожидание, СтандартнаяОбработка);

КонецЕсли;

КонецПроцедуры

// Параметры:

// Элемент - ПолеФормы

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

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

МодульУправлениеКонтактнойИнформациейКлиент.ОбработкаВыбора(ЭтотОбъект, ВыбранноеЗначение, Элемент.Имя, СтандартнаяОбработка);

КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_КонтактнаяИнформацияОбработкаНавигационнойСсылки(Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка)

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

МодульУправлениеКонтактнойИнформациейКлиент.НачатьОбработкуНавигационнойСсылки(ЭтотОбъект, Элемент, НавигационнаяСсылкаФорматированнойСтроки, СтандартнаяОбработка);

КонецЕсли;

КонецПроцедуры

&НаКлиенте

Процедура Подключаемый_ПродолжитьОбновлениеКонтактнойИнформации(Результат, ДополнительныеПараметры) Экспорт

ОбновитьКонтактнуюИнформацию(Результат);

КонецПроцедуры

&НаСервере

Процедура ОбновитьКонтактнуюИнформацию(Результат)

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

МодульУправлениеКонтактнойИнформацией = ОбщегоНазначения.ОбщийМодуль("УправлениеКонтактнойИнформацией");

МодульУправлениеКонтактнойИнформацией.ОбновитьКонтактнуюИнформацию(ЭтотОбъект, Объект, Результат);

КонецЕсли;

КонецПроцедуры

// Конец СтандартныеПодсистемы

Внимание! Обращаю внимание что нужно на форме прописать событие «ПриСозданииНаСервере», а в самом событии закомментировать код, в котором написано, что выполнять 1 раз

Оставить комментарий 1с, БСП, контактная информация

1С: Прикрепляемые файлы к документу

20.04.2020 Павел Грибов 1C

Задача: организовать прикрепление и хранение файлов в документе. Желательно используя «штатный велосипед» 1С.

Решение:

Всё зависит от БСП на основе которой построена Ваша конфигурация. В моем случае, конфигурация Бухгалтерия 3.0.75.100, БСП 3.1.25

Узнать версию БСП можно при помощи:

Сообщить(СтандартныеПодсистемыСервер.ВерсияБиблиотеки());

1	Сообщить(СтандартныеПодсистемыСервер.ВерсияБиблиотеки());

Далее если есть подписка на ИТС, читаем тут или если нет, то у меня 😉

1) Чтобы ручками не заполнять все реквизиты, копируем справочник «ПередачаТоваровПрисоединенныеФайлы», копию переименовываем в <ИмяМоегоДокумента>ПрисоединенныеФайлы. В моем случае документ носит имя «Абоненты». Далее на скриншотах и в тексте я его так и буду называть. В Вашем случае это будет Ваш справочник/документ.

В реквизите «ВладелецФайла» указываем наш документ

2) В состав определяемых типов ПрисоединенныйФайл (ссылки) и ПрисоединенныйФайлОбъект (объекты) добавим наш документ:

3) Включить в состав плана обмена ОбновлениеИнформационнойБазы

4) Добавить источники у подписк и «ПереопределитьПолучаемуюФормуПрисоединенногоФайла» и «УстановитьПометкуУдаленияПрисоединенныхФайловДокументов»

5) Добавить в состав определяемых типов ВладелецПрисоединенныхФайлов (ссылки) и ВладелецПрисоединенныхФайловОбъект (объекты)

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

Добавить реквизит формыМожноЗакрытьФормуСФайламитипа Булево.
В обработчике формыПередЗакрытиемвставить вызов процедуры ПоказатьПодтверждениеЗакрытияФормыСФайлами общего модуля РаботаСФайламиКлиент по шаблону:

&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
    РаботаСФайламиКлиент.ПоказатьПодтверждениеЗакрытияФормыСФайлами(ЭтотОбъект, Отказ, Объект.Ссылка);
КонецПроцедуры

&НаКлиенте

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)

РаботаСФайламиКлиент.ПоказатьПодтверждениеЗакрытияФормыСФайлами(ЭтотОбъект, Отказ, Объект.Ссылка);

КонецПроцедуры

Другой код, который необходимо выполнять в обработчикеПередЗакрытием, следует размещать после вызова процедуры и проверки параметраОтказ. Например:

&НаКлиенте
Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)
    РаботаСФайламиКлиент.ПоказатьПодтверждениеЗакрытияФормыСФайлами(ЭтотОбъект, Отказ, Объект.Ссылка);
    Если Отказ Тогда
        Возврат;
    КонецЕсли;
    <другой код...>
КонецПроцедуры

&НаКлиенте

Процедура ПередЗакрытием(Отказ, СтандартнаяОбработка)

РаботаСФайламиКлиент.ПоказатьПодтверждениеЗакрытияФормыСФайлами(ЭтотОбъект, Отказ, Объект.Ссылка);

Если Отказ Тогда

Возврат;

КонецЕсли;

<другой код...>

КонецПроцедуры

Результат: появившаяся «скрепочка» и список файлов по её нажатии.

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

Оставить комментарий 1с, БСП, прикрепление файлов

Ноябрь 2024
Пн	Вт	Ср	Чт	Пт	Сб	Вс
				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