Consulta NIF hacienda

[mqm]

Buenas tardes he generado la unit a partir de la importación del wsdl de hacienda:

https ... //www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2.wsdl

la llamada la realizo :

procedure TfVeriFactuForm.VerificaNifClick(Sender: TObject);
var
    ConsultaMultiple: VNifV2Ent;
    RespuestaMultiple: VNifV2Sal;
    I: Integer;
begin
    HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum := Buscar_Certificado_SERIAL(comboCertificados.Text);

 // Define la cantidad de NIFs que quieres consultar
    SetLength(ConsultaMultiple, 3);

    // Primer NIF
    ConsultaMultiple[0] := Contribuyente.Create;
    ConsultaMultiple[0].Nif := 'B000000000;
    ConsultaMultiple[0].Nombre := 'cliente 1';

    // Segundo NIF
    ConsultaMultiple[1] := Contribuyente.Create;
    ConsultaMultiple[1].Nif := 'B111111111';
    ConsultaMultiple[1].Nombre := 'Cliente 2';

    // Tercer NIF
    ConsultaMultiple[2] := Contribuyente.Create;
    ConsultaMultiple[2].Nif := 'B222222222;
    ConsultaMultiple[2].Nombre := 'Cliente 3';

    try
        RespuestaMultiple := GetVNifV2(True, '', HTTPRIO1).VNifV2(ConsultaMultiple);

        for I := 0 to Length(RespuestaMultiple) - 1 do
        begin
            Memores.Lines.Add('NIF: ' + RespuestaMultiple[i].Nif);
            Memores.Lines.Add('Nombre: ' + RespuestaMultiple[i].Nombre);
            Memores.Lines.Add('Estado: ' + RespuestaMultiple[i].Resultado);
            Memores.Lines.Add('--------------------------');
        end;
    except
        on E: Exception do
        begin
            Memores.Lines.Add(E.Message);
            ShowMessage('Error en la llamada al servicio: ' + E.Message);
        end;
    end;

    // Liberar el objeto creado
    ConsultaMultiple[0].Free;
end;

y al cabo de un rato me devuelve el error:

Unable to load WSDL File/Location: ..http ...//www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2.wsdl.
Error [Error sending data: (12002) Se superó el tiempo de espera para la operación]

Alguien sabe cual es el problema?

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

Revisa este hilo, creo que se ha hablado de ese tema:
https://www.clubdelphi.com/foros/showthread.php?t=95967


Voy a mover el tema, porque no creo que la validación del NIF sea tema Veri*factu.

[muli]

En este enlace he puesto un formulario con un botón que hace lo de la validación, está en delphi 12, y el código está pillado de las respuestas del foro, por lo que es un merito de todos.

https://www.taxwin.es/VeriFactu/Fran_ValidarCif.rar

Saludos.

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

Empezado por muli

En este enlace he puesto un formulario con un botón que hace lo de la validación, está en delphi 12, y el código está pillado de las respuestas del foro, por lo que es un merito de todos.
https://www.taxwin.es/VeriFactu/Fran_ValidarCif.rar
Saludos.

Gracias.
Yo he subido una copia al FTP del club, sección de ejemplos:
https://terawiki.clubdelphi.com/Delp...AEAT_Spain.zip