Выбор списка справочников с использованием функции SelectSQL()

Постановка задачи

Необходимо отобразить список действующих справочников, содержащий коды и наименования с учетом установленного языка. Для справочников Работники и Подразделения установить флажки по умолчанию:

Программный код

DELIMITER = '|'

  CurrentLanguage = Application.Localization.CurrentLanguage

  GetReferencesQuyery = Format("

     select

       isnull(loc.String, vid.Name), -- наименование с учетом установленного языка

       vid.Kod

     from

       MBVidAn vid

         left join SBLocalizedData loc

           on left(vid.NameLocalizeID, charindex('.', vid.NameLocalizeID) - 1) = loc.GroupCode 

              and right(vid.NameLocalizeID, Len(vid.NameLocalizeID) - charindex('.', vid.NameLocalizeID)) = loc.Code 

              and loc.LangCode = '%s'

     where 

       vid.Sost = 'Д'"; CurrentLanguage) 

 ReferenceData = SelectSQL("Выбор справочника"; "Наименование|Код"; GetReferencesQuyery;;; DELIMITER;;;; vsmMultipleCheck; "Код"; "РАБ|ПОД")