Painel de líderes

Passamos por instabilidade no fórum recentemente... Acredito que os problemas já foram sanados... Alguns tópicos podem ter sido repetidos, mas acredito que não houve perda de informação

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.

Boa noite Juliana, Vou atualizar e verificar qualquer coisa eu aviso. Muito obrigado!!!

Sua duvida foi respondida o ACBrFramework não possue NFe se quizer tem o ACBrNFeMonitor, ou projeto do adenilton não faz parte do ACBrFramework.

João e Claudemir, Tem outras correções também. Vejam este tópico, onde estou tentando centralizar essas correções: Abraços, Gabriel.

Utilize o ACBrDANFEscPos, além de imprimir mais rápido será nativo. Caso queira continuar utilizando este, verifique como estão configuradas as margens na configuração interna da impressora não fiscal.

Bom dia Juliomar, acredito também que não seja o único. Estou tentando debugar aqui, só realmente não cheguei a lugar nenhum ainda, apenas como falei logo acima, aquele primeiro header que não é inserido, que por sinal observei que ele é tirado na hora da assinatura. Forcei inclusive a inclusão desta linha (comentei o replace la), ou seja, consegui incluir a linha, e ainda sim o problema continuou o mesmo. Vocês que possuem uma expertise maior no assunto, tem alguma sugestão de onde eu posso procurar mais? Obrigado novamente André

Bom dia a todos, O DANFE feito em Quick Report necessita da versão 5.02 do mesmo instalado no Delphi. Caso esteja usando o Delphi 7 com o Quick Report original, a sua versão é a 3.0 sendo assim ela não tem a unit QRPDFFilt.DCU Como contornar esse problema: abra com o bloco de notas o arquivo ACBr.inc (pasta: ...\Fontes\ACBrComum) e comente a linha que defini a diretiva QReport_PDF. Outros erros vão surgir, mas durante a execução da aplicação, erros de propriedades não existentes. Para resolver esses erros, dentro da pasta ...\Fontes\ACBrNFe2 existe um arquivo TXT que contem um passo a passo. Por se tratar de um passo a passo ele tem que ser seguido a risca, caso contrario não vai funcionar.

Boa noite. As alterações serão disponibilizadas no svn hoje. Att.

ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromStream(XMLStream); //Carrega o XML da Nota ACBrNFe1.Consultar; Já o retorno você obtem atraves das propiedades contidas em: "ACBrNFe1.WebServices.Consulta." por exemplo: ACBrNFe1.WebServices.Consulta.cStat; // Codigo de Status ACBrNFe1.WebServices.Consulta.Protocolo; // retorna o ultimo protocolo válido ( no caso da nota cancelada o protocolo de cancelamento ) (corrijam-me se estiver errado) ACBrNFe1.WebServices.Consulta.RetornoWS; // retorna o stream do XML( no caso da nota cancelada, o xml de cancelamento //E etc... Não sei se a explicação foi clara , porém A melhor opção e fazer oque o Tiago disse, ler o manual e depois analisar o demo,se você olhar com atenção , o demo vai te ajudar a entender o funcionamento na pratica.

Anexe os arquivos ao post para efetuar o merge!

flhsistemas, isso ocorreu comigo umas 2 vezes no mesmo cliente até descobrir que o problema estava na porta USB do equipamento. Neste caso o cliente comprou um A1 para usar neste equipamento e não teve mais problemas. Caso, você queira, tem um tópico dizendo sobre isso é só usar a pesquisa que você vai encontrar. Abraços. Fábio Gabriel

Boa tarde não sai postando em todos o locais que achar interessante já criou um tópico continue nele leia as regras do fórum !

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