Каталог решений - Штрихкодирование автозапчастей. Альфа-авто.

Но на упаковках в большинстве случаях есть штрихкоды производителей. И можно попробовать использовать их.

Большинство штрихкодов производителей по оригинальным и приличным не оригинальным брендам — это каталожный номер детали. Но с небольшими дополнениями/изменениями. Есть, конечно, еще китай, но там своя песня.  🙂

Обычно не хватает каких-то символов или штрихкод содержит дополнительные «лишние» символы. Повлиять на считывание штрихкода сканером мы не можем, но можем изменить его обработку.

В статье сделана попытка систематизировать отличия штрихкода от каталожного номера, информация получена опытным путем, и буду благодарен за комментарии и дополнения. Плюс приведены фрагменты кода для автоматизации этих проверок на базе Альфа-авто, ред.5. (Для ред.4 потребует некоторых корректировок).

Первое, сделаем автоматическое формирование штрихкода, равному артикулу при записи номенклатуры:

// Если нет ещё штрих кода, то заполним его по Артикулу.
Если НЕ ЭтоГруппа Тогда
	Запрос = Новый Запрос;
	Запрос.Текст = 
	"ВЫБРАТЬ
	|	ШтрихКоды.ШтрихКод
	|ИЗ
	|	РегистрСведений.ШтрихКоды КАК ШтрихКоды
	|ГДЕ
	|	ШтрихКоды.Объект = &Объект
	|	И ШтрихКоды.ШтрихКод = ПОДСТРОКА(&ШтрихКод, 1, 22)";
	Запрос.УстановитьПараметр("Объект",   Ссылка);
	Запрос.УстановитьПараметр("ШтрихКод", Артикул);
	Выборка = Запрос.Выполнить().Выбрать();
	Если Не Выборка.Следующий() ТОгда
		// Ещё не записи, сделаем новую запись
		Набор = РегистрыСведений.ШтрихКоды.СоздатьНаборЗаписей();	
		Набор.Отбор.Объект.Значение      = Ссылка;
		Набор.Отбор.Объект.Использование = Истина;
		Набор.Прочитать();
		
		НоваяСтрока = Набор.Добавить();
		НоваяСтрока.Запрет 			 = Ложь;
		НоваяСтрока.Объект           = Ссылка;
		НоваяСтрока.ЕдиницаИзмерения = ОсновнаяЕдиницаИзмерения;
		НоваяСтрока.ШтрихКод         = Артикул;
		
		Набор.Записать();
	КонецЕсли;
КонецЕсли;

Дальше, если штрих код, равный артикулу, не найден, то пробуем модифицировать его по различным вариантам и найти в нем каталожный номер детали. В Альфа-авто для этого в обработке ШтрихКоды необходимо модифицировать процедуру НайтиСтруктуруПоШтрихКоду().

Для запчастей Toyota, Suzuki и некоторых других в конце штрих кода обычно встречается дополнительный символ через два пробела: <8871006420  Q>, <531112B060  K> и др.

// Если в штрих коде есть два пробела и буква в конце, то убираем их. . 
ЕстьПробелы = Найти(ШК," ");
Если ЕстьПробелы > 0 И ЕстьПробелы + 2 = СтрДлина(ШК) Тогда
 СтуктураОбъект = НайтиСтруктуруПоШтрихКоду(Формат(Лев(ШК,СтрДлина(ШК)-3),"ЧГ=0"), флРугатьсяНаЗапрещенныйШтрихКод);

Тут же можно добавить добавление нового реально прочитанного штрихкода в базу: 

СтуктураОбъект =  НайтиСтруктуруПоШтрихКоду(Формат(Лев(ШК,Найти(ШК,"  T")),"ЧГ=0"), флРугатьсяНаЗапрещенныйШтрихКод);	
							
				Если ТипЗнч(СтуктураОбъект) = Тип("Структура") Тогда
					// Нашли, изменим штирих код и вернём эту структуру.
					Набор = РегистрыСведений.ШтрихКоды.СоздатьНаборЗаписей();
					Набор.Отбор.Объект.Значение = СтуктураОбъект.Объект;
					Набор.Отбор.Объект.Использование = Истина;
					Набор.Прочитать();  
					
					НовыйШтрихКод = Набор.Добавить();
					НовыйШтрихКод.Объект           = СтуктураОбъект.Объект; 
					Если ТипЗнч(СтуктураОбъект.Объект)=Тип("СправочникСсылка.Номенклатура") Тогда 
						НовыйШтрихКод.ЕдиницаИзмерения           = СтуктураОбъект.Объект.ОсновнаяЕдиницаИзмерения;
					КонецЕсли;
					НовыйШтрихКод.ШтрихКод               = ШК;
					НовыйШтрихКод.Запрет= Ложь;
					Набор.Записать();
				
					Сообщить("Для номенклатуры '"+СтуктураОбъект.Объект.Артикул+"', "+СтуктураОбъект.Объект+
							" добавлен новый штрих код '"+ШК+"'."); 
										
					Возврат СтуктураОбъект; 
				КонецЕсли;

Для Honda штрихкод полностью соответствует каталожному номеру с «-» и разделителями, но для удобства ввода и поиска«-» обычно убирают при заполнении номенклатуры. Плюс у некоторых производителей могут быть лишние дефисы в штрихкодах, поэтому проверим штрих код без дефисов:

// Если в штрих коде есть "-", то убираем их. . 
Если Найти(ШК, "-") > 0 Тогда
СтуктураОбъект = НайтиСтруктуруПоШтрихКоду(Формат(СтрЗаменить(ШК,"-",""),"ЧГ=0"), флРугатьсяНаЗапрещенныйШтрихКод);

Встречаются штрихкоды с одним или двумя лишними нулями на конце. Также можно проверить без них:

// Если в конце один ноль, проверим без них:
Если Сред(ШК,СтрДлина(Шк),СтрДлина(Шк)) = "0" Тогда
СтуктураОбъект = НайтиСтруктуруПоШтрихКоду(Формат(Лев(ШК,СтрДлина(ШК)-1),"ЧГ=0"), флРугатьсяНаЗапрещенныйШтрихКод);

Для Cirtoen и, возможно, для всех PSA в штрихкоде на конце встречается -000, когда в каталожном номере -0000, встречаются лишние -С148 в конце номера:

Если Прав(ШК,4) = "-000" Тогда
СтуктураОбъект = НайтиСтруктуруПоШтрихКоду(ШК+"0", флРугатьсяНаЗапрещенныйШтрихКод);

Для Mitsubishi в конце бывает лишние »  T» и через пробел число с двумя или треми лидирующими нулями <MF453033V T   001>,  <MD339754  T  0001>, <MD050316  T  0005>. Так же «T» и количество может быть без пробелов или с одним пробелом.  <MD339754T  0001>,  <MD339754 T  0001>. Бывает в переди символ «P».

// Если в конце " T" и количество, то отрезаем его:
Если Найти(ШК,"  T") > 0 Тогда
СтуктураОбъект = НайтиСтруктуруПоШтрихКоду(Формат(Лев(ШК,Найти(ШК,"  T")),"ЧГ=0"), флРугатьсяНаЗапрещенныйШтрихКод);

Для Mitsubishi, Hyundai, Kia и некоторых других брендов число через различное количество пробелов (обычно это количество штук в упаковке): <MN195668      001>, <MF453019  0002> и т.д. Пробелов обычно больше двух, поэтому для отсечения таких символов можно ориентироваться на два пробела и выполнять эту проверку после остальных, чтобы не отсечь нужные символы.

Если Найти(ШК,"  ") > 0 Тогда
СтуктураОбъект = НайтиСтруктуруПоШтрихКоду(Формат(Лев(ШК,Найти(ШК,"  ")),"ЧГ=0"), флРугатьсяНаЗапрещенныйШтрихКод);

Ну и вариант, когда каталожный номер числовой и зашифрован обычным EAN13. В таком случае к штрихкоду добавляется 13-й контрольный символ, и надо проверить штрихкод без него:

// Если 13 символов, попробуем обрезать последний
Если СтрДлина(ШК) = 13 Тогда
СтуктураОбъект = НайтиСтруктуруПоШтрихКоду(Формат(Лев(ШК,12),"ЧГ=0"), флРугатьсяНаЗапрещенныйШтрихКод);

Так как штрихкод, равный каталожному номеру, может содержать любое количество символов, буквы и цифры, то для его печати (к примеру, для восстановления поврежденного ШК на упаковке или при разделении одной упаковки на несколько) использовать коды EAN13 не получится, и надо будет использовать Code128 или другие форматы, способные кодировать строки различной длины с буквами и цифрами.

К минусам данного метода можно отнести:

• При работе с различными брендами каталожные номера у разных производителей все-таки иногда пересекаются, что может привести к ошибкам. Тут можно добавить дополнительную проверку по бренду в случае нахождения нескольких одинаковых артикулов.
• В базе уже должны быть заполнены сканируемые номенклатурные позиции с каталожными номерами.
• На разных коробках у разных производителей штрихкоды находятся в разных местах, могут присутствовать другие штрихкоды, не содержащие в себе каталожного номера, что приводит к неудобству считывания штрихкодов.
• Мелкие детали (болты, гайки, шайбы, клипсы и т.д.) не имеют оригинальных коробок.
• Некоторые детали приходят по несколько штук в одной коробке, и их надо разделять.

К плюсам то, что нет необходимости оклеивать все детали, формировать и заносить штрихкоды в базу.