Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Proyecto SIF/Veri*Factu/Ley Antifraude > Registros de Facturacion y Eventos (XML)
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #11  
Antiguo 15-11-2024
Sandy656 Sandy656 is offline
Miembro
 
Registrado: jul 2006
Posts: 24
Poder: 0
Sandy656 Va por buen camino
Hola. Este es el código que uso.

Código PHP:
    Entrada:=DirAplicacion+'Copias\VerifactuEntrada.xml';
      
Salida:=DirAplicacion+'Copias\VerifactuSalidaSigned.xml';
      
MemoXML.Lines.SaveToFile(Entrada); //guardo el xml inicial
      
MemoXML.Lines.SaveToFile(Salida);//guardo el xml inicial
      
aliascertificado:=P_DataVarios.QSala.FieldByName('ultima_firma').AsString// tomo la firma
      
ACardinal:=-1;
      if 
not FileExists(Salida )  then showmessage('Error Firmando')
      else
      
begin
        ACardinal
:=ShellExecute(Handle,
        
PWideChar('open'),
        
PWideChar('autofirmacommandline'),
        
PWideChar('sign -i "'+Entrada+'" -o "'+Salida+'" -format xades'+' -store windows -alias "'+aliascertificado+'"'),
        
nil,
        
SW_SHOWNORMAL);
      
end
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Posicion Firma shoulder Varios 9 11-10-2016 17:03:20
Chequeo para InputBox... bulc OOP 1 20-06-2014 22:18:14
Calcular un digito de chequeo GrupoDatasoft Varios 7 09-02-2009 17:53:53
Firma Digital Dado de baja Varios 5 30-11-2008 20:52:16
La firma de la semana, del mes, del año... kinobi Debates 3 23-05-2005 01:00:52


La franja horaria es GMT +2. Ahora son las 17:41:13.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi