Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Proyecto SIF/Veri*Factu/Ley Antifraude > Envío de registros y sus respuestas
Actualizar esta página Demo con código Verifactu.dll para (delphi 7)
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Tema Cerrado
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-03-2025
Avatar de ramherfer
ramherfer ramherfer is offline
Miembro
  
Registrado: may 2013
Ubicación: Valencia
Posts: 162
Poder: 14
ramherfer Va por buen camino
Buenas tardes.
Si se le factura a un cliente con recargo de equivalencia no se si está asignando la clave de régimen 01 (Operación de Régimen General).
Creo que en este caso debería de asignar la clave de regimen 18 (Recargo de equivalencia).

Por favor corregirme si me equivoco.
__________________
Se humilde para admitir tus errores, inteligente para aprender de ellos y maduro para corregirlos.
  #2  
Antiguo 07-03-2025
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
  
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
Cita:
Empezado por ramherfer Ver Mensaje
Buenas tardes.
Si se le factura a un cliente con recargo de equivalencia no se si está asignando la clave de régimen 01 (Operación de Régimen General).
Creo que en este caso debería de asignar la clave de regimen 18 (Recargo de equivalencia).

Por favor corregirme si me equivoco.
Que yo sepa debe quedarse como 01.

En uveriFactuFuncs.

La variable Condatos en la consulta se quedaba siempre a false, al menos en la version que yo tengo.
Si os ocurre esto, cambiar esta funcion asi:



Código:
function consultar(sesion:integer; var resultado:TConsultaResultado):boolean;
var
  consulta          : ConsultaFactuSistemaFacturacion;                  // Objeto a enviar
  res               : RespuestaConsultaFactuSistemaFacturacionType;    // Respuesta tras el envio

  HTTPRIO1          : THTTPRIO;

  j                 : integer;

  direccion_envio,  estado  : string;

  eventos       : TEventosHttpPrio;
  eventosWebNode: TEventosWebNode;
begin
      consulta:=ConsultaFactuSistemaFacturacion.Create;

      consulta.Cabecera:=CabeceraConsultaSf.Create;
      consulta.Cabecera.ObligadoEmision             :=ObligadoEmisionConsultaType.Create;
      consulta.Cabecera.ObligadoEmision.NombreRazon :=sesiones[sesion].inicio.emisor.NombreRazonEmisor;
      consulta.Cabecera.ObligadoEmision.NIF         :=sesiones[sesion].inicio.emisor.nifEmisor;

      consulta.FiltroConsulta:=LRFiltroRegFacturacionType.Create;
      consulta.FiltroConsulta.PeriodoImputacion           :=PeriodoImputacionType.Create;
      consulta.FiltroConsulta.PeriodoImputacion.Ejercicio :=resultado.Cabecera.ejercicio;
      consulta.FiltroConsulta.PeriodoImputacion.Periodo   :=veriFactuPeriodo( resultado.Cabecera.periodo );

      if resultado.Cabecera.NumSerieFactura='' then
      begin
          consulta.FiltroConsulta.FechaExpedicionFactura:=FechaExpedicionConsultaType.Create;
          if resultado.Cabecera.dfecha=resultado.Cabecera.hfecha then
          begin
            consulta.FiltroConsulta.FechaExpedicionFactura.FechaExpedicionFactura:=verifactuFecha(datetostr(resultado.Cabecera.dfecha));
          end else
          begin
            consulta.FiltroConsulta.FechaExpedicionFactura.RangoFechaExpedicion:=RangoFechaExpedicionType.Create;
            consulta.FiltroConsulta.FechaExpedicionFactura.RangoFechaExpedicion.Desde:=verifactuFecha(datetoStr(resultado.Cabecera.dfecha));
            consulta.FiltroConsulta.FechaExpedicionFactura.RangoFechaExpedicion.Hasta:=verifactuFecha(datetoStr(resultado.Cabecera.hfecha));
          end;
      end
      else
      begin
          consulta.FiltroConsulta.NumSerieFactura:=resultado.Cabecera.NumSerieFactura;
      end;

      If resultado.Cabecera.filtroSIF then
      Begin
            //Vamos a establecer un filtro por sistema informático (opcional)
            consulta.FiltroConsulta.SistemaInformatico:=SistemaInformaticoType.Create;
            consulta.FiltroConsulta.SistemaInformatico.NombreRazon                 := sesiones[sesion].inicio.sistemaInformatico.razonSocial;
            consulta.FiltroConsulta.SistemaInformatico.NIF                         := sesiones[sesion].inicio.sistemaInformatico.nif;
            consulta.FiltroConsulta.SistemaInformatico.NombreSistemaInformatico    := sesiones[sesion].inicio.sistemaInformatico.nombre;
            consulta.FiltroConsulta.SistemaInformatico.IdSistemaInformatico        := sesiones[sesion].inicio.sistemaInformatico.ID;
            consulta.FiltroConsulta.SistemaInformatico.Version                     := sesiones[sesion].inicio.sistemaInformatico.Version;
            consulta.FiltroConsulta.SistemaInformatico.NumeroInstalacion           := sesiones[sesion].inicio.sistemaInformatico.NumeroInstalacion;
            consulta.FiltroConsulta.SistemaInformatico.TipoUsoPosibleSoloVerifactu := SiNoType.S;

            if sesiones[sesion].inicio.sistemaInformatico.multiplesOT then
                consulta.FiltroConsulta.SistemaInformatico.TipoUsoPosibleMultiOT       := SiNoType.S
            else
                consulta.FiltroConsulta.SistemaInformatico.TipoUsoPosibleMultiOT       := SiNoType.N;
      End;

      eventos:=TEventosHttpPrio.Create;

      eventos.fileNameBefore  :=sesiones[sesion].inicio.saveXMLenvio;
      eventos.fileNameAfter   :=sesiones[sesion].inicio.saveXMLResultado;

      eventosWebNode:=TEventosWebNode.Create;
      eventosWebNode.sesion:=sesion;

      HTTPRIO1:=THTTPRIO.create(nil);
      HTTPRIO1.onBeforeExecute:=eventos.BeforeExecute;
      HTTPRIO1.onAfterExecute :=eventos.AfterExecute;

      // Cargar certificado del disco
      if ( pos('.PFX',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) or
         ( pos('.P12',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) then
          HTTPRIO1.HTTPWebNode.onBeforePost:=eventosWebNode.WebNodeBeforePost;

      // --> envío pre-produccion:  'https://prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP';
      try
          // Cargar certificado del almacen
          if ( pos('.PFX',uppercase(sesiones[sesion].inicio.nombreCertificado))=0) and
             ( pos('.P12',uppercase(sesiones[sesion].inicio.nombreCertificado))=0) then
            HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum := Buscar_Certificado_SERIAL( sesiones[sesion].inicio.nombreCertificado );  // coloca el certificado

          direccion_envio :=sesiones[sesion].inicio.direccion_envio;

          res:=   RespuestaConsultaFactuSistemaFacturacionType.Create;
          res:=   GetsfPortTypeVerifactu( false, direccion_envio , HTTPRIO1 ).ConsultaFactuSistemaFacturacion( consulta ); // Enviarlo !

          // limpiar resultado antes de procesarlo
          clear_consulta(resultado);

          // resultado del envio:
          resultado.ConDatos:=(res.ResultadoConsulta=ResultadoConsultaType.ConDatos);
          resultado.error   :=false;
          resultado.errorDes:='';



          procesarConsulta(res,resultado );
      except
      on E:Exception do
      begin
          resultado.ConDatos:=false;
          resultado.error:=true;
          resultado.errorDes:=Format('(%s)-%s',[E.ClassName, E.Message]);
          result:=false;
          exit;
      end;

            // Finalmente:
            // HTTPRIO1.free;  //<- no puede ser destruido con NIL como constructor
            //eventos.Free;
      end;
      result:=true;
end;
  #3  
Antiguo 07-03-2025
Avatar de ramherfer
ramherfer ramherfer is offline
Miembro
  
Registrado: may 2013
Ubicación: Valencia
Posts: 162
Poder: 14
ramherfer Va por buen camino
Cita:
Empezado por seccion_31 Ver Mensaje
Que yo sepa debe quedarse como 01.

En uveriFactuFuncs.

La variable Condatos en la consulta se quedaba siempre a false, al menos en la version que yo tengo.
Si os ocurre esto, cambiar esta funcion asi:



Código:
function consultar(sesion:integer; var resultado:TConsultaResultado):boolean;
var
  consulta          : ConsultaFactuSistemaFacturacion;                  // Objeto a enviar
  res               : RespuestaConsultaFactuSistemaFacturacionType;    // Respuesta tras el envio

  HTTPRIO1          : THTTPRIO;

  j                 : integer;

  direccion_envio,  estado  : string;

  eventos       : TEventosHttpPrio;
  eventosWebNode: TEventosWebNode;
begin
      consulta:=ConsultaFactuSistemaFacturacion.Create;

      consulta.Cabecera:=CabeceraConsultaSf.Create;
      consulta.Cabecera.ObligadoEmision             :=ObligadoEmisionConsultaType.Create;
      consulta.Cabecera.ObligadoEmision.NombreRazon :=sesiones[sesion].inicio.emisor.NombreRazonEmisor;
      consulta.Cabecera.ObligadoEmision.NIF         :=sesiones[sesion].inicio.emisor.nifEmisor;

      consulta.FiltroConsulta:=LRFiltroRegFacturacionType.Create;
      consulta.FiltroConsulta.PeriodoImputacion           :=PeriodoImputacionType.Create;
      consulta.FiltroConsulta.PeriodoImputacion.Ejercicio :=resultado.Cabecera.ejercicio;
      consulta.FiltroConsulta.PeriodoImputacion.Periodo   :=veriFactuPeriodo( resultado.Cabecera.periodo );

      if resultado.Cabecera.NumSerieFactura='' then
      begin
          consulta.FiltroConsulta.FechaExpedicionFactura:=FechaExpedicionConsultaType.Create;
          if resultado.Cabecera.dfecha=resultado.Cabecera.hfecha then
          begin
            consulta.FiltroConsulta.FechaExpedicionFactura.FechaExpedicionFactura:=verifactuFecha(datetostr(resultado.Cabecera.dfecha));
          end else
          begin
            consulta.FiltroConsulta.FechaExpedicionFactura.RangoFechaExpedicion:=RangoFechaExpedicionType.Create;
            consulta.FiltroConsulta.FechaExpedicionFactura.RangoFechaExpedicion.Desde:=verifactuFecha(datetoStr(resultado.Cabecera.dfecha));
            consulta.FiltroConsulta.FechaExpedicionFactura.RangoFechaExpedicion.Hasta:=verifactuFecha(datetoStr(resultado.Cabecera.hfecha));
          end;
      end
      else
      begin
          consulta.FiltroConsulta.NumSerieFactura:=resultado.Cabecera.NumSerieFactura;
      end;

      If resultado.Cabecera.filtroSIF then
      Begin
            //Vamos a establecer un filtro por sistema informático (opcional)
            consulta.FiltroConsulta.SistemaInformatico:=SistemaInformaticoType.Create;
            consulta.FiltroConsulta.SistemaInformatico.NombreRazon                 := sesiones[sesion].inicio.sistemaInformatico.razonSocial;
            consulta.FiltroConsulta.SistemaInformatico.NIF                         := sesiones[sesion].inicio.sistemaInformatico.nif;
            consulta.FiltroConsulta.SistemaInformatico.NombreSistemaInformatico    := sesiones[sesion].inicio.sistemaInformatico.nombre;
            consulta.FiltroConsulta.SistemaInformatico.IdSistemaInformatico        := sesiones[sesion].inicio.sistemaInformatico.ID;
            consulta.FiltroConsulta.SistemaInformatico.Version                     := sesiones[sesion].inicio.sistemaInformatico.Version;
            consulta.FiltroConsulta.SistemaInformatico.NumeroInstalacion           := sesiones[sesion].inicio.sistemaInformatico.NumeroInstalacion;
            consulta.FiltroConsulta.SistemaInformatico.TipoUsoPosibleSoloVerifactu := SiNoType.S;

            if sesiones[sesion].inicio.sistemaInformatico.multiplesOT then
                consulta.FiltroConsulta.SistemaInformatico.TipoUsoPosibleMultiOT       := SiNoType.S
            else
                consulta.FiltroConsulta.SistemaInformatico.TipoUsoPosibleMultiOT       := SiNoType.N;
      End;

      eventos:=TEventosHttpPrio.Create;

      eventos.fileNameBefore  :=sesiones[sesion].inicio.saveXMLenvio;
      eventos.fileNameAfter   :=sesiones[sesion].inicio.saveXMLResultado;

      eventosWebNode:=TEventosWebNode.Create;
      eventosWebNode.sesion:=sesion;

      HTTPRIO1:=THTTPRIO.create(nil);
      HTTPRIO1.onBeforeExecute:=eventos.BeforeExecute;
      HTTPRIO1.onAfterExecute :=eventos.AfterExecute;

      // Cargar certificado del disco
      if ( pos('.PFX',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) or
         ( pos('.P12',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) then
          HTTPRIO1.HTTPWebNode.onBeforePost:=eventosWebNode.WebNodeBeforePost;

      // --> envío pre-produccion:  'https://prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP';
      try
          // Cargar certificado del almacen
          if ( pos('.PFX',uppercase(sesiones[sesion].inicio.nombreCertificado))=0) and
             ( pos('.P12',uppercase(sesiones[sesion].inicio.nombreCertificado))=0) then
            HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum := Buscar_Certificado_SERIAL( sesiones[sesion].inicio.nombreCertificado );  // coloca el certificado

          direccion_envio :=sesiones[sesion].inicio.direccion_envio;

          res:=   RespuestaConsultaFactuSistemaFacturacionType.Create;
          res:=   GetsfPortTypeVerifactu( false, direccion_envio , HTTPRIO1 ).ConsultaFactuSistemaFacturacion( consulta ); // Enviarlo !

          // limpiar resultado antes de procesarlo
          clear_consulta(resultado);

          // resultado del envio:
          resultado.ConDatos:=(res.ResultadoConsulta=ResultadoConsultaType.ConDatos);
          resultado.error   :=false;
          resultado.errorDes:='';



          procesarConsulta(res,resultado );
      except
      on E:Exception do
      begin
          resultado.ConDatos:=false;
          resultado.error:=true;
          resultado.errorDes:=Format('(%s)-%s',[E.ClassName, E.Message]);
          result:=false;
          exit;
      end;

            // Finalmente:
            // HTTPRIO1.free;  //<- no puede ser destruido con NIL como constructor
            //eventos.Free;
      end;
      result:=true;
end;
No el código no lo he alterado. Digo que si emitimos una factura a un cliente con recargo de equivalencia, la clave de regimen pone 01 y debiera ser clave 18, ya que no es una operación del Régimen General (01), se trata de una operación del Régimen de Recargo de Equivalencia (18). O por lo menos eso es lo que tengo entendido, corregirme si me equivoco.
Lo mismo que ocurriría si es una operación REBU 03 (Régimen de bienes usados), no la puedo calificar con el Régimen General (01).
__________________
Se humilde para admitir tus errores, inteligente para aprender de ellos y maduro para corregirlos.
  #4  
Antiguo 07-03-2025
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
  
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
Cita:
Empezado por ramherfer Ver Mensaje
No el código no lo he alterado. Digo que si emitimos una factura a un cliente con recargo de equivalencia, la clave de regimen pone 01 y debiera ser clave 18, ya que no es una operación del Régimen General (01), se trata de una operación del Régimen de Recargo de Equivalencia (18). O por lo menos eso es lo que tengo entendido, corregirme si me equivoco.
Lo mismo que ocurriría si es una operación REBU 03 (Régimen de bienes usados), no la puedo calificar con el Régimen General (01).
creo que aqui se aclara todo, normalmente sigo creyendo que sera 01:

https://arnaldes.com/expedientes-de-...sos-indebidos/

A ver que conclusiones sacamos

Saludos !
  #5  
Antiguo 11-03-2025
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
  
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
en la proxima version que publicaremos este fin de semana incluira previsiblemente entre otras tres flags de factura

subsanacion
rechazoprevioExiste
rechazoPrevioNoExiste

Con la intencion de marcar a true la modalidad de rechazoprevio, cuando se envie un registro por un fallo, por ejemplo el de un DNI. (subsanacion, rechazoPrevioNoExiste)

Tenemos el siguiente caso:

Factura 1 aceptada huella: A
Factura 2 error por dni huella B
Factura 3 aceptada huella C

Factura 2 aceptada huella D

Cuando se vuelva a enviar la factura 2, tendra una nueva huella D y habria que marchar esos dos flags.

Ahora viene una pregunta:


El resto de huellas de la 2 en adelante y hasta el fin de la facturacion estara mal por dos causas:

https://www.agenciatributaria.es/sta..._registros.pdf

Cita:
a) Datos de campos a utilizar en el caso de registros de facturación de alta
(y la “ruta” de su localización dentro del registro):
1. IDEmisorFactura (RegistroAlta/IDFactura/IDEmisorFactura)
2. NumSerieFactura (RegistroAlta/IDFactura/NumSerieFactura)
3. FechaExpedicionFactura
(RegistroAlta/IDFactura/FechaExpedicionFactura)
4. TipoFactura (RegistroAlta/TipoFactura)
5. CuotaTotal (RegistroAlta/CuotaTotal)
6. ImporteTotal (RegistroAlta/ImporteTotal)
7. Huella (RegistroAlta/Encadenamiento/RegistroAnterior/Huella)
8. FechaHoraHusoGenRegistro
(RegistroAlta/FechaHoraHusoGenRegistro)
Porque la huella de la factura anterior forma parte del calculo de huella de la factura actual, y ademas porque se envia como dato adicional en el apartado factura Anterior.

¿esto es asi?

Saludos !
Última edición por seccion_31 fecha: 11-03-2025 a las 08:42:37.
  #6  
Antiguo 11-03-2025
Avatar de bmfranky
bmfranky bmfranky is offline
Miembro
  
Registrado: may 2024
Ubicación: Gandia, Valencia
Posts: 863
Poder: 3
bmfranky Va por buen camino
Cita:
Empezado por seccion_31 Ver Mensaje
en la proxima version que publicaremos este fin de semana incluira previsiblemente entre otras tres flags de factura

subsanacion
rechazoprevioExiste
rechazoPrevioNoExiste

Con la intencion de marcar a true la modalidad de rechazoprevio, cuando se envie un registro por un fallo, por ejemplo el de un DNI. (subsanacion, rechazoPrevioNoExiste)

Tenemos el siguiente caso:

Factura 1 aceptada huella: A
Factura 2 error por dni huella B
Factura 3 aceptada huella C

Factura 2 aceptada huella D

Cuando se vuelva a enviar la factura 2, tendra una nueva huella D y habria que marchar esos dos flags.

Ahora viene una pregunta:


El resto de huellas de la 2 en adelante y hasta el fin de la facturacion estara mal por dos causas:

https://www.agenciatributaria.es/sta..._registros.pdf



Porque la huella de la factura anterior forma parte del calculo de huella de la factura actual, y ademas porque se envia como dato adicional en el apartado factura Anterior.

¿esto es asi?

Saludos !
Hola, no, ellos quieren que el encadenamiento sea consistente, da igual que el encadenamiento que uses de base para calcular el siguiente sea erroneo, siempre que el actual este bien sacado, siempre has de usar el encadenamiento que pasaste anteriormente, osea el ultimo que calculaste, si es erroneo, lo solucionas, usando el ultimo que enviaste.




Cita:
Factura 1 aceptada huella: A
Factura 2 error por dni huella B
Factura 3 aceptada huella C <<- aunque el anterior Hash es incorrecto, este no , porque su semilla es la que tu enviaste , aunque fuese mal calculada, por algun motivo.

Factura 2 aceptada huella D <<-- esta está correctamente encadenada con la 3, porque la 3 se encadeno con el hash que enviaste y que ahora estas corrigiendo.


Abreviando, calculas el hash con datos erroneos , te da bbbb, lo usas en el siguiente aunque sea erroneo, el calculo da ccc, para el siguiente el calculo cccc, es correcto porque en su formula, usaste bbbb que es lo que enviaste.


Tenemos un hilo entero aqui, al respecto.

Ten en cuenta que corrijes la huella del 2 registro en la aeat, creando un nuevo registro, no sustituyes ese registro en tu SIF, se queda inalterado.
__________________
Uno se alegra de ser útil. (Isaac Asimov)
Última edición por bmfranky fecha: 11-03-2025 a las 09:34:58. Razón: Diferenciar AEAT con SIF
  #7  
Antiguo 11-03-2025
Avatar de seccion_31
seccion_31 seccion_31 is offline
Miembro
  
Registrado: ene 2017
Posts: 472
Poder: 10
seccion_31 Va por buen camino
gracias por la respuesta bmfranky !

entonces tenemos

ENVIO 1
---------
F0001-ACEPTADA ENLACE CON NADA, PRIMER REGISTRO
F0002-ACEPTADA ENLACE CON F0001
F0003-DNI ERROR ENLACE CON F0002
F0004-ACEPTADA ENLACE CON F0003

ENVIO 2
---------
F0003 ACEPTADA-DNI YA CORRECTO - ENLACE CON F0004
F0005 ACEPTADA ENLACE CON F0004 ¿o con F0003?
F0006 ACEPTADA ENLACE CON F0005

¿seria asi?
Tema Cerrado

« Tema Anterior | Próximo Tema »

Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado
Modo Híbrido Modo Híbrido

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes
El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Verifactu o por requerimiento (no-verifactu) ¿decisión del usuario? Maska10 Temas legales 2 07-12-2024 12:34:47
Demo de una applicación para una estación de enfermera con RAD Studio AgustinOrtu La Taberna 1 21-07-2015 17:41:35
Demo Delphi, EMail Caral Internet 1 19-12-2006 00:37:56
Demo de delphi 2005 mazinger Varios 2 18-12-2004 09:23:09
El Rave que viene con Delphi es una Demo? apicito Impresión 0 04-06-2003 11:33:36


La franja horaria es GMT +2. Ahora son las 14:36:30.

Club Delphi - Archivo - Top

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi