1С Программирование

• Табличный документ
• Напечатать штрихкод 1С
• Заготовка обработки с сохранением параметров
• Общего назначения

Табличный документ

Напечатать штрихкод 1С

В интернете очень много вариантов вывода с подключением каких-то компонент. Указанный метод работает на чистой БП 3.0.140.29 без установки чего-либо.

Вывод в документ

Располагаем пустой рисунок на печатной форме, даём имя:

РисунокШК = ОбластьМакета.Рисунки.ШтрихКод;
ШтрихКод = ДанныеЗаявки.КоносаментПоЗаявке;
РисунокШК.Картинка = ПолучитьШтрихкод(РисунокШК.Ширина,РисунокШК.Высота, Штрихкод);
РисунокШК.Линия = Новый Линия(ТипЛинииРисункаТабличногоДокумента.НетЛинии);
ТД.Вывести(ОбластьМакета);

ПолучитьШтрихкод

Функция ПолучитьШтрихкод(ШиринаШтрихкода, ВысотаШтрихкода, Штрихкод)
    
    ПараметрыШтрихкода = ГенерацияШтрихкода.ПараметрыГенерацииШтрихкода();
    ПараметрыШтрихкода.GS1DatabarКоличествоСтрок = 2;
    ПараметрыШтрихкода.Ширина  = ШиринаШтрихкода;
    ПараметрыШтрихкода.Высота  = ВысотаШтрихкода;
    ПараметрыШтрихкода.ТипКода = 99;
    ПараметрыШтрихкода.ОтображатьТекст = Ложь;
    ПараметрыШтрихкода.РазмерШрифта   = 0;
    ПараметрыШтрихкода.УголПоворота   = 0;
    ПараметрыШтрихкода.Штрихкод       = Штрихкод;
    ПараметрыШтрихкода.ПрозрачныйФон  = Ложь;
    ПараметрыШтрихкода.Масштабировать = Истина;
    
    РезультатОперации = ГенерацияШтрихкода.ИзображениеШтрихкода(ПараметрыШтрихкода);
    Возврат РезультатОперации.Картинка;
    
КонецФункции

Взято тут

Заготовка обработки с сохранением параметров

Скачать

Заменить названием и идентификатором своей обработки

Добавить свои параметры в обработку

Отразить на форме

Общего назначения

Числа

ПолучитьСклоненияСтрокиПоЧислу

"Будет отправлено "+ПолучитьСклоненияСтрокиПоЧислуНаСервере("письмо",ПисьмаНаОтправку.Количество(),"ПД=Винительный")+". Продолжить?"

&НаСервереБезКонтекста
Функция ПолучитьСклоненияСтрокиПоЧислуНаСервере(Слово,Количество,Формат)
	Склонения = ПолучитьСклоненияСтрокиПоЧислу(Слово,Количество,,,Формат);
	Если НЕ ЗначениеЗаполнено(Склонения) Тогда
		Возврат Строка(Количество)+" "+Слово;
	КонецЕсли;
	Возврат Склонения[0];
КонецФункции // ПолучитьСклоненияСтрокиПоЧислуНаСервере()

Регулярные выражения

лучший конструктор регулярных выражений

// Убрать номер авто
РезультатПоиска = СтрНайтиПоРегулярномуВыражению(Рез.Услуга, "([АВЕКМНОРСТУХ]\d{3,3}[АВЕКМНОРСТУХ]{2,2})"); 	
Если РезультатПоиска.НачальнаяПозиция <> 0 Тогда 
	СтрокаРезультат = СРед(Рез.Услуга, РезультатПоиска.НачальнаяПозиция, РезультатПоиска.Длина); 
	Рез.Услуга = СтрЗаменить(Рез.Услуга,СтрокаРезультат,"");
КонецЕсли;	
// Убрать номер авто

или так

Рез.Услуга = СтрЗаменитьПоРегулярномуВыражению(Рез.Услуга, "([АВЕКМНОРСТУХ]\d{3,3}[АВЕКМНОРСТУХ]{2,2})","");

СтрНайтиПоРегулярномуВыражению(<Строка>, <РегулярноеВыражение>, <НаправлениеПоиска>, <НачальнаяПозиция>, <НомерВхождения>, <ИгнорироватьРегистр>, <МногострочныйПоиск>)
СтрНайтиВсеПоРегулярномуВыражению(<Строка>, <РегулярноеВыражение>, <ИгнорироватьРегистр>, <МногострочныйПоиск>)
СтрПодобнаПоРегулярномуВыражению(<Строка>, <РегулярноеВыражение>, <ИгнорироватьРегистр>, <МногострочныйПоиск>)
СтрЗаменитьПоРегулярномуВыражению(<Строка>, <РегулярноеВыражение>, <ПодстрокаЗамены>, <ИгнорироватьРегистр>, <МногострочныйПоиск>)