Facturas electrónicas [España]

[keys]

Hola a todos.

Un enlace de una charla sobre lo que nos viene https://www.youtube.com/watch?v=IMIY_KN0n-8

[adolphsys]

El día 7 se abrió la consulta pública de la Ley Crea y Crece, os dejo enlace https://portal.mineco.gob.es/es-es/m...ofesional.aspx

[keys]

Me mondo

3. ¿Debe existir una infraestructura pública de intercambio de facturas electrónicas alternativa
o complementaria al uso obligatorio de plataformas de facturación electrónica para su
remisión a los clientes? ¿Por qué? ¿Para qué tipo de empresas o profesionales es necesaria
esta alternativa? ¿Qué alternativa sería?

[antoine0]

Empezado por keys

Un enlace de una charla sobre lo que nos viene https://www.youtube.com/watch?v=IMIY_KN0n-8

Muchas gracias Keys, esta charla es efectivamente muy interesante.

Pero me surge una duda. Está claro que no tienen ninguna idea precisa de cómo será el sistema final. Está previsto publicar un nuevo reglamento dentro de cuatro meses, con probablemente muchas incertidumbres y cosas pocas claras, al cual yo le nombraría «borrador», o «borrador final» si se prefiere (FDIS en lenguaje ISO). Sin embargo, será la base (con sus numerosos versiones y mejoras) para aplicación en real en ¿agosto del 2024?

[iMia]

Esto me ha enviado un proveedor de servicios de los grandes...

Si ya estas dando pasos con respecto a la factura electrónica obligatoria que se aprobó en la Ley "Crea y Crece", levanta el pie del acelerador.

El pasado día 7 de marzo se abrió consulta publica para que la participación ciudadana en el desarrollo reglamentario de como tiene que ser la factura electrónica que viene.

Paralelamente a esto, la AEAT presenta su propia propuesta en el foro de usuarios de SAP (AUSAPE), que reúne a un buen numero de las empresas usuarias de SAP en España.

Esto pone de manifiesto y sobre la mesa, dos lineas de actuación para el desarrollo reglamentario de la factura electrónica, que son diametralmente opuestas.

Por un lado, el Ministerio de Asuntos Económicos y Transformación Digital, base su propuesta en el uso de plataformas de facturación electrónica, mientras que el Ministerio de Hacienda y Función Pública, basa su propuesta en una plataforma de desarrollo propio donde habrá que enviar todas las facturas, y desde donde se pondrán a disposición de sus destinatarios.

Con este panorama, se podría augurar que hasta inicios del verano (probablemente junio), no va ha haber una publicación el el BOE con el desarrollo reglamentario definitivo.

[CyberManolo]

Buenas tardes:

Tenía programado un sistema de generación de facturas electrónicas que funciona correctamente, pero ahora estoy intentando que una vez generado el xml pueda firmarse con auto firma. Para ello uso ShellExecute de ShellAPI. De esta forma:

Código Delphi [-]
ShellExecute(0, 'open',PChar('C:\Program Files\Autofirma\AutoFirma\autofirma.exe') , nil , nil, SW_SHOW);

Se me abre correctamente el programa, pero el usuario tiene que buscar el fichero a firmar. Lo que quiero es pasarle como parámetro el fichero a firmar, pero no lo consigo. En teoría debiera ser así, según el manual técnico de Autofirma:

Código Delphi [-]
ShellExecute(0, 'open', PChar('C:\Program Files\Autofirma\AutoFirma\autofirma.exe') , Pchar(' -i c:\facturas\factura1.xml') , nil, SW_SHOW);

Pero si le paso la ruta del fichero a firmar como parámetro, el programa Autofierma no se arranca.

¿Alguien me puede arrojar luz sobre el asunto? Muchas gracias.

[[duilioisola]]

Prueba con
...AutoFirma\AutoFirma.exe" sign -gui ...

De todos modos, en la instalación de Autofirma, existe el fichero
AutoFirmaCommandLine.exe
Ese es el que utilizo yo desde un bat que genero con todos los parámetros que necesito:

Código Delphi [-]
"sign.bat" = 

'"' + cPath + 'AutoFirma\AutoFirmaCommandLine.exe" sign ' +
// opcionalmente ' -gui ' +
'-i "' + DameTempPath + 'ToSign.xml' + '" ' +
'-o "' + DameTempPath + 'ToSign.xsig' + '" ' +
'-store windows -filter "subject.contains:' + PChar(cCert) + '" ' +
'-format facturae > "' + DameTempPath + 'sign_result.txt"';

[manelb]

Buenos días...

Este es el bat que nosotros utilizamos.
Ahora no tengo a mano cada uno de los parámetros, pero con la documentación supongo que no tendrás problema en descifrarlo.

De todas formas, si tienes algún problema, más tarde puedo detallar cada uno de ellos.

"c:\AutoFirma\AutoFirma\AutoFirmaCommandLine.exe" sign -i %1 -o %2 -store windows -alias %3 -format facturae -config signatureProductionCity=%4\nsignatureProductionProvince=%5\nsignatureProductionPostalCode=%6\nsignatureProductionCountry=%7

Saludos

[CyberManolo]

Gracias a ambos.

Imagino que el bat lo lanzais con ShellExecute pasando desde ahí los parámetros que necesita dicho bat? (fichero a firmar, fichero firmado, certificado....)

[[duilioisola]]

Yo creo el fichero ToSign.xml, que es la factura a firmar.
Luego creo el bat como te muestro en el mensaje anterior con todo rellenado.
Este bat ejecuta AutorimaCommandLine.exe redirigido a un fichero llamado sign_result.txt.

"C:\...\AutoFirma\AutoFirmaCommandLine.exe" -i "C:\...\ToSign.xml" -o "C:\...\ToSign.xsig" -store windows -filter "subject.contains: EMPRESA SL" -format facturae > "C:\...\sign_result.txt"

Ejecuto el bat con un procedimiento que espera a que termine para evitar leer antes de tiempo:

Código Delphi [-]
function RunAndWait(Handle: THandle; Ejecutable, Argumentos: string; const RunDirectory: PChar = nil; const Visibilidad: integer = SW_SHOWNORMAL; MensajeSiCorrecto: boolean = True): DWORD;
var
  Info : TShellExecuteInfo;
  pInfo : PShellExecuteInfo;
  ExitCode : word;
  P : PChar;
begin
  { Puntero a Info }
  { Pointer to Info }
  pInfo := @Info;
  { Rellenamos Info }
  { Fill info }
  with Info do
  begin
     cbSize := SizeOf(Info);
     fMask := SEE_MASK_NOCLOSEPROCESS;
     wnd := Handle;
     lpVerb := nil;
     lpFile := PChar(Ejecutable);
     { Parametros al ejecutable }
     { Executable parameters }
     lpParameters := PChar(Argumentos + #0);
     if RunDirectory = '' then
        lpDirectory := nil
     else
        lpDirectory := PChar(RunDirectory + #0);
     nShow := Visibilidad;
     hInstApp := 0;
  end;
  { Ejecutamos }
  { Execute }
  if not ShellExecuteEx(pInfo) then
  begin
     Result := GetLastError;
     if FormatMessage(Format_Message_Allocate_Buffer + Format_Message_From_System,
        nil,
        Result,
        0, @P,
        0,
        nil) <> 0 then
     begin
        // Display the string.
        ShowMessage(P);
        // Free the buffer.
        LocalFree(integer(P));
     end;
  end
  else
     Result := 0; // Info.hInstApp;

  { Esperamos que termine }
  { Wait to finish }
  repeat
     ExitCode := WaitForSingleObject(Info.hProcess, 500);
     Application.ProcessMessages;
  until (ExitCode <> WAIT_TIMEOUT);
  ExitCode := GetLastError;

  GetExitCodeProcess(Info.hProcess, Result);
  if ((Result < 32) and (ExitCode = 0)) then
  begin
     ExitCode := GetLastError;
     if FormatMessage(Format_Message_Allocate_Buffer + Format_Message_From_System,
        nil,
        ExitCode,
        0, @P,
        0,
        nil) <> 0 then
     begin
        // Display the string.
        if MensajeSiCorrecto or (ExitCode <> 0) then
           ShowMessage(P);
        // Free the buffer.
        LocalFree(integer(P));
     end;
  end
  else
     Result := 0; // Info.hInstApp;
end;

Finalmente miro si el fichero sign_result.txt tiene el texto "La operacion ha terminado corectamente"

Código Delphi [-]
if ((SysUtils.FileExists(DameTempPath + 'sign_result.txt')) and (Pos('ha terminado correctamente', MemoRead(DameTempPath + 'sign_result.txt')) > 0)) then

Si es así guardo el fichero ToSign.xsig con un nombre acorde (Pro ejemplo: Factura_A-123.xsig) en la carpera de ficheros firmados para seguir con el resto de procesos.