Foros Club Delphi - Servicio de Consulta

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Envío de registros y sus respuestas (https://www.clubdelphi.com/foros/forumdisplay.php?f=66)

- - Servicio de Consulta (https://www.clubdelphi.com/foros/showthread.php?t=97912)

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?

enviar un paquete de 1000, un numero menor, tampoco es muy rapido.

saludos !

Cita:

Empezado por seccion_31 (Mensaje 570704)

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.

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?

Cita:

Empezado por razorxxx (Mensaje 571515)

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:

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.