Verificación de VAT comunitario

[keys]

Para poder hacer operaciones intracomunitarias una empresa tiene que estar dada de alta en el VIES. Existe un servicio web para validar si una empresa esta o no dentra del VIES https://ec.europa.eu/taxation_custom...vat-validation es una manera de validar si un cif intracomunitario es correcto o no.

[keys]

Pongo el código por si a alguien le interesa.

Código Delphi [-]

 //Pais son las letras del codigo del pais
function ComprobarDocumentoVIES(Pais, Documento: string): boolean;
var
  LRequest: THTTPClient;

  LResponse: TStringStream;
  JSONData: TJSONObject;
  StringStream: TStringStream;
  valido : Boolean;
begin

  result := false;
  LRequest := THTTPClient.Create;
  LResponse := TStringStream.Create;


  JSONData := TJSONObject.Create;

  JSONData.AddPair('countryCode', Pais);
  JSONData.AddPair('vatNumber', Documento);

  
    Lrequest.ContentType := 'application/json';
    StringStream := TStringStream.Create(JSONData.ToString, TEncoding.UTF8);
    LRequest.SecureProtocols := [THTTPSecureProtocol.TLS12];
    LRequest.Post('https://ec.europa.eu/taxation_customs/vies/rest-api/check-vat-number', StringStream , LResponse);
    JSONData := TJSONObject.ParseJSONValue(LResponse.DataString) as TJSONObject;

    if Assigned(JSONData) then
      begin
        // Obtener el valor del campo deseado de la respuesta que es el valid
         if JSONData.TryGetValue('valid', valido) then
          begin
            result := valido;
          end;
      end;

    JsonData.destroy;
    LResponse.Free;
    LRequest.Free;
    StringStream.Destroy;
 

end;

[[newtron]]

Gracias compañero.

[iMia]

El Wsdl ...

https:// ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl

[keys]

Empezado por iMia

El Wsdl ...

https:// ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl

Yo con el wsdl no conseguí hacerlo. Hice la llamada directamente al servicio con JSON.

[iMia]

Empezado por keys

Yo con el wsdl no conseguí hacerlo. Hice la llamada directamente al servicio con JSON.

Pues me ha gustado mucho com lo has hecho directamente sin tener que importar el wsdl !!!

[iMia]

enga va....

- importado el wsdl (ojo con los textos de más de 250 caracteres....)
- Ojoj que el pais lo he puesto con calzador... hay que parametrizarlo.

Código Delphi [-]

procedure TMainForm.btnValidarEUCIFClick(Sender: TObject);
var
  cv: checkVat;
  cvResp: checkVatResponse;
  cvWS: checkVatPortType;
  strMessage: string;

begin
  cv := checkVat.create();
  cv.countryCode := 'ES';
  cv.vatNumber := edDNI.Text;

  try
    cvWS := GetcheckVatPortType(false, '', nil);
    if cvWS <> nil then
    begin
      cvResp := cvWS.checkVat(cv);
      if cvResp.valid then
      begin
        strMessage := 'Valido!' + CRLF;
        strMessage := strMessage + 'CIF: ' + cvResp.vatNumber + CRLF;
      end
      else
        strMessage := 'NO ES VÁLIDO!';
      ShowMessage(strMessage);
    end;
  except
      on E: ERemotableException do
      begin
        ShowMessage('Sin respuesta: ' + #10 + #13 + E.message);
      end;
  end;
end;

[edari]

Yo también he conseguido respuesta desde un xml llamado con curl


xml

Código PHP:

<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope
    xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"
    xmlns:urn="urn:ec.europa.eu:taxud:vies:services:checkVat:types">
   <soapenv:Header/>
   <soapenv:Body>
      <urn:checkVat>
         <urn:countryCode>DE</urn:countryCode>
         <urn:vatNumber>813518999</urn:vatNumber>
      </urn:checkVat>
   </soapenv:Body>
</soapenv:Envelope>

curl

Código PHP:

curl.exe -X POST https://ec.europa.eu/taxation_customs/vies/services/checkVatService -H "Content-Type: text/xml; charset=UTF8" -d @\AEAT\VIESNIF.XML -o \AEAT\RESPVIES.XML 


Gracias por vuestra ayuda o empujón

[iMia]

Empezado por iMia

El Wsdl ...

https:// ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl

Perdón, puse el wsdl de test.
Este es el bueno;


https:// ec.europa.eu/taxation_customs/vies/checkVatService.wsdl

[iMia]

Hoy 14/01/2025 no está funcionando el servicio...
Da error que no hay respuesta... (no se puede parsear la respuesta)
Esperemos que lo arreglen pronto...
Si sigue fallando es que deben haber dado de baja el servicio y lo han movido a otro servicio/servidor o cambiado algo... miraré mañana si sigue fallando...

[YellowStone]

Creo que no es que el servicio esté movido, a día de hoy sigue funcionando, el problema es que se satura, y entonces devuelve un "<faultcode>", que normalmente viene con un "<faultstring>" con algo así como "TOO MANY CONCURRENTS". Al rato vuelve a ir.

[Neftali [Germán.Estévez]]

Empezado por keys

Pongo el código por si a alguien le interesa.

Nosotros hasta ahora lanzábamos la página para validar manualmente, pero no está de más tener accesible la API.
Gracias.