Application object
Sets the default sort order language format that is applied to an Interactive Reporting document when it is opened in a Unicode enabled application. If no default language is set (the check box is not enabled) in the user interface, this property returns 0, which does not correspond to any valid language. The sort order language of a Interactive Reporting document may be changed to start sorting the data according to the user interface language preferences. The Application .ini file stores this property in the DefDocLanguage property of [Regional Settings]. It is interchangeable between all applications including Services.
Read/Write
This example shows how to read and write the value of a default sort order language in an Interactive Reporting document.
//Clear all TextBoxes except TextBox5 TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = ActiveSection.Name var ActionName = "DefaultSortOrderLang" TextBox1.Text ="Start " + ActionName if (TextBox5.Text == "") { TextBox1.Text ="Step 1" try { TextBox3.Text = "DefaultSortOrderLang is: " + Application.DefaultSortOrderLang switch(Application.DefaultSortOrderLang) { case 0: TextBox3.Text = "No Language specified" break; case 1: TextBox3.Text = "Language is bqLangAfrikaans" break; case 2: TextBox3.Text = "Language is bqLangAlbanian" break; case 3: TextBox3.Text = "Language is bqLangArabic" break; case 4: TextBox3.Text = "Language is bqLangBasque" break; case 5: TextBox3.Text = "Language is bqLangCatalan" break; case 6: TextBox3.Text = "Language is bqLangChinese_Simp" break; case 7: TextBox3.Text = "bqLangChinese_Trad" break; case 8: TextBox3.Text = "Language is bqLangChinese_GB2312_Sort" break; case 9: TextBox3.Text = "Language is bqLangChinese_Trad" break; case 10: TextBox3.Text = "Language is bqLangCroatian" break; case 11: TextBox3.Text = "Language is bqLangCzech" break; case 12: TextBox3.Text = "Language is bqLangDanish" break; case 13: TextBox3.Text = "Language is bqLangDutch" break; case 14: TextBox3.Text = "Language is bqLangEnglish" break; case 15: TextBox3.Text = "Language is bqLangUKEnglish" break; case 16: TextBox3.Text = "Language is bqLangEstonian" break; case 17: TextBox3.Text = "Language is bqLangFinnish" break; case 18: TextBox3.Text = "Language is bqLangFrench" break; case 19: TextBox3.Text = "Language is bqLangGerman" break; case 20: TextBox3.Text = "Language is bqLangGerman_Phonebook_Sort" break; case 21: TextBox3.Text = "Language is bqLangGreek" break; case 22: TextBox3.Text = "Language is bqLangHebrew" break; case 23: TextBox3.Text = "Language is bqLangHungarian" break; case 24: TextBox3.Text = "Language is bqLangIcelandic" break; case 25: TextBox3.Text = "Language is bqLangIndonesian" break; case 26: TextBox3.Text = "Language is bqLangItalian" break; case 27: TextBox3.Text = "Language is bqLangJapanese" break; case 28: TextBox3.Text = "Language is bqLangKorean" break; case 29: TextBox3.Text = "Language is bqLangLatvian" break; case 30: TextBox3.Text = "Language is bqLangLithuanian" break; case 31: TextBox3.Text = "Language is bqLangMacedonian" break; case 32: TextBox3.Text = "Language is bqLangMalay" break; case 33: TextBox3.Text = "Language is bqLangNorwegian_Bokmal" break; case 34: TextBox3.Text = "Language is bqLangNorwegian_Nynorsk" break; case 35: TextBox3.Text = "Language is bqLangPolish" break; case 36: TextBox3.Text = "Language is bqLangPortuguese" break; case 37: TextBox3.Text = "Language is bqLangRomanian" break; case 38: TextBox3.Text = "Language is bqLangRussian" break; case 39: TextBox3.Text = "Language is bqLangSerbian_Cyrillic" break; case 40: TextBox3.Text = "Language is bqLangSerbian_Latin" break; case 41: TextBox3.Text = "Language is bqLangSlovak" break; case 42: TextBox3.Text = "Language is bqLangSlovenian" break; case 43: TextBox3.Text = "Language is bqLangSpanish" break; case 44: TextBox3.Text = "Language is bqLangSpanish_Trad_Sort" break; case 45: TextBox3.Text = "Language is bqLangSwedish" break; case 46: TextBox3.Text = "Language is bqLangThai" break; case 47: TextBox3.Text = "Language is bqLangTurkish" break; case 48: TextBox3.Text = "Language is bqLangUkrainian" break; case 49: TextBox3.Text = "Language is bqLangVietnamese" break; default: TextBox3.Text = "Language Value is Not Available" } } catch(e) { TextBox2.Text = "Caught: " + e.toString() } } else { TextBox1.Text ="Step 2" try { Application.DefaultSortOrderLang = eval(TextBox5.Text) } catch(e) { TextBox2.Text = "Caught: " + e.toString() } TextBox1.Text ="Step 3" try { TextBox3.Text = "DefaultSortOrderLang is: " + Application.DefaultSortOrderLang switch(Application.DefaultSortOrderLang) { case 0: TextBox3.Text = "No Language specified" break; case 1: TextBox3.Text = "Language is bqLangAfrikaans" break; case 2: TextBox3.Text = "Language is bqLangAlbanian" break; case 3: TextBox3.Text = "Language is bqLangArabic" break; case 4: TextBox3.Text = "Language is bqLangBasque" break; case 5: TextBox3.Text = "Language is bqLangCatalan" break; case 6: TextBox3.Text = "Language is bqLangChinese_Simp" break; case 7: TextBox3.Text = "bqLangChinese_Trad" break; case 8: TextBox3.Text = "Language is bqLangChinese_GB2312_Sort" break; case 9: TextBox3.Text = "Language is bqLangChinese_Trad" break; case 10: TextBox3.Text = "Language is bqLangCroatian" break; case 11: TextBox3.Text = "Language is bqLangCzech" break; case 12: TextBox3.Text = "Language is bqLangDanish" break; case 13: TextBox3.Text = "Language is bqLangDutch" break; case 14: TextBox3.Text = "Language is bqLangEnglish" break; case 15: TextBox3.Text = "Language is bqLangUKEnglish" break; case 16: TextBox3.Text = "Language is bqLangEstonian" break; case 17: TextBox3.Text = "Language is bqLangFinnish" break; case 18: TextBox3.Text = "Language is bqLangFrench" break; case 19: TextBox3.Text = "Language is bqLangGerman" break; case 20: TextBox3.Text = "Language is bqLangGerman_Phonebook_Sort" break; case 21: TextBox3.Text = "Language is bqLangGreek" break; case 22: TextBox3.Text = "Language is bqLangHebrew" break; case 23: TextBox3.Text = "Language is bqLangHungarian" break; case 24: TextBox3.Text = "Language is bqLangIcelandic" break; case 25: TextBox3.Text = "Language is bqLangIndonesian" break; case 26: TextBox3.Text = "Language is bqLangItalian" break; case 27: TextBox3.Text = "Language is bqLangJapanese" break; case 28: TextBox3.Text = "Language is bqLangKorean" break; case 29: TextBox3.Text = "Language is bqLangLatvian" break; case 30: TextBox3.Text = "Language is bqLangLithuanian" break; case 31: TextBox3.Text = "Language is bqLangMacedonian" break; case 32: TextBox3.Text = "Language is bqLangMalay" break; case 33: TextBox3.Text = "Language is bqLangNorwegian_Bokmal" break; case 34: TextBox3.Text = "Language is bqLangNorwegian_Nynorsk" break; case 35: TextBox3.Text = "Language is bqLangPolish" break; case 36: TextBox3.Text = "Language is bqLangPortuguese" break; case 37: TextBox3.Text = "Language is bqLangRomanian" break; case 38: TextBox3.Text = "Language is bqLangRussian" break; case 39: TextBox3.Text = "Language is bqLangSerbian_Cyrillic" break; case 40: TextBox3.Text = "Language is bqLangSerbian_Latin" break; case 41: TextBox3.Text = "Language is bqLangSlovak" break; case 42: TextBox3.Text = "Language is bqLangSlovenian" break; case 43: TextBox3.Text = "Language is bqLangSpanish" break; case 44: TextBox3.Text = "Language is bqLangSpanish_Trad_Sort" break; case 45: TextBox3.Text = "Language is bqLangSwedish" break; case 46: TextBox3.Text = "Language is bqLangThai" break; case 47: TextBox3.Text = "Language is bqLangTurkish" break; case 48: TextBox3.Text = "Language is bqLangUkrainian" break; case 49: TextBox3.Text = "Language is bqLangVietnamese" break; default: TextBox3.Text = "Language Value is Not Available" } } catch(e) { TextBox2.Text = "Caught: " + e.toString() } } TextBox1.Text ="End " + ActionName