Цитата(Кузьмич @ 29.07.09, 15:31)
Не понял: ты спрашиваешь или хвастаешь?
Здесь многие делали то, что тебе даже не приходило в голову.
Да причём здесь хвастаюсь ... интерисуюсь может ктото чтото подобное уже делал
Я вот сделал процедуру она работате только с файлами длина имени файла которого не больше
8 символов. В имени файле Intercars.dbf 9 символов
Машина ругаеться.
ДБФ.ОткрытьФайл(ПутьДБ);
{Документ.Заказ.Форма.Модуль(7)}: Длина имени файла превысила 8 символов!
Файл bmw.dbf открывает
Вот текст процедуры.
Процедура Открыть_dbf()
ДБФ = СоздатьОбъект("XBase");
ИмяФайла = "";
ИмяПути = "";
ФС.ВыбратьФайл(0, ИмяФайла, ИмяПути, , "*.*", , );
ПутьДБ = ИмяПути + ИмяФайла;
ДБФ.ОткрытьФайл(ПутьДБ);
Если ДБФ.Открыта() = 1 Тогда
Предупреждение("База открыта", 2);
ДБФ.Первая();
КодПос = ДБФ.Kod; // Подразумевается, что поле FIO имеется в открытой БД
Предупреждение(КодПос, 5);
Иначе
Предупреждение("НЕ смогли открыть Базу!", 2);
КонецЕсли;
КонецПроцедуры