| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как создать DBF для 1С ? [D7, dBase, FoxPro]

Gavrila ©   (2005-07-28 17:38:00) 

Подскажите, плиз, что я неправильно делаю?
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, что можно еще придумать?

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

---

Gavrila   (2005-07-28 21:20:00) [1]

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

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

---

sniknik   (2005-07-28 21:00:00) [2]

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

---

Gavrila   (2005-07-28 20:50:00) [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 20:24:00) [4]

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

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

---

Anatoly Podgoretsky   (2005-07-28 19:30:00) [5]

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

---

Наверх