How to write JSON file in multiple records?

bestianhow

Hi Experts,
May i know that how to write the AL code to generate output below?

Clear(ItemJsonObj);
ItemJsonObj.Add('name', 'Item ABC');
ItemJsonObj.Add('name2', 'Test');
ItemJsonObj.Add('vendor', 'XYZ Ptd');
ItemJsonObj.Add('item_categorty', 'Test');

I don't know to code for multiple variants.

Anyone, could you help me with this?

Thanks.

BR,
bestian

ftornero

Hello @bestianhow,

You can use something like this:

    local procedure JsonTest()
    var
        ItemBody: JsonObject;
        ItemDetail: JsonObject;
        ItemVariants: JsonArray;
        ItemVariant: JsonObject;

    begin
        ItemDetail.Add('name', 'Item ABC');
        ItemDetail.Add('name2', 'Test');
        ItemDetail.Add('vendor', 'XYZ Ptd');        
        ItemDetail.Add('item_category', 'Test');

        Clear(ItemVariant);        
        ItemVariant.Add('color', 'red');
        ItemVariant.Add('price', '10.00');        
        ItemVariants.Add(ItemVariant);

        Clear(ItemVariant);
        ItemVariant.Add('color', 'black');
        ItemVariant.Add('price', '20.00');        
        ItemVariants.Add(ItemVariant);
        
        ItemDetail.Add('variants', ItemVariants.AsToken());

        ItemBody.Add('Item', ItemDetail.AsToken());
    end;    
}

ftornero

Hello @bestianhow,

You can use something like this:

    local procedure JsonTest()
    var
        ItemBody: JsonObject;
        ItemDetail: JsonObject;
        ItemVariants: JsonArray;
        ItemVariant: JsonObject;

    begin
        ItemDetail.Add('name', 'Item ABC');
        ItemDetail.Add('name2', 'Test');
        ItemDetail.Add('vendor', 'XYZ Ptd');        
        ItemDetail.Add('item_category', 'Test');

        Clear(ItemVariant);        
        ItemVariant.Add('color', 'red');
        ItemVariant.Add('price', '10.00');        
        ItemVariants.Add(ItemVariant);

        Clear(ItemVariant);
        ItemVariant.Add('color', 'black');
        ItemVariant.Add('price', '20.00');        
        ItemVariants.Add(ItemVariant);
        
        ItemDetail.Add('variants', ItemVariants.AsToken());

        ItemBody.Add('Item', ItemDetail.AsToken());
    end;    
}

bestianhow

Thanks @ftornero.
It is working