Painel de líderes

Use esta versão: ACBrInstall_Trunk2.zip

Estou aplicando um Refactoring em ACBrIntegrador (nos fontes desse último commit)

Antes de postar, use a busca do fórum.

Esse é o motivo do erro. Apenas as NFe emitidas nos últimos 90 dias ficam disponíveis para download pelo método DistribuicaoDFe.

RESOLVIDO isso mesmo que ocorreu, consegui ativar! Obrigado pelo apoio!

Sim.. provavelmente foi isso que ocorreu...

O ACBr usa a página de consulta de NCM disponibilizado pela Receita Federal para carga dos NCM. http://www4.receita.fazenda.gov.br/simulador/PesquisarNCM.jsp Em uma pesquisa rápida, notei que ela ainda não foi atualizada com os novos NCM a vigorar a partir de 01/01/2018.

ok, vamos procurar então trabalhar local para evitar este problema

O Projeto é q todos os documentos fiscais do Ceará passem pelo integrador.

Obrigado , deu certo esse arquivo eu gerei com base na entrada por um XML de um exemplo desse tipo de nota. Na conversao que o proprio acbrmonitor converte o XML para o arquivo INI. validei mais alguns campos e deu certo vou colocar aqui o arquivo .ini que caso alguem precise Obrigado nota - importacao - Copia.ini

Venho aqui agradecer a todos os colaboradores do ACBr por mais um ano de dedicação. Principalmente ao Daniel Simões, Italo, BigWings, Juliomar... Enfim a todos deste fabuloso projeto. Desejo de coração um feliz natal e um próspero ano novo. Que o Universo retribua em dobro o que fazem aqui por todos nós. Um grande Abraço!!!

Usa essa função no teu programa uso no onshow do form function TForm1.CFI:string; var Registro: TRegistry; begin //acertando opções da internet (revogados / SSL / TSL) //verificar revogação de certificados do servidor Registro := TRegistry.Create(KEY_WRITE); Registro.RootKey := HKEY_CURRENT_USER; if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('CertificateRevocation', 0); end; registro.CloseKey; //verificar se há certificados revogados do fornecedor if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\WinTrust\Trust Providers\Software Publishing', true) then begin Registro.WriteInteger('State', 146944); end; registro.CloseKey; //Usar SSL 3.0 / Usar TSL 1.0 if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('SecureProtocols', 160); end; registro.CloseKey; registro.CloseKey; registro.Free; end;