Por ahora nada, están apurando el plazo, aún les queda poco más de un mes desde la publicación de la ley... :D

https://cincodias.elpais.com/cincodi...d_externo_rsoc

Lo mismo que pensamos todos.
Esto tiene que ser por Face, lo que pasa es que poner fondos para terminar de desarrollar lo que ya se empezó con el EUROFACE, pero claro, hay que dedicar fondos, es más fácil que los empresarios se rasquen el bolsillo y arriesguen a que sus datos pasen por terceros

El tema es que todo se está convirtiendo en un despropósito con tanta ley aprobada sin saber cómo la van a desarrollar y tantas ocurrencias de un día para otro.

Hola a todos.

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

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

Me mondo :D:D:D:D

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? :confused:

vaya lio que tienen....
 

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

Llamada a autofirma para que firme una factura electrónica
 

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.

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"';

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.

Saludos

¿EL bat se lanza con ShellExecute?
 

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....)

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.
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.

Gracias Duilio
 

Muchas gracias Duilio. Ahora lo he entendido: construyes el bat desde Delphi y luego lo lanzas.
Yo intentaba ejecutar la aplicación con ShellExecute, que tiene un parámetro para pasar, a su vez, los valores de los parámetros de la aplicación que se está llamando.
Un saludo desde Córdoba.

webinar Factura Electrónica
 

En 1 Semana otro Borrador :D

Apuestas:

1. Verifactu + Face + FaceB2b

2. Verifactu + Otro formato Público(por RedSara)

3. Sistema centralizado por Redsara con solo un formato a la que habrá enlaces para que hacienda pueda recoger la información, los destinatarios de facturas puedan operar, rechazar y cambiar de estado las facturas... o sea como en Italia han hecho

4. Primero la opción 1(para arrancar rápido con lo desarrollado) y más adelante la opción 3.

Opción 5- Elecciones + ¿Cambio de gobierno? + Se retrasa más todo + Por mis Huevos lo hacemos de otra forma. + todo lo que hemos hecho no vale para nada :eek:

Claro. La opción 5 siempre está ahí, con su rima:D

Hola a todos,

alguien sabe qué base de datos es la que usa facturaE (la app del gobierno).
en la ayuda pone que se exporta a fichero con extensión fedb.

muchas graicas