CONFIGURACOES REGIONAIS

USUARIO.EXCLUIDOS 19/04/2007 08:40:44
#212678

'Obtem o ponto decimal do Regional Settings, para o usuário logado no Windows
Public Sub ObtemInformacoesRegionalSettings()
On Error GoTo Err_ObtemInformacoesRegionalSettings

Dim cLogHelper As McBTSFramework.cLogHelper
Set cLogHelper = New McBTSFramework.cLogHelper
cLogHelper.Initialize g_objLog, "ModGlobal", "ObtemInformacoesRegionalSettings"

Dim lngRetorno As Long 'Armazena o retorno da API
Dim strseparador As String

On Error GoTo Err_ObtemInformacoesRegionalSettings

strseparador = String(10, "a")
lngRetorno = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SDECIMAL, strseparador, 10)
g_strPontoDecimal = Left$(strseparador, lngRetorno)
strseparador = String(10, "a")
lngRetorno = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_STHOUSAND, strseparador, 10)
g_strSeparadorMilhar = Left$(strseparador, lngRetorno)
lngRetorno = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ILANGUAGE, g_strIdiomaRegSet, 5) 'Idioma Regional Settings

'Pega apenas a parte numérica do idioma obtido do Regional Settings
g_strIdiomaRegSet = Replace(g_strIdiomaRegSet, Chr(0), "")

'Verifica qual é a locale do Regional Settings
Select Case Trim(g_strIdiomaRegSet)
Case "0416", "0816" 'Português (Brazil), 'Português (Portugal)
g_lngLingua = 0 '0=Português (Brazil) - Sempre
Case Else
g_lngLingua = 1 '1=English
End Select

cLogHelper.LogExit ""
Exit Sub
Err_ObtemInformacoesRegionalSettings:
cLogHelper.LogVBExecption
End Sub

pessoal nessa declaracao

Dim cLogHelper As McBTSFramework.cLogHelper, da um compile error: user-defined type not defined

o q devo fazer, peguei essa rotina aqui no site...
vlew