Ley antifraude 2021 (VERIFACTU) - Programas informáticos

[delphiGar]

Empezado por newtron

Pufffffffffffff.... me da error aquí al compilar la unidad SistemaFacturacion:

Código Delphi [-]
    FText: TByteSOAPArray;

Me temo que mi Delphi Berlin no se traga esto.

Te he hecho este en delphi 10.2, pruebalo

[[newtron]]

Empezado por delphiGar

Te he hecho este en delphi 10.2, pruebalo

Gracias. Este si me lo compila pero me temo que es exactamente igual que el que estaba usando por lo que el problema que tengo será otro. Sigo probando.


Saludos.

[delphiGar]

Empezado por newtron

Gracias. Este si me lo compila pero me temo que es exactamente igual que el que estaba usando por lo que el problema que tengo será otro. Sigo probando.


Saludos.

Que error te da o que es lo que pasa??

[[newtron]]

Empezado por delphiGar

Que error te da o que es lo que pasa??

Pues me da un access violation al hacer la llamada. Imagino que será algún objeto que no estoy inicializando/rellenando pero no lo encuentro. A ver si me aclaro un poco y comento por aquí.


Gracias y un saludo.

[delphiGar]

Empezado por newtron

Pues me da un access violation al hacer la llamada. Imagino que será algún objeto que no estoy inicializando/rellenando pero no lo encuentro. A ver si me aclaro un poco y comento por aquí.


Gracias y un saludo.

Seguro que es un objeto que no has inicializado, ve delimitandolo por bloques, ponte un showmessage para ver donde llega.

Tambien puede ser que este haciendole un .Free al objeto antes de enviarlo y esto tambien da error, ya que la direccion se queda en el objeto pero sin contenido.

[[newtron]]

Vale.... He preparado un programa de envío de prueba pasando de lo que tenía y aprovechando un código que me ha enviado otro amable colega y me da este mensaje:





¿Alguna idea de lo que puede ser?

Edito: Yo estaba haciendo la llamada tal que así:

Código Delphi [-]
  res:=   GetsfPortTypeVerifactu( False, '', HTTPRIO1 ).RegFactuSistemaFacturacion( veriFactu );

pero curiosamente en el ejemplo que me han enviado lo hacen así:

Código Delphi [-]
  SistemaFacturacion.RespuestaRegFactuSistemaFacturacion(Respuesta) := SistemaFacturacion.GetsfPortTypeVerifactu(false, direccion_envio, HTTPRIO1).RegFactuSistemaFacturacion(ARegFactuSistemaFacturacion);

Asi que ahora si que estoy más despistado.

Saludos.





Gracias y un saludo.

[delphiGar]

Empezado por newtron

Vale.... He preparado un programa de envío de prueba pasando de lo que tenía y aprovechando un código que me ha enviado otro amable colega y me da este mensaje:





¿Alguna idea de lo que puede ser?

Edito: Yo estaba haciendo la llamada tal que así:

Código Delphi [-]
  res:=   GetsfPortTypeVerifactu( False, '', HTTPRIO1 ).RegFactuSistemaFacturacion( veriFactu );

pero curiosamente en el ejemplo que me han enviado lo hacen así:

Código Delphi [-]
  SistemaFacturacion.RespuestaRegFactuSistemaFacturacion(Respuesta) := SistemaFacturacion.GetsfPortTypeVerifactu(false, direccion_envio, HTTPRIO1).RegFactuSistemaFacturacion(ARegFactuSistemaFacturacion);

Asi que ahora si que estoy más despistado.

Saludos.





Gracias y un saludo.

Estas utilizando un certificado valido para autenticarte en la AEAT???

[[newtron]]

Empezado por newtron

Vale.... He preparado un programa de envío de prueba pasando de lo que tenía y aprovechando un código que me ha enviado otro amable colega y me da este mensaje:




...

Ok, después de bastantes pruebas sin éxito me ha dado por probar mi programita de pruebas en otro equipo y no me da error. No he revisado todavía la respuesta pero entiendo que el problema es que desde mi equipo hay algo que está bloqueando la llamada al webservice y no es ni antivirus ni firewall. Si a alguien se le ocurre qué puede ser agradecería comentarios.


Gracias y un saludo.