File tree Expand file tree Collapse file tree 1 file changed +5
-7
lines changed
src/System Application/App/Language/src Expand file tree Collapse file tree 1 file changed +5
-7
lines changed Original file line number Diff line number Diff line change @@ -272,16 +272,14 @@ codeunit 54 "Language Impl."
272272
273273 procedure LookupWindowsLanguageId( var LanguageId: Integer )
274274 var
275- TempWindowsLanguage : Record "Windows Language" temporary ;
275+ WindowsLanguage : Record "Windows Language";
276276 begin
277- GetApplicationLanguages( TempWindowsLanguage) ;
278-
279- TempWindowsLanguage. SetCurrentKey( Name) ;
277+ WindowsLanguage. SetCurrentKey( Name) ;
280278
281- if TempWindowsLanguage . Get( LanguageId) then ;
279+ if WindowsLanguage . Get( LanguageId) then ;
282280
283- if Page . RunModal( Page ::"Windows Languages", TempWindowsLanguage ) = Action ::LookupOK then
284- LanguageId := TempWindowsLanguage . "Language ID";
281+ if Page . RunModal( Page ::"Windows Languages", WindowsLanguage ) = Action ::LookupOK then
282+ LanguageId := WindowsLanguage . "Language ID";
285283 end ;
286284
287285 procedure GetParentLanguageId( LanguageId: Integer ) ParentLanguageId: Integer
You can’t perform that action at this time.
0 commit comments