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

[DarkDudae]

Me da la sensación que hay mucha confusión con el tema de encadenamientos.

Hay que saber diferenciar entre Registro de Facturación y Facturación.
El registro de facturación es el que almacena el encadenamiento y las huellas y es el SIF el que debe encargarse de almacenar este registro de facturación. Este registro de facturación tendrá un registro encadenado por cada una de las operaciones que enviamos a VeriFactu, independientemente de que estas hayan sido aceptadas, aceptadas con error, o rechazadas. El encadenamiento no ha de tener en cuenta la respuesta recibida por VeriFactu (al menos no en lo relativo al encadenamiento y huellas previas), así que todos los registros irán inmediatamente enlazados a su registro anterior sin tener en cuenta su aceptación o no en la AEAT.

Por otro lado, tenemos la facturación.
Hay que saber distinguir los casos en los que una factura no ha llegado bien a VeriFactu o ha llegado pero con errores, o directamente, es errónea.

Si haces una subsanación de un registro NO ACEPTADO (el caso de un NIF incorrecto, por ejemplo)
FLAGS:
Subsanacion = S
RechazoPrevio = X

Si haces una subsanación de un registro Aceptado o Aceptado con Errores:
FLAGS:
Subsanacion = S
RechazoPrevio = N

En este último caso (Verifactu tiene los registros aceptados o aceptados con errores), el registro de facturación tendrá el mismo número de factura a subsanar cuando NO estemos obligados a generar una factura rectificativa. En caso de que sea necesaria una factura rectificativa, sí que llevaría el número de factura nuevo con la serie de rectificativas y la nueva numeración pertinente.

[seccion_31]

Buenas noches

Ya esta enviada para publicacion la nueva version del componente la 2.0:

version 2.0
----------------------------------------------------------------------------------------------------------------------------
-> ATENCION: aumentar el maxstack size minimo a: $00400000
-> ATENCION: Se recomienda deshabilitar range check

Tras recibir nueva informacion sobre el funcionamiento de los encadenanmientos en foro clubDelphi se ha modificado ampliamente
el funcionamiento del componente: Algunos de estos cambios pueden verse aplicados en la DEMO_D7

https://www.clubdelphi.com/foros/sho...d.php?p=559560

Los encadenamientos de un emisor son sobre el registro anterior generado cronologicamente, independientemente de si existe
o no en verifactu y de su serie. Asi ya no es necesario obtener el numero anterior de factura.

De esta forma eliminamos el parametro factura anterior y creamos la funcion registroInicial( ) para establecer el primer encadenamiento
del envio. (que deberia ser simplemente los datos el ultimo registro enviado, en el envio anterior)

TVeriFactu.addRegistroInicial(numserieFactura, fechaFactura, huella:string):boolean;

Asi tenemos la funcion registroInicial para establecer el encadenamiento cero y el resto de encadenamientos anteriores de los siguientes registros
como es cronologico se obtienen del registro indice del array de facturas - 1.

Si NO hay encadenamiento previo (registro Inicial), llamar a la funcion registroInicial con '' (string vacio) en todos los apartados. (o no llamarla).

---> Las huellas siempre se calculan en el momento del envio, (excepto la del registro inicial), dejar el campo huella de la factura sin valor al añadir la factura
Despues del envio se puede recuperar la factura con la nueva funcion TVerifactu.factura (ver abajo) y ahi estara la huella calculada - enviada.

---> ATENCION: Se ha publicado la funcion clear_factura( factura ) para limpiar todos los campos de una factura, previo a cargar datos por el usuario.

Es muy recomendable su uso, ya que algunos campos, especialmente los boolean tienden a quedar =true.

TVeriFactu.clearFactura(var afactura:TRegistroFactura);

Se añaden los siguientes campos en la factura: TRegistroFactura

subsanacion :boolean; // S
rechazoprevioExiste :boolean; // S
rechazoprevioNOExiste:boolean; // X

por defecto clear_factura los dejara a false (entre otros).

---> ATENCION: El indice inicial para analizar el resultado, consultas devueltas, etc... ahora comienzan en 1:

Los bucles quedaran asi:

for j:=1 to resultado.nFacturas do

....

for j:=1 to consulta.nfacturas do

Para una sola factura de consulta:

consulta.facturas[1]

---> ATENCION: Anulacion de facturas:

Añadido en el campo en factura, para la anulacion de factura: sinregistroPrevio:boolean;


Nueva funcion:

TVerifactu.factura(indice:integer; var aFactura:TRegistroFactura):boolean;

Devuelve la factura almacenada en la posicion indice del array. un indice de cero, devolvera los 3 apartados del registro inicial.

Ahora: En el array de resultado del envio de facturas, por cada factura, se envia su posicion indice en el array de facturas almacenadas

Al añadir una factura, se comprueba si existe en el array para ese numero y operacion, impidiendo añadir la misma factura dos veces en esa operacion.

Por tanto ahora las huellas y CSV en el resultado de envio se envian sin posibles fallos de identificacion.

Ver el formulario demo_d7 para comprobar estos cambios.


Modificaciones en consulta de registros:

Ahora la consulta se limpia correctamente antes de empezar su procesamiento

En TConsultaFactura

Timestamp se suprime (corresponde a fechaGenRegistro y horaGenRegistro)

Fecha pasa a FechaGenRegistro
Hora pasa a HoraGenRegistro

Se añaden: (todavia por comprobar)

idPeticion
FechaUltimaModificacion
HoraUltimaModificacion
TipoHuella
PrimerRegistro
Incidencia
clienteCodPais
clientetipoNIF
Subsanacion
RechazoPrevio
inversionSujetoPasivo
SinregistroPrevio

En el array de ivas

calificaciondeoperacion


Añadiendo facturas:

Chequeo de cuotas:

Ahora ya no es necesario indicar la cuotatotal en la factura
Si se indica cuotatotal=0 se sumaran las cuotas de iva y req del array de ivas
Si se indica cuotatotal<>0 debera cuadrar con las cuotas de iva y req del array de ivas

Parametros del sistema informatico:

Se suprime del envio y consulta por no obligatorio: TipoUsoPosibleSoloVerifactu y TipoUsoPosibleMultiOT


----------------------------------------------------------------------------------------------------------------------------
version 1.3 (no publicada)
-----------
Entrega de bienes a Canarias, ceuta y melilla, codigos postales 35 38, 51 y 52:->Automatizacion para entrega de bienes, regimen 02 exportacionn, E2, exentas por el capitulo 21

Corregida asignacion automatica de tiponif para ES

Correccion al enviar el nombre/password en certificados pfx p12

Mas correcciones en la carga de pfx y p12, ahora ya deberia estar correcto

Correccion en consultas, conDatos se quedaba a false, corregido

En tickets, F2 , automaticamente se coloca: canarias=false, e inversionSujetoPasivo=false

-> Se recomienda deshabilitar range check

Corregida asignacion de sesion al limpiar callbacks en inicio de sesion

[DarkDudae]

Empezado por seccion_31

Buenas noches

Ya esta enviada para publicacion la nueva version del componente la 2.0:

Sólo queda agradecerte, una vez más, el trabajazo que has hecho. ¡Gracias por compartirlo!

[Neftali [Germán.Estévez]]

La versión 2 del proyecto ya está subida al FTP del club.

Se adjunta el fichero RAR y un pequeño fichero TXT descriptivo de la versión, con el enlace al mensaje y los créditos.

Un saludo.

[ramherfer]

Empezado por DarkDudae

Sólo queda agradecerte, una vez más, el trabajazo que has hecho. ¡Gracias por compartirlo!

Claramente y sin paños calientes, sin esta ayuda, hubiese sido incapaz adaptar la aplicación y hubiese tirado el proyecto de años y años de trabajo a la basura. Superé el reto del i.t.e. al i.v.a, superé el reto del efecto 2000, superé el reto del maldito Euro, superé los cambios contables del 2008. Pero esto con gran desesperación y mucha preocupación lo veía imposible. Y gracias al trabajo de este hombre y el inestimable apoyo de otros de vosotros, la aplicación dará más guerra. No se de que forma lo puedo agradecer, siempre considerando que agradecer se queda corto. Solo gracias Sección_31, gracias Foro Club Delphi y gracias a todos aquellos que habeis puesto vuestro granito de arena y habeis permitido que siga en la brecha. Nunca pensé durante dos años de incertidumbres y desesperación que llegaría donde he llegado, ni por asomo.
Tengo una nueva oportunidad "Gracias a vosotros" sin lugar a ninguna duda.

[CarlosMz]

Muchas gracias por tu trabajo y compartirlo de esta manera con la comunidad delphi,

A mi personalmente me ayudó mucho tu demo, pues no había usado SOAP nunca antes...

[delphiGar]

Aunque no utilizo el componente, vi tu primera demo, y la verdad es que me instruyo bastante, te lo agradeci en su momento y te lo vuelvo a agradecer, eres un maquina!!!!

[nincillo]

Yo me empezaré a poner en "serio" con este componente a partir de ahora que ya he conseguido finalizar otras cosas que tenía pendientes.

La verdad es que es de agradecer el curro que os habéis pegado para preparar esta demo y esta dll. Que nos va a servir a muchos como punto de partida para aprender muchas cosas.

Lo primero que voy a intentar entender es como poder aplicar esta dll a todas las variantes que se me pueden dar con mis clientes. Clientes que tienen un servidor y las tiendas se conectan por escritorio remoto, que cada tienda va a generar sus tickets con una numeración independiente y que la numeración de las facturas en unos casos las van a compartir y en otros casos van a tener diferentes series por delegación, etc.

Gracias de nuevo y voy leerme el hilo desde el principio para intentar entender lo más posible todo tu planteamiento.

Un saludo.

[mqm]

Muchas gracias. A más de uno nos has salvado la vida.