Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
FoxAudit - Error
Message
De
05/06/2009 09:10:49
 
 
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:
01403899
Vues:
56
1- i have it in a try-end frame
2- I don't have access to Duffy's code (he did not supply it
3- He does not answer emails anymore (stinker)

Peter


>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
>>
>>---------------------------------------------------------------
Peter Cortiel
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform