leufmt

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 := ????;

Estou com o mesmo problema. Foi resolvido?

bom dia pessoal. Já fiz os teste em homologação e passou de boa. Agora estou tentando enviar em produção e esta dando o seguinte erro: Código Erro: L018 Mensagem: A empresa nao esta habilitada no ambiente de integracao. Numero do RPS em que ocorreu o erro: 12 Correção: Solicite habilitação junto ao municipio. Provedor: ISSNET Cidade de cuiabá que estou enviando.

Boa tarde pessoal. Quando que vai sair um projeto de exemplo do ACBrMail? Pois lá só tem para lazarus.

Boa tarde galera.. Quando vai ter o exemplo feito em delphi?

boa tarde a todos. Esta certo o que fiz abaixo? Esta condição If ACBrNFSe.Enviar(Lote) then diz que foi emitida com sucesso a nota? Como faço para pegar o número do RPS e a data da emissão da RPS? If ACBrNFSe.Enviar(Lote) then begin ADOQNotas.Edit; ADOQNotas.FieldByName('CODIGOVERIFICACAO_NOT').AsString := ACBrNFSe.NotasFiscais.Items[0].NFSe.CodigoVerificacao; ADOQNotas.FieldByName('NUMERONOTA_NOT').AsInteger := ACBrNFSe.NotasFiscais.Items[0].NFSe.Numero; ADOQNotas.FieldByName('DATAEMISSAONOTA_NOT').AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissao; ADOQNotas.FieldByName('NUMERORPS_NOT').AsInteger := ????; ADOQNotas.FieldByName('SERIERPS_NOT').AsInteger := ????; ADOQNotas.FieldByName('DATAEMISSAORPS_NOT').AsDateTime := ACBrNFSe.NotasFiscais.Items[0].NFSe.DataEmissaoRps; ADOQNotas.Post; end;

Bom dia Italo, muito obrigado. Mais uma coisa, percebi que o comando Enviar é uma função que recebe boolean, posso deduzir que se ele receber true é que o RPS foi processado com sucesso?

Assim: Depois do comando ACBrNFSe1.Enviar(vNumLote) eu tenho alguma flag que me informe que teve sucesso no envio e validação da nota?