Dynamics Community Forum Thread Details

Hi ,,,

I have a question IN JSON Port and Send it to API.

I have these variables:-

SecretKey := 'Gj5nS9wyYHRadaVffz5VKB4v4wlVWyPhcJvrTD4NHtOsmn4WEhkrnJW7zWOmQD7qUDLVWZqNROnJk8ElUkfT38xh/EJq5G6ISXrLBHLNsIPftpZnzpinZWhURwJ/iZVCxvxWI89aqV5fvPThtItXW5iF58GCqaaJWv4ZKTNnk0cF+0vWfrJqS/6yBvnz6CrBNnRxo2AMgRzrvLgx9buDOtlT6wCwzq7VIK/Q8YlxyQPUAr121WPErq7TCHJNikF/ylAfcU1/ac9K9GQyj7AfFQ==';

ClientID := 'a6b5cfcc-ce28-41c4-a1bf-91c8cd347c6b';

EncryptedXMLBase64 := 'PEludm9pY2UgeG1sbnM9InVybjpvYXNpczpuYW1lczpzcGVjaWZpY2F0aW9uOnVibDpzY2hlbWE6eHNkOkludm9pY2UtMiIgeG1sbnM6Y2JjPSJ1cm46b2FzaXM6bmFtZXM6c3BlY2lmaWNhdGlvbjp1Ymw6c2NoZW1hOnhzZDpDb21tb25CYXNpY0NvbXBvbmVudHMtMiIgeG1sbnM6ZXh0PSJ1cm46b2FzaXM6bmFtZXM6c3BlY2lmaWNhdGlvbjp1Ymw6c2NoZW1hOnhzZDpDb21tb25FeHRlbnNpb25Db21wb25lbnRzLTIiIHhtbG5zOmNhYz0idXJuOm9hc2lzOm5hbWVzOnNwZWNpZmljYXRpb246dWJsOnNjaGVtYTp4c2Q6Q29tbW9uQWdncmVnYXRlQ29tcG9uZW50cy0yIj4NCiAgPGNiYzpQcm9maWxlSUQ+cmVwb3J0aW5nOjEuMDwvY2JjOlByb2ZpbGVJRD4NCiAgPGNiYzpJRD5TVERJTlYyMzU2PC9jYmM6SUQ+DQogIDxjYmM6VVVJRD42MjQ8L2NiYzpVVUlEPg0KICA8Y2JjOklzc3VlRGF0ZT4yMDIyLTA0LTEyPC9jYmM6SXNzdWVEYXRlPg0KICA8Y2JjOkludm9pY2VUeXBlQ29kZSBuYW1lPSIwMTIiPjM4ODwvY2JjOkludm9pY2VUeXBlQ29kZT4NCiAgPGNiYzpOb3RlPjwvY2JjOk5vdGU+DQogIDxjYmM6RG9jdW1lbnRDdXJyZW5jeUNvZGU+Sk9EPC9jYmM6RG9jdW1lbnRDdXJyZW5jeUNvZGU+DQogIDxjYmM6VGF4Q3VycmVuY3lDb2RlPkpPRDwvY2JjOlRheEN1cnJlbmN5Q29kZT4NCiAgPGNhYzpBZGRpdGlvbmFsRG9jdW1lbnRSZWZlcmVuY2U+DQogICAgPGNiYzpJRD5JQ1Y8L2NiYzpJRD4NCiAgICA8Y2JjOlVVSUQ+NjI0PC9jYmM6VVVJRD4NCiAgPC9jYWM6QWRkaXRpb25hbERvY3VtZW50UmVmZXJlbmNlPg0KICA8Y2FjOkFjY291bnRpbmdTdXBwbGllclBhcnR5Pg0KICAgIDxjYWM6UGFydHk+DQogICAgICA8Y2FjOlBvc3RhbEFkZHJlc3M+DQogICAgICAgIDxjYWM6Q291bnRyeT4NCiAgICAgICAgICA8Y2JjOklkZW50aWZpY2F0aW9uQ29kZT5KTzwvY2JjOklkZW50aWZpY2F0aW9uQ29kZT4NCiAgICAgICAgPC9jYWM6Q291bnRyeT4NCiAgICAgIDwvY2FjOlBvc3RhbEFkZHJlc3M+DQogICAgICA8Y2FjOlBhcnR5VGF4U2NoZW1lPg0KICAgICAgICA8Y2JjOkNvbXBhbnlJRD48L2NiYzpDb21wYW55SUQ+DQogICAgICAgIDxjYWM6VGF4U2NoZW1lPg0KICAgICAgICAgIDxjYmM6SUQ+VkFUPC9jYmM6SUQ+DQogICAgICAgIDwvY2FjOlRheFNjaGVtZT4NCiAgICAgIDwvY2FjOlBhcnR5VGF4U2NoZW1lPg0KICAgICAgPGNhYzpQYXJ0eUxlZ2FsRW50aXR5Pg0KICAgICAgICA8Y2JjOlJlZ2lzdHJhdGlvbk5hbWU+RmFicmlrYW0sIEluYy48L2NiYzpSZWdpc3RyYXRpb25OYW1lPg0KICAgICAgPC9jYWM6UGFydHlMZWdhbEVudGl0eT4NCiAgICA8L2NhYzpQYXJ0eT4NCiAgPC9jYWM6QWNjb3VudGluZ1N1cHBsaWVyUGFydHk+DQogIDxjYWM6QWNjb3VudGluZ0N1c3RvbWVyUGFydHk+DQogICAgPGNhYzpQYXJ0eT4NCiAgICAgIDxjYWM6UGFydHlJZGVudGlmaWNhdGlvbj4NCiAgICAgICAgPGNiYzpJRCBzY2hlbWVJRD0iVE4iPjwvY2JjOklEPg0KICAgICAgPC9jYWM6UGFydHlJZGVudGlmaWNhdGlvbj4NCiAgICAgIDxjYWM6UG9zdGFsQWRkcmVzcz4NCiAgICAgICAgPGNiYzpQb3N0YWxab25lPjwvY2JjOlBvc3RhbFpvbmU+DQogICAgICAgIDxjYmM6Q291bnRyeVN1YmVudGl0eUNvZGU+VEVSUklUT1JZIDg8L2NiYzpDb3VudHJ5U3ViZW50aXR5Q29kZT4NCiAgICAgICAgPGNhYzpDb3VudHJ5Pg0KICAgICAgICAgIDxjYmM6SWRlbnRpZmljYXRpb25Db2RlPkpPPC9jYmM6SWRlbnRpZmljYXRpb25Db2RlPg0KICAgICAgICA8L2NhYzpDb3VudHJ5Pg0KICAgICAgPC9jYWM6UG9zdGFsQWRkcmVzcz4NCiAgICAgIDxjYWM6UGFydHlUYXhTY2hlbWU+DQogICAgICAgIDxjYmM6Q29tcGFueUlEPjwvY2JjOkNvbXBhbnlJRD4NCiAgICAgICAgPGNhYzpUYXhTY2hlbWU+DQogICAgICAgICAgPGNiYzpJRD5WQVQ8L2NiYzpJRD4NCiAgICAgICAgPC9jYWM6VGF4U2NoZW1lPg0KICAgICAgPC9jYWM6UGFydHlUYXhTY2hlbWU+DQogICAgICA8Y2FjOlBhcnR5TGVnYWxFbnRpdHk+DQogICAgICAgIDxjYmM6UmVnaXN0cmF0aW9uTmFtZT5UZXN0IEN1c3RvbWVyPC9jYmM6UmVnaXN0cmF0aW9uTmFtZT4NCiAgICAgIDwvY2FjOlBhcnR5TGVnYWxFbnRpdHk+DQogICAgPC9jYWM6UGFydHk+DQogICAgPGNhYzpBY2NvdW50aW5nQ29udGFjdD4NCiAgICAgIDxjYmM6VGVsZXBob25lPjAwMDAwMDAwMDAwMDAwPC9jYmM6VGVsZXBob25lPg0KICAgIDwvY2FjOkFjY291bnRpbmdDb250YWN0Pg0KICA8L2NhYzpBY2NvdW50aW5nQ3VzdG9tZXJQYXJ0eT4NCiAgPGNhYzpTZWxsZXJTdXBwbGllclBhcnR5Pg0KICAgIDxjYWM6UGFydHk+DQogICAgICA8Y2FjOlBhcnR5SWRlbnRpZmljYXRpb24+DQogICAgICAgIDxjYmM6SUQ+Mjk3ODYxPC9jYmM6SUQ+DQogICAgICA8L2NhYzpQYXJ0eUlkZW50aWZpY2F0aW9uPg0KICAgIDwvY2FjOlBhcnR5Pg0KICA8L2NhYzpTZWxsZXJTdXBwbGllclBhcnR5Pg0KICA8Y2FjOkFsbG93YW5jZUNoYXJnZT4NCiAgICA8Y2JjOkNoYXJnZUluZGljYXRvcj5mYWxzZTwvY2JjOkNoYXJnZUluZGljYXRvcj4NCiAgICA8Y2JjOkFsbG93YW5jZUNoYXJnZVJlYXNvbj5kaXNjb3VudDwvY2JjOkFsbG93YW5jZUNoYXJnZVJlYXNvbj4NCiAgICA8Y2JjOkFtb3VudCBjdXJyZW5jeUlEPSJKTyI+MC4wMDA8L2NiYzpBbW91bnQ+DQogIDwvY2FjOkFsbG93YW5jZUNoYXJnZT4NCiAgPGNhYzpUYXhUb3RhbD4NCiAgICA8Y2JjOlRheEFtb3VudCBjdXJyZW5jeUlEPSJKTyI+MC4xNTA8L2NiYzpUYXhBbW91bnQ+DQogIDwvY2FjOlRheFRvdGFsPg0KICA8Y2FjOkxlZ2FsTW9uZXRhcnlUb3RhbD4NCiAgICA8Y2JjOlRheEV4Y2x1c2l2ZUFtb3VudCBjdXJyZW5jeUlEPSJKTyI+Mi41MDA8L2NiYzpUYXhFeGNsdXNpdmVBbW91bnQ+DQogICAgPGNiYzpUYXhJbmNsdXNpdmVBbW91bnQgY3VycmVuY3lJRD0iSk8iPjIuNjUwPC9jYmM6VGF4SW5jbHVzaXZlQW1vdW50Pg0KICAgIDxjYmM6QWxsb3dhbmNlVG90YWxBbW91bnQgY3VycmVuY3lJRD0iSk8iPjAuMDAwPC9jYmM6QWxsb3dhbmNlVG90YWxBbW91bnQ+DQogICAgPGNiYzpQYXlhYmxlQW1vdW50IGN1cnJlbmN5SUQ9IkpPIj4yLjY1MDwvY2JjOlBheWFibGVBbW91bnQ+DQogIDwvY2FjOkxlZ2FsTW9uZXRhcnlUb3RhbD4NCiAgPGNhYzpJbnZvaWNlTGluZT4NCiAgICA8Y2JjOklEPjE8L2NiYzpJRD4NCiAgICA8Y2JjOkludm9pY2VkUXVhbnRpdHkgdW5pdENvZGU9IlBDRSI+MS4wMDAwMDwvY2JjOkludm9pY2VkUXVhbnRpdHk+DQogICAgPGNiYzpMaW5lRXh0ZW5zaW9uQW1vdW50IGN1cnJlbmN5SUQ9IkpPIj4yLjU8L2NiYzpMaW5lRXh0ZW5zaW9uQW1vdW50Pg0KICAgIDxjYWM6VGF4VG90YWw+DQogICAgICA8Y2JjOlRheEFtb3VudCBjdXJyZW5jeUlEPSJKTyI+MC4xNTA8L2NiYzpUYXhBbW91bnQ+DQogICAgICA8Y2JjOlJvdW5kaW5nQW1vdW50IGN1cnJlbmN5SUQ9IkpPIj4yLjY1PC9jYmM6Um91bmRpbmdBbW91bnQ+DQogICAgICA8Y2FjOlRheFN1YnRvdGFsPg0KICAgICAgICA8Y2JjOlRheEFtb3VudCBjdXJyZW5jeUlEPSJKTyI+MC4xNTA8L2NiYzpUYXhBbW91bnQ+DQogICAgICAgIDxjYWM6VGF4Q2F0ZWdvcnk+DQogICAgICAgICAgPGNiYzpJRCBzY2hlbWVBZ2VuY3lJRD0iNiIgc2NoZW1lSUQ9IlVOL0VDRSA1MzA1Ij5TPC9jYmM6SUQ+DQogICAgICAgICAgPGNiYzpQZXJjZW50PjY8L2NiYzpQZXJjZW50Pg0KICAgICAgICAgIDxjYWM6VGF4U2NoZW1lPg0KICAgICAgICAgICAgPGNiYzpJRCBzY2hlbWVBZ2VuY3lJRD0iNiIgc2NoZW1lSUQ9IlVOL0VDRSA1MTUzIj5WQVQ8L2NiYzpJRD4NCiAgICAgICAgICA8L2NhYzpUYXhTY2hlbWU+DQogICAgICAgIDwvY2FjOlRheENhdGVnb3J5Pg0KICAgICAgPC9jYWM6VGF4U3VidG90YWw+DQogICAgPC9jYWM6VGF4VG90YWw+DQogICAgPGNhYzpJdGVtPg0KICAgICAgPGNiYzpOYW1lPk11bHRpLUNvcmUgUHJvY2Vzc29yPC9jYmM6TmFtZT4NCiAgICA8L2NhYzpJdGVtPg0KICAgIDxjYWM6UHJpY2U+DQogICAgICA8Y2JjOlByaWNlQW1vdW50IGN1cnJlbmN5SUQ9IkpPIj4yLjUwMDAwPC9jYmM6UHJpY2VBbW91bnQ+DQogICAgICA8Y2FjOkFsbG93YW5jZUNoYXJnZT4NCiAgICAgICAgPGNiYzpDaGFyZ2VJbmRpY2F0b3I+ZmFsc2U8L2NiYzpDaGFyZ2VJbmRpY2F0b3I+DQogICAgICAgIDxjYmM6QWxsb3dhbmNlQ2hhcmdlUmVhc29uPkRJU0NPVU5UPC9jYmM6QWxsb3dhbmNlQ2hhcmdlUmVhc29uPg0KICAgICAgICA8Y2JjOkFtb3VudCBjdXJyZW5jeUlEPSJKTyI+MC4wMDAwMDwvY2JjOkFtb3VudD4NCiAgICAgIDwvY2FjOkFsbG93YW5jZUNoYXJnZT4NCiAgICA8L2NhYzpQcmljZT4NCiAgPC9jYWM6SW52b2ljZUxpbmU+DQo8L0ludm9pY2U+';

//**********************************************************************************************************************************************************************************************************************************************************

procedure SendInvoiceWithAuthentication(EncryptedXMLBase64: Text; ClientID: Text; SecretKey: Text) ResponseText: Text

var

HttpClient: HttpClient;

HttpRequestMessage: HttpRequestMessage;

HttpResponseMessage: HttpResponseMessage;

RequestHeaders: HttpHeaders;

JsonToken: JsonToken;

JsonObject: JsonObject;

BodyText: Text;

BaseUrl: Text;

ResponseContent: Text;

JsonContent: Text;

ContentHeaders: HttpHeaders;

begin

BaseUrl := 'https://backend.jofotara.gov.jo/core/invoices/';

HttpRequestMessage.SetRequestUri(BaseUrl);

HttpRequestMessage.Method('Get');

HttpRequestMessage.GetHeaders(RequestHeaders);

RequestHeaders.Add('Client-Id', ClientID);

RequestHeaders.Add('Secret-Key', SecretKey);

JsonObject.Add('invoice', EncryptedXMLBase64);

JsonObject.WriteTo(BodyText);

JsonContent := BodyText;

HttpRequestMessage.Content().WriteFrom(JsonContent);

HttpRequestMessage.Content().GetHeaders(ContentHeaders);

ContentHeaders.Remove('Content-Type');

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

if HttpClient.Send(HttpRequestMessage, HttpResponseMessage) then begin

HttpResponseMessage.Content.ReadAs(ResponseContent);

if HttpResponseMessage.IsSuccessStatusCode then begin

Message('Success: %1', ResponseContent);

end else begin

Message('Error: %1', ResponseContent);

end;

end else begin

Message('Failed to send request.');

end;

//*******************************************************************************************************************************************************************

What the value of the BodyText variable is supposed to be ؟

It gives me the error in the image :
Failed to send request.

How do I make the code work?

Hello,

I think the error is causing due to the variable EncryptedXMLBase64 which you are storing in Text datatype which is not feasible because text datatype can only store upto 2048 characters and the EncryptedXMLBase64 value is something 5780 so you might have to change the DataType.

Here's the reference code to refer :

Content.WriteFrom('{"user_id": "' + SetupRec."user id" + '","password": "' + SetupRec."password" + '"}');
Content.GetHeaders(contentHeaders);
RequestMessageforToken.GetHeaders(RequestHeaderforToken);
RequestHeaderforToken.Add('x-api-key', SetupRec."x-api-key");
RequestMessageforToken.SetRequestUri(SetupRec."Authorization URL");
RequestMessageforToken.Method('GET');
if ContentHeaders.Contains('Content-Type') then ContentHeaders.Remove('Content-Type');
ContentHeaders.Add('Content-Type', 'application/json');
RequestMessageforToken.Content(Content);
IsSuccessful := HttpClient.Send(RequestMessageforToken, ResponseMessage);
if not IsSuccessful then
Error('Status Code: %1\ Reason : %2', ResponseMessage.HttpStatusCode, ResponseMessage.ReasonPhrase)
else begin
ResponseMessage.Content.ReadAs(ResponseText);
JObject.ReadFrom(ResponseText);

Hope this Solution Help's.

Thank You,

Shrey Chauhan

I have a Error IN JSON Port and Send it to API

Helpful resources

Quick Links

Congratulations 2024 Spotlight Honorees

Meet the Top 10 leaders for December

Start Your Super User Journey

Leaderboard

Featured topics

Product updates