[PowerCOBOL + COM/OLE] Ligar ao Site da União Europeia VAT Number

[Joseg]

❞ @Joseg, he hecho pruebas (acabé instalando el Fujitsu). Funciona en mi caso comentando las siguientes líneas:     *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP4 .     *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP5 .     *>INVOKE WEBSERVICE "setRequestHeader" using OP6 OP4 . Este es mi código: *>  IDENTIFICATION DIVISION.  PROGRAM-ID.   TEST001.    ENVIRONMENT     DIVISION.  CONFIGURATION SECTION.  REPOSITORY.      CLASS COM AS "*COM"      CLASS COMEXCEPTION AS "*COM-EXCEPTION".    DATA            DIVISION.  WORKING-STORAGE SECTION.  01 WINHTTP               PIC X(128) VALUE "WinHttp.WinHttpRequest.5.1".  01 WSDL                  PIC X(256) VALUE "https://ec.europa.eu/taxation_customs/vies/checkVatService.wsdl".  01 xTraffic-Conditions   PIC X(384).      *>01 Traffic-Conditions redefines xTraffic-Conditions pic x(386).    01 WEBSERVICE USAGE OBJECT REFERENCE COM.    01 OP1 PIC X(256) VALUE "POST".  01 OP2 PIC X(256) VALUE "http://ec.europa.eu/taxation_customs/vies/services/checkVatService/".  01 OP3 PIC X(256) VALUE "FALSE". *  01 OP4 PIC X(256) VALUE "Content-Type".  01 OP5 PIC X(256) VALUE "text/xml; charset=utf-8".  01 OP6 PIC X(256) VALUE "SOAPAction".      01 RESPOSTA    PIC X(8192).    01 resultado1   PIC X(5).  01 resultado2   PIC X(5).    *>01  long  PIC 9(4) COMP-5.    PROCEDURE       DIVISION.  MAIN SECTION.  MAIN-00.        STRING      '<?xml version="1.0" encoding="UTF-8"?>' & X"0D0A"      '<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/">' & X"0D0A"      '  <SOAP-ENV:Body>' & X"0D0A"      '    <tns1:checkVat xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types">' & X"0D0A"      '      <tns1:countryCode>ES</tns1:countryCode>' & X"0D0A"      '      <tns1:vatNumber>B63272603</tns1:vatNumber>' & X"0D0A"      '    </tns1:checkVat>' & X"0D0A"      '  </SOAP-ENV:Body>' & X"0D0A"      '</SOAP-ENV:Envelope>' & X"0D0A" *          '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:ec.europa.eu:taxud:vies:services:checkVat:types">' & X"0D0A" *     '   <soapenv:Header/>' & X"0D0A" *     '   <soapenv:Body>' & X"0D0A" *     '      <urn:checkVat>' & X"0D0A" *     '         <urn:countryCode>ES</urn:countryCode>' & X"0D0A" *     '         <urn:vatNumber>B63272603</urn:vatNumber>' & X"0D0A" *     '      </urn:checkVat>' & X"0D0A" *     '   </soapenv:Body>' & X"0D0A" *     '</soapenv:Envelope>' & X"0D0A"          DELIMITED BY SIZE INTO xTraffic-Conditions            display xTraffic-Conditions      display " "                    INVOKE COM "CREATE-OBJECT" USING WINHTTP RETURNING WEBSERVICE. *      INVOKE WEBSERVICE "OPEN" USING op1 op2 op3. *     *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP4 .     *>INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP5 .     *>INVOKE WEBSERVICE "setRequestHeader" using OP6 OP4 . *          *>compute long = function stored-char-length(xTRAFFIC-CONDITIONS)           *>display long            INVOKE WEBSERVICE "send" USING xTRAFFIC-CONDITIONS *      INVOKE WEBSERVICE "get-Responsetext" RETURNING RESPOSTA        display RESPOSTA      display " "            unstring RESPOSTA delimited by "<valid>" into resultado1 resultado2            inspect resultado2 replacing all "<" by spaces            display "RESULTADO: " resultado2            EXIT PROGRAM      . Resultado: <?xml version="1.0" encoding="UTF-8"?> <SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"> <SOAP-ENV:Body> <tns1:checkVat xmlns:tns1="urn:ec.europa.eu:taxud:vies:services:checkVat:types"> <tns1:countryCode>ES</tns1:countryCode> <tns1:vatNumber>B63272603</tns1:vatNumber> </tns1:checkVat> </SOAP-ENV:Body> </SOAP-ENV:Envelope> <soap:Envelope xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"><soap:Body><checkVatResponse xmlns="urn:ec.europa.eu:taxud:vies:services:checkVat:types"><countryCode>ES</countryCode><vatNumber>B63272603</vatNumber><requestDate>2021-11-11+01:00</requestDate><valid>true</valid><name>---</name><address>---</address></checkVatResponse></soap:Body></soap:Envelope> RESULTADO: true

Ja esta ok
Gracias a todos pela ajuda

[Paulo]

Olá a todos.
Talvez possa interessar a alguém esta solução.
O serviço SOAP do VIES deixou outra vez de responder na semana passada (para o codigo feito pelo Rui).
Para solucionar basta fazer o seguinte: (inclui a alteração para resolver o erro anterior de 2021)

***** alterado 2021-11-16 para resolver erro de comunicação
*   INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP4 .
*   INVOKE WEBSERVICE "setRequestHeader" USING OP6 OP5 .
*   INVOKE WEBSERVICE "setRequestHeader" using OP6 OP4 .
****** fim alteração
*
***** alterado 2022-09-06 para resolver erro de comunicação
    INVOKE WEBSERVICE "setRequestHeader" USING OP4 OP5 .
****** fim alteração

Saludos

[Paulo]

Também alteraram a resposta XML
Os campos <valid> <name> <address>
passaram a <ns2:valid> <ns2:name> <ns2:address>