Basic HTTP authorisation with PowerQuery

encode-http-auth-header.pq

let EncodeBasicCredentials = (UserName, Password) => 
    let
        result = "Basic " & Binary.ToText(Text.ToBinary(#"UserName" & ":" & #"Password"),0)
    in
        result
in EncodeBasicCredentials

execute-web-request.pq

let
    UserName = "USERNAME",
    Password = "PASSWORD",
    authHeader = EncodeBasicCredentials(UserName, Password),
    options = [
        Headers = [
            #"Authorization"=authKey
        ]
    ],
    Headers = options[Headers],
    Url = "https://api.myprovider.com/api/v1.0/something.json",
    Result = Json.Document(Web.Contents(Url, options)),
    Result1 = Result{0}
in
    Result1