Спасибо за обработку, все работает отлично, единственное, добавил функцию конвертации русских букв в латиницу, что-бы не переключать раскладку клавиатуры перед сканированием АМ:
Функция ЗаменитьРусскиеБуквыНаАнглийские(Текст)
Результат=СокрЛП(СтрЗаменить(Текст,Симв(201),Симв(81)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(233),Симв(81)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(214),Симв(87)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(246),Симв(87)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(211),Симв(69)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(243),Симв(69)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(202),Симв(82)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(234),Симв(82)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(197),Симв(84)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(229),Симв(84)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(205),Симв(89)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(237),Симв(89)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(195),Симв(85)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(227),Симв(85)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(216),Симв(73)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(248),Симв(73)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(217),Симв(79)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(249),Симв(79)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(199),Симв(80)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(231),Симв(80)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(213),Симв(123)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(245),Симв(123)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(218),Симв(125)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(250),Симв(125)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(212),Симв(65)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(244),Симв(65)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(219),Симв(83)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(251),Симв(83)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(194),Симв(68)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(226),Симв(68)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(192),Симв(70)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(224),Симв(70)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(207),Симв(71)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(239),Симв(71)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(208),Симв(72)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(240),Симв(72)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(206),Симв(74)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(238),Симв(74)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(203),Симв(75)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(235),Симв(75)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(196),Симв(76)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(228),Симв(76)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(198),Симв(58)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(230),Симв(58)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(223),Симв(90)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(255),Симв(90)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(215),Симв(88)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(247),Симв(88)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(209),Симв(67)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(241),Симв(67)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(204),Симв(86)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(236),Симв(86)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(200),Симв(66)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(232),Симв(66)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(210),Симв(78)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(242),Симв(78)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(220),Симв(77)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(252),Симв(77)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(193),Симв(60)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(225),Симв(60)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(222),Симв(62)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(254),Симв(62)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(44),Симв(63)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(46),Симв(63)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(168),Симв(126)));
Результат=СокрЛП(СтрЗаменить(Результат,Симв(184),Симв(126)));
Возврат Результат;
КонецФункции
// *******************
ШК = СокрЛП(ЗаменитьРусскиеБуквыНаАнглийские(СтрПолучитьСтроку(ШтрихКоды,сч)));
// *******************
Показать
Можно немного сократить текст функции(в половину!), если сначала привести строку к верхнему регистру, но, уже сделал, а потом подумал... Переделывать не стал, работает и ладно...