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

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

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