База состоит из DBF файла и индексного файлка к нему.
DBF имеет три поля:
"SHKOD" (строка 13 символов) - штрихкод
"NAME" (строка 50 символов)- название товара
"EDIZM"(строка 4 символа) - единица измерения
и 290777 записей о товарах. Штрихкода уникальные (т.е. нет задвоений штрихкодов)
CDX файл содержит индексы по полю "SHKOD".
В базе содержатся товары из трех супермакетов, обработки, которыми выгружал эту инфу для 1с ТиС и 1С УТ прилагаю в архиве "ОбработкиВыгрузкиИз1СвДБФ.rar".
Также прилагаю обработку для создания товара по штрихкоду и заполнению в выбранный документ: "СоздатьНоменклатуруПоШК.rar"
К СоздатьНоменклатуруПоШК.epf можно подключать одновременно несколько DBF-файлов, все настройки на вкладке "Настройки".
Для того, чтобы "прикрутить" СоздатьНоменклатуруПоШК.epf к УТ надо добавить в модуль формы документа такой код:
Функция СШКНеизвестныйКод(Штрихкод, ТипКода, СШК) Экспорт
ФайлОбработки = новый Файл(КаталогПрограммы()+"СоздатьНоменклатуруПоШК.epf");
Если ФайлОбработки.Существует() Тогда
Обработка = ВнешниеОбработки.Создать(КаталогПрограммы()+"СоздатьНоменклатуруПоШК.epf");
мФормаИдентификацияШтрихкодов=Обработка.ПолучитьФорму("Форма");
мФормаИдентификацияШтрихкодов.Открыть();
мФормаИдентификацияШтрихкодов.ДобавитьНеизвестныйШтрихкод(ТипКода, Штрихкод, 1, Этаформа);
Иначе
Если мФормаИдентификацияШтрихкодов = Неопределено Тогда
мФормаИдентификацияШтрихкодов = Обработки.ИдентификацияШтрихкодов.ПолучитьФорму();
КонецЕсли;
мФормаИдентификацияШтрихкодов.Открыть();
мФормаИдентификацияШтрихкодов.ДобавитьНеизвестныйШтрихкод(ТипКода, Штрихкод, 1, Этаформа);
Активизировать();
КонецЕсли;
Возврат Истина;
КонецФункции // СШКНеизвестныйКод()
Для 1С77 прилагаю фрагмент кода, по нахождению нужной записи в моей базе товаров:
Файл=СоздатьОбъект("XBASE");
Файл.ОткрытьФайл(ВыбФайлВыгрузки,ВыбФайлВыгрузки,1);
Файл.ТекущийИндекс("IDSHKOD");
Файл.Ключ.SHKOD = ВыбШк;
Если Файл.НайтиПоКлючу(0)=1 Тогда
Сообщить(Файл.NAME);
Иначе
Предупреждение("Нет такого Штрихкода!");
КонецЕсли;
Файл.ЗакрытьФайл();
P.S.: Если интересно, могу сделать DBF-ки для Хоз.магазинов и Оптики.
P.P.S.: Написал обработку для 1С77 "СоздатьНоменклатуруПоШК-КА и ТиС.zip" писал и тестировал её под комплексной конфигурацией, но в ТиС она тоже будет работать. Вообще, будет работать в любой конфе под 1С77, где есть Справочник "Номенклатура" и подчиненный справочник "Единицы", "ОКЕИ" со стандартным набором реквизитов, ессно.
