Public Sub get_federations_map(strOrderField As String) As Map
Dim mapTemp As Map
mapTemp.Initialize
Dim sqlSelect As SQL
Dim sqlCursor As Cursor
sqlSelect.Initialize(xui.DefaultFolder, "strings.db", False)
sqlCursor = sqlSelect.ExecQuery("SELECT _id, " & strOrderField & " FROM cmn_lst_federaciones WHERE _id >= 4 ORDER BY " & strOrderField)
For iCnt = 0 To sqlCursor.RowCount - 1
sqlCursor.Position = iCnt
mapTemp.Put(sqlCursor.GetInt("_id"), sqlCursor.GetString(strOrderField))
Next
sqlSelect.Close
Return mapTemp
End Sub