Раньше с ДБФ ваапще не сталкивался и попробовал данные о минимальных остатках хранить в ТХТ формате. Не понравилось. Пробовал экспортировать в эксель. Очень не понравился. Загнал данные в ДБФ фалик.
Б=СоздатьОбъект("XBase");
Путь = КаталогИБ()+"\Остатки\"+Строка(Склад.Код)+".DBF";
Сообщить(Путь);
Б.ДобавитьПоле("NN","N",4,0);
Б.ДобавитьПоле("TOVARCODE","S",9,0);
Б.ДобавитьПоле("TOVAR","S",50,0);
Б.ДобавитьПоле("Ostatok","N",10,2);
Если Фс.СуществуетФайл(Путь) = 0 Тогда
Б.СоздатьФайл(Путь);
иначе
Если Вопрос("Файл "+Путь+" уже существует. Заменить его?",4) = 6 тогда
Фс.УдалитьФайл(Путь);
Б.СоздатьФайл(Путь);
иначе
возврат;
КонецЕсли;
КонецЕсли;
Если Б.Открыта()=0 Тогда
Попытка
Б.ОткрытьФайл(Путь);
исключение
Сообщить("Не удалось открыть файл DBF","!");
Возврат;
КонецПопытки
КонецЕсли;
Би = СоздатьОбъект("БухгалтерскиеИтоги");
Би.ИспользоватьСубконто(ВидыСубконто.ТМЦ);
Би.ИспользоватьСубконто(ВидыСубконто.МестаХранения, Склад);
Би.ВыполнитьЗапрос(РабочаяДата() - 60, РабочаяДата(), "281");
Би.ВыбратьСубконто(ВидыСубконто.МестаХранения);
Би.ПолучитьСубконто(ВидыСубконто.МестаХранения);
Би.ВыбратьСубконто(ВидыСубконто.ТМЦ);
Ном = 1;
Пока Би.ПолучитьСубконто(ВидыСубконто.ТМЦ) = 1 Цикл
Б.Добавить();
Б.NN = Ном;
Б.TOVARCODE = Би.Субконто(ВидыСубконто.ТМЦ).Код;
Б.TOVAR = Би.Субконто(ВидыСубконто.ТМЦ).Наименование;
Б.Ostatok = Би.СКД(3);
Б.Записать();
ном = Ном + 1;
КонецЦикла;
Б.ЗакрытьФайл();Вроде как все нормально записалось, все устраивает. Только вот ступор у меня вышел, как найти нужній товар в ДБФ-е. В помошнике есть метод НАЙТИ(), но как его правильно применить что-то застопорился... Можете объяснить на пальцах. Буду благодарен также за ссылку на пример. Благодарю.
А поправить отправленное сообщение никак?
