Dynamics Community Forum Thread Details

Bad Request in Post to Item Journal from Customized Table

I am posting thousands of inventory from my Business Central customized table to Business Central Item Journal Odata Api through Rest and it does posting limited transaction while debuging in repeater but it stops at some 200 or 300 row of table with the error of 400 Bad Request, i wanted to know is thiis due to large no of records or what? and what is the solution?

My code:

TblTestInventory.Init();

TblTestInventory.Reset();

TblTestInventory.SetRange(TblTestInventory.IsSync, false);

TblTestInventory.SetRange(TblTestInventory.ERP_No, '');

if TblTestInventory.find('-') then begin

repeat begin

Clear(JObject);

Clear(jsonText);

Clear(Content);

Clear(ResponseMessage);

ChecKtransid := TblTestInventory."Transaction id";

batch := format(Date2DMY(TblTestInventory.BUSINESS_DATE, 2)) + '-' + FORMAT(TblTestInventory.BUSINESS_DATE, 0, '<Month Text,3>');

JObject.Add('Journal_Template_Name', 'COGS');

JObject.Add('Journal_Batch_Name', batch);

JObject.Add('Posting_Date', TblTestInventory.BUSINESS_DATE);

JObject.Add('Entry_Type', 'Sale');

JObject.Add('Item_No', TblTestInventory.SKU);

JObject.Add('Quantity', TblTestInventory.QUANTITY);

JObject.Add('Location_Code', TblTestInventory.Location);

JObject.Add('Shortcut_Dimension_1_Code', TblTestInventory.Location);

JObject.Add('Shortcut_Dimension_2_Code', 'OPERATIONS');

JObject.WriteTo(jsonText);

Content.WriteFrom(jsonText);

Content.GetHeaders(contentHeaders);

contentHeaders.Remove('Content-Type');

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

if not Http_Client.Post('api.businesscentral.dynamics.com/.../Company/----------------------/EVS_ItemJournalLine', Content, ResponseMessage) then

Error('The call to the web service failed.');

if not ResponseMessage.IsSuccessStatusCode() then

Error('The web service returned an error message:\\' + 'Status code: ' + Format(ResponseMessage.HttpStatusCode()) + 'Description: ' + ResponseMessage.ReasonPhrase());

// for is sync and document no

if ResponseMessage.IsSuccessStatusCode() = true then begin

ResponseMessage.Content().ReadAs(responseString);

if Json_TokenR.ReadFrom(responseString) then begin

if Json_TokenR.IsObject then begin

Json_ObjectR := Json_TokenR.AsObject();

if GetResultJsonValue(Json_ObjectR, 'Document_No', Json_ValueR) then begin

TblTestInventory.ERP_No := Json_ValueR.AsText();

end;

TblTestInventory.IsSync := true;

TblTestInventory.Modify();

end;