let
    Source = Excel.CurrentWorkbook(){[Name="data"]}[Content],
    #"Повышенные заголовки" = Table.PromoteHeaders(Source, [PromoteAllScalars=true]),
    #"Changed Type" = Table.TransformColumnTypes(#"Повышенные заголовки",{{"N", Int64.Type}, {"стык", type text}, {"процент", Int64.Type}, {"контроль", type text}}),
    
    // Вычисляем количество стыков для контроля
    TotalRows = Table.RowCount(#"Changed Type"),
    Percent = #"Changed Type"{0}[процент],
    ToControl = Number.Round(TotalRows * Percent / 100),
    
    // Добавляем признак завершенного контроля
    #"Added Completed" = Table.AddColumn(#"Changed Type", "Завершен", each if [контроль] = "есть" then 1 else 0, Int64.Type),
    
    // Подсчитываем сколько уже завершено
    CompletedCount = List.Sum(Table.Column(#"Added Completed", "Завершен")),
    Remaining = ToControl - CompletedCount,
    
    // Случайным образом выбираем оставшиеся стыки для контроля
    #"Added Random" = Table.AddColumn(#"Added Completed", "Random", each Number.Random(), type number),
    #"Sorted Random" = Table.Sort(#"Added Random", {{"Random", Order.Ascending}}),
    #"Added Index" = Table.AddIndexColumn(#"Sorted Random", "TempIndex", 1, 1, Int64.Type),
    #"Added Control Flag" = Table.AddColumn(#"Added Index", "Для контроля", 
        each if [Завершен] = 1 then 1 else (if [TempIndex] <= (Remaining + CompletedCount) and [Завершен] = 0 then 1 else 0), Int64.Type),
    
    // Возвращаем исходный порядок
    #"Sorted Original" = Table.Sort(#"Added Control Flag", {{"N", Order.Ascending}}),
    #"Removed Columns" = Table.RemoveColumns(#"Sorted Original", {"Random", "TempIndex", "Завершен"})
in
    #"Removed Columns"