Best Of

So, what value do you get for Type in the XML if you read a record with Type G/L Account from the page web service?

As an alternative, I guess the numeric option value should work (i.e. <Type>1</Type> in this case).

Hi
I can share my code for doing the same in C/AL with DotNet (on BC13 OnPrem). This is well tested and works for sure.
Then you might compare and figure out what is wrong?

[TryFunction]
[LineStart(209)]
LOCAL PROCEDURE [email protected]([email protected] : Text;[email protected] : Text;[email protected] : Text;[email protected] : Text;VAR [email protected] : Text);
VAR
[email protected] : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.HttpWebRequest";
[email protected] : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.HttpWebResponse";
[email protected] : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.HttpStatusCode";
[email protected] : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.Specialized.NameValueCollection";
[email protected] : TEMPORARY Record 99008535;
[email protected] : Codeunit 1299;
@={Locked};DAN=https://login.microsoftonline.com/%1/oauth2/token;ENU=https://login.microsoftonline.com/%1/oauth2/token';
[email protected] : OutStream;
[email protected] : InStream;
[email protected] : Text;
@={Locked};DAN="grant_type=client_credentials&client_id=%1&client_secret=%2&resource=%3";ENU="grant_type=client_credentials&client_id=%1&client_secret=%2&resource=%3"';
BEGIN
WebResponseTempBlob.Blob.CREATEINSTREAM(WebResponseInStream);

HttpWebRequest := HttpWebRequest.Create(STRSUBSTNO(AzureUrlLbl,TenantId));
HttpWebRequest.Method := 'POST';
HttpWebRequest.ContentType := 'application/x-www-form-urlencoded';
RequestBodyOutStream := HttpWebRequest.GetRequestStream();
RequestBodyOutStream.WRITETEXT(STRSUBSTNO(AzureParmLbl,UrlEncode(ClientId),UrlEncode(ClientSecret),UrlEncode(Resource)));
WebRequestHelper.GetWebResponse(HttpWebRequest,HttpWebResponse,WebResponseInStream,HttpStatusCode,ResponseHeaders,FALSE);
WebResponseInStream.READ(WebResponse);
BearerToken := GetValueFromJSONString(WebResponse,'access_token');
END;

You could set up an SMTP server in your local network that has access to the internet and can serve as a relay for your mail (with Exchange it is often done that way).
Or else you need to modify the SMTP Mail codeunit to run client side.

HI @MarcusRB,
With NAV 2017 and up, Microsoft has changed the help server to at not contain the classic help file:
https://blogs.msdn.microsoft.com/nav/2016/11/04/dynamics-nav-and-help-a-new-world/

If you want to get the old field help (F1) you will need to patch your help server with the Danish classic help

You can download the classic help here:
https://www.microsoft.com/en-us/download/details.aspx?id=54315

Hello @Rahila,

You can add this code to the previous one:

    procedure WriteRange(FileName: Text; TempBlob: Record TempBlob temporary)
    var
        requestMethod: Text;
        request: HttpRequestMessage;
        RequestHeader: HttpHeaders;
        hhtpres: HttpResponseMessage;
        canonicalizedResource: Text;
        canonicalizedHeaders: Text;
        urlPath: Text;
        client: HttpClient;
        content: HttpContent;
        ContentHeaders: HttpHeaders;
        test: Boolean;
        authorizationHeader: Text;
        stringToSign: Text;
        msVersion: Text;
        cha: Text[1];
        contenttype: Text;
        contentLength: Integer;
        res: Text;
        keyss: Text;
        dateInRfc1123Format: Text;  
        EncryptionManagement: Codeunit "Encryption Management";        
        uri: Text;
        Range: Text;
        InStr: InStream;

    begin
        if not TempBlob.Blob.HasValue() then
            exit;

        cha[1] := 10;
        msVersion := '2015-02-21';
        keyss := GetAccountAccessKey();
        dateInRfc1123Format := GetUTCDateTimeText(); // <------------ Changed
        requestMethod := 'PUT';

        urlPath := GetAccountSharedRessource() + '/lables/' + FileName + '?comp=range';

        CanonicalizedResource := ConvertStr(StrSubstNo('/%1/%2', GetAccountName(), urlPath), '?=', cha + ':');

        TempBlob.Blob.CreateInStream(InStr, TextEncoding::UTF8);
        content.WriteFrom(InStr);
        ContentLength := TempBlob.Blob.Length;

        ContentHeaders.Clear();
        content.GetHeaders(ContentHeaders);
        ContentHeaders.Add('Content-Length', Format(ContentLength, 0, 9));
        ContentHeaders.Remove('Content-Type');
        request.Content := content;

        Range := 'bytes=0-' + Format(contentLength - 1, 0, 9);

        canonicalizedHeaders := 'x-ms-date:' + dateInRfc1123Format + Format(cha) +
                                'x-ms-range:' + Range + Format(cha) +
                                'x-ms-version:' + msVersion + Format(cha) +
                                'x-ms-write:' + 'update';

        stringToSign := (requestMethod + Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(contentLength, 0, 9) + Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         canonicalizedHeaders + Format(cha) + // <------------ Changed
                         canonicalizedResource);

        authorizationHeader := 'SharedKey ' + GetAccountName() + ':' + EncryptionManagement.GenerateBase64KeyedHashAsBase64String(stringToSign, keyss, 2);
        uri := StrSubstNo('https://%1.file.core.windows.net/%2', GetAccountName(), urlPath);
        request.SetRequestUri(uri);
        request.Method := requestMethod;
        RequestHeader.Clear();
        request.GetHeaders(RequestHeader);
        RequestHeader.Add('Authorization', authorizationHeader);
        RequestHeader.Add('x-ms-date', dateInRfc1123Format);
        RequestHeader.Add('x-ms-range', Range);
        RequestHeader.Add('x-ms-version', msVersion);
        RequestHeader.Add('x-ms-write', 'update');

        client.Send(request, hhtpres);
        if not hhtpres.IsSuccessStatusCode then
            Error(hhtpres.ReasonPhrase)
        else
            Message(hhtpres.ReasonPhrase);
    end;

    procedure WriteText2File(FileName: Text; qText: Text)
    var
        OutStr: OutStream;
        TempBlob: Record TempBlob temporary;
    begin
        TempBlob.Blob.CreateOutStream(OutStr, TextEncoding::UTF8);
        OutStr.WriteText(qText);
        WriteRange(FileName, TempBlob);
    end;

And call the code whit something like this:

FileName := 'AzureSharedFile.txt';
CreateFileNew(FileName);
WriteText2File(FileName, 'This is a test !!!!');

Regards

Hi,

You can use the "SourceTableTemporary" of the page. Set this property to TRUE and then populate the temporary table with the lines you need, by looping through your records and applying the above logic.

Regards

Hello @Rahila

I changed your code a little to make it works

The EncryptionManagement codeunit changed in BC15 and I added some procedures to get your account data and the DateTime format expected.

codeunit 50124 CreateFileNew
{
    procedure CreateFileNew(FileName: Text)
    var
        requestMethod: Text;
        request: HttpRequestMessage;
        RequestHeader: HttpHeaders;
        hhtpres: HttpResponseMessage;
        canonicalizedResource: Text;
        canonicalizedHeaders: Text;
        urlPath: Text;
        client: HttpClient;
        content: HttpContent;
        test: Boolean;
        MethodType: Text;
        authorizationHeader: Text;
        stringToSign: Text;
        msVersion: Text;
        cha: Char;
        contenttype: Text;
        contentLength: Integer;
        dat: DateTime;
        res: Text;
        keyss: Text;
        dateInRfc1123Format: Text;  // <------------ Changed
        //EncryptionManagement: Codeunit "Encryption Management";
        EncryptionManagement: Codeunit "Cryptography Management";   // <------------ Changed BC15    
        uri: Text;
    begin
        cha := 10; //13;  <------------ Changed
        msVersion := '2015-02-21';//'2015-04-05';//;'02-14-2014'; <------------ Changed
        MethodType := 'CreateFile';
        keyss := GetAccountAccessKey();
        dateInRfc1123Format := GetUTCDateTimeText(); // <------------ Changed
        requestMethod := 'PUT';
        urlPath := GetAccountSharedRessource() + '/lables/' + FileName; // you need a folder lables inside your Shared ressource
        //canonicalizedResource := '/bcstorage/lables/tre11.csv';
        CanonicalizedResource := StrSubstNo('/%1/%2', GetAccountName(), urlPath);
        canonicalizedHeaders := 'x-ms-content-length:' + '1024' + Format(cha) +
                                'x-ms-date:' + dateInRfc1123Format + Format(cha) +
                                'x-ms-type:' + 'file' + Format(cha) +
                                'x-ms-version:' + msVersion;

        stringToSign := (requestMethod + Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         Format(cha) +
                         canonicalizedHeaders + Format(cha) + // <------------ Changed
                         canonicalizedResource);

        authorizationHeader := 'SharedKey ' + GetAccountName() + ':' + EncryptionManagement.GenerateBase64KeyedHashAsBase64String(stringToSign, keyss, 2);
        //Message((authorizationHeader));
        uri := StrSubstNo('https://%1.file.core.windows.net/%2', GetAccountName(), urlPath);
        request.SetRequestUri(uri);
        request.Method := requestMethod;
        RequestHeader.Clear();
        request.GetHeaders(RequestHeader);
        RequestHeader.Add('Authorization', authorizationHeader);
        RequestHeader.Add('x-ms-content-length', '1024');
        RequestHeader.Add('x-ms-date', dateInRfc1123Format);
        RequestHeader.Add('x-ms-type', 'file');
        RequestHeader.Add('x-ms-version', msVersion);

        client.Send(request, hhtpres);
        if not hhtpres.IsSuccessStatusCode then
            Error(hhtpres.ReasonPhrase);
    end;

    procedure GetUTCDateTimeText(): Text
    var
        TypeHelper: Codeunit "Type Helper";
    begin
        exit(TypeHelper.GetCurrUTCDateTimeAsText());
    end;

    procedure GetAccountName(): Text
    begin
        // Your Account name
        exit('bc365storage');
    end;

    procedure GetAccountSharedRessource(): Text
    begin
        // Your Shared ressource
        exit('bcstorage');        
    end;

    procedure GetAccountAccessKey(): Text
    begin
        // Your Access Key
        exit('i0PNZ6Ykse7oSSfUzFeA36rQfAvaaJiL9LYbv9UZnol0NRM4sal4s8B3ipkjvfzcsP8/gnI58G6A==');
    end;
}

Regards

Yes there is, you can sent in caption and set the caption on a field:
field(DecValue; DecValue)
{
Visible = ShowDecimal;
CaptionClass = FORMAT(DecCaption);
}
field(TextValue; TextValue)
{
Visible = ShowText;
CaptionClass = FORMAT(TextCaption);
}

DecCaption and TextCaption is global text variables

Do you have the loop that builds the text inside another loop?
That's what it looks like to me.
When I use the snipped Phoge posted with an Array I filled with 1-10 it works just fine:


Could you post the codesnippets you use for filling the array and for creating the Message?