Текущий архив: 2005.09.11;
Скачать: CL | DM;

Вниз

Как создать DBF для 1С ?   Найти похожие ветки 

← →
Gavrila ©   (2005-07-28 17:38) [0]

Подскажите, плиз, что я неправильно делаю?
TableType = ttDBase
создаю таблицу:
(
 Table1.TableName:= "D:\Temp\test.dbf";
 Table1.TableType:= ttDBase;
 Table1.TableLevel:= 4;

 If Table1.Exists Then
   Exit;

 with Table1 do
 begin
   with FieldDefs do
   begin
     Clear;
     with AddFieldDef do
     begin
       Name := "Numb";
       DataType := ftFloat;
       Required := True;
     end;
     with AddFieldDef do
     begin
       Name := "STR";
       DataType := ftString;
       Size := 20;
     end;
     with AddFieldDef do
     begin
       Name := "DATE";
       DataType := ftDate;
     end;
   end;
   CreateTable;
 end;

но из 1С не могу открыть - пишет неверный формат DBF, что можно еще придумать?

зы: Делфи знаю плохо

---

← →
Anatoly Podgoretsky ©   (2005-07-28 19:30) [1]

Вробе бы 1С это не дбейс, а фокспро.

---

← →
sniknik ©   (2005-07-28 20:24) [2]

> Вробе бы 1С это не дбейс, а фокспро.
в обшем то да справочники DBF версия в нем держит, но просто открыть как внешнюю таблицу должен... 1с-ники уверяли что им без разници когда готовил для них файлы для импорта в 1С.

Gavrila ©   (28.07.05 17:38)
найди любой который открывается (не сам делал), можеш открыть, и посмотри формат...

---

← →
Gavrila ©   (2005-07-28 20:50) [3]

Спасибо. Так заработало

Table1.TableName:= "D:\Temp\test.dbf";
Table1.TableType:= ttFoxPro;

 If Table1.Exists Then
   Exit;

 with Table1 do
 begin
   with FieldDefs do
   begin
     Clear;
     with AddFieldDef do
     begin
       Name := "Numb";
       DataType := ftFloat;
     end;
     with AddFieldDef do
     begin
       Name := "STR";
       DataType := ftString;
       Size := 20;
     end;
     with AddFieldDef do
     begin
       Name := "DATE";
       DataType := ftDate;
     end;
   end;
   CreateTable;
 end;

зы: Правдо я так и не понял, чем помешала строчка:
Required := True;
с ней так и не заработало. Незнаю зачем она нужна, но убрал от греха подальше )

---

← →
sniknik ©   (2005-07-28 21:00) [4]

> зы: Правдо я так и не понял, чем помешала строчка:
> Required := True;
> с ней так и не заработало.
указание что данные в этом поле обятельны (пустых полей в этом поле не допускается).
ну если дело в ней, то и dBase-ный сможеш открыть, если без нее сделаеш. (1с-ники зря врать не будут ;о)

---

← →
Gavrila ©   (2005-07-28 21:20) [5]

> sniknik ©   (28.07.05 21:00) [4]

Не, все таки dBase-ный формат не заработал ( - меняется формат
а с фокспро меня сбила эта самая Required := True;
Почему-то при выполнении CreateTable; появлялось сообщение:
Invalid record structure.

---

Страницы: 1 вся ветка

Текущий архив: 2005.09.11;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.036 c