Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FoxAudit - Error
Message
De
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:
01403758
Vues:
91
>>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

---------------------------------------------------------------
Peter Cortiel
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform