let
    #"Год" = 2013,
   #"Путь расположения файлов" = "D:\Code\R\Data\",
   #"Наименование файла данных" = Lines.ToText(
               {
                  "data-20200331-structure-",
                  Number.ToText(#"Год"),
                  "1231"
               },
               "") as text,
   #"Наименование файла структуры" = Lines.ToText(
               {
                  "structure-",
                  Number.ToText(#"Год"),
                  "1231"
               },
               "") as text,
   #"Расширение файла" = "csv",
   #"Длина таблица данных" = 124,
   
   #"Импорт_1" = Lines.ToText(
      {
         #"Путь расположения файлов",
         #"Наименование файла данных",
         ".",
         #"Расширение файла"         
      },
      "") as text,
   #"Данные_1" = Csv.Document(File.Contents(#"Импорт_1"),
                                    [Delimiter=";", 
                                    Columns=#"Длина таблица данных", 
                                    Encoding=1251, 
                                    QuoteStyle=QuoteStyle.None]),
   #"Импорт_2" = Lines.ToText(
      {
         #"Путь расположения файлов",
         "Help",
         ".",
         #"Расширение файла"         
      },
      "") as text,
   #"Расшифровка_1" = Csv.Document(File.Contents(#"Импорт_2"),
                                    [Delimiter=";", 
                                    Columns=3, 
                                    Encoding=1251, 
                                    QuoteStyle=QuoteStyle.None]),   
   #"Расшифровка_2" = Table.RenameColumns(#"Расшифровка_1",{{"Column1", "Numer"}, {"Column2", "Name_RUS"}, {"Column3", "Name_ENG"}}),
   
   #"Импорт_3" = Lines.ToText(
      {
         #"Путь расположения файлов",
         #"Наименование файла структуры",
         ".",
         #"Расширение файла"         
      },
      "") as text,
   #"Структура_1" = Csv.Document(File.Contents(#"Импорт_3"),
                                    [Delimiter=",", 
                                    Columns=4, 
                                    Encoding=1251, 
                                    QuoteStyle=QuoteStyle.Csv]),
   #"Структура_2" =  Table.PromoteHeaders (#"Структура_1"),

   #"Список_полей_1" = #"Структура_2"[#"field name"],
   #"Список_полей_2"=List.FirstN(#"Список_полей_1", #"Длина таблица данных"),
   #"Список_полей_3" = Table.ColumnNames(#"Данные_1"),
   #"Список_полей_4" =  List.Zip({#"Список_полей_3",#"Список_полей_2"}),
   
   #"Данные_2" = Table.RenameColumns(#"Данные_1", #"Список_полей_4"),
      
   #"Перечень стобцов" = Table.FromList(Table.ColumnNames(#"Данные_2")),   
   #"Перечень стобцов с фильтром" = Table.SelectRows(#"Перечень стобцов", each 
      (Text.Length([Column1]) =5) and (Text.At([Column1], 4)="4")),
   #"Перечень стобцов с фильтром в виде списка" = #"Перечень стобцов с фильтром"[Column1],

    #"Удаленные столбцы" = Table.RemoveColumns(#"Данные_2",#"Перечень стобцов с фильтром в виде списка", MissingField.Ignore),
   
   #"Финальный вид таблицы" = Table.AddColumn(#"Удаленные столбцы" , "Year", each #"Год"), 

   #"Результат"= #"Финальный вид таблицы" 
in
    #"Результат"