дбф = СоздатьОбъект("XBase"); дбф.ДобавитьПоле("Artikul","S",20,); дбф.ДобавитьПоле("Naim","S",60,); дбф.ДобавитьИндекс("IDXART","Artikul",1,0,""); НазвДБФ = "TovPost"+".dbf"; НазвЦДХ = "TovPost"+".cdx"; КатТис = КаталогИБ()+"EXTDATA\"; дбф.СоздатьФайл(КатТис+НазвДБФ,КатТис+НазвЦДХ); дбф.Добавить(); дбф.УстановитьЗначениеПоля(1,"1234567"); дбф.Записать();
Артикул = "12345"; дбф = СоздатьОбъект("XBase"); ИмяФайла = КаталогИБ()+"EXTDATA\TovPost.DBF"; дбф.ОткрытьФайл(ИмяФайла,,1); Если дбф.Открыта()=0 Тогда Предупреждение("Не удалось открыть файл!"); Возврат; КонецЕсли; дбф.ТекущийИндекс("IDXART"); дбф.Найти(Артикул,0); дбф.ЗакрытьФайл();