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

[mqm]

en el proceso siguiente:

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

  aFactura:TRegistroFactura;

  j: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('');

Creo que resultado.Fecha+' '+resultado.Hora estan cambiados. ya que devuelve 11:59:10 25/03/2025

[seccion_31]

Ya esta corregido !

gracias por el aviso.

Por cierto starlet ¿has podido probar la demo?


slds !

Empezado por mqm

en el proceso siguiente:

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

  aFactura:TRegistroFactura;

  j: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('');

Creo que resultado.Fecha+' '+resultado.Hora estan cambiados. ya que devuelve 11:59:10 25/03/2025

[seccion_31]

parece que han cambiado esto en la normativa: desde el 18 de marzo:

15.6.9 ClaveRegimen 18. Recargo de equivalencia
- Sólo se puede cumplimentar TipoRecargoEquivalencia y CuotaRecargoEquivalencia
cuando CalificacionOperacion es “S1”.
- Si CalificacionOperacion es “S1”:
 Si Impuesto = “01” (IVA) o no se cumplimenta (considerándose “01” – IVA), sólo
se podrá cumplimentar TipoRecargoEquivalencia y CuotaRecargoEquivalencia si
ClaveRegimen igual a “18”.
 Si Impuesto = “01” (IVA) o no se cumplimenta (considerándose “01” – IVA) y
ClaveRegimen igual a “18”, es oblig

1.0.3 18/03/2025 Se incluye nuevo “Aceptado con errores” al hacer
un mal uso del primer registro.
Se incluye nueva validación para la clave de
régimen 18 (Recargo de equivalencia)
Se elimina validación de NIFs iguales entre emisor
y destinatario (Facturas de autoconsumo)

Fuente: https://www.agenciatributaria.es/static_files/AEAT_Desarrolladores/EEDD/IVA/VERI-FACTU/Validaciones_Errores_Veri-Factu.pdf


Asi que he probado a intentar subir una factura usando la demoD7 con REQ y me la ha rechazado:

Incorrecto 1279 Si el impuesto es IVA(01) o vacio, solo se podrá informar TIPORECARGOEQUIVALENCIA y CUOTARECARGOEQUIVALENCIA si la clave de régimen es 18.

Este sera otro cambio que llevara la version 2.1

Si alguien quiere comentarlo....

Saludos !

[delphiGar]

Empezado por seccion_31

parece que han cambiado esto en la normativa: desde el 18 de marzo:





Fuente: https://www.agenciatributaria.es/static_files/AEAT_Desarrolladores/EEDD/IVA/VERI-FACTU/Validaciones_Errores_Veri-Factu.pdf


Asi que he probado a intentar subir una factura usando la demoD7 con REQ y me la ha rechazado:

Incorrecto 1279 Si el impuesto es IVA(01) o vacio, solo se podrá informar TIPORECARGOEQUIVALENCIA y CUOTARECARGOEQUIVALENCIA si la clave de régimen es 18.

Este sera otro cambio que llevara la version 2.1

Si alguien quiere comentarlo....

Saludos !

Esto lo estamos comentado en dos hilos distinto, pero te resumo:

Si la factura lleva Recago de Equivalencia la ClaveRegimen tiene que ser 18, y aclaro, si la emite es por que puede hacerlo con recargo. Si esta en Recargo de Equivalencia el OT no puede emitir facturas con RE, por lo tanto sera la clave 01 u otra.

[CarlosMz]

Si esta en Recargo de Equivalencia el OT no puede emitir facturas con RE, por lo tanto sera la clave 01 u otra.

Si el emisor de facturas está en recargo de equivalencia no puede emitir facturas con recargo de equivalencia ?

[delphiGar]

Empezado por CarlosMz

Si el emisor de facturas está en recargo de equivalencia no puede emitir facturas con recargo de equivalencia ?

Exacto, no puede.

[ramherfer]

Empezado por delphiGar

Si la factura lleva Recago de Equivalencia la ClaveRegimen tiene que ser 18, y aclaro, si la emite es por que puede hacerlo con recargo. Si esta en Recargo de Equivalencia el OT no puede emitir facturas con RE, por lo tanto sera la clave 01 u otra.

Esto ya lo comenté hace un par de semanas:

Empezado por ramherfer

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.

Lo que no tenía ni idea es que si estas en regimen de recargo de equivalencia, no puedas emitir facturas con recargo de equivalencia. Lógica tiene, pero me quedo patidifuso.

[seccion_31]

Empezado por ramherfer

Esto ya lo comenté hace un par de semanas:

Pues si, Me acordé de ti ...


Saludos !

[delphiGar]

Empezado por ramherfer

Esto ya lo comenté hace un par de semanas:



Lo que no tenía ni idea es que si estas en regimen de recargo de equivalencia, no puedas emitir facturas con recargo de equivalencia. Lógica tiene, pero me quedo patidifuso.

Pero esto hasta el dia 18 de Marzo no era asi, hasta esa fecha habia que poner la clave 18 al que estaba en Regimen de equivalencia aunque facture sin recargo, y el que emite la factura con recargo emitia con 01 u otra clave.

Ahora desde el 18 es como he comentado.

[ramherfer]

A ver, yo sigo con el tema de comprobación del servicio soap esté activo o no. Soy cabezón por naturaleza

He estado probando con el tema de consulta vacia a la AEAT, pero me da errores "Consultando a la AEAT" y la verdad, tampoco he conseguido averiguar el motivo, ya que la consulta esta calcada de la que se realiza en la pantalla de consultas que funciona a la perfección.

Si la comprobación la realizo solo al entrar en la aplicación, tengo el inconveniente que si la aplicación no se cierra y el servicio deja de estar activo y se emite una o varias facturas, ya tenemos el lio montado.

Si la comprobación la realizo antes de realizar un envío, se va a poner a realizar consulta tras consulta hasta que detecte que el servicio está activo y la envie.

Todo ello desconociendo si hay algún limite de consultas, o si la operación de consultas continuadas puede desembocar en algún tipo de baneo por parte de mis amigos de la AEAT.

Entonces basandome en que la URL del EndPoint de mis amigos del fisco responde con una redirección, eso debiera bastar para indicar que está activo ya que si no se encuentra activo, no debiera de haber respuesta con esa redirección. Entonces con la siguiente función trato de hacer esa comprobación que activaría o desactivaría un flag y la imagen correspondiente en el StatusBar para que el usuario sea consciente en todo momento de como está el patio. La he probado con https://prewww1.aeat.es/wlpl/TIKE-CO.../VerifactuSOAP y con https://prewww1.aeat.es/wlpl/TIKE-CO...factuSOAP?wsdl y aparentemente cumple su función.

Código Delphi [-]
 
Function VerificarServicioSOAP(URL:String): Boolean;
var
  HTTP: TIdHTTP;
  SSLIO: TIdSSLIOHandlerSocketOpenSSL;

begin
  result := false;

  HTTP := TIdHTTP.Create(nil);
  SSLIO := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);

  try
    try
      // Forzar el uso de TLS 1.2
      SSLIO.SSLOptions.Method := sslvTLSv1_2;
      SSLIO.SSLOptions.Mode := sslmClient;
      HTTP.IOHandler := SSLIO;

      HTTP.Head(URL);
      //ShowMessage(Format('%s Disponible', [url]));
      result := true;
    except
      on E: EIdHTTPProtocolException do
      begin
        if (E.ErrorCode = 302) then begin
          //ShowMessage(Format('%s Disponible (Redireccionando)', [url]));
          result := True;
        end else begin
          //ShowMessage(Format('%s No Disponible: %s', [URL, E.Message]));
          result := False;
        end;
      end;
      on E: Exception do
        //ShowMessage(Format('%s No Disponible: %s', [URL, E.Message]));
    end;
  finally
    HTTP.Free;
  end;

end;

No se si estoy en un error. A ver que os parece y me alegraría que fuera válido.

Un saludo,

[starlet]

Empezado por seccion_31

Ya esta corregido !

gracias por el aviso.

Por cierto starlet ¿has podido probar la demo?


slds !

No, y no tengo ni idea que puede ser. Tengo claro que es algo de mi equipo, pero ni idea.

He puesto el form en visible, he instalado Capicom (ambas cosas las hice al principio).

Es un poco más complejo ver la operativa sin poder debuguear la demo, pero poco a poco me voy enterando.

Muchas gracias.

[seccion_31]

Empezado por starlet

No, y no tengo ni idea que puede ser. Tengo claro que es algo de mi equipo, pero ni idea.

He puesto el form en visible, he instalado Capicom (ambas cosas las hice al principio).

Es un poco más complejo ver la operativa sin poder debuguear la demo, pero poco a poco me voy enterando.

Muchas gracias.

Asegurate que tengas la version 2

El codigo fuente de la demo (carpeta DEMO_D7 ) y la DLL esta ahi puedes ir viendo que hace.

Abres el prouecto de la Demo, y tienes dos eventos, oncreate y el onshow, empieza por seguir el codigo.

Saludos !