(*****************************************************************************)
(* MODULE: BTRCONST*                                                         *)
(* RIGHTS: Reggatta Systems - COPYRIGHT 1995 - 2000                          *)
(* DESCR.: This module contains text constant definitions                    *)
(*****************************************************************************)
Unit BtrConst;
{$I BSE.INC}
{$I BAPI.INC}
Interface

Const
  BTRIEVE_DRIVER_DESC    = 'BTRIEVE';
  BAPI_BTRIEVE_SECTION   = 'Btrieve Client';
  BAPI_BTRIEVE_OPTIONS   = 'Options';
  BAPI_DLL_NAME          = 'DLLName';
  BAPI_ERROR_TEXT        = 'Btrieve Status %d - %s';
  SSQL_ERROR_TEXT        = 'Scalable SQL Status %d - %s';
  BAPI_UNKNOWN_ERROR     = 'Btrieve Error %d.';
  BAPI_CANT_LOAD_BTRIEVE : PChar = 'Btrieve Library WBTRCALL.DLL not Found';
  BAPI_OWNER_TOKEN       : PChar = ';OWNER:';
  SSQL_DB_PREFIX         = '@';
  SSQL_LOCAL_TYPE        = 'LOCAL';
  SSQL_REMOTE_TYPE       = 'REMOTE';


  BAPI_INTL_SECTION      = 'Intl';
  BAPI_ANSIOEM_FLAG      = 'IgnoreAnsiOem';
  BAPI_OEMANSI_FLAG      = 'IgnoreOemAnsi';

  BAPI_FIELD_SECTION     = 'Fields';
  BAPI_READ_FIELD_FLAG   = 'Read';
  BAPI_WRITE_FIELD_FLAG  = 'Write';
  BAPI_SMALLINTASBYTE    = 'SmallIntAsByte';
  BAPI_STRING_PAD_SPACES = 'StringPaddedSpaces';
  BAPI_RETURN_INTS_FLAG  = 'IntegersShowAsZero';
  BAPI_IGNORE_SQL_DBS    = 'IgnoreSQLDatabases';
  BAPI_RECORD_SECTION    = 'Records';
  BAPI_TRUERECORDCOUNT   = 'TrueRecordCount';

  BAPI_RESOURCE_TOKEN    : PChar = ';RES:';

  BTR_IMAGE_TOKEN  = '111';
  BTR_BINARY_TOKEN = '222';

Implementation

end.

