Código Delphi [-] procedure TFrmFacturacion.Button1Click(Sender: TObject); var NoCertificado:String; begin NoCertificado:=GetNoCertificado(ExtractFilePath(Application.ExeName)+'aaa010101aaa_CSD_01.cer.pem'); Label1.Caption:=NoCertificado; end;
procedure TFrmFacturacion.Button1Click(Sender: TObject); var NoCertificado:String; begin NoCertificado:=GetNoCertificado(ExtractFilePath(Application.ExeName)+'aaa010101aaa_CSD_01.cer.pem'); Label1.Caption:=NoCertificado; end;