Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
FoxAudit - Error
Message
 
 
To
04/06/2009 13:58:04
General information
Forum:
Visual FoxPro
Category:
Third party products
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01403755
Message ID:
01403760
Views:
56
You need to figure out which file is in use and preferably who is using it. Can you instantiate your Error Handler before attempting to run FoxAudit?

BTW, I don't have experience with FoxAudit, I'm just trying to give the suggestions from the common sense.

>>>I get an inadmittand error when loading foxaudit:
>>>
>>>foxaudit error information:
>>>a problem has occured that foxaudit was unable to handle.
>>>error 3
>>>file in use
>>>line 75 openlogtables
>>>&lcCmd
>>>
>>>what can be done to avoid that????
>>>
>>>
>>>Thanks
>>>
>>>Peter
>>
>>Have you re-started the PC and it it fails, the server?
>
>
>
>it's runnning on a win2003 server in TS mode
>
>
>no, at the startup of the app I load the foxaudit object like this:
>--------------------------------------------------------------------
>clear all
>close all
>
>....... more code.....
>
>
>* Adjust path to point to the FoxAudit 6.0 Class Library (FoxAudit.VCX)
>TRY
>
>LOCAL lcFoxAuditLoc, lcLogLoc
>lcFoxAuditLoc = '..\FOXAUDIT\'
>lcLogLoc = ADDBS(SYS(5)+SYS(2003))+'data\kba_data_LOG.DBF'
>
>SET CLASSLIB TO (lcFoxAuditLoc+'FOXAUDIT.VCX') ADDITIVE
>PUBLIC oFoxAudit_KBA_DATA
>oFoxAudit_KBA_DATA= CREATEOBJECT('FoxAudit',lcLogLoc)
>* Make sure the FoxAudit 6.0 Object was created properly
>IF TYPE('oFoxAudit_KBA_DATA') == 'O' AND NOT ISNULL('oFoxAudit_KBA_DATA')
> * Assign the application's UserID value to FoxAudit's cUserID property
> * In Visual FoxExpress 6.0: _SCREEN.oApplication.oSecurity.cUserID
> * In Visual MaxFrame: oUser.GetUserInfo('USR_LANID')
> * In Mere Mortals: goApp.cUserID
> oFoxAudit_KBA_DATA.cUserID = ALLTRIM(oUser.LName)+", "+oUser.fname
> oFoxAudit_KBA_DATA.cUserMsg1= ALLTRIM(STREXTRACT("#"+SYS(0),"#","#"))
> oFoxAudit_KBA_DATA.cUserMsg2= ALLTRIM(STREXTRACT("#"+SYS(0)+"#","#","#",2))
>
>ENDIF
>** end fox audit
>CATCH
>
>FINALLY
>
>ENDTRY
>
>---------------------------------------------------------------
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform