Re: Question about the Open() method in wwBusiness

Yes it should actually re-open files if it's possible in shared mode.
Fixed.

+++ Rick ---

Rick - I hit a problem with the Open() method on the wwBusiness class today. I am using the class with FoxPro DBF tables and a desktop app.

The issue I had was that the form I was using had already USED the DBF table under an alias that was different than the DBF filename, and then I created a wwBusiness object, and when its Open() method was called, it tried to USE the table also, but failed, because the table was already being used, but under a different alias.

To me it seems like the Open() method should use the AGAIN keyword to prevent this error from happening.

Like this:

USE ( THIS.cDataPath + lcFile ) AGAIN ALIAS (lcAlias)

Here is the code from your class:

LPARAMETER lcFile, lcAlias, llForceReconnect
LOCAL lcConnectString

lcFile=IIF(!EMPTY(lcFile),lcFile,THIS.cFileName)

*** Nothing passed and no MasterTable - exit
IF THIS.nDataMode = 0 AND EMPTY(lcFile)
   RETURN .F.
ENDIF

DO CASE
   CASE THIS.ndatamode = 0
      lcAlias=IIF(!EMPTY(lcAlias),lcAlias,THIS.cAlias)

      IF !EMPTY(lcFile) AND UPPER(lcFile) == UPPER(THIS.cFileName)
         THIS.cAlias = lcAlias
      ENDIF

      IF USED(lcAlias)
         SELE (lcAlias)
      ELSE
         SELE 0
         USE ( THIS.cDataPath + lcFile ) ALIAS (lcAlias)
         IF !USED(lcAlias)
            THIS.seterror("Unable to open " + THIS.cFileName)
            RETURN .F.
         ENDIF
      ENDIF