//////////////////////////////////////////////////////////////////////
//
//  DBESYS.PRG
//
//  Copyright:
//      Alaska Software, (c) 1997-2002. Alle Rechte vorbehalten.         
//  
//  Inhalt:
//      Benutzerdefinierte DbeSys() Routine l„dt DBFNTX und FOXCDX DBEs
//   
//////////////////////////////////////////////////////////////////////

/*
 * DbeSys() wird bei jedem Programmstart ausgef�hrt
 */
PROCEDURE dbeSys()

  /*
   * Anpassung der Sortierfolge
   */
   SET COLLATION TO GERMAN

  /*
   *   DBF und NTX Database-Engine werden "hidden" geladen
   *   und zu der neuen abstrakten DBFNTX Database-Engine verbunden.
   */
   IF ! DbeLoad( "DBFDBE", .T.)
      Alert( "Database-Engine DBFDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeLoad( "NTXDBE", .T.)
      Alert( "Database-Engine NTXDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeBuild( "DBFNTX", "DBFDBE", "NTXDBE" )
      Alert( "DBFNTX Database-Engine;konnte nicht erzeugt werden" , {"OK"} )
   ENDIF


  /*
   *   Das gleiche mit FOX und CDX Database-Engine durchf�hren
   */
   IF ! DbeLoad( "FOXDBE", .T.)
      Alert( "Database-Engine FOXDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeLoad( "CDXDBE",.T.)
      Alert( "Database-Engine CDXDBE nicht geladen" , {"OK"} )
   ENDIF

   IF ! DbeBuild( "FOXCDX", "FOXDBE", "CDXDBE" )
      Alert( "FOXCDX Database-Engine;konnte nicht erzeugt werden" , {"OK"} )
   ENDIF

   DbeSetDefault( "DBFNTX" )

RETURN

//
// EOF