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.

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;