Demo con código Verifactu.dll para (delphi 7)

[seccion_31]

nueva version 3.0

En espera de su publicacion

> Nota general:



ATENCION:
Con cada cambio, aseguraos que la unidad del componente en delphi 7 es recompilada, de lo contrario tendreis una unidad TVerifactu
desactualizada contra una DLL que usa tipos distintos, por tanto dara errores de proteccion general.


version 3.0
----------------------------------------------------------------------------------------------------------------------------
Se reducen las sesiones de 10 a 6.

Nuevo:

Tras el envio, y/o en el evento es posible consultar el resultado de la automatizacion:

TRegistroFacturaStatus=record
exenta :boolean; <- hay valores en record de exentas
canarias :boolean; <- ha sido clasificada como canarias, ceuta, o melilla
sujetopasivo:boolean; <- ha sido marcada como sujeto pasivo
cee :boolean; <- ha sido enviada como cee
exporta :boolean; <- ha sido enviada como exportacion
end;

por ejemplo:

if resultado.facturas[1].status.canarias then ....



En consultas ahora se devuelve correctamente CLIENTENIF cuando se trata de una factura con IDOtro. (exportacion y cee)

Modificada incidencia de string a boolean en el resultado de consulta por cada factura.

Añadida informacion sobre incidencia, en el resultado de facturas tras un envio:

Por cada factura, se devuelve el campo incidencia informado SOLO para esa factura (que afectara a todo el envio), en el elemento del array de cada factura
En el conjunto del envio, el campo incidenciaEnvio ya que se informo al menos 1 factura con incidencia ese "pack" de envio.


---> Evento para recibir las facturas consultadas:

TRegistroConEvent = procedure( Sender: TObject; resultadoConsulta:TConsultaCallBack ) of object;

Permite recibir mas alla de las 1000 facturas contenidas en el array, hasta las 10.000 de la primera pagina de la AEAT
Todavia se mantiene la recepcion de las 1000 primeras via array, pero se puede implementar el evento.

La Demo D7 se ha actualizado para mostrar el uso de eventos, con una pestaña nueva.

Se pueden enviar 1000 facturas, con descripcion de operacion de 500 digitos.

En la consulta, la descripcion de operacion recibida/consultada se reduce a 255 digitos, tanto por evento como por array.


---> Evento para recibir el resultado de las facturas enviadas:

Permite recibir factura a factura en un evento su estado tras el envio
Todavia se mantiene el array del resultado de facturas enviadas, pero ademas se puede implementar el evento.

TRegistroResEvent = procedure( Sender: TObject; resultadoEnvio:TResultadoCallBack ) of object;

En la demo hay un ejemplo de implementacion.