|
FOROS PROFESIONALES WINDEV, WEBDEV y 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, 11,ene. 2022 14:03 - No hay respuesta |
| |
| | | |
|
| |
Miembro registrado 4.521 mensajes |
|
Publicado el 11,enero 2022 - 14:03 |
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/ |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|