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

[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