FiveTech Software tech support forums

Code: Select all | Expand

Application
===========
   Path and name: E:\Spectral\Cash Flow\cashver3.exe (32 bits)
   Size: ********* bytes
   Time from start: 0 hours 1 mins 49 secs 
   Error occurred at: 10/21/09, 11:50:12
   Error description: Error DBCMD/2001  Workarea not in use: ORDCREATE

Stack Calls
===========
   Called from:  => ORDCREATE(0)
   Called from: source\rdd\rddord.prg => DBCREATEINDEX(59)
   Called from: .\CASHVER3.PRG => GLOBAL1(2378)
   Called from: .\CASHVER3.PRG => MSCREEN2(802)

Code: Select all | Expand

#include "fivewin.ch"
#define  NET_WAIT    .05
#define  NET_SECS    5

function main()
  set exclusive off
  begin sequence
     if net_use("customer", .f.)
        set index to customer
     else
        break
     endif
     if net_use("invoice", .f.)
        index on inv to invoice
     else
        break
     endif
  recover
     dbCloseAll()
     msgstop("Can't proceed. Some data file can't be opened. Aborting...")
    return nil
  end

  // continue with the rest of the program
  .
  .
return nil  
//-----------------------------------------------------------------------------------------
function Net_Use( cDatabase, lOpenMode, nSeconds, cAlias, lRandom )

   LOCAL lForever                      // Retry forever?
   LOCAL lReturn:= .f.

   DEFAULT nSeconds := NET_SECS
   default lRandom := .f.

   lForever := ( nSeconds == 0 )
   if lRandom // auto-generate a random alias for user
      cAlias := tempfile() // generate a random alias
   endif

   /* Keep trying as long as our time''s not up  */

   while ( lForever .or. ( nSeconds > 0 ) )

      IF lOpenMode
         dbUseArea(.t.,, cDatabase, cAlias, .f. )
      else
         dbUseArea(.t.,, cDatabase, cAlias, .t. )
      ENDIF

      IF !neterr()
         lReturn := .t.
         exit
      ELSE
         IF !MsgYesNo( "Cannot open file '" + UPPER(cDatabase) + ".DBF'. Retry?" )
            lReturn := .f.
            Exit
         ENDIF
      ENDIF

      inkey( NET_WAIT )                // Wait

      nSeconds -= NET_WAIT

   ENDDO

RETURN( lReturn )