PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → Example Webservice soap with header token - exemplo de Webservice soap com token no header do protocolo
Example Webservice soap with header token - exemplo de Webservice soap com token no header do protocolo
Iniciado por Boller, jan., 11 2022 2:04 PM - Sem resposta
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 11 2022 - 2:04 PM
Adriano:

Here the link and the procedure.

https://pilotosiatservicios.impuestos.gob.bo/v2/FacturacionOperaciones?wsdl


PROCEDURE ws_FacturacionOperaciones()

surl is string = "https://pilotosiatservicios.impuestos.gob.bo/v2/FacturacionOperaciones"

sEnvelope is string = [






]

//Post https://pilotosiatservicios.impuestos.gob.bo/v2/FacturacionOperaciones HTTP/1.1
//Accept-Encoding: gzip,deflate
//Content-Type: text/xml;charset=UTF-8
//SOAPAction: ""
//apikey: eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJTT0xVQ0lPTkVTIiwiY29kaWdvU2lzdGVtYSI6IjcxQ0FDRUYxOEYxRUQ1QzQ3Qjk0NkVGIiwibml0IjoiSDRzSUFBQUFBQUFBQURNME1EQXpNalkxTURJQ0FMVU9fbTBLQUFBQSIsImlkIjoxMzU3OTIsImV4cCI6MTY0ODY4NDgwMCwiaWF0IjoxNjQxNTAzNjMxLCJuaXREZWxlZ2FkbyI6MTAwNjIzNTAyMiwic3Vic2lzdGVtYSI6IlNGRSJ9.FvmF70DHymms6mu4xgRVSEfLKMRkWkt9XLC7o3H_Tfp8nNLHpMeWJZLzUFhC_d4tc21qzL7YPR5zbq_ARIh0Dw
//Content-Length: 239
//Host: pilotosiatservicios.impuestos.gob.bo
//Connection: Keep-Alive
//User-Agent: Apache-HttpClient/4.5.5 (Java/15)


MyRequest is httpRequest
MyRequest..URL = surl
MyRequest..Header["apikey"] = " eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzUxMiJ9.eyJzdWIiOiJTT0xVQ0lPTkVTIiwiY29kaWdvU2lzdGVtYSI6IjcxQ0FDRUYxOEYxRUQ1QzQ3Qjk0NkVGIiwibml0IjoiSDRzSUFBQUFBQUFBQURNME1EQXpNalkxTURJQ0FMVU9fbTBLQUFBQSIsImlkIjoxMzU3OTIsImV4cCI6MTY0ODY4NDgwMCwiaWF0IjoxNjQxNTAzNjMxLCJuaXREZWxlZ2FkbyI6MTAwNjIzNTAyMiwic3Vic2lzdGVtYSI6IlNGRSJ9.FvmF70DHymms6mu4xgRVSEfLKMRkWkt9XLC7o3H_Tfp8nNLHpMeWJZLzUFhC_d4tc21qzL7YPR5zbq_ARIh0Dw"
MyRequest..Method = httpPost
MyRequest..UserAgent = "Apache-HttpClient/4.5.5 (Java/15)"
MyRequest..ContentType = "text/xml; charset=utf-8"
MyRequest..Content = sEnvelope
MyResponse is httpResponse = HTTPSend(MyRequest)
//===============================================
IF ErrorOccurred THEN
Error(ErrorInfo(errFullDetails))
END
//==============================================

//926COMUNICACION EXITOSAtrue
//<\r><\n> <\r><\n> <\r><\n> <\r><\n> <\r><\n>

Trace(MyResponse..Content)

Trace(sEnvelope)


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/