View previous topic :: View next topic |
Author |
Message |
Позднякова Наталья
Joined: 04 Nov 2004 Posts: 13 Location: Позднякова Наталья Occupation: программист Interests: Минск
|
Posted: 10 Jun 2005 16:59 Post subject: Спецфункции |
|
|
В товарах в реестре документов движения создаю спецфункцию "на запись", которая в dbf файл при сохранении документа записывет какую-то информацию. Если этого файла нет, его надо создать, а если этот файл уже существует, то просто открыть и дописать. Подскажите, как проверить существование файла???
Бэст 4 (10.04/01)
Текст спецфункции в упрощенном виде примерно такой:
private aDbf, a
if //файл не существует// - какое надо условиу???
// задаем структуру и создаем новый файл
adbf:=array(12)
aDbf := {}
AADD(aDbf, { "VID", "C", 1, 0 })
AADD(aDbf, { "TYPE", "C", 1, 0 })
// и т.п....
AADD(aDbf, { "ST_NP", "N", 8, 3 })
AADD(aDbf, { "SUM_NP", "N", 19, 3 })
DBCREATE("SSS", aDbf)
endif
dbpush()
//открыть БД:
dbOpenBase({{'SSS','D:\best4\'+'sss.DBF'}})
DBPUSH("MDOCM","MDOCM","",{"UPPER(Sclad+Vid+Type+CodeDoc+NumDoc)",MDOC->(UPPER(Sclad+Vid+Type+CodeDoc+NumDoc))})
do while (mdocm->(!eof()))
sss->(addrec())
//заполнение базы данных
sss->vid:=mdocm->vid
// и т.п.....
sss->(f_dbunlock())
mdocm->(dbskip())
enddo
DBPOP()
//закрыть БД:
dbCloseBase({'sss'})
dbpop() |
|
Back to top |
|
|
Титов Александр
Joined: 26 Jul 2002 Posts: 975 Location: Титов Александр Александрович Occupation: Компания БЭСТ Interests: Москва
|
Posted: 10 Jun 2005 17:11 Post subject: Re: Спецфункции |
|
|
Позднякова Наталья wrote: | В товарах в реестре документов движения создаю спецфункцию "на запись", которая в dbf файл при сохранении документа записывет какую-то информацию. Если этого файла нет, его надо создать, а если этот файл уже существует, то просто открыть и дописать. Подскажите, как проверить существование файла???
|
Добрый день!
Обычно используется функция
File(cFile) - проверяет существование файла,
LoadPath() - путь на текущую БД.
Например, надо проверить наличие Mdoc.dbf в товарах:
IF FILE(loadpath()+"sclad\mdoc.dbf")
//открываем
ELSE
//создаем
ENDIF _________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © phpBB Group
|