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

[seccion_31]

ya esta publicada la version 2.1 en espera del enlace para el foro:

version 2.1
----------------------------------------------------------------------------------------------------------------------------
Elevar el max. stack a $00510000 (recomendado) (hoy x hoy el tema del stack es un terreno desconocido)

Descripcion de operacion pasa de string a widestring para albergar 500 digitos
Se reducen de 1000 facturas por envio a 500 facturas (maximo)

Si no se espcifica url endpoint no se inicia sesion (antes lo hacia con el de pre-produccion por defecto)

Respuesto, modificado: EN SISTEMA INFORMATICO:

SistemaInformatico.TipoUsoPosibleMultiOT:=false; // capacidad del software para gestionar varios emisores ?
SistemaInformatico.IndicadorMultiplesOT :=false; // 1 solo emisor registrado por el software ?
SistemaInformatico.TipoUsoPosibleSoloVerifactu:=true; // la aplicacion funciona unicamente en modo verifactu ?

Utilizados tambien en la consulta cuando se busca por SIF

Nuevo:

ClaveRegimen 18. Recargo de equivalencia
Cuando una factura lleva recargo se cambia automaticamente a claveRegimen=18

Corregida la demo cuando carga una excel, se borran filas y se volvia cargar de nuevo otra excel.

Ahora esta disponible una funcion para verificar que la AEAT esta funcionando:

function TVeriFactu.VerifactuActivo:boolean;

Ejemplo:
VeriFactuD7.Certificado :=comboCertificados.text;
VerifactuD7.Emisor.NombreRazonEmisor :=editEmisor.Text;
VerifactuD7.Emisor.nifEmisor :=editNIFEmisor.Text;
VerifactuD7.urlEndPoint :=editURL.text; // endpoint de la AEAT

if veriFactuD7.VerifactuActivo then
statusBar1.panels[1].Text:='AEAT Activa'
else
statusBar1.panels[1].Text:='AEAT Inactiva';

Para ello se realiza una consulta muy simple por numero de factura y se analiza si ha sido correcta.

Ese numero de factura puede ser cambiado al numero de factura que se desee mediate la variable global VERIFACTUACTIVOPING por ejemplo:

VERIFACTUACTIVOPING:='ACTIVOVERIFACTU'; aunque el valor inicial es '*' y funciona perfectamente.

coregido el form principal de la demo, visible=true

Advertencia: el LOG que se puede guardar al final de una sesion de envio, esta obsoleto desde la conversion a DLL y no devuelve nada.

Suprimido: outputdebugstring por incompatibilidad con otras veresiones de D7.

corregida asignacion de fecha y hora del resultado de envio, estaban cambiadas una por otra.