Consulta VIES (Números documentos de la UE)

[keys]

Hola a todos. Pongo una función para validar un documento en el servicio VIES de la UE.

Código Delphi [-]
function ComprobarDocumentoVIES(Pais, Documento: string): false;
var
  LRequest: THTTPClient;

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

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

  //Objeto JSON para enviar los datos
  JSONData := TJSONObject.Create;
  JSONData.AddPair('countryCode', Pais);
  JSONData.AddPair('vatNumber', Documento);
  
  try

    Lrequest.ContentType := 'application/json';

    StringStream := TStringStream.Create(JSONData.ToString, TEncoding.UTF8);
    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
         if JSONData.TryGetValue Boolean ('valid', valido) then //esto lo pongo asi por que el chat no me deja poner los simbolos de mayor y menor delante y detrás de boolean;
          begin
            
             result := valido;
           
          end;

      end;

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


end;

[[newtron]]

Gracias a todos. Seguro que nos será de utilidad a bastante gente.

[Casimiro Noteví]

No entiendo, qué quieres decir aquí:

Código Delphi [-]
if JSONData.TryGetValue Boolean ('valid', valido) then //esto lo pongo asi por que el chat no me deja poner los simbolos de mayor y menor delante y detrás de boolean;

[keys]

Empezado por Casimiro Notevi

No entiendo, qué quieres decir aquí:

Código Delphi [-]
if JSONData.TryGetValue Boolean ('valid', valido) then //esto lo pongo asi por que el chat no me deja poner los simbolos de mayor y menor delante y detrás de boolean;

que hay que poner <boolean>, Si esto lo pongo dentro del chat, marcando sintaxis delphi lo quita.

Para TicketBAI puede ser útil, ya que las haciendas están validando que son corectos los documentos intracomunitarios.

[Casimiro Noteví]

Probando con un espacio:

Código Delphi [-]
if JSONData.TryGetValue < Boolean > ('valid', valido) then

Probando sin espacios:

Código Delphi [-]
if JSONData.TryGetValue < Boolean> ('valid', valido) then

Parece que es el < delante de la B, seguramente es parte de algún emoticono.

[keys]

Empezado por Casimiro Notevi

Probando con un espacio:

Código Delphi [-]
if JSONData.TryGetValue < Boolean > ('valid', valido) then

Sin espacios se lo come

Código Delphi [-]
if JSONData.TryGetValue('valid', valido) then

Para la próxima vez ya se.

[YellowStone]

Buenas y perdón por resubir este hilo.

Pero cada vez más, nos encontramos como respuesta de este servicio el mensaje:

MS_MAX_CONCURRENT_REQ

Creo que cada vez más gente en toda Europa está utilizando este servicio web, y aunque a los clientes les mostramos un mensaje que dice que el servicio web está saturado, que lo prueben más tarde, parece ser que no lo entienden, porque claro, muchas veces tienen al cliente esperando para entregarle la factura y tienen que estar reintentando continuamente hasta que les da por válido el vatNumber.

¿Os pasa lo mismo? ¿Algún otro servicio disponible donde podamos consultar?

[rci]

Empezado por YellowStone

Buenas y perdón por resubir este hilo.

Pero cada vez más, nos encontramos como respuesta de este servicio el mensaje:

MS_MAX_CONCURRENT_REQ

Creo que cada vez más gente en toda Europa está utilizando este servicio web, y aunque a los clientes les mostramos un mensaje que dice que el servicio web está saturado, que lo prueben más tarde, parece ser que no lo entienden, porque claro, muchas veces tienen al cliente esperando para entregarle la factura y tienen que estar reintentando continuamente hasta que les da por válido el vatNumber.

¿Os pasa lo mismo? ¿Algún otro servicio disponible donde podamos consultar?

Nosotros últimamente también hemos detectado este problema a menudo.
No sabemos si hay otra opción