Retorno ao Colocar usuario e senha Invalidos.

[Amadeu Junior]

Boa noite tudo bem?
Galera já rodei atrás da solução pra um probleminha estou usando o SWUserControl (muito top esse componente) ao digitar o usuario e senha invalido ele esta retornando “SELECIONE PERFIL” e não “USUÁRIO E SENHA INVÁLIDOS”

Agradeço ajuda dos mestres.

Link da Imagem do Problema 🙁

[Amadeu Junior]

não se e isso mais encontrei duas chaves duplicadas no UCSettings.pas

procedure AlterLanguage(DestSettings: TUCUserSettings);
begin
with DestSettings.CommonMessages do
begin
BlankPassword := GetTranslate(DestSettings.Language, ”, ‘Const_Men_SenhaDesabitada’);
PasswordChanged := GetTranslate(DestSettings.Language, ”, ‘Const_Men_SenhaAlterada’);
InitialMessage.Text := GetTranslate(DestSettings.Language, ”, ‘Const_Men_MsgInicial’);
MaxLoginAttemptsError := GetTranslate(DestSettings.Language, ”, ‘Const_Men_MaxTentativas’);
InvalidLogin := GetTranslate(DestSettings.Language, ”, ‘Const_Men_LoginInvalido’);
InactiveLogin := GetTranslate(DestSettings.Language, ”, ‘Const_Men_LoginInativo’);
AutoLogonError := GetTranslate(DestSettings.Language, ”, ‘Const_Men_AutoLogonError’);
UsuarioExiste := GetTranslate(DestSettings.Language, ”, ‘Const_Men_UsuarioExiste’);
PasswordExpired := GetTranslate(DestSettings.Language, ”, ‘Const_Men_PasswordExpired’);
ForcaTrocaSenha := GetTranslate(DestSettings.Language, ”, ‘Const_ErrPass_ForcaTrocaSenha’);
//InvalidLogin := GetTranslate(DestSettings.Language, ”, ‘Const_Men_Select_Profile’);
CanNotDeleteUserLogon := GetTranslate(DestSettings.Language, ”, ‘Const_Men_Cannot_Del_User_Logon’);
ImageTooLarge := GetTranslate(DestSettings.Language, ”, ‘Const_Err_Image_Too_Large’);
end;

comentei a segunda e agora esta tudo ok.

[Giovani Da Cruz]

Oi Amadeu Junior, acredito que sim, que esta duplicação possa ter sido a causa do problema.

[Autor]

Posts