leufmt

Muito obrigado pela ajuda de todos, mas desisti, pois não consigo fazer funcionar em outra máquina. Só funciona na minha máquina mesmo, vai ficar esse mistério. Vou voltar a gerar a nota pela a web. Obrigado.

não deu também

Sim

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

Me ajude pessoal, estou parado aqui

Me ajude pessoal, estou parado aqui

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}

Pelo que vi no forum eu tenho que descomentar a linha do ACBrNFSeOpenSSL no ACBr.inc. Após isto tenho que recompilar algo?

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?

só que não tem senha, pois é pelo serial

Mas o mais que me intriga é que tentei rodar com o administrador da máquina e outro usuário que coloquei como adminstrado da máquina. E nenhum vai. Cabuloso.

Rodei separadamente na mão o registro das dll's sem o parametro /s para ver se realmente estava registrando e a libeay32.dll não registra. Dá o erro: O módulo "C:\Windows\SysWOW64\libeay32.dll" foi carregado, mas o ponto de entrada DLLRegisterServer não foi localizado. Certifique-se de que "C:\Windows\SysWOW64\libeay32.dll" é um arquivo DLL ou OCX válido e tente novamente.

executei este bat: if EXIST %windir%\SysWOW64 goto Win64 :Win32 ECHO *** Copiando as DLLs *** copy C:\Sistemas\Escola\NFSe\capicom.dll %windir%\System32 copy C:\Sistemas\Escola\NFSe\msxml5.dll %windir%\System32 copy C:\Sistemas\Escola\NFSe\msxml5r.dll %windir%\System32 copy C:\Sistemas\Escola\NFSe\libeay32.dll %windir%\System32 ECHO *** Registrando as DLLs *** regsvr32 %windir%\System32\capicom.dll /s regsvr32 %windir%\System32\msxml5.dll /s regsvr32 %windir%\System32\libeay32.dll /s goto end :Win64 ECHO *** Copiando as DLLs x64 *** copy C:\Sistemas\Escola\NFSe\capicom.dll %windir%\SysWOW64 copy C:\Sistemas\Escola\NFSe\msxml5.dll %windir%\SysWOW64 copy C:\Sistemas\Escola\NFSe\msxml5r.dll %windir%\SysWOW64 copy C:\Sistemas\Escola\NFSe\libeay32.dll %windir%\SysWOW64 ECHO *** Registrando as DLLs x64 *** regsvr32 %windir%\SysWOW64\capicom.dll /s regsvr32 %windir%\SysWOW64\msxml5.dll /s regsvr32 %windir%\SysWOW64\libeay32.dll /s goto end :end pause Averiguei e foi salvo em SysWOW64, que a própria do 64bits

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.

É o windows 7 64, mas rodei com permissão de administrador

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.

Boa tarde pessoa, vamos ver se alguém me ajuda com esse mistério. Na minha máquina onde estou desenvolvendo o sistema para a emissão da NFS-e já esta funcionando legal. O problema é quando vou rodar o sistema em uma máquina do cliente, que dá esse erro ao tentar gerar a nota: A propriedade ou o objeto não foi encontrado. Já instalei o certificado e puxei o serial, já executei aquele instala.bat para instar as dll's. O que será que falta na máquina?

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'

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

Isso mesmo que fiz, ai deu certo.

Descobri o que era. Eu não esta informando a data para este campo ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissaoRps só para este ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissao Agora estou informando ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissao := Now; ACBrNFSe.NotasFiscais.Add.NFSe.DataEmissaoRps := Now; Agora deu certo. Era bobeira. Mas obrigado pessoal

no xml esta correto

Bom dia pessoal. Me ajudem por favor. Estou pegando a data de emissão do rps mas esta vindo 30/12/1899. Uso o comando ADOQNotas.FieldByName('DATAEMISSAORPS_NOT').AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps;

Tente modificar: ACBrMail1.Attempts := 1; ACBrMail1.SetSSL := True; ACBrMail1.SetTLS := True; Caro Daniel. fiz o que tu falou mas não deu certo aqui.

Bom dia galera. Alguém sabe como faço para pegar a Data de Emissão do RPS após o envio com sucesso? Já consigo pegar o Número é Série: ADOQNotas.FieldByName('NUMERORPS_NOT').AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Numero; ADOQNotas.FieldByName('SERIERPS_NOT').AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.IdentificacaoRps.Serie; ADOQNotas.FieldByName('DATAEMISSAORPS_NOT').AsDateTime := ????;