Формат кода маркировки - определить програмно что код соответствует формату

Функция ПолучитьПеременнуюСтроку(М,Начало,Длина)
	
	Поток = Новый ПотокВПамяти;
	ЗаписьДанных = Новый ЗаписьДанных(Поток);
	Длина = 0;
	Для х=Начало-1 По М.Количество()-1 Цикл
		Если М[х]=29 Тогда //FNC1
			Прервать;
		КонецЕсли;
		ЗаписьДанных.ЗаписатьБайт(М[х]);
		Длина = Длина + 1;
	КонецЦикла;
	ДвоичныеДанные = Поток.ЗакрытьИПолучитьДвоичныеДанные();

	Возврат ПолучитьСтрокуИзДвоичныхДанных(ДвоичныеДанные,КодировкаТекста.ANSI);
КонецФункции

Функция ПолучитьФиксированнуюСтроку(М,Начало,Длина)
	
	Поток = Новый ПотокВПамяти;
	ЗаписьДанных = Новый ЗаписьДанных(Поток);
	Для х=Начало-1 По Начало-1+Длина-1 Цикл
		ЗаписьДанных.ЗаписатьБайт(М[х]);
	КонецЦикла;
	ДвоичныеДанные = Поток.ЗакрытьИПолучитьДвоичныеДанные();
	
	Возврат ПолучитьСтрокуИзДвоичныхДанных(ДвоичныеДанные,КодировкаТекста.ANSI);
КонецФункции

Процедура Удалить(М,Количество)
	Для х=1 По Количество Цикл
		Если М.Количество()=0 Тогда
			Прервать;
		Иначе
			М.Удалить(0);
		КонецЕсли;
	КонецЦикла;
КонецПроцедуры

Функция ПолучитьДанныеШтрихкода(Штрихкод) Экспорт
	
	Результат = Новый Структура;
	
	ДвоичныеДанные = ПолучитьДвоичныеДанныеИзСтроки(Штрихкод);
	
	М = Новый Массив;
	ЧтениеДанных = Новый ЧтениеДанных(ДвоичныеДанные);
	Пока Истина Цикл
		Байт = ЧтениеДанных.ПрочитатьБайт();
		Если Байт=Неопределено Тогда
			Прервать;
		Иначе
			М.Добавить(Байт);
		КонецЕсли;
	КонецЦикла;
	
	Длина = Неопределено;
	Пока Истина Цикл
		
		Если М.Количество()<3 Тогда
			Прервать;
		КонецЕсли;
		
		А1 = Символ(М[0]);
		А2 = Символ(М[1]);
		А3 = Символ(М[2]);
		
		Если А1+А2="01" Тогда
			Результат.Вставить("GTIN",ПолучитьФиксированнуюСтроку(М,3,14));
			Удалить(М,16);
			Продолжить;
		КонецЕсли;
		
		Если А1+А2="21" Тогда
			Результат.Вставить("СерийныйНомер",ПолучитьПеременнуюСтроку(М,3,Длина));
			Удалить(М,Длина+3);
			Продолжить;
		КонецЕсли;
		
		Если А1+А2+А3="240" Тогда
			Результат.Вставить("КодТНВЭД",ПолучитьПеременнуюСтроку(М,4,Длина));
			Удалить(М,Длина+4);
			Продолжить;
		КонецЕсли;
		
		Если А1="9" Тогда
			Результат.Вставить("INTERNAL"+А2,ПолучитьПеременнуюСтроку(М,3,Длина));
			Удалить(М,Длина+3);
			Продолжить;
		КонецЕсли;
		
		
//		Сообщить("Неизвестный AI "+А1+А2);
		Прервать;
		
	КонецЦикла;
	

	Возврат Результат;
КонецФункции

ДанныеШтрихкода = ПолучитьДанныеШтрихкода(Штрихкод);
Если ДанныеШтрихкода.Свойство("GTIN") И ДанныеШтрихкода.Свойство("СерийныйНомер") Тогда
	//Правильный штрихкод с маркировкой
Иначе
	//Нет маркировки
КонецЕсли;