Как отлаживать штрих-коды без сканера в УТ11, КА 2

Понадобилось отладить форму документа, чтобы проверить реакцию на управляющие штрих-коды. Написал небольшую обработку, рекомендую, как использовать.

Раздел 1

Аыаыва

&НаКлиенте

Процедура ОтправитьШКВоВсеОткрытыеФормы(Команда)

ТекОкна = ПолучитьОкна();

Для Каждого ТекОкно ИЗ ТекОкна Цикл

ТекФормы = ТекОкно.Содержимое;

Для Каждого ТекФорма ИЗ ТекФормы Цикл

Источник = "ПодключаемоеОборудование";

ИмяСобытия = "НеизвестныеШтрихкоды";

//ИмяСобытия = "ScanData";

ДанныеШтрихкодов = Новый Массив();

С = Новый Структура();

С.Вставить("Штрихкод", ШтрихКод);

С.Вставить("Количество", 1);

ДанныеШтрихкодов.Добавить(С);

Попытка

ТекФорма.ОбработатьШтрихкоды(ДанныеШтрихкодов);

Исключение

ОписаниеОшибки = ОписаниеОшибки();

Если Найти(ОписаниеОшибки, "Метод объекта не обнаружен") = 0 Тогда

Сообщить(ТекФорма.Заголовок + ". Ошибка: " + ОписаниеОшибки, СтатусСообщения.Важное);

КонецЕсли;

КонецПопытки;

//ТекФорма.Активизировать();

//Штрихкоды = Новый Массив();

//Штрихкоды.Добавить(Штрихкод);

//ТекПараметр = Новый Структура();

//ТекПараметр.Вставить("ФормаВладелец", ТекФорма.УникальныйИдентификатор);

//ТекПараметр.Вставить("Штрихкоды", Штрихкод);

//ФормаВыбора = ОткрытьФорму("ВнешняяОбработка.ЭмуляцияШтрихКода.Форма.ФормаВыбора",,ТекФорма);

//ФормаВыбора.ОповеститьОВыборе("99999999999999999999-999999999999-9999");

//Оповестить(ИмяСобытия, ТекПараметр, Источник);

КонецЦикла;

КонецПроцедуры

//&НаКлиенте

//Процедура ОтправитьШКВоВсеОткрытыеФормы(Команда)

// ТекОкна = ПолучитьОкна();

// Для Каждого ТекОкно ИЗ ТекОкна Цикл

// ТекФормы = ТекОкно.Содержимое;

// Для Каждого ТекФорма ИЗ ТекФормы Цикл

// Источник = "ПодключаемоеОборудование";

// ИмяСобытия = "НеизвестныеШтрихкоды";

// //ИмяСобытия = "ScanData";

// ТекФорма.Активизировать();

// Штрихкоды = Новый Массив();

// Штрихкоды.Добавить(Штрихкод);

// ТекПараметр = Новый Структура();

// ТекПараметр.Вставить("ФормаВладелец", ТекФорма.УникальныйИдентификатор);

// ТекПараметр.Вставить("Штрихкоды", Штрихкод);

// ФормаВыбора = ОткрытьФорму("ВнешняяОбработка.ЭмуляцияШтрихКода.Форма.ФормаВыбора",,ТекФорма);

// ФормаВыбора.ОповеститьОВыборе("99999999999999999999-999999999999-9999");

// Оповестить(ИмяСобытия, ТекПараметр, Источник);

// КонецЦикла;

//КонецПроцедуры

ШтрихкодированиеНоменклатурыСервер - сюда.

Код

идентификатор

Скачать