HttpWebRequestMgt.GetResponse coming as Blank

Stivan_dsouza21 · 2019-03-12

Below is the POST request which i am sending and But Response is coming as blank. When i am Testing the URL in SOAP i getting the Response (Attachment attached) but in below code i am getting blank response. Can anyone let me know why i am receiving Blank Response.

URL1:='https://esb.admtl.com/service/PartnerFlightInquiry/v1/';
HttpWebRequestMgt.Initialize(URL1);
HttpWebRequestMgt.DisableUI;
HttpWebRequestMgt.SetMethod('POST');
HttpWebRequestMgt.SetContentType('text/xml');
HttpWebRequestMgt.SetReturnType('text/xml');

MSG :=
'<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:v1="urn:types.partnerflight.inquiry.fids.ops.service.admtl.com/v1" xmlns:v11="urn:shared.service.domain.admtl.com/v1">'+
'<soapenv:Header/>'+
'<soapenv:Body>'+
'<v1:GetFlightsRequest locale="" timezone="" pageStartIndex="1" pageMaxItems="0" enablePartialMatch="false">'+
'<v1:FlightStartDate>${=cal = java.util.Calendar.getInstance();dfUTC = new java.text.SimpleDateFormat("yyyy-MM-dd");'+
'dfUTC.setTimeZone(java.util.TimeZone.getTimeZone("UTC"));dfUTC.format(cal.getTime());}</v1:FlightStartDate>'+
'<v1:FlightEndDate>${=cal = java.util.Calendar.getInstance();cal.add( java.util.Calendar.HOUR,168);dfUTC = new java.text.SimpleDateFormat("yyyy-MM-dd");'+
'dfUTC.setTimeZone(java.util.TimeZone.getTimeZone("UTC"));dfUTC.format(cal.getTime());}</v1:FlightEndDate>'+
'<v1:ArrivalOrDeparture>DEPARTURE</v1:ArrivalOrDeparture>'+
''+'</v1:GetFlightsRequest>'+
'</soapenv:Body>'+
'</soapenv:Envelope>';

HttpWebRequestMgt.AddBodyAsText(MSG);
MESSAGE(MSG);
TempBlob.INIT;
TempBlob.Blob.CREATEINSTREAM(instr);
IF HttpWebRequestMgt.GetResponse(instr,HttpStatusCode,ResponseHeaders) THEN BEGIN
MESSAGE('httpstatuscode : '+HttpStatusCode.ToString);
MESSAGE(ResponseHeaders.ToString);
APIRESULT := TempBlob.ReadAsText('',TEXTENCODING::UTF8);
MESSAGE(APIRESULT);

END;

Thanks in Advance

ftornero · 2019-03-12

Hello @Stivan_dsouza21 ,

Are you sending the MSG as you posted ?, because if that it's the case you need to get rid of the java calls in FlightStartDate and FlightEndDate and pass these dates in the expected format.

Also you can delete all the optional tags with the ? value.

Regards.

Stivan_dsouza21 · 2019-03-13

Till its giving blank repsonse

FlightStartDate := 010119D;
EVALUATE(FlightStartTime,'00:00:01');
FlightEndDate := 310119D;
EVALUATE(FlightEndTime,'23:59:59');

URL1:='https://esb.admtl.com/service/PartnerFlightInquiry/v1/';
HttpWebRequestMgt.Initialize(URL1);
HttpWebRequestMgt.DisableUI;
HttpWebRequestMgt.SetMethod('POST');
HttpWebRequestMgt.SetContentType('text/xml');
HttpWebRequestMgt.SetReturnType('text/xml');

MSG :=
'<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:v1="urn:types.partnerflight.inquiry.fids.ops.service.admtl.com/v1" xmlns:v11="urn:shared.service.domain.admtl.com/v1">'+
'<soapenv:Header/>'+
'<soapenv:Body>'+
'<v1:GetFlightsRequest locale="" timezone="" pageStartIndex="1" pageMaxItems="0" enablePartialMatch="false">'+
'<v1:FlightStartDate>'+FORMAT(FlightStartDate,0,'<Year4>-<Month,2>-<DAY,2>')+' '+FORMAT(FlightStartTime,0,'<Hours24,2>:<Minutes,2>:<Seconds,2>')+'</v1:FlightStartDate>'+
'<v1:FlightEndDate>'+FORMAT(FlightEndDate,0,'<Year4>-<Month,2>-<DAY,2>')+' '+FORMAT(FlightEndTime,0,'<Hours24,2>:<Minutes,2>:<Seconds,2>')+'</v1:FlightEndDate>'+
'<v1:ArrivalOrDeparture>DEPARTURE</v1:ArrivalOrDeparture>'+
''+'</v1:GetFlightsRequest>'+
'</soapenv:Body>'+
'</soapenv:Envelope>';

HttpWebRequestMgt.AddBodyAsText(MSG);
MESSAGE(MSG);
TempBlob.INIT;
TempBlob.Blob.CREATEINSTREAM(instr);
MESSAGE('%1',TempBlob.Blob);
IF HttpWebRequestMgt.GetResponse(instr,HttpStatusCode,ResponseHeaders) THEN BEGIN
MESSAGE('httpstatuscode : '+HttpStatusCode.ToString);
MESSAGE(ResponseHeaders.ToString);
APIRESULT := TempBlob.ReadAsText('',TEXTENCODING::UTF8);
MESSAGE(APIRESULT);

END;

ftornero · 2019-03-13

Hello @Stivan_dsouza21 ,

Try this and if it works to you then replace the vars URL, XMLReq and soapAction with your values and test it.

OBJECT Codeunit 50000 WebService Call
{
  OBJECT-PROPERTIES
  {
    Date=13/03/19;
    Time=20:44:18;
    Modified=Yes;
    Version List=WS;
  }
  PROPERTIES
  {
    OnRun=BEGIN
            WSCall;
          END;

  }
  CODE
  {

    PROCEDURE WSCall@1000000017();
    VAR
      Request@1000000023 : DotNet "'System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.HttpWebRequest";
      Response@1000000022 : DotNet "'System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.HttpWebResponse";
      stream@1000000004 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.StreamWriter";
      ascii@1000000005 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Text.Encoding";
      URL@1000000020 : Text[250];
      XMLReq@1000000003 : Text;
      soapAction@1000000002 : Text;
      reader@1000000010 : DotNet "'System.Xml, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlTextReader";
      document@1000000009 : DotNet "'System.Xml, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
      ToFile@1000000006 : Text;
      FileMgt@1000000008 : Codeunit 419;
      FileSrv@1000000007 : Text;
    BEGIN
      URL := 'http://www.holidaywebservice.com/HolidayService_v2/HolidayService2.asmx';
      soapAction := '"http://www.holidaywebservice.com/HolidayService_v2/GetHolidaysForYear"';

      XMLReq := STRSUBSTNO('<?xml version="1.0" encoding="utf-8"?><soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body>'+
               '<GetHolidaysForYear xmlns="http://www.holidaywebservice.com/HolidayService_v2/">'+
                 '<countryCode>%1</countryCode>'+
                 '<year>%2</year>'+
               '</GetHolidaysForYear>'+
             '</soap:Body></soap:Envelope>', 'UnitedStates', '2019');

      Request := Request.HttpWebRequest;
      Request := Request.Create(URL);

      Request.Method('POST');
      Request.ContentType('text/xml');
      Request.Headers.Add('SOAPAction', soapAction);
      Request.Timeout := 120000;

      // Send the request to the webservice
      stream := stream.StreamWriter(Request.GetRequestStream(), ascii.UTF8);
      stream.Write(XMLReq);
      stream.Close();

      // Get the response
      Response := Request.GetResponse();
      reader := reader.XmlTextReader(Response.GetResponseStream());

      // Save the response to a XML
      document := document.XmlDocument();
      document.Load(reader);
      FileSrv := FileMgt.ServerTempFileName('xml');
      document.Save(FileSrv);

      // Get from the server
      ToFile := FileMgt.ClientTempFileName('xml');
      FileMgt.DownloadToFile(FileSrv, ToFile);

      // Show the response XML
      HYPERLINK(ToFile);
    END;

    BEGIN
    END.
  }
}

Regards

Stivan_dsouza21 · 2019-03-14

Hi ftornero,
i tired using your logic, but it gave the below mentioned error

Microsoft Dynamics NAV

A call to System.Net.HttpWebRequest.GetResponse failed with this message: The remote server returned an error: (404) Not Found.

OK

OBJECT Codeunit 50109 WebService Call
{
OBJECT-PROPERTIES
{
Date=14/03/19;
Time=08:05:24;
Modified=Yes;
Version List=WS;
}
PROPERTIES
{
OnRun=BEGIN
WSCall;
END;

}
CODE
{

PROCEDURE WSCall@1000000017();
VAR
Request@1000000023 : DotNet "'System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.HttpWebRequest";
Response@1000000022 : DotNet "'System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Net.HttpWebResponse";
stream@1000000004 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.IO.StreamWriter";
ascii@1000000005 : DotNet "'mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Text.Encoding";
URL@1000000020 : Text[250];
XMLReq@1000000003 : Text;
soapAction@1000000002 : Text;
reader@1000000010 : DotNet "'System.Xml, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlTextReader";
document@1000000009 : DotNet "'System.Xml, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Xml.XmlDocument";
ToFile@1000000006 : Text;
FileMgt@1000000008 : Codeunit 419;
FileSrv@1000000007 : Text;
BEGIN
URL := 'https://esb.admtl.com/service/PartnerFlightInquiry/v1/';
soapAction := 'https://esb.admtl.com/service/PartnerFlightInquiry/v1/';

XMLReq := STRSUBSTNO(
'<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:v1="urn:types.partnerflight.inquiry.fids.ops.service.admtl.com/v1" xmlns:v11="urn:shared.service.domain.admtl.com/v1">'+
'<soapenv:Header/>'+
'<soapenv:Body>'+
'<v1:GetFlightsRequest locale="" timezone="" pageStartIndex="1" pageMaxItems="0" enablePartialMatch="false">'+
'<v1:FlightStartDate>${=cal = java.util.Calendar.getInstance();dfUTC = new java.text.SimpleDateFormat("yyyy-MM-dd");'+
'dfUTC.setTimeZone(java.util.TimeZone.getTimeZone("UTC"));dfUTC.format(cal.getTime());}</v1:FlightStartDate>'+
'<v1:FlightEndDate>${=cal = java.util.Calendar.getInstance();cal.add( java.util.Calendar.HOUR,168);dfUTC = new java.text.SimpleDateFormat("yyyy-MM-dd");'+
'dfUTC.setTimeZone(java.util.TimeZone.getTimeZone("UTC"));dfUTC.format(cal.getTime());}</v1:FlightEndDate>'+
'<v1:ArrivalOrDeparture>DEPARTURE</v1:ArrivalOrDeparture>'+
{
''+
}
'</v1:GetFlightsRequest>'+
'</soapenv:Body>'+
'</soapenv:Envelope>');

Request := Request.HttpWebRequest;
Request := Request.Create(URL);

Request.Method('POST');
Request.ContentType('text/xml');
Request.Headers.Add('SOAPAction', soapAction);
Request.Timeout := 120000;

// Send the request to the webservice
stream := stream.StreamWriter(Request.GetRequestStream(), ascii.UTF8);
stream.Write(XMLReq);
stream.Close();

// Get the response
Response := Request.GetResponse();
reader := reader.XmlTextReader(Response.GetResponseStream());

// Save the response to a XML
document := document.XmlDocument();
document.Load(reader);
FileSrv := FileMgt.ServerTempFileName('xml');
document.Save(FileSrv);

// Get from the server
ToFile := FileMgt.ClientTempFileName('xml');
FileMgt.DownloadToFile(FileSrv, ToFile);

// Show the response XML
HYPERLINK(ToFile);
END;

BEGIN
END.
}
}

ftornero · 2019-03-14

Hello @Stivan_dsouza21 ,

Did my example work in your machine ?

The error message seems that it is related to not reaching the remote server, could you test if with other means you do it ?.

Regards

Stivan_dsouza21 · 2019-03-17

Hi Ftornero,

You example worked in my Machine. But by using My Urls still getting the same error.

A call to System.Net.HttpWebRequest.GetResponse failed with this message: The remote server returned an error: (404) Not Found.

ftornero · 2019-03-17

Hello @Stivan_dsouza21,

I can see in the image that you provided that you are using SopaUI to test the web service and that there is some additional information that you put in the Header.

Is the test with SopaUI in the same machine that the test with NAV ?

Regards.

Stivan_dsouza21 · 2019-03-27

Hi all,

Facing an error while sending date
Internal Server Error Test 500 response
The initial value '2019-03-26T09:01:41' is not valid with respect to the simple type definition '{http://www.w3.org/2001/XMLSchema}date'.
The initial value '2019-03-26T09:01:41' is not valid with respect to the simple type definition '{http://www.w3.org/2001/XMLSchema}date'.

Data sample sent
v1:FlightStartDate>2019-03-26T09:01:41</v1:FlightStartDate><
v1:FlightEndDate>2019-03-26T09:01:41</v1:FlightEndDate><
v1:ArrivalOrDeparture>DEPARTURE</v1:ArrivalOrDeparture><

ftornero · 2019-03-27

Hello @Stivan_dsouza21,

Looks like is expecting a Date and not a DateTime value.

Regards.

Howdy, Stranger!

Quick Links

Categories

HttpWebRequestMgt.GetResponse coming as Blank

Answers