Painel de líderes

Bom dia pessoal. Como todos sabem, na maioria das vezes em que o windows se atualiza ele marca aquelas opções de certificados revogados em "Opções da internet > Avançado" e, pelo menos comigo, gera uma grande quantidade de suporte à clientes. O correto é ficar assim: ( ) Usar SSL 2.0 (x) Usar SSL 3.0 (x) Usar TSL 1.0 ( ) Usar TSL 1.1 ( ) Usar TSL 1.2 ( ) Verificar revogação de certificados servidor* (x) verificar se ha assinaturas em programas baixados ( ) Verificar se há revogação de certificados do editor Então no final do ano passado até cheguei a comentar em um tópico se teria como modificar esses dados diretamente pelo delphi, pra facilitar nossa vida, mas não tinha ninguém com essa informação. Pois bem, essa semana tive um tempinho e comecei a mexer com isso e creio que encontrei uma solução, segue abaixo programação para alterar o registro do windows com as opções corretas. Já testado em alguns clientes e até o momento funcionando perfeitamente. (Testado em windows XP, 7, 2003 server) uses Registry; procedure TFPrincipal.FormCreate(Sender: TObject); 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.Free; end; Espero ajudar o pessoal do ACBr com essa contribuição. Um abraço a todos.

Resolvi o problema no cliente,,mas tive que modificar o codigo da ACBr, implementando o ByPass = '*gov,br*'. Creio que seria interessante deixar esta propriedade ByPass nas configurações do WebServices. Utilizando este recursos de ByPass nem foi preciso informar usuário/senha do proxy e eu também fiz uma função que captura as configurações de proxy do IE automaticamente. Estou de saída agora (final do primeiro expediente), mas amanhã disponibilizo todos os códigos por aqui. Obrigado a todos,

Saiu hoje no diário oficial a prorrogação dos prazos para o SAT-ISS, segue link: http://diariooficial.imprensaoficial.com.br/nav_cidade/index.asp?c=1&e=20150226&p=1&clipID=F4K0R7UKR23JLeF0F6LOQC579VI ver página 15. Diário Oficial pg_0015.pdf

Olá Pessoal! Em nossos testes identificamos que o totalizador do registro I052 não estava aparecendo, realizei uma alteração no fonte para contabilizar este registro. ACBrSPEDContabil.7z

Bom dia! convido a colaborar! implemente teste homologue e suba em anexo ! a comunidade do ACBr agradece

Amigos, acrescentei a seguinte verificação: //força para IE não ficar trabalhando off line if registro.OpenKey('Software\Microsoft\Windows\CurrentVersion\Internet Settings', true) then begin Registro.WriteInteger('GlobalUserOffline', 0); end; registro.CloseKey; Pois sofri em um cliente essa semana pois o mesmo colocou seu I.E. para trabalhar somente off-line e a todo momento acusava webservices indisponível... quebrei bastante a cabeça até perceber que estava configurado para trabalhar off... ¬¬ Att. Rômulo Mayworm