Verificación de VAT comunitario

[Logan05]

Empezado por Logan05

¿que estoy haciendo mal?

Los ejemplos son perfectos, era yo que la estaba liando al motar el xml!!!! , ya he conseguido que me responda

Muchas gracias por vuestra ayuda!!!

[novatico]

Le he pedido a la IA que me pase el código y me saca ésto.. Ni idea de si es correcto.

uses
System.Net.HttpClient, System.Net.HttpClientComponent, System.JSON, System.SysUtils, System.Classes, Vcl.Dialogs;

procedure CheckVAT;
var
CountryCode, VatNumber, Url: string;
HttpClient: THTTPClient;
Response: IHTTPResponse;
JsonValue: TJSONValue;
JSONObject: TJSONObject;
IsValid: Boolean;
Name, Address, ErrorMsg: string;
begin
CountryCode := 'LU'; // Ej. 'ES', 'DE', etc.
VatNumber := '20260743';

Url := Format('https://ec.europa.eu/taxation_customs/vies/rest-api/ms/%s/vat/%s', [CountryCode, VatNumber]);

HttpClient := THTTPClient.Create;
try
Response := HttpClient.Get(Url);
if Response.StatusCode = 200 then
begin
JsonValue := TJSONObject.ParseJSONValue(Response.ContentAsString);
if Assigned(JsonValue) then
begin
JSONObject := JsonValue as TJSONObject;
IsValid := JSONObject.GetValue<Boolean>('isValid');

if IsValid then
begin
Name := JSONObject.GetValue<string>('name');
Address := JSONObject.GetValue<string>('address').Replace('\n', sLineBreak);
ShowMessage('VAT válido.' + sLineBreak +
'Nombre: ' + Name + sLineBreak +
'Dirección: ' + Address);
end
else
begin
ErrorMsg := JSONObject.GetValue<string>('userError');
ShowMessage('VAT no válido. Mensaje: ' + ErrorMsg);
end;
end;
end
else
ShowMessage('Error HTTP: ' + Response.StatusCode.ToString);
except
on E: Exception do
ShowMessage('Excepción: ' + E.Message);
end;
HttpClient.Free;
end;

[YellowStone]

Empezado por Logan05

Los ejemplos son perfectos, era yo que la estaba liando al motar el xml!!!! , ya he conseguido que me responda

Muchas gracias por vuestra ayuda!!!

Estupendo

[ermendalenda]

Empezado por YellowStone

Estupendo

Puedes poner wl xml que pasas ahora, por que a mi me funcionaba antes y ya no

[Logan05]

Empezado por ermendalenda

Puedes poner wl xml que pasas ahora, por que a mi me funcionaba antes y ya no

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

esto a mi me funciona

[ermendalenda]

Gracias, antes funcionaba, se ve que han metido un control nuevo en la solicitud y ya no vale por defecto enviarle el xml y hay que decir si envias json o xml:

-H "Content-Type: text/xml; charset=UTF8"

Le he añadido también :

-H 'SOAPAction: "checkVat"'

Por que no se si alguna vez también va a pasar lo mismo

[YellowStone]

Yo les paso estos Headers.

hServidor.Request.CustomHeaders.AddValue('Accept', '*/*');
hServidor.Request.CustomHeaders.AddValue('Accept-Encoding', 'identify');
hServidor.Request.CustomHeaders.AddValue('Charset', 'utf-8');
hServidor.Request.CustomHeaders.AddValue('Content-Type', 'text/xml');
hServidor.Request.CustomHeaders.AddValue('Connection', 'keep-alive');
hServidor.Request.CustomHeaders.AddValue('SOAPAction', 'checkVatService');

[edari]

Hola de nuevo,


Puede ser que este tipo de clientes intracomunitarios (y supongo que también los extra...) Verifactu trague todos los "cifes" sin validar nada aunque lo tengas como PASAPORTE, DOCUMENTO PAIS DE ORIGEN, CERTIFICADO DE RESIDENCIA, OTRO DOCUMENTO PROBATORIO ?


Un saludo