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 :
Código:
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?