Fixar Idioma 12.1.33

Olá boa tarde,

Sabem se é possível fixar o idioma na tela de login da versão 12.1.33 e até

mesmo desabilitar opção para alteração ?

Grato

Josuel, o que seria fixar o idioma?

Acredito que ele se refira a essa nova funcionalidade: https://tdn.totvs.com/display/public/PROT/Troca+de+idioma+na+tela+de+login. É realmente, é uma dúvida interessante.

Sim, é sobre a troca de idioma, mas não entendi sobre fixar, acredito que seja deixar um idioma fixo ali, sempre abrir no mesmo, talvez sem a possibilidade de trocar, mas não tenho certeza.

Josuel,

A opção sempre será exibida, não é possível ocultar ou desabilitar a mesma.

Uma vez que um usuário escolha o idioma, essa informação fica salva nas configurações do seu smartclient (INI ou LocalStorage), logo na próxima ver que ele abrir o sistema, já estará selecionado o idioma correto.

O idioma inicial apresentado, quando não existe essa informação salva é de acordo com as configurações do ambiente, em principal a chave RegionalLanguage, visto que a chave RPOLanguage foi descontinuada no Harpia em função do RPO único de idiomas.

Documentação: https://tdn.totvs.com/display/public/PROT/Troca+de+idioma+na+tela+de+login

Olá boa tarde,
A idéia é não dar opção para os usuários alterar o idioma, visto que alguns deptos e usuários costumam alterar sem mesmo ter o conhecimento do idioma e depois termos retrabalho para voltar.
Então a ideia seria bloquear a opção de seleção do idioma.

Não existe nenhuma forma de bloqueio, é uma opção aberta para todos os usuários.

Para trocar novamente o idioma, basta fazer logoff ou encerrar o smartclient e abrir novamente.

Depois de sofrer com alguns usuários fiz um "work around" implementando o ponto entrada ESPNOME:

user function ESPNOME() ForceLanguage() Return "_"

static function ForceLanguage() Local nPos := 0 Local aControls := {} Local oComboBox := Nil

If Type("oMainWnd") <> "O" Return EndIf

aControls := oMainWnd:aControls nPos := Ascan(aControls, {|x| x:ClassName() == "TCOMBOBOX" .And. x:cReadVar == "cIdioma"}) If nPos > 0 oComboBox:= aControls[nPos] oComboBox:Select(1) oComboBox:Hide() EndIf Return