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

[seccion_31]

Empezado por sglorka

Podéis encontrar información de operaciones desde península a Canarias, Ceuta y Melilla dentro de las Faqs del SII
https://sede.agenciatributaria.gob.e...00dc381e0aRCRD

Si entrar en mucho detalle en este proyecto que está desarrollando Seccion_31, si me aceptáis un consejo, podría decir que este módulo debería cumplir un objetivo muy específico, y sería el de gestionar la cola de envío de facturas emitidas por un ERP a la Aeat, recoger las respuestas y entregarlas al ERP.
Yo creo que trasladar la gestión de, con qué claves, debe enviarse un RF correspondiente a una factura emitida de Península a Canarias, debería ser objetivo del ERP que es quien lleva la lógica de negocio. Trasladar esto al componente de comunicación no me parece que cumpla con los estándares de estructuración y escalabilidad.
En el caso de Canarias, depende de si la entrega de bienes es trasladada o no desde península, de si es el vendedor es el que paga los portes, de si existe un establecimiento o sucursal de esa empresa en Canarias, todas estas circunstancias derivan en claves distintas para el registro como podéis ver en el link que adjunto.
Pero bueno, es sólo una opinión

Puede que tengas razon. Mi opinion, hoy es esta:

Para crear exenciones esta el array de exenciones que creo podria cubrir los casos manualmente desde el ERP sin mas tratamiento.

Ahora bien, quisiera incluir el caso mas comun de envio a canarias, que por cierto NO se encuentra descrito en ese documento del SII, que ya lei.

Si no hay una respuesta, anulare la opcion y ya. ¿que le vamos a hacer?

Saludos !

[sglorka]

La respuesta sí está en el documento
"Ejemplo 3. Un empresario con domicilio fiscal en Madrid que aplica el SII transporta una partida de mercancías a Canarias para efectuar una venta en dicho territorio:
Si el vendedor satisface el IGIC de la importación, registrará este traslado de la mercancía desde Península a Canarias como una importación (tipo de factura: F5) no sujeta con clave 08. La posterior venta localizada en Canarias se informará con la clave 08.
Si el comprador satisface el IGIC de la importación, el vendedor registrará la operación como una exportación con la clave 02."

Lo más normal es que sea el comprador el que satisfaga el Igic de importación, estás en el segundo caso, por lo tanto y en el 99% de los casos, una empresa en península que no tiene sucursal en Canarias, informa su venta con la clave de régimen tributario 02 Exportación y como desglose exenta tipo E2. Exenta por el artículo 21
Si no es una entrega de bienes sino una prestación de servicios entonces la clave de régimen es 08 y el desglose es N2 No sujeta por reglas de localización

[seccion_31]

Empezado por sglorka

La respuesta sí está en el documento
"Ejemplo 3. Un empresario con domicilio fiscal en Madrid que aplica el SII transporta una partida de mercancías a Canarias para efectuar una venta en dicho territorio:
Si el vendedor satisface el IGIC de la importación, registrará este traslado de la mercancía desde Península a Canarias como una importación (tipo de factura: F5) no sujeta con clave 08. La posterior venta localizada en Canarias se informará con la clave 08.
Si el comprador satisface el IGIC de la importación, el vendedor registrará la operación como una exportación con la clave 02."

Lo más normal es que sea el comprador el que satisfaga el Igic de importación, estás en el segundo caso, por lo tanto y en el 99% de los casos, una empresa en península que no tiene sucursal en Canarias, informa su venta con la clave de régimen tributario 02 Exportación y como desglose exenta tipo E2. Exenta por el artículo 21
Si no es una entrega de bienes sino una prestación de servicios entonces la clave de régimen es 08 y el desglose es N2 No sujeta por reglas de localización

Muchas Gracias por la aclaracion

Canarias:

02 Exportación y como desglose exenta tipo E2

Que es justo como lo había dejado: (ver mensaje anterior) y es como me aparecía aceptado por la AEAT

Tipo de factura: F1
Clave régimen: 02
Operación exenta: E2

Ya esta aclarado entonces,

Me temo entonces que ramherfer debera dejarlo como E2 y no como E5.

Saludos !


Con este ultimo ajuste, las automatizaciones previstas, para iva normal, eu, exportacion y canarias (añadire ceuta y melilla) quedan finalizadas.

[ramherfer]

vale, me estoy dando cuenta que me define el registro así

<Desglose>
<DetalleDesglose>
<ClaveRegimen>01</ClaveRegimen>
<OperacionExenta>E2</OperacionExenta>
<BaseImponibleOimporteNoSujeto>31.80</BaseImponibleOimporteNoSujeto>
</DetalleDesglose>
</Desglose>

y este es el error que devuelve:

<tikR:Operacion>
<tik:TipoOperacion>Alta</tik:TipoOperacion>
</tikR:Operacion>
<tikR:EstadoRegistro>Incorrecto</tikR:EstadoRegistro>
<tikR:CodigoErrorRegistro>1199</tikR:CodigoErrorRegistro>
<tikRescripcionErrorRegistro>Si Impuesto es '01' (IVA), '03' (IGIC) o no se cumplimenta y ClaveRegimen es 01 no pueden marcarse las OperacionExenta E2, E3.</tikRescripcionErrorRegistro>

Pero no se porque está poniendo ClaveRegimen 01.

No habría que añadir esta línea en uVerifactuFuncs en el caso especifico de canarias:

DetalleDesglose.ClaveRegimen := IdOperacionesTrascendenciaTributariaType._02;

dado que pone ClaveRegimen 01

[seccion_31]

Empezado por ramherfer

vale, me estoy dando cuenta que me define el registro así


y este es el error que devuelve:



Pero no se porque está poniendo ClaveRegimen 01.

No habría que añadir esta línea en uVerifactuFuncs en el caso especifico de canarias:

DetalleDesglose.ClaveRegimen := IdOperacionesTrascendenciaTributariaType._02;

dado que pone ClaveRegimen 01

efectivamente,

en la futura version 1.3 ya aparece la correccion:

              else  // caso especifico Canarias ceuta y melilla entrega de bienes
              begin
                   DetalleDesglose.ClaveRegimen     := IdOperacionesTrascendenciaTributariaType._02;
                   DetalleDesglose.OperacionExenta  := OperacionExentaType.E2;
              end;

uVerifactuFuncs

linea 1600 aprox. donde se vuelve a reajustar el regimen para canarias en el "else".

Saludos

recompila la DLL y ya.

[CarlosMz]

Consulta

en el método de la demo procedure TForm1.procesarEnvio(resultado:TResultadoEnvio);

¿No debería también guardar la huella y lo disponible en registros de facturación para incorrectos ?

Algo así:

Código Delphi [-]
procedure TForm1.procesarEnvio(resultado:TResultadoEnvio);
var
  desError,error,estado,factura, emisor:string;

  j:integer;

  _ok,_oke,_err:integer;

begin
      memoXML.Lines.LoadFromFile(xmlEnvio);
      memoXML.Text:=FormatXMLData(memoXML.Text);

      memoRes.lines.clear;
      memoRes.lines.Add('Se ha realizado el envío');
      memoRes.Lines.Add('');
      memoRes.Lines.Add('Estado Del Envio:'+resultado.EstadoEnvio );
      memoRes.lines.Add('CSV: ' + resultado.CSV);
      memoRes.lines.Add('TimeStamp: ' + resultado.Fecha+' '+resultado.Hora);
      memoRes.Lines.Add('');


      _ok   :=0;    // nº facturas OK
      _oke  :=0;    // nº facturas OK ( pero aceptadas con errores )
      _err  :=0;    // nº facturas con errores  (no aceptadas)

      for j:=0 to resultado.nFacturas-1 do
      begin
            factura  := resultado.facturas[j].NumSerieFactura;
            emisor   := resultado.facturas[j].IDEmisorFactura;
            estado   := resultado.facturas[j].estado;
            error    := inttostr(resultado.facturas[j].errorcodigo);
            desError := resultado.facturas[j].descripcionError;

            memoRes.Lines.Add( factura + ' ' + estado + ' '+error+' '+desError );     // ver en pantalla

            if resultado.facturas[j].OK then   // Es correcto ó aceptado con errores
            begin
                // colocar el csv y huella en la factura
                if facturasEnviadas.locate('emisor;NumSerieFactura',vararrayof([emisor, factura ]),[]) then
                begin
                    FacturasEnviadas.edit;
                    FacturasEnviadas.fieldbyName('csv').text      :=resultado.CSV;
                    FacturasEnviadas.FieldByName('huella').text   :=resultado.facturas[j].huellaFactura;
                    FacturasEnviadas.fieldbyName('situacion').text:=estado;
                    FacturasEnviadas.post;
                end;
                if resultado.facturas[j].aceptadoConErrores then inc(_oke) else inc(_ok);
            end
            else
            begin
                FacturasEnviadas.edit;
                    FacturasEnviadas.fieldbyName('csv').text      :=resultado.CSV;
                    FacturasEnviadas.FieldByName('huella').text   :=resultado.facturas[j].huellaFactura;
                    FacturasEnviadas.fieldbyName('situacion').text:=estado;
                    FacturasEnviadas.post;
                inc(_err);                            // Es erronea
            end;
      end;

      memoRes.Lines.Add('');
      memoRes.Lines.Add('Facturas Aceptadas: '+inttostr(_ok) );
      memoRes.Lines.Add('Facturas Aceptadas Con Errores: '+inttostr(_oke) );
      memoRes.Lines.Add('Facturas Con Errores: '+inttostr(_err) );

      // tiempo de espera:
      if resultado.tiempoDeEspera<>'' then memoRes.Lines.Add('Se Ha Establecido Un Tiempo De Espera Proximo Envio De '+resultado.tiempoDeEspera);
end;

[CarlosMz]

Creo que hay un error en la función asignaTipoNif, en la línea

"if factura.clientetipoNIF='ES' then"

quedaría así:

Código Delphi [-]
procedure asignaTipoNif(var factura:TRegistroFactura);
begin
      if factura.clientetipoNIF<>'' then exit;

      if factura.clienteCodPais='ES' then
          factura.clientetipoNIF:='02'
      else
          if CodpaisEuropea(factura.clienteCodPais) then
              factura.clientetipoNIF:='04'
          else
              factura.clientetipoNIF:='06';
end;

[seccion_31]

gracias !!

corrección incorporada a la version 1.3

¿alguna sugerencia / necesidad para la 1.3?

Saludos !

Empezado por CarlosMz

Creo que hay un error en la función asignaTipoNif, en la línea

"if factura.clientetipoNIF='ES' then"

quedaría así:

Código Delphi [-]
procedure asignaTipoNif(var factura:TRegistroFactura);
begin
      if factura.clientetipoNIF<>'' then exit;

      if factura.clienteCodPais='ES' then
          factura.clientetipoNIF:='02'
      else
          if CodpaisEuropea(factura.clienteCodPais) then
              factura.clientetipoNIF:='04'
          else
              factura.clientetipoNIF:='06';
end;

[CarlosMz]

Como sugerencias:

- Ver el tema de las rechazadas que creo que no pone la huella al archivarlo como RF y luego hay problemas para reencadenar.
- Trabajar con las subsanaciones en función de los errores recibidos
- Controlar el flujo con los parámetros de la AEAT recibidos en cada envío

[seccion_31]

Empezado por CarlosMz

Como sugerencias:

- Ver el tema de las rechazadas que creo que no pone la huella al archivarlo como RF y luego hay problemas para reencadenar.
- Trabajar con las subsanaciones en función de los errores recibidos
- Controlar el flujo con los parámetros de la AEAT recibidos en cada envío

buenos dias

yo creo que si devuelve la huella, de echo es lo primero que hace en el array de resultados.
Las subsanaciones, no las entiendo, si alguien quiere y sabe colaborar en ello, soy todo oidos.
El flujo que tenemos son los 60 segundos que se envian de facto tras cada envio. No se mucho mas, tambien ¿hay otro parametro que pueden enviar como numero de registros?


Problemas:

Lo que si es cierto que hay un problema y es el siguiente: (aqui y en consultas)

Cuando se devuelve el resultado, hay que localizar la huella: para devolverla, tengo que mirar si la huella viene en el resultado mismo, (que no la veo), asi que ahora mismo trato de localizarla en el array de facturas para devolverla. ahora bien, si la misma factura esta dos veces en el array de envio (una por alta y otra por rectificacion por ejemplo), tendriamos un problema, porque va a devolver la misma huella.

Puedo mejorar la busqueda añadiendole la operacion, o algo mas...

Creo que es la mejor solucion.

Voy a ir revisando ese tema, y la informacion que me devuelve en el resultado.

Si alguien quiere colaborar en la subsanacion....

[ramherfer]

Empezado por seccion_31

Puede que tengas razon. Mi opinion, hoy es esta:

Para crear exenciones esta el array de exenciones que creo podria cubrir los casos manualmente desde el ERP sin mas tratamiento.

Ahora bien, quisiera incluir el caso mas comun de envio a canarias, que por cierto NO se encuentra descrito en ese documento del SII, que ya lei.

Si no hay una respuesta, anulare la opcion y ya. ¿que le vamos a hacer?

Saludos !

¿Donde se encuentra el array de exenciones para darle un vistazo o te refieres a los datos tal y como aparecen en la hoja excel y que el erp puede enviar?

Yo no anularía nada y se va viendo. Por el momento pueden haber algunas lagunas, que se irán adaptando o dejando que el erp envíe la información.

[ramherfer]

Empezado por seccion_31

buenos dias

Las subsanaciones, no las entiendo, si alguien quiere y sabe colaborar en ello, soy todo oidos.

Yo el tema de la subsanación lo entiendo así:
Las subsanaciones en alta inicial normalmente no se informan o se informa con N o en blanco al igual como RechazoPrevio
El encadenamiento sería el mismo que para cualquier alta o baja

Supuesto.1: He remitido a la AEAT y lo tengo en el registro de SIF una factura con un cliente erróneo. Corrijo el cliente en la factura y genero una nueva alta en el registro SIF el campo subsanación indicaría S y en el campo RechazoPrevio N

Supuesto.2: He remitido una factura a la AEAT y lo tengo en el registro SIF que ha generado algún tipo de error (Aceptada con errores). Corrijo el error y genero un nuevo registro de alta indicando en subsanación S y en el campo RechazoPrevio indicaré S.
En este supuesto no se admiten valores (Subsanación N y RechazoPrevio S) por lógica y según informa en las listas.

Supuesto.3: Emití una factura con algún tipo de error, pero esa factura no se encuentra registrada en la AEAT ( he pasado de NO Verifactu a Verifactu ). Corrijo la factura y genero un nuevo registro de alta indicando en subsanación S y en RechazoPrevio se indicaría X.
En este supuesto no se admiten valores (Sustitutiva N y RechazoPrevio X) por lógica y según informa en las listas


Si la factura ha sido rechazada totalmente entiendo que no existiendo en la AEAT sería corregir el error, y se remitiría como como alta inicial Subsanación N o en blanco y RechazoPrevio N o en blanco.
Aunque aquí tengo una duda si se debería de indicar Subsanacion S y RechazoPrevio X. Entiendo que no.

Ya digo yo lo veo así de sencillo. Desconozco si te refieres a esto.

[seccion_31]

Empezado por ramherfer

¿Donde se encuentra el array de exenciones para darle un vistazo o te refieres a los datos tal y como aparecen en la hoja excel y que el erp puede enviar?

Yo no anularía nada y se va viendo. Por el momento pueden haber algunas lagunas, que se irán adaptando o dejando que el erp envíe la información.

donde esta el del iva:

  TRegistroFacturaExentas=record
          tipoExenta           :string[2];
          calificacionOperacion:string[2];
          claveRegimen         :string[2];

          baseImp   :currency;
  end;

En TRegistroFactura=record

        nexentas            :integer;
        exenta              :array[0..maxivas] of TRegistroFacturaExentas;

Que por cierto,tenemos que comprobar que su planteamiento sea correcto y que funcione ok.

[seccion_31]

por ahorrarme tiempo,

¿cuando una factura NO pasa por algun error, se interrumpe el envio de las siguientes? yo en las pruebas si he visto que se interrumpia el envio del resto, pero ahora no estoy seguro.

lo digo por no perder el encadenamiento.

saludos !

[CarlosMz]

Buenos días
¿No se devuelve el array de resultados con las aceptadas, aceptadas con errores y rechazadas ?

[seccion_31]

Empezado por CarlosMz

Buenos días
¿No se devuelve el array de resultados con las aceptadas, aceptadas con errores y rechazadas ?

Si, tal cual lo devuelve la AEAT sin procesar, solo trasladando los datos al record

slds

[Quim Herrera]

No sé si ya lo habéis detectado, creo que hay un error en uVerifactuFuncs.pas en TEventosWebNode.WebNodeBeforePost al validar un NIF con P12 o PFX en la asignación del nombre del archivo y password:

Código Delphi [-]
 if sesion=-1 then // viene de un validador de nif
  begin
      pass:=nifValidator;
      cert:=nifValidatorPass;
  end
  else     // viene de un objeto verifactu

deberia ser:

Código Delphi [-]
  if sesion=-1 then // viene de un validador de nif
  begin
      cert:=nifValidator;
      pass:=nifValidatorPass;
  end
  else     // viene de un objeto verifactu

Saludos

[DarkDudae]

Empezado por seccion_31

por ahorrarme tiempo,

¿cuando una factura NO pasa por algun error, se interrumpe el envio de las siguientes? yo en las pruebas si he visto que se interrumpia el envio del resto, pero ahora no estoy seguro.

lo digo por no perder el encadenamiento.

saludos !

No, no se interrumpe.

He probado a hacer un envío con 4 facturas. La segunda de ellas con el NIF incorrecto. Las otras 3 se envían sin problemas.

[elguille]

Hola, muchas gracias por iluminar el camino. Tengo un problema al cargar directamente un certificado PFX, no me funciona el procedimiento

Código Delphi [-]
cargaCertificado(Data: Pointer; cert, pass: string)

que está en uverifactufuncs.pas, la siguiente linea no carga el certificado correctamente

Código Delphi [-]
InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, pCert, SizeOf(CERT_CONTEXT))

lo he modificado para saber cual es el error

Código Delphi [-]
   if not InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, pCert, SizeOf(CERT_CONTEXT)) then
   BEGIN
      LastError := GetLastError();
      raise Exception.CreateFmt('Error en InternetSetOption. Código: %d', [LastError]);
   END;

recibo el código de error 6 . He importado el certificado al almacen de windows y desde ahi funciona perfectamente ¿alguien ha probado de cargar un certificado desde el fichero PFX directamente?
Gracias anticipadas.

[ramherfer]

Empezado por elguille

recibo el código de error 6 . He importado el certificado al almacen de windows y desde ahi funciona perfectamente ¿alguien ha probado de cargar un certificado desde el fichero PFX directamente?
Gracias anticipadas.

Hola termino de hacer una prueba validando NIF del cliente, por hacer una prueba rápida y sencilla con PFX y me pide que seleccione un certificado del almacen. Esto con el nombre de certificado cierto que no ocurre y funciona bien. Habiendo realizado una prueba con validación, creo que tampoco funcionará con los envíos. No lo he probado en los envíos por si se me lía un trifostio. Luego si acaso probaré con una factura y amplio la información lo tengo fácil para cambiar el uso de certificados.

Probado, pide el certificado tanto al comprobar el nif como al facturar del almacen de certificados.