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

[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....