itman
Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель
|
 Posted: 15 Jul 2002 12:06 Post subject: |
 |
|
Можно сделать спец.функции и прописать в реестре спец.функций, со срабатыванием при сохранении и удалении.
Там все просто :
// Файл отчета
Private RepFile,RepName,l,Stroka
//RepName:=LoadPath()+'Rep_Prn1.txt'
RepName:='u:\best4\log\baza\scl_del.log'
RepFile:=Fopen(RepName,2)
l:=fseek(RepFile,0,2)
If RepFile<=0
SayError('Не возможно создать файл отчета!')
Error()
EndIf
// Пример использования
// Вывод строки текста
stroka:='|'+DTOC(Date())+' | '+Time()+' | '+_User_Code+' | '+mdoc->vid+' | '+mdoc->type+' | '+mdoc->numdoc+' | '+DTOC(mdoc->date)+' | '+mdoc->agentname+' | '
FWrite(RepFile,Stroka+Chr(13)+Chr(10))
FClose(RepFile)
Что-то типа этого.
Разобраться можно
Помогает, уже ловили за ручки  |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
