Validar DNI/CIF

[muli]

Tambien da error a la compilar

Código Delphi [-]
En esta function  VNifV2(const VNifV2Ent: VNifV2Ent): VNifV2Sal; stdcall;

No encuentra VNifV2Ent): VNifV2Sal;

Y aqui 

  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(VNifV2), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(VNifV2), ioDocument);
  InvRegistry.RegisterInvokeOptions(TypeInfo(VNifV2), ioLiteral);

[dcc32 Error] VNifV21.pas(97): E2134 Type 'VNifV2' has no type info

[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]

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

[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.