Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Proyecto SIF/Veri*Factu/Ley Antifraude > Envío de registros y sus respuestas
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 05-11-2024
mqm mqm is online now
Miembro
 
Registrado: nov 2006
Posts: 41
Poder: 0
mqm Va por buen camino
Consulta NIF hacienda

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?
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Homologación del software en Aeat ermendalenda General/Noticias 39 08-01-2025 11:24:27
Aeat, Información General Y Faqs ermendalenda General/Noticias 2 04-11-2024 11:20:50
Calculo Retenciones AEAT keys Internet 2 14-05-2024 08:21:13
Envio Directo Aeat keys Internet 0 24-04-2024 08:33:14
SII AEAT España jahlxx Internet 1 09-03-2017 17:40:36


La franja horaria es GMT +2. Ahora son las 18:42:43.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi