shtrix-kodirovanie_dokumentov

Различия

Показаны различия между двумя версиями страницы.

Ссылка на это сравнение

Следующая версия 		Предыдущая версия
shtrix-kodirovanie_dokumentov [2021/03/03 11:24]
tro создано 		shtrix-kodirovanie_dokumentov [2021/03/03 11:52] (текущий)
tro
Строка 1: Строка 1:
 <code> <code>
  
-Функция ПолучитьШК128ДляВедомости(СсылкаНаДок,ИмяМакетаДляШК) Экспорт  +</code>
-  +
- ПараметрыШтрихКода = Новый Структура; +
- ПараметрыШтрихКода.Вставить("ТипКода"); +
- ПараметрыШтрихКода.Вставить("ОтображатьТекст"); +
- ПараметрыШтрихКода.Вставить("Сообщение"); +
- ПараметрыШтрихКода.Вставить("ТекстКода"); +
-  +
-  +
- //Проверяем наличие установленной компоненты  +
- Попытка +
- КомпонентШК = Новый COMОбъект("V8.Barcod"); +
- Исключение +
- КомпонентШК = Неопределено; +
- Сообщить("Компонента 1CBarCode не установлена на данном компьютере! Штрих код не будет сформирован.", СтатусСообщения.Важное); +
- Возврат Неопределено; +
- КонецПопытки; +
-  +
-  +
- Если КомпонентШК <> Неопределено Тогда +
-  +
- Если ИмяМакетаДляШК = "ТТН (КАШКАН)" Тогда  +
- ИмяМакетаДляШК = "ТТН_КАШКАН" +
- ИначеЕсли ИмяМакетаДляШК = "ТТНАлкогольРазд" Тогда  +
- ИмяМакетаДляШК = "ТТН_Алкоголь_Полный" +
- ИначеЕсли ИмяМакетаДляШК = "НакладнаяАТБ_КАШКАН" Тогда  +
- ИмяМакетаДляШК = "ТТН_АТБ" +
- ИначеЕсли ИмяМакетаДляШК = "ТТНАлкогольАТБ" Тогда  +
- ИмяМакетаДляШК = "ТТН_Алкоголь_Полный_АТБ" +
- ИначеЕсли ИмяМакетаДляШК = "ФУРШЕТ" Тогда  +
- ИмяМакетаДляШК = "НакладнаяФуршет" +
- ИначеЕсли ИмяМакетаДляШК = "КАРАВАН" Тогда  +
- ИмяМакетаДляШК = "НакладнаяКараван" +
- КонецЕсли; +
-  +
- МойШтрихКод = Штрихкодирование.СформироватьШК128(СсылкаНаДок,ИмяМакетаДляШК); +
-  +
- Если ЗначениеЗаполнено(МойШтрихКод) Тогда  +
-  +
- ПараметрыШтрихКода.ТипКода = 4; //CODE128 +
- ПараметрыШтрихКода.ОтображатьТекст = Ложь; +
- ПараметрыШтрихКода.Сообщение = СокрЛП(МойШтрихКод); +
- ПараметрыШтрихКода.ТекстКода = СокрЛП(МойШтрихКод); +
- Возврат ПараметрыШтрихКода;  +
- Иначе  +
- Сообщить("Невозможно сформировать штрих код для документа "+СсылкаНаДок+" и его печатной формы "+ИмяМакетаДляШК+" т.к. его нет в таблице кодировки"); +
- Возврат Неопределено; +
- КонецЕсли; +
-  +
- КонецЕсли;  +
-  +
-  +
-КонецФункции+
  
 +<code>
 +
 +</code>
 +
 +<code>
 +
 +</code>
 +
 +<code>
  
 </code> </code>
  • /sites/data/attic/shtrix-kodirovanie_dokumentov.1614770665.txt.gz
  • Последнее изменение: 2021/03/03 11:24
  • — tro