Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.45 MB
Время: 0.01 c
4-1122112344
Vir
2005-07-23 13:52
2005.09.11
Hardware ID


8-1114722560
Alpine
2005-04-29 01:09
2005.09.11
Помогите плизз с картинками !


14-1124230275
VEG
2005-08-17 02:11
2005.09.11
Поиск ветки


2-1123487761
ingine
2005-08-08 11:56
2005.09.11
NegCurrFormat


9-1116130550
NightSnyper
2005-05-15 08:15
2005.09.11
PowerDraw





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский