consume an external web service from navision

Answers

• maxklein Member Posts: 8

  2025-05-07

  its simple
  
  OBJECT Codeunit 50100 ConsumeWebService
  {
  OBJECT-PROPERTIES
  {
  OnRun=BEGIN
  CallExternalAPI();
  END;
  }
  PROPERTIES
  {
  SingleInstance=Yes;
  }
  LOCAL PROCEDURE CallExternalAPI@1();
  VAR
  HttpWebRequest@1000 : DotNet "System.Net.HttpWebRequest";
  HttpWebResponse@1001 : DotNet "System.Net.HttpWebResponse";
  StreamReader@1002 : DotNet "System.IO.StreamReader";
  RequestStream@1003 : DotNet "System.IO.Stream";
  StreamWriter@1004 : DotNet "System.IO.StreamWriter";
  Encoding@1005 : DotNet "System.Text.Encoding";
  Uri@1006 : DotNet "System.Uri";
  JsonText@1007 : Text[1024];
  ResponseText@1008 : Text;
  ResponseStream@1009 : DotNet "System.IO.Stream";
  BEGIN
  JsonText := '{ "exampleKey": "exampleValue" }'; // Replace with your JSON payload
  
  Uri := Uri.Uri('https://your-api-url.com/endpoint'); // Replace with your URL
  HttpWebRequest := HttpWebRequest.Create(Uri);
  HttpWebRequest.Method := 'POST';
  HttpWebRequest.ContentType := 'application/json';
  
  Encoding := Encoding.UTF8;
  RequestStream := HttpWebRequest.GetRequestStream();
  StreamWriter := StreamWriter.StreamWriter(RequestStream, Encoding);
  StreamWriter.Write(JsonText);
  StreamWriter.Close();
  
  HttpWebResponse := HttpWebRequest.GetResponse();
  ResponseStream := HttpWebResponse.GetResponseStream();
  StreamReader := StreamReader.StreamReader(ResponseStream);
  ResponseText := StreamReader.ReadToEnd();
  
  MESSAGE('Response: %1', ResponseText);
  END;
  }
  

  Developer by passion

  0
• RockWithNAV Member Posts: 1,145

  2025-05-07

  Too many ways.
  
  Simple Get Method
  
  HttpWebRequest := HttpWebRequest.HttpWebRequest;
  Uri := Uri.Uri('https://api.example.com/data');
  
  HttpWebRequest := HttpWebRequest.Create(Uri);
  HttpWebRequest.Method := 'GET';
  HttpWebRequest.ContentType := 'application/json';
  
  HttpWebResponse := HttpWebRequest.GetResponse();
  StreamReader := StreamReader.StreamReader(HttpWebResponse.GetResponseStream());
  ResponseText := StreamReader.ReadToEnd();
  
  Message(ResponseText);
  
  Variables you can use as mentioned as above

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

  0