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

[seccion_31]

por cierto, yo diria que la ayuda de la 4.6a esta algo mal detallada sobre la F3, creo que con indicar los datos de cliente, emision, y el record de sustitucion deberia funcionar. Vamos que no lo tengo claro, pero funcionar, funciona.

Saludos !

: )

[Matorral]

Buenas tardes¡¡

Gracias anticipadas de nuevo a todos por el enorme esfuerzo.

Acabo de darme cuenta de que al realizar la consulta de la AEAT de registros de facturación enviados, me aparecen todos como Subsanacion = 'S' y PrimerRegistro = 'S'.

La consulta la hago por medio del componente, capturando los registros en el evento onRegConsultaD7.

Los RF los envío sin valor en el campo Subsanacion, y trazando la función AddRegistroInicial el valor fPrimero tiene valor False, no entiendo por que al hacer la consulta me devuelve 'S' en esos dos campos (Subsanacion y RegistroInicial).

El xml de envio esta bien generado y el encadenamiento es correcto. Y el xml de respuesta también es correcto

A alguien le pasa esto?

[Matorral]

Quería comentaros, por si le sirve a alguien, que estoy utilizando el evento onRegTrasEspera para gestionar la cola de envío, y va de cine.

Mi software es de hostelería y comercio, y en principio había pensado en realizar los envíos cada vez que se cobra una factura, pero no las tenia todas conmigo, porque en muchos bares y comercios realizan varios cobros por minuto, y quien sabe si los banearían.

Para gestionar la cola de envíos hago lo siguiente:

Cuando cobro una factura compruebo la propiedad AutoEspera. Si está a False la pongo a true y realizo el envío. Y si esta a True guardo la factura en la cola (FIFO) sin realizar envío.

Código Delphi [-]
        if VerifactuD7.AutoEspera=false then begin    // si esta a false se puede enviar
          try
            HazAvisoVerifactu('Enviando registro de facturación ... ');

            VerifactuD7.AutoEspera:=true;    // ponemos en marcha onTrasEspera

            enviarVerifactu_Simplificada( cSer,cTicket,'A'); // Enviamos Verifactu

            CierraAvisoVerifactu(Proc_Ventas);

          except
            showmessage('Fallo al enviar Factura');
          end;
        end
        else
          Graba_Pendiente_Envio(cSerieTickets,TTicket.FieldByName('SERIE').AsString,TTicket.FieldByName('CODIG  O').AsString,'S', 'N', 'N', 'N');

Luego en el evento onTrasEspera, si hay registros pendientes realizo el envío de las facturas guardadas en cola y si no hay registros pendientes de envío vuelvo a poner a False la propiedad AutoEspera.

Código Delphi [-]
/////// VERIFACTU
// autoenvio automatico de facturas pendientes REGISTROSPENDIENTESENVIO.DB
procedure TProc_Ventas.OnTrasEsperaD7( Sender: TObject );
begin

  if TRegistrosPendientesEnvio.IsEmpty then
    VerifactuD7.AutoEspera:=False
  else
    enviarVerifactu_Pendientes;

end;

Espero que le pueda servir a alguien.

[DarkDudae]

Empezado por Matorral

Quería comentaros, por si le sirve a alguien, que estoy utilizando el evento onRegTrasEspera para gestionar la cola de envío, y va de cine.

Mi software es de hostelería y comercio, y en principio había pensado en realizar los envíos cada vez que se cobra una factura, pero no las tenia todas conmigo, porque en muchos bares y comercios realizan varios cobros por minuto, y quien sabe si los banearían.

Para gestionar la cola de envíos hago lo siguiente:

Cuando cobro una factura compruebo la propiedad AutoEspera. Si está a False la pongo a true y realizo el envío. Y si esta a True guardo la factura en la cola (FIFO) sin realizar envío.

Código Delphi [-]
        if VerifactuD7.AutoEspera=false then begin    // si esta a false se puede enviar
          try
            HazAvisoVerifactu('Enviando registro de facturación ... ');

            VerifactuD7.AutoEspera:=true;    // ponemos en marcha onTrasEspera

            enviarVerifactu_Simplificada( cSer,cTicket,'A'); // Enviamos Verifactu

            CierraAvisoVerifactu(Proc_Ventas);

          except
            showmessage('Fallo al enviar Factura');
          end;
        end
        else
          Graba_Pendiente_Envio(cSerieTickets,TTicket.FieldByName('SERIE').AsString,TTicket.FieldByName('CODIG  O').AsString,'S', 'N', 'N', 'N');

Luego en el evento onTrasEspera, si hay registros pendientes realizo el envío de las facturas guardadas en cola y si no hay registros pendientes de envío vuelvo a poner a False la propiedad AutoEspera.

Código Delphi [-]
/////// VERIFACTU
// autoenvio automatico de facturas pendientes REGISTROSPENDIENTESENVIO.DB
procedure TProc_Ventas.OnTrasEsperaD7( Sender: TObject );
begin

  if TRegistrosPendientesEnvio.IsEmpty then
    VerifactuD7.AutoEspera:=False
  else
    enviarVerifactu_Pendientes;

end;

Espero que le pueda servir a alguien.

Vaya, me ha alegrado ver que mi pequeña aportación al componente le ha servido a alguien. Pensaba que era el único que usaba algo así.
Comentarte que el componente intercepta el tiempo de espera entre operaciones devuelto en cada envío desde la AEAT para modificar el timer interno que se usa antes de lanzar el evento OnTrasEspera. Se incorporó para hacer exactamente lo que estás haciendo y lo estás usando de forma muy similar a la que lo hago yo mismo.

Un saludo!

[seccion_31]

La 4.7 ya esta enviada para su publicación, corrigiendo esas variables de la consulta

Saludos !

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

Subida la versión 4.7 al FTP
https://terawiki.clubdelphi.com/Otro...%20Delphi%207/

Gracias.

[Matorral]

Empezado por DarkDudae

Vaya, me ha alegrado ver que mi pequeña aportación al componente le ha servido a alguien. Pensaba que era el único que usaba algo así.
Comentarte que el componente intercepta el tiempo de espera entre operaciones devuelto en cada envío desde la AEAT para modificar el timer interno que se usa antes de lanzar el evento OnTrasEspera. Se incorporó para hacer exactamente lo que estás haciendo y lo estás usando de forma muy similar a la que lo hago yo mismo.

Un saludo!

Pues sinceramente, me parece una gran aportación. Muy útil, y te olvidas de manejar timers y controlar segundos devueltos por hacienda, etc...

Gracias¡¡¡¡¡

[seccion_31]

Empezado por Matorral

Buenas tardes¡¡

Gracias anticipadas de nuevo a todos por el enorme esfuerzo.

Acabo de darme cuenta de que al realizar la consulta de la AEAT de registros de facturación enviados, me aparecen todos como Subsanacion = 'S' y PrimerRegistro = 'S'.

La consulta la hago por medio del componente, capturando los registros en el evento onRegConsultaD7.

Los RF los envío sin valor en el campo Subsanacion, y trazando la función AddRegistroInicial el valor fPrimero tiene valor False, no entiendo por que al hacer la consulta me devuelve 'S' en esos dos campos (Subsanacion y RegistroInicial).

El xml de envio esta bien generado y el encadenamiento es correcto. Y el xml de respuesta también es correcto

A alguien le pasa esto?

uuummm...

revisa en la web de la AEAT como estan esos registros.

Si en la WEB DE LA AEAT estan correctos (es decir no aparece subsanacion y no son primer registro), entonces sera un problema de proceso de la consulta y lo reviso. Dimelo. (mira tambien si en el XML subsanacion no esta ni primer registro)

(Yo no he proceso la consulta para obtener de vuelta esos valores, me fijo en otros campos, de ahi que quizas esten mal procesados)

Saludos !

[seccion_31]

por cierto a estas alturas, me gustaría saber cuantos están usando mi componente... por curiosidad.


el timer del que habla [matorral] fue una aportación de [Darkdudae]

[rafa1963]

Buenos días seccion_31, Yo lo estoy utilizando en mi aplicación personal (en modo prueba) y va todo de lujo, si bien, lo que no he sido capaz aún es de insertar la firma en el signature. Todo funciona correctamente y voy adaptándolo según los mensajes de respuesta de la aeta y con los apreciados consejos que posteais.
Un millón de gracias a todos

[Matorral]

Empezado por seccion_31

por cierto a estas alturas, me gustaría saber cuantos están usando mi componente... por curiosidad.

el timer del que habla [matorral] fue una aportación de [Darkdudae]

Yo sigo el componente desde el inicio. Mi aportación fue nula porque no llego al nivel. Siempre fui a remolque en esto de Verifactu. No sabia por donde empezar.
Me disteis la vida, porque ni por asombro podria conseguir todo esto por mi mismo. Creo que uno de los dias mas felices de mi vida fue cuando envie un RF a Hacienda y me contesto "Correcto"

A estas alturas aun sigo peleando con la implementación del componente en mis aplicaciones y lo que mas me aterra ahora mismo es el tratamiento de los errores que devuelva (aceptado con errores, etc ... ), porque aun no me he puesto con ello.

Pero que de verdad que os debo la vida¡¡

[elguille]

Empezado por seccion_31

por cierto a estas alturas, me gustaría saber cuantos están usando mi componente... por curiosidad.


el timer del que habla [matorral] fue una aportación de [Darkdudae]

+1 Muchísimas gracias a ti y a todos los colaboradores

[ramherfer]

[quote=seccion_31;566402] por cierto a estas alturas, me gustaría saber cuantos están usando mi componente... por curiosidad.

Yo y no me cansaré de dar las gracias primero a ti y despues a todos aquellos que han colaborado para que funcione correctamente este magnífico componente.
De momento no he detectado ningún problema

[valdusio]

Empezado por seccion_31

por cierto a estas alturas, me gustaría saber cuantos están usando mi componente... por curiosidad.


el timer del que habla [matorral] fue una aportación de [Darkdudae]

Yo también lo estoy usando. Va perfectamente.
Muchas gracias por tu aporte.

[yeyo]

vaya por delante el agradecimiento a Seccion31 por su código!

Con la versión 4.7 me ha saltado el siguiente error:
"[dcc32 Error] uVerifactuFuncs.pas(...): E2361 Cannot access private symbol RespuestaDatosRegistroFacturacionType.Incidencia_Specified"

Después de mucho mirar me he encontrado con que sistemafacturacion.pas (el .pas generado a partir del WSDL) está modificado! buscar esta linea:

"PUBLIC // modificado aqui para disponer de las funciones _Specified"

A mí me ha saltado el error porque no estoy utilizando el sistemafacturacion.pas que viene con el componente. Estoy utilizando un sistemafacturacion.pas generado por mi, posterior: Version : 1.0 (01/07/2025 10:20:16 - - $Rev: 116709 $)

Lo digo para que lo tengaís en cuenta y el autor podrá confirmar si esto es así o me he liado yo. Y la cuestión... ¿es conveniente utilizar siempre el último WSDL? nos quedamos con una versión y ya? que consideraís que se debe hacer al respecto?


gracias!!

[seccion_31]

Empezado por yeyo

vaya por delante el agradecimiento a Seccion31 por su código!

Con la versión 4.7 me ha saltado el siguiente error:
"[dcc32 Error] uVerifactuFuncs.pas(...): E2361 Cannot access private symbol RespuestaDatosRegistroFacturacionType.Incidencia_Specified"

Después de mucho mirar me he encontrado con que sistemafacturacion.pas (el .pas generado a partir del WSDL) está modificado! buscar esta linea:

"PUBLIC // modificado aqui para disponer de las funciones _Specified"

A mí me ha saltado el error porque no estoy utilizando el sistemafacturacion.pas que viene con el componente. Estoy utilizando un sistemafacturacion.pas generado por mi, posterior: Version : 1.0 (01/07/2025 10:20:16 - - $Rev: 116709 $)

Lo digo para que lo tengaís en cuenta y el autor podrá confirmar si esto es así o me he liado yo. Y la cuestión... ¿es conveniente utilizar siempre el último WSDL? nos quedamos con una versión y ya? que consideraís que se debe hacer al respecto?


gracias!!

No hay mas remedio que publicar esas funciones para que funcionen bien las consultas. Esta documentado, tanto en el .pas como en la ayuda.txt

La actual es: // Version : 1.0 (14/02/2025 11:14:56 - - $Rev: 90173 $)

Pero yo creo que es la misma 1.0 que tienes tu, ¿importada en otra fecha? porque entiendo que la version deberia cambiar. (aqui ya no lo tengo claro)

Cuando se publique otro WSDL es ir a esos lugares y colocar el PUBLIC y listo. Es la solucion menos intrusiva que encontre.

No se si este problema se ha tratado en otros hilos del foro.

Saludos !

[Matorral]

Empezado por seccion_31

uuummm...

revisa en la web de la AEAT como estan esos registros.

Si en la WEB DE LA AEAT estan correctos (es decir no aparece subsanacion y no son primer registro), entonces sera un problema de proceso de la consulta y lo reviso. Dimelo. (mira tambien si en el XML subsanacion no esta ni primer registro)

(Yo no he proceso la consulta para obtener de vuelta esos valores, me fijo en otros campos, de ahi que quizas esten mal procesados)

Saludos !

Alguien podría indicar un link a la web de la AEAT para consultar los envíos a la plataforma de pruebas? En el mensaje nº 1 no lo encontre.

[seccion_31]

Empezado por Matorral

Alguien podría indicar un link a la web de la AEAT para consultar los envíos a la plataforma de pruebas? En el mensaje nº 1 no lo encontre.

https://preportal.aeat.es/PRE-Exteri...cturacion.html

[Matorral]

Empezado por seccion_31

https://preportal.aeat.es/PRE-Exteri...cturacion.html

Buenas tardes¡¡

Acabo de comprobar los registros enviados y las dos columnas me aparecen en blanco (Subsanación y Sin registro previo). O sea, que el componente envía bien la información. .

[seccion_31]

Empezado por Matorral

Buenas tardes¡¡

Acabo de comprobar los registros enviados y las dos columnas me aparecen en blanco (Subsanación y Sin registro previo). O sea, que el componente envía bien la información. .

acabo de revisar y pasa lo que ya anuncie con otros tipos en este mismo hilo.

En tipos serializados esa importación de delphi NO permite saber si tiene valor asignado o no.

La solucion es modificar el tipo SubsanacionType = (S, N);

y dejarlo:

SubsanacionType = (stNone, S, N);

Y cambiar algo el codigo de proceso de Consulta y asi funciona correcto.

Esto pasa con otros tipos.

Pero me parece muy intrusivo.

¿alguna idea mejor?

Saludos !