Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FoxAudit - Error
Message
 
 
À
04/06/2009 13:58:04
Information générale
Forum:
Visual FoxPro
Catégorie:
Produits tierce partie
Versions des environnements
Visual FoxPro:
VFP 9 SP2
Divers
Thread ID:
01403755
Message ID:
01403760
Vues:
55
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform