Exemplo Consumindo SOAP WSDL via código by Ricardo Cassolato

SuhaiXml is string = [
<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>
<IncluirCotacaoSuhai xmlns="http://suhaiseguradoracotacao.com.br:5155/">
<cotacao>
<Login>[%Login%]</Login>
<senha>[%senha%]</senha>
<cpfCnpj>[%STCliente.cliente_cpf_cnpj%]</cpfCnpj>
<nome>[%STCliente.cliente_nome%]</nome>
<dtNascimento>[%DateToString(STCliente.cliente_data_nascimento,"YYYY-MM-DD")%]</dtNascimento>
<sexo>[%sexo_suhai%]</sexo>
<cepPernoite>[%sCep%]</cepPernoite>
<estadoCivil>[%estado_civil_suhai%]</estadoCivil>
<Marca>[%gsVEICULO_MARCA%]</Marca>
<Modelo>[%gsVEICULO_MODELO%]</Modelo>
<codFipe>string</codFipe>
<anomodelo>[%gsANO_MODELO%]</anomodelo>
<anoFabricacao>[%gsANO_MODELO%]</anoFabricacao>
<zeroKm>[%gsCarroZero%]</zeroKm>
<utilizacaoDut>[%STSuhaiPerguntas.UtilizacaoDut%]</utilizacaoDut>
<tipoUtilizacao>[%STSuhaiPerguntas.tipoUtilizacao%]</tipoUtilizacao>
<possuiOutroVeic>1</possuiOutroVeic>
<tipoContratacao>1</tipoContratacao>
<tabelaComissao>tab 5</tabelaComissao>
<classeBonus>0</classeBonus>
<cpfCnpjPrincipalCondutor>[%condutor_cpf_cnpj%]</cpfCnpjPrincipalCondutor>
<nomePrincipalCondutor>[%condutor_nome%]</nomePrincipalCondutor>
<dtNascimentoPrincipalCondutor>[%DateToString(condutor_data_nascimento,"YYYY-MM-DD")%]</dtNascimentoPrincipalCondutor>
<sexoPrincipalCondutor>[%sexocondutor_suhai%]</sexoPrincipalCondutor>
<estadoCivilPrincipalCondutor>[%estado_civilcondutor_suhai%]</estadoCivilPrincipalCondutor>
<pergunta1>[%STSuhaiPerguntas.Pergunta1%]</pergunta1>
<pergunta2>[%STSuhaiPerguntas.Pergunta2%]</pergunta2>
<pergunta3>[%STSuhaiPerguntas.Pergunta3%]</pergunta3>
<pergunta4>[%STSuhaiPerguntas.Pergunta4%]</pergunta4>
<vlr_desconto>7</vlr_desconto>
<cdCobertura>[%sCodCobertura %]</cdCobertura>
</cotacao>
</IncluirCotacaoSuhai>
</soap:Body>
</soap:Envelope>
]
MyRequest is httpRequest
MyRequest..URL = sUrl
MyRequest..Header["SOAPAction"] = "http://suhaiseguradoracotacao.com.br:5155/IncluirCotacaoSuhai"
MyRequest..Method = httpPost
MyRequest..ContentType = "text/xml; charset=utf-8"
MyRequest..Content = SuhaiXml
MyResponse is httpResponse = HTTPSend(MyRequest)
//===============================================
IF ErrorOccurred THEN
Error(ErrorInfo(errFullDetails))
END
//===============================================
GravaLog("SuhaiXml"+sCodCobertura+".xml",SuhaiXml)
GravaLog("SuhaiXmlResponse"+sCodCobertura+".xml",MyResponse..Content)