Титов Александр
Joined: 26 Jul 2002
Posts: 975
Location: Титов Александр Александрович
Occupation: Компания БЭСТ
Interests: Москва
|
 Posted: 26 Apr 2007 09:22 Post subject: Re: БЭСТ-5. Хочу создать dbf не в формате FoxPro 7.0 |
 |
|
| Behemoth wrote: | Добрый день.
Внешнее приложение хочет получить из БЭСТ-5 некую информацию. Причём хочет видеть эту информацию в виде DBF-файла формата DBASEIII - IV. Базу, созданную из плагина командой dbcreate() не воспринимает. Поэтому вопрос: как создать "базу старого образца" из плагина БЭСТ-5? |
Доброе утро, Алексей!
Вот кусок из исходника (кстати, можно и по русски поля называть):
cTempDbf := B6_TMP_PATH+"tmp_"+XGuid()+".dbf"
aRDD:=SetSix()
DBCREATE(cTempDbf,;
{;
{AnsiToOem('Год'),'C',4,0}, ;
{AnsiToOem('Квартал'),'C',7,0},;
{AnsiToOem('Месяц'),'C',15,0}, ;
{AnsiToOem(IF(cPre=="S",'Неделя','Интервал')),'C',22,0}, ;
{AnsiToOem('Дата'),'D',8, 0 }, ;
{AnsiToOem('Дт_Счет'), 'C', 10, 0 }, ;
{AnsiToOem('Дт_Субсчет'), 'C', 10, 0 }, ;
{AnsiToOem('Кт_Счет'), 'C', 10, 0 }, ;
{AnsiToOem('Кт_Субсчет'), 'C', 10, 0 }, ;
{AnsiToOem('Сумма'), 'N',19,CURR_MAIN} ;
};
)
NetUseExc("TempDbf",cTempDbf)
SetSix(aRDD)
_________________
С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
