help call web service

chisumchisum Posts: 2Member
I am trying to call web service basing me in the standard codeunit 10752 SII Doc. Upload Management.
I am calling to the codeunit that receive two parameters, code and description of a client and if the Client exist update the description.
Instead of receive the correct response like I am receiving when I call the web service with a external tools I am receiving the definition of the web service
I have the request in a XML document like this
<Envelope xmlns="schemas.xmlsoap.org/.../envelope">
    <Body>
        <ActuaCliente xmlns="urn:microsoft-dynamics-schemas/codeunit/Prueba1">
            <codigo>20000</codigo>
            <descripcion>cambio nombre</descripcion>
        </ActuaCliente>
    </Body>
</Envelope>

This is de code below ¿Any Idea?

Best Regards


WebServiceUrl := 'localhost/.../Prueba1';
Myfile.OPEN('D:\Pruebas\doc2.txt');
Myfile.CREATEINSTREAM(Request);


vbigtext.READ(Request);
vbigtext.GETSUBTEXT(TempString,1);
RequestText := TempString;
HttpWebRequest := WebRequest.Create(Uri.Uri(WebServiceUrl));

HttpWebRequest.UseDefaultCredentials(TRUE);
HttpWebRequest.Method := 'POST';
HttpWebRequest.ContentType := 'application/xml';
ByteArray := Encoding.UTF8.GetBytes(RequestText);
HttpWebRequest.ContentLength := ByteArray.Length;
MESSAGE(TempString);
IF NOT TryCreateRequestStream(HttpWebRequest,RequestStream) THEN BEGIN
  MESSAGE('ERROR');
  EXIT;
END;
RequestStream.Write(ByteArray,0,ByteArray.Length);
IF NOT TryGetWebResponse(HttpWebRequest,HttpWebResponse) THEN BEGIN
  MESSAGE('ERROR');
  EXIT;
END;
StatusCode := HttpWebResponse.StatusCode;
StatusDescription := HttpWebResponse.StatusDescription;
ResponseText := ReadHttpResponseAsText(HttpWebResponse);
MESSAGE(ResponseText);

IF NOT StatusCode.Equals(StatusCode.Accepted) AND NOT StatusCode.Equals(StatusCode.OK) THEN BEGIN
//  ProcessBatchResponseCommunicationError(
//    TempSIIHistoryBuffer,STRSUBSTNO(CommunicationErr,StatusDescription));
  EXIT;
END;

Answers

Sign In or Register to comment.