Attribute VB_Name = "GlobalConsts_GlobalAsInManyProjects"
Option Explicit

' IT IS INTENDED THAT THESE GLOBALS ARE GLOBAL THROUGHOUT
' VB PROJECTS IN SA.
Public Const SA_MAX_USERNAME = 32
Public Const SA_MAX_SERVERNAME = 512 ' Can use a lengthy oracle designator in place of an alias
Public Const SA_MAX_ENCYNAME = 32
Public Const SA_MAX_MACHINENAME = 32
Public Const SA_MAXPATH = 500

Public Const CB_FINDSTRINGEXACT = &H158
Public Const CB_SHOWDROPDOWN = &H14F
Public Const CB_FINDSTRING = &H14C

' Shared between Sa2001 and Ado Access Control\DefaultCatalog\Process
Public Const MACROPREFIX = "MAC_" 'DEV_STRING
Public Const EXTPREFIX = "EXT_" 'DEV_STRING
Public Const MACROPOPUPPREFIX = "MAC_POPUP_" 'DEV_STRING
Public Const NEXTINTERNALMACROIDSTART = 31000 ' Inclusive
Public Const NEXTINTERNALMACROIDEND = 39000   ' Exclusive

' List of GetInternalData identifiers
Public Const GID_ACTIVEDEFSCOUNT = 1
Public Const GID_ACTIVEDGMSCOUNT = 2
Public Const GID_CMDQAREPORTING = 500
Public Const GID_ALLOWSAOMDEFCREATEINRAM = 1000
Public Const GID_ENCYCLOPEDIANAME = 7777
Public Const GID_COMMANDLINE = 7778
Public Const GID_RPTSYSDGMIMGTARGETS = 7779
Public Const GID_RPTSYSDGMIMGWIDTH = 7780
Public Const GID_CMDWSENABLE = 7781

Public Const SA_VB_BackSlash = "\" 'DEV_STRING
Public Const SA_VB_FullStop = "." 'DEV_STRING
Public Const SA_VB_Comma = "," 'DEV_STRING
Public Const SA_VB_DoubleQuote = """" 'DEV_STRING
Public Const SA_VB_SingleQuote = "'" 'DEV_STRING
Public Const SA_VB_Y = "Y" 'DEV_STRING
Public Const SA_VB_N = "N" 'DEV_STRING
Public Const SA_VB_SemiColon = ";" 'DEV_STRING
Public Const SA_VB_T = "T" 'DEV_STRING
Public Const SA_VB_F = "F" 'DEV_STRING
Public Const SA_VB_TRUE = "TRUE" 'DEV_STRING
Public Const SA_VB_FALSE = "FALSE" 'DEV_STRING
Public Const SA_VB_Equals = "=" 'DEV_STRING
Public Const SA_VB_Colon = ":" 'DEV_STRING
Public Const SA_VB_Elipsis = "..." 'DEV_STRING
Public Const SA_VB_LessThan = "<" 'DEV_STRING
Public Const SA_VB_GreaterThan = ">" 'DEV_STRING
Public Const SA_VB_ForwardSlash = "/" 'DEV_STRING
Public Const SA_VB_EmptyString = "" 'DEV_STRING

' Keep in synch with constants in reports.c for Set and Get functions, ref use of GID_RPTSYSDGMIMGTARGETS
Public Const SA_RPTSYSDGMIMGTARGET_SVG = 1
Public Const SA_RPTSYSDGMIMGTARGET_PNG = 2
Public Const SA_RPTSYSDGMIMGTARGET_JPG = 4

' ref rptedit.h
Public Const SA_RPT_CALLTYPE_NORMAL = 0
Public Const SA_RPT_CALLTYPE_ADVSEARCH = 1
Public Const SA_RPT_CALLTYPE_ANALYTICBUILDER = 2

Public Function GetToolBarExtensionToolNameInternal(ByVal v_strExtensionGUID As String, ByVal v_lngExtensionToolID As Long) As String
    GetToolBarExtensionToolNameInternal = EXTPREFIX & v_strExtensionGUID & "_" & v_lngExtensionToolID 'DEV_STRING
End Function
