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
do while (mdocm->(!eof()))
sss->(addrec())
//заполнение базы данных
sss->vid:=mdocm->vid
// и т.п.....
sss->(f_dbunlock())
mdocm->(dbskip())
enddo
DBPOP()
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 _________________ С уважением, Александр Титов, Компания БЭСТ, Москва, отдел разрабо
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
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
