let
    baseQuery = "https://0pryln0q2f.execute-api.eu-central-1.amazonaws.com/API/search?searchAfter=",
generate = List.Generate(
        () => [response = Json.Document(Web.Contents(baseQuery))],
        each [response] is record,
        each [response = Json.Document(Web.Contents(baseQuery ,
        [
  RelativePath="",
  Query=[searchAfter=Text.From([response][searchAfter])]
 ]
        ))],
        each [response][ids]
    ),
    result = List.Combine(generate)
in
    result

(optional startDate as text, optional continuationToken as text, optional loop as number, optional data as list) =>
let
 
   Source =if continuationToken = null 
    then Json.Document(Web.Contents("https://0pryln0q2f.execute-api.eu-central-1.amazonaws.com/API/search?dateFrom=" & startDate & ""))
  else Json.Document(Web.Contents("https://0pryln0q2f.execute-api.eu-central-1.amazonaws.com/API/search?searchAfter=" & continuationToken & "&dateFrom=" & startDate & ""))
  ,
   token = Text.From(Source[searchAfter]),
   currentData = Source[ids],
   appendedData =
   if currentData is null and data is null then {}
   else if data is null then List.Combine({{}, currentData}) 
   else if data is null then List.Combine({data,{}})
   else List.Combine({data, currentData}),
   loopNum = loop + 1,
   output =
   if Source is null  or loopNum > 100
   then
   if appendedData is null then {1,2,3} else appendedData
   else @#"GET"(startDate, token, loopNum, appendedData)
in
   appendedData

 "totalHits": 23680,
    "searchAfter": 161978,
    "ids": [
        167057,
        167056,
        167055,
        167054,

[]

(x)=>
let
    startdate = (Date.ToText(x, "yyyy-MM-dd")), 
    
    idlist  = Json.Document(Web.Contents(
      "https://0pryln0q2f.execute-api.eu-central-1.amazonaws.com/API/search?searchAfter=&dateFrom=" & startdate,
      [
        Query=[dateFrom=startdate]] 
      )),
    searchAfter = idlist[searchAfter]
    
in
    searchAfter

let

    дата = DateTime.LocalNow(),/// сегодня
    startdate= DateTime.ToText ((Date.AddDays(дата , 
    -1 // столько дней назад взять курс
    )), "dd/MM/yyyy"),
    Источник = Xml.Tables(Web.Contents("http://www.cbr.ru/scripts/XML_daily.asp?date_req="&startdate), null, 1251),
    CBR = Table.ExpandTableColumn(Источник, "Valute", {"NumCode", "CharCode", "Nominal", "Name", "Value", "Attribute:ID"}, {"NumCode", "CharCode", "Nominal", "Name", "Value", "Attribute:ID"}),   
    MyTable = Excel.CurrentWorkbook(){[Name="База"]}[Content],
    #"Добавленный запрос" = Table.Combine({MyTable, CBR}),
    #"Удаленные дубликаты" = Table.Distinct(#"Добавленный запрос", {"CharCode", "Attribute:Date"})
in
    #"Удаленные дубликаты"