Small and medium business | Business Central, N...

create Json file and add data from "LSC Trans. Sales Entry" table

(1) Share

Report

Posted on by KK-21020735-0

101

Please anyone help me how to fix the code to write Json file using AL code for Business Central.

I have code, Please help me with correction

local procedure TransmitInvoice(JsonPayload: Text; Token: Text)
    var
        Client: HttpClient;
        Request: HttpRequestMessage;
        Response: HttpResponseMessage;
        ContentHeaders: HttpHeaders;
        RequestHeaders: HttpHeaders;
    begin
        Request.SetRequestUri('https://mra-api-url.example.com/submit');
        Request.Method := 'POST';
        Request.Content.WriteFrom(JsonPayload);
        Request.Content.GetHeaders(ContentHeaders);
      //  ContentHeaders.set('Content-Type', 'application/json');
        ContentHeaders.Add('Content-Type', 'application/json');
        Request.GetHeaders(RequestHeaders);
        RequestHeaders.Add('Authorization', 'Bearer ' + Token);
        if not Client.Send(Request, Response) then
            Error('Failed to send request');
        if not Response.IsSuccessStatusCode() then
            Error('MRA submission failed with status: %1', Response.HttpStatusCode());
    end;

ErrorforJSON.txt

Categories:

Dynamics 365 Business Central

I have the same question (0)

All responses (7)

Answers (0)

Suggested answer

Sohail Ahmed 11,150 Super User 2025 Season 2 on at

Like (1)

Report

Sorry, I know this isn't the most formal way to answer in the community — but to save time, I’m sharing a quick code snippet as a hint on how you can create a JSON body using AL.

If you need help building a more complex JSON structure, feel free to let me know — I’ll be happy to guide you when I have availability.

Mark below checkbox to make this answer Verified if it helps you

Was this reply helpful? Yes No
Sohail Ahmed 11,150 Super User 2025 Season 2 on at

Like (1)

Report

I just noticed you’ve attached an error file — that’s very helpful. If possible, please also attach a snippet of the JSON body you're sending. That will make it easier for us to review and help identify the root cause more quickly.

Was this reply helpful? Yes No
KK-21020735-0 101 on at

Like (0)

Report

snippet of the JSON body

-----------------------

Thank you both of you for instance help.

local procedure BuildPOSPayload(SalesEntry: Record "LSC Trans. Sales Entry"): Text

var

JsonRoot, Invoice, LineItem : JsonObject;

LineArray: JsonArray;

TempEntry: Record "LSC Trans. Sales Entry";

tostring: Text;

begin

Invoice.Add('invoiceIdentifier', SalesEntry."Transaction No.");

// Invoice.Add('cashierId', SalesEntry."Staff ID"); // Removed because 'Staff ID' does not exist in the record

TempEntry.CopyFilters(SalesEntry);

if TempEntry.FindSet() then begin

repeat

Clear(LineItem);

LineItem.Add('itemNo', TempEntry."Item No.");

LineItem.Add('productCodeOwn', TempEntry."Item No.");

LineItem.Add('itemDesc', TempEntry."Item Description");

LineItem.Add('quantity', Format(TempEntry.Quantity));

LineItem.Add('unitPrice', Format(TempEntry.Price));

LineItem.Add('discount', Format(TempEntry."Discount Amount"));

LineItem.Add('amtWoVatCur', Format(TempEntry."Net Amount"));

LineItem.Add('vatRate', Format(TempEntry."VAT Amount"));

LineArray.Add(LineItem);

until TempEntry.Next() = 0;

end;

Invoice.Add('lineItems', LineArray);

JsonRoot.Add('invoice', Invoice);

JsonRoot.WriteTo(tostring);

exit(tostring);

end;

Was this reply helpful? Yes No
Suggested answer

RockwithNav 8,637 Super User 2025 Season 2 on at

Like (1)

Report

ContentHeaders.Remove('Content-Type');

ContentHeaders.Add('Content-Type', 'application/json');

Add this and then try executing.

Blog - rockwithnav.wordpress.com/
Twitter - https://twitter.com/RockwithNav
Facebook - https://facebook.com/rockwithnav/

Was this reply helpful? Yes No
Gerardo Rentería Ga... 25,236 Most Valuable Professional on at

Like (1)

Report

Hi, good day
I hope this can help you, and give you some hints.

Solved: Receiving Json Payload into Business Central via CodeUnit Parameter

JSON Full Guide In Business Central - Business Central Geek

Best Regards
Gerardo

Was this reply helpful? Yes No
Suggested answer

YUN ZHU 95,729 Super User 2025 Season 2 on at

Like (0)

Report

Just to add another method, since BC26 you can write json directly in text, which is also convenient for simple structures.

More details: https://learn.microsoft.com/en-us/dynamics365/release-plan/2025wave1/smb/dynamics365-business-central/work-multiline-strings-al?wt.mc_id=DX-MVP-5004336

Thanks.

ZHU

Was this reply helpful? Yes No
Suggested answer

Khushbu Rajvi. 20,601 Super User 2025 Season 2 on at

Like (1)

Report

Use JsonObject and JsonArray to build the payload from "LSC Trans. Sales Entry", then send it using HttpClient with proper headers. Ensure Content-Type is set to application/json and add Authorization header with the token.

Was this reply helpful? Yes No