Club Delphi  
    Paypal   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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-12-2025
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.229
Poder: 24
keys Va por buen camino
Servicio de Consulta

Hola a todos.

Estoy accediendo al servicio de consulta de facturas ConsultaFactuSistemaFacturacion. Lo estoy haciendo en delphi con el "wsdl importer" y el componente THTTPRIO. Cuando hay muchas facturas, mas de 10000, el componente es extremadamente lento. No en responder hacienda, esto tarda unos segundos, el problema es del propio componente al transformar la respuesta en la clase (RegistroRespuestaConsultaRegFacturacionType).

Según he podido leer es un problema del componente, deber haber varias alternativas para solucionarlo, que todas pasan por no dejarle al componente que haga esta conversión. ¿Alguien se ha pegado con esto?
Responder Con Cita
  #2  
Antiguo 03-12-2025
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
 
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
enviar un paquete de 1000, un numero menor, tampoco es muy rapido.

saludos !
Responder Con Cita
  #3  
Antiguo 03-12-2025
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.229
Poder: 24
keys Va por buen camino
Cita:
Empezado por seccion_31 Ver Mensaje
enviar un paquete de 1000, un numero menor, tampoco es muy rapido.

saludos !
Ya pero la consulta es un horror lo que tarda y no es por hacienda. Es por el componente.
Responder Con Cita
  #4  
Antiguo 26-12-2025
razorxxx razorxxx is offline
Miembro
 
Registrado: jul 2015
Posts: 196
Poder: 11
razorxxx Va por buen camino
No sé si a alguien más le pasa. Cuando hago una consulta al webservice, no me devuelve los datos del bloque SistemaInformatico. Ahora mismo estoy en pruebas, pero el caso es que si hago la consulta por la web y pincho en el número de factura, ahí sí me aparecen todos los datos.

Ahora mismo con la respuesta hago algo como:

Código Delphi [-]
For I := Low(response.RegistroRespuestaConsultaFactuSistemaFacturacion) to High(response.RegistroRespuestaConsultaFactuSistemaFacturacion) do
Begin
        with response.RegistroRespuestaConsultaFactuSistemaFacturacion[i] do
        begin
                // ...
                If DatosRegistroFacturacion.SistemaInformatico_IsSpecified Then
                Begin
                        RejillaConsulta.Cells[65,I+1] := DatosRegistroFacturacion.SistemaInformatico.IdSistemaInformatico;
                        RejillaConsulta.Cells[66,I+1] := DatosRegistroFacturacion.SistemaInformatico.NombreSistemaInformatico;
                        RejillaConsulta.Cells[67,I+1] := DatosRegistroFacturacion.SistemaInformatico.NumeroInstalacion;
                End;               
                // ...
        end;
End;

Sin embargo, todos los demás datos que he pedido, sí están ahí.

Alguna sugerencia? Es un error del webservice, o más concretamente del entorno de pruebas?
Responder Con Cita
  #5  
Antiguo 26-12-2025
ermendalenda ermendalenda is offline
Miembro
 
Registrado: ago 2021
Posts: 2.759
Poder: 7
ermendalenda Va por buen camino
Cita:
Empezado por razorxxx Ver Mensaje
No sé si a alguien más le pasa. Cuando hago una consulta al webservice, no me devuelve los datos del bloque SistemaInformatico. Ahora mismo estoy en pruebas, pero el caso es que si hago la consulta por la web y pincho en el número de factura, ahí sí me aparecen todos los datos.

Ahora mismo con la respuesta hago algo como:

Código Delphi [-]For I := Low(response.RegistroRespuestaConsultaFactuSistemaFacturacion) to High(response.RegistroRespuestaConsultaFactuSistemaFacturacion) do Begin with response.RegistroRespuestaConsultaFactuSistemaFacturacion[i] do begin // ... If DatosRegistroFacturacion.SistemaInformatico_IsSpecified Then Begin RejillaConsulta.Cells[65,I+1] := DatosRegistroFacturacion.SistemaInformatico.IdSistemaInformatico; RejillaConsulta.Cells[66,I+1] := DatosRegistroFacturacion.SistemaInformatico.NombreSistemaInformatico; RejillaConsulta.Cells[67,I+1] := DatosRegistroFacturacion.SistemaInformatico.NumeroInstalacion; End; // ... end; End;


Sin embargo, todos los demás datos que he pedido, sí están ahí.

Alguna sugerencia? Es un error del webservice, o más concretamente del entorno de pruebas?

Hola, en la solicitud tienes que indicarlo, va justo debajo de </FiltroConsulta> el filtro de que quieres esos datos.


Cita:
<FiltroConsulta>
....
</FiltroConsulta>
<DatosAdicionalesRespuesta xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/ConsultaLR.xsd">
<MostrarSistemaInformatico>S</MostrarSistemaInformatico>
</DatosAdicionalesRespuesta>
Cita:
Yo tenia otro problema y si ponia una etiqueta de referncia ejemplo "<sum1: DatosAdiciones..." en vez de directamente esto:
<DatosAdiciones... xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/tike/cont/ws/ConsultaLR.xsd">
Me fallaba
Ten en cuenta que para las compras no vale.

Última edición por ermendalenda fecha: 26-12-2025 a las 11:56:13.
Responder Con Cita
Respuesta



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
VERI*FACTU: Disponible servicio consulta registros facturación mediante form web Neftali [Germán.Estévez] General/Noticias 2 29-01-2025 10:09:10
Nuevo servicio de consulta de registros ermendalenda Envío de registros y sus respuestas 2 19-11-2024 23:28:38
Crear Servicio Web SOAP como un servicio windows APO Internet 2 28-03-2023 22:06:12
Realizar consulta mysql en un servicio noobdelphi5 Conexión con bases de datos 2 21-07-2015 20:32:21
Como arrancar o parara un servicio en funcion de otro servicio ?? QuarkBcn API de Windows 12 15-06-2011 14:46:11


La franja horaria es GMT +2. Ahora son las 05:27:26.


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