Como Usar O Certificado Digital

[Scientist]

Bom dia, tenho um certificadoA1Valid.pfx para utilizar no Demo AcbrNFse, como faço para colocá-lo no programa ? Sou iniciante em NFSe e aguardo por ajuda.

[Jhosef]

Scientist,

 

Após compilar o exemplo você vai na aba Certificado e informa o número de série do certificado ou clica no botão que é mostrado os certificados instalados na máquina, seleciona o que você vai usar e pronto.

 

Obs: Se você estiver usando OpenSSL você vai informar o local do arquivo *.pfx e a senha do certificado. 

[Scientist]

Hmm.. Neste caso eu preciso instalar o Certificado na minha máquina para "extrair" o serial dele e por no programa, correto?

[Jhosef]

Scientist,

 

Correto!!!

[Scientist]

Obrigado. Vou realizar o procedimento, primeiro correr atrás da senha pois só peguei o certificado heheh

[edilson_lima]

Olá pessoal, como eu consigo um arquivo .pfx para testar o WebService da da NFS-e, Grato !

[leufmt]

Mas qual é a propriedade do componente onde que indico o local e senha do pfx?

[Italo Giurizzato Junior]

Boa tarde a todos,

 

Que tal dar uma olhada no programa exemplo.

[leufmt]

ACBrNFSe.Configuracoes.Certificados.Certificado := DMBase.ADOQParametroCERTIFICADO_PAR.AsString;

 

esta dando erro em Certificado, acho que tem que declarar algo mas não sei o que é?

[DCC Error] Nota.pas(162): E2003 Undeclared identifier: 'Certificado'

[Italo Giurizzato Junior]

Boa tarde Leufmt,

 

Programa exemplo do ACBrNFSe, procedure ConfiguraComponente:

 

 {$IFDEF ACBrNFSeOpenSSL}
   ACBrNFSe1.Configuracoes.Certificados.Certificado := edtCaminho.Text;
   ACBrNFSe1.Configuracoes.Certificados.Senha       := edtSenha.Text;
 {$ELSE}
   ACBrNFSe1.Configuracoes.Certificados.NumeroSerie := edtNumSerie.Text;
 {$ENDIF}
 

Note que as linhas em negrito só vão ser compiladas se a diretiva de compilação ACBrNFSeOpenSSL estiver definida, caso contrario não.

 

Não definindo essa diretiva, o componente assume que você esta utilizando o Capicom, que lhe permite utilizar tanto o certificado A1 quanto A3.

 

Por outro lado se você defini a diretiva, o componente assume que você só vai utilizar o certificado A1, já que o OpenSSL só funciona com o certificado A1.

[leufmt]

Agora entendi.

Posso fazer isto então:

 If DMBase.ADOQParametroTIPOCERTIFICADO_PAR.AsString = 'A' then
 begin
  {$IFDEF ACBrNFSeOpenSSL}
   ACBrNFSe.Configuracoes.Certificados.Certificado :=
    DMBase.ADOQParametroCERTIFICADO_PAR.AsString;
   ACBrNFSe.Configuracoes.Certificados.Senha :=
    DMBase.ADOQParametroCERTIFICADOSENHA_PAR.AsString;
  {$ENDIF}
 end
 Else
  ACBrNFSe.Configuracoes.Certificados.NumeroSerie := DMBase.ADOQParametroCERTIFICADONS_PAR.AsString;

 

 

Pois no meu sistema deixo opção de qual certificado vai usar nos parametros da empresa.

[Italo Giurizzato Junior]

Se você quer desenvolver uma aplicação que funcione tanto com os certificados A1 quanto com os A3, você deve utilizar o Capicom, ou seja, não definir a diretiva ACBrNFSeOpenSSL.

 

Neste caso não importa se o certificado é A1 ou A3 você vai passar para o componente somente o numero de série do mesmo.

[leufmt]

Mas foi isso que tentei, mas se não estiver instalado o certificado no IE o sistema fala que não achou o certificado.

Ai vou ter que ficar instalando de máquina em máquina o certificado.

Editado 12 Dezembro, 2013 por leufmt

[leufmt]

esta definido o parametro

 

  {$IFDEF ACBrNFSeOpenSSL}
   ACBrNFSe.Configuracoes.Certificados.Certificado :=
    DMBase.ADOQParametroCERTIFICADO_PAR.AsString;
   ACBrNFSe.Configuracoes.Certificados.Senha :=
    DMBase.ADOQParametroCERTIFICADOSENHA_PAR.AsString;
  {$ENDIF}

 

só que não entra. como faço para definir a diretiva de compilação ACBrNFSeOpenSSL?

[leufmt]

Pelo que vi no forum eu tenho que descomentar a linha do ACBrNFSeOpenSSL no ACBr.inc.

 

Após isto tenho que recompilar algo?

[Italo Giurizzato Junior]

Sim,

 

A sua aplicação.

[leufmt]

Agora dá esse erro ao tentar enviar a nota

Erro: failed to load private pem key from ""

 

Já procurei no forúm sobre este erro e vi que é a falta do certificado, só que estou pegando o certificado e senha como no código abaixo:

 

{$IFDEF ACBrNFSeOpenSSL}
   ACBrNFSe.Configuracoes.Certificados.Certificado := DMBase.ADOQParametroCERTIFICADO_PAR.AsString;
   ACBrNFSe.Configuracoes.Certificados.Senha := DMBase.ADOQParametroCERTIFICADOSENHA_PAR.AsString;
{$ENDIF}

[leufmt]

Me ajude pessoal, estou parado aqui

[Juliomar Marchetti]

Me ajude pessoal, estou parado aqui

Pela quantidade de posts você já deve ter lido as regrás do fórum!

está sendo a segunda vez que vou chamar sua atenção, espere que alguém irá responder não fique postando

na próxima será marcado como spam

 

[Italo Giurizzato Junior]

Bom dia Leufmt,

 

Na propriedade Certificado você esta atribuindo o numero do certificado ou o Path que contem o arquivo do certificado?

 

Pois se não me falha a memória essa propriedade tem que receber o Path juntamente com o nome do arquivo (certificado).

[leufmt]

estou enviado assim: C:\Sistemas\Escola\NFSe\mastercentro.pfx