Control ActiveX de facturación telemática de hacienda

[david.bea]

Hola a todos,

Es la primera vez que escribo aquí, recurro a vosotros porque me
han hablado muy bien de la forma de resolver problemas que
aqui teneis y eso, a ver que.

Ante todo, y puesto que no he leido nada sobre mi presentación,
me permito el lujo de invitar a todos a unas cervezas virtuales . .
Al que no le guste que pida un cafelito. . . que hay gente para todos los gustos.

En fin, a lo que iba:

En la web de hacienda WWW.AEAT.ES te proporcionan un control
ActiveX para usarlo para firmar digitalmente las facturas.
Mi problema es que una vez lo importo con delphi y queda
instalado en la paleta, no lo puedo utlizar.

Si lo pongo directamente encima de un form, en tiempo de
diseño, me da el mensaje de - Interfaz no compatible -
y si intento crearlo en tiempo de ejecución hace un acces violation.

Podeis decirme que es lo que falla?
O como hacerlo para poder utilizarlo desde delphi?
Alguien se ha encontrado con este problema antes?

Os adjuntaria el fichero pero no puedo, es grande.

Ah! uso delphi 6.

Muchas gracias

[Bacterion]

Si puedes indicarme de donde se baja, exactamente, y si doy con él quizás pueda contra... esto echarle un vistazo.

[david.bea]

Hola

El archivo está aqui:

http://a104.g.akamai.net/f/104/3242/...a/aeatfact.cab

El problema era mi falta de experiencia con ActiveX.

La solución que he encontrado ha sido en vez de instalarlo en la
paleta, crear solo el TLB y utilizarlo a través del interface de la
clase.

Ahora puedo acceder a los métodos del ActiveX.
Mi nuevo problema es saber donde está en Windows
el 'almacén de certificados'.

Gracias. Hasta otra.

[adebonis]

Hola.

¿Podrías indicarme cómo has logrado utilizar el control ActiveX?

Tengo que incoprporar la emisión de facturas telemáticas y me estoy volviendo loco.

Gracias.
Adolfo Bonis Mora

[diegosz]

Hola a todos,

tengo una duda que me está volviendo un poco loco sobre la codificación de la factura electrónica de la aeat. Bien, he revisado la documentación que ofrece la aeat, el centro de cooperacion interbancaria, y enlaces a partir de ellos pero aún tengo una pequeña duda acerca del uso del control de firma/verificación que se proporciona con respecto al esquema xml del formato de factura electrónica en el apartado de la firma (<signature>....</signature>). En los ejemplos que se pueden descargar de facturas firmadas, aparece la información de la firma (<signature>..</signature>) perfectamente rellenada.

Mi pregunta es, que si de esta parte se hace cargo el activex con su método FIRMA, es decir, si una vez que se tiene la factura completa (documento xml), este método se encarga de generar la información de la firma que falta, o si manualmente, tengo que hacer el cifrado con mi certificado del hash de la factura y adjuntarlo al final del fichero xml como otro tag más y a ello, aplicar el método FIRMA a todo. En pocas palabras, ¿cómo procedo una vez que genero el xml con el contenido sin firma?

No comprendo bien esta parte, la verdad. Os agradecería enormemente que me ayudáseis a aclarar esta parte final de la factura o algún ejemplo claro de dicho proceso porque nadie me orienta.

Un saludo a todos, Diego Sanz.
diegosz01@yahoo.es

[adebonis]

Hola.

Yo hago lo siguiente:

Genero la factura en formato pdf, la firmo y la envío por correo electrónico. La firma de la factura la realiza el método Firma. Fíjate que el método firma necesita del archivo origen a firmar, el número de NIF del emisor de la factura (debe estar instalado el certificado digital) y el archivo resultante ya firmado.

utilizo el siguiente código:

Código Delphi [-]
var
  Inicio, Final: WideString;
  Aeat: Variant;
begin
    dmSgp.Export1.Report := Listado;
    dmSgp.Export1.ExportQRPDF(varDirExe+ 'Temp\'+ NombreFacTel, True, False);
    Inicio := varDirExe+ 'Temp\'+ NombreFacTel+ '.pdf';
    Final := varDirExe+ 'Temp\'+ NombreFacTel+ '.F64';;
    Aeat := CreateOleObject('AeatFact.AeatFactCtl');
    try
    CodiFirma := Aeat.FIRMA(Inicio, NifEmi, Final);
    if Copy(CodiFirma, 1, 2) <> '00' then
      Mensaje('ERROR en la generación de la Factura telématica.'+ #13+ Copy(CodiFirma, 4, 100)+ '.')
    else begin
      CopyFile(PChar(varDirExe+ 'Temp\'+ NombreFacTel+ '.F64'), PChar(varDirIni+ '\FacturasEmitidas\'+ NombreFacTel+ '.F64'), False);
      with dmSgp.sqlSgp do begin
        sql.Clear;
        sql.Add('insert into sgp20Fte values (:Num, 0, es)');
        ParamByName('Num').AsInteger := Factura;
        ParamByName('Des').AsString := NombreFacTel+ '.F64';
        ExecSql;
      end;
      fMensaje.EnviaEmilio(varAsunto, Nombre, Eml, varDirIni+ '\FacturasEmitidas\'+ NombreFacTel+'.F64', TexAsu, True, 0);
    end;
    finally
    Aeat := Unassigned;
    end;
end;

Bueno, coméntame cualquier cosa si lo necesitas.

Adolfo Bonis Mora
Adolfo

[diegosz]

Hola Adolfo,

gracias por la información y por el código. Relacionado con el pdf que
generas, supongo que preparas una factura "de las de toda la vida" (al
cliente, concepto, detalle de factura, importe, iva, etc...) y eso es
lo que recibe el cliente, que tendrá que encapsular el método verifica
para el proceso inverso y acceder al contenido original, ¿no?. Entonces,
¿qué pasa con el formato xml este que detalla la AEAT? Pensaba que el
formato que debíamos seguir era el del xml comentado y dicho archivo es
el que debía hacerse todo el procesado de firma. ¿Se trata de una
recomendación?

Gracias por haberte molestado,

Un saludo, Diego.
diegosz01@yahoo.es