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

[Matorral]

Buenos días ¡¡

Gracias a tod@s y sobretodo a Seccion31 por las aportaciones y por el enorme esfuerzo. De verdad que me dais la vida.

Empezado por seccion_31

sustituye esta funcion: uVerifactuFuncs y recompila el servidor B10

function consultar(sesion:integer; var resultado:TConsultaResultado):boolean;

.....

      // Cargar certificado del disco
      if ( pos('.PFX',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) or
         ( pos('.P12',uppercase(sesiones[sesion].inicio.nombreCertificado))<>0) then
          HTTPRIO1.HTTPWebNode.onBeforePost:=eventosWebNode.WebNodeBeforePost;

......

end;

Estoy utilizando Delphi 12 (no tengo Delphi 10 Berlin) para compilar el componente. Al reemplazar la función "consultar" me aparece un error en la línea

          HTTPRIO1.HTTPWebNode.onBeforePost:=eventosWebNode.WebNodeBeforePost;

En eventosWebNode.WebNodeBeforePost me dice "E2010: Incompatible types 'THTTPClient' and 'Pointer'"

y no la puedo recompilar (no se como corregir el error).

Podría alguien enviar el fichero VerifactuD7.bpl y dcp recompilados con la nueva funcion (o si algún moderador pudiera subirla al área de descarga )?

P.D.
Las aplicaciones las tengo en Delphi 7, y el componente VerifactuD7 lo había compilado en Delphi12 perfectamente, el fallo me da ahora al cambiar la función "consultar".

Muchas gracias¡¡

[Matorral]

Perdonad¡¡¡

Pero creo que me he liado un "POCO".

La corrección de la función consultar es del servidor de envíos (ese no lo había compilado antes en Delphi 12, lo utilice tal cual lo había descargado).

O sea, que lo que necesitaría para poder seguir es el servidor (msgVerifactu.exe) con la corrección hecha.

Gracias y mil disculpas de nuevo.

[DarkDudae]

Buenos días compañeros/as:

He conseguido enviar facturas desde una dll creada en Delphi 10.2 con llamadas desde Delphi 7.
Para hacer las pruebas, como primera aproximación simplemente he embebido el formulario de la demo 2 dentro de la dll para ver que pudiese enviar facturas, y efectivamente, puede, así como mantener el resto de funcionalidades.

Luego a modo extra he implementado la carga de certificados también usando la dll desde Delphi 7. Con esto no sé si verdaderamente sería necesaria una "aplicación servidora" ejecutándose en segundo plano.

Os paso el código:
Código Delphi 7 DLL

[seccion_31]

Empezado por DarkDudae

Buenos días compañeros/as:

He conseguido enviar facturas desde una dll creada en Delphi 10.2 con llamadas desde Delphi 7.
Para hacer las pruebas, como primera aproximación simplemente he embebido el formulario de la demo 2 dentro de la dll para ver que pudiese enviar facturas, y efectivamente, puede, así como mantener el resto de funcionalidades.

Luego a modo extra he implementado la carga de certificados también usando la dll desde Delphi 7. Con esto no sé si verdaderamente sería necesaria una "aplicación servidora" ejecutándose en segundo plano.

Os paso el código:
Código Delphi 7 DLL

perfecto, porque asi quedara mas elegante y seguro.

A ver si puedo descargarlo.

[DarkDudae]

Empezado por seccion_31

perfecto, porque asi quedara mas elegante y seguro.

A ver si puedo descargarlo.

Perdonad, no había puesto el enlace en público y ahora Google dice que tiene que revisarlo

Voy a borrar el exe por si ese fuese el motivo.

[DarkDudae]

Aquí lo tenéis:

DEMO LLAMADAS DESDE DLL

El pass de descompresión es: "clubdelphi"

Dentro tenéis los dos proyectos:

"verifactu_multi.dproj" creada con Delphi 10.2 (dll)
"Llamada_dll.dpr", con el código de un ejecutable desarrollado en Delphi 7 que interactua con la dll anterior.

[ramherfer]

Hola buenas tardes.
A ver si alguien me puede dar un empujoncito con respecto a la anulación.
Tenemos el siguiente planteamiento:

Oper. NumFra Fecha Fra
ALTA F240001 21/01/2024
ALTA F240002 22/01/2024
BAJA F240001 21/01/2024
ALTA F240003 22/01/2024
ALTA F240004 22/01/2024
ALTA F240005 22/01/2024
ALTA F240006 22/01/2024

En la hoja excel lo tengo claro y lo veo y sin ningún problema. pero me lleva loco el tema de la anulación y ostras, no soy capaz de encaminarlo. Como orientais el asunto en la base de datos si la tabla tiene como índice principal NumFra y tenemos ya el registro de alta con el número F240001. Sería sencillo y básico botón derecho en el alta correspondiente y opción anual factura, automáticamente se duplica el registro con la operación de baja y su fecha, pero no llego ni a probarlo ya que automáticamente me daría registros duplicados en la tabla de cabecera de facturas.

Si alguno me diera una pista de como orientar el tema se lo agradecería. No pensaba utilizar el tema de anulación, pero creo que se va a dar el caso en más de una vez y me gustaría tenerlo previsto.

Disculpar mi torpeza.
Un saludo,

[seccion_31]

Empezado por Matorral

Perdonad¡¡¡

Pero creo que me he liado un "POCO".

La corrección de la función consultar es del servidor de envíos (ese no lo había compilado antes en Delphi 12, lo utilice tal cual lo había descargado).

O sea, que lo que necesitaría para poder seguir es el servidor (msgVerifactu.exe) con la corrección hecha.

Gracias y mil disculpas de nuevo.

Ese error lo tuve al reves cuando hice la implementacion usando codigo encontrado (hay un codigo gemelo para tu version de Delphi, pero no lo puedo implementar) . La semana que viene saldra el update del componente, ya sea en version ejecutable o dll visto el posteo de darkdudae.

saludos !