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.

Boa noite, no ACbr existe comando para fechar o Monitor se quiser usar. ACBr.EncerrarMonitor Sds, Ricardo.

Use o Mutex... tratar por nome do Form, costuma falhar, e dar falso positivo com outras aplicações

O ACBrMonitorPLUS usa um mutex para impedir multiplas instâncias, tente usar ele, fiz um pequeno exemplo rápido: uses ..., windows, Process; procedure TForm1.Button1Click(Sender: TObject); var AProcess : TProcess; hnd : THANDLE; begin hnd := CreateMutex(nil, True, 'ACBrMonitor'); if GetLastError = ERROR_ALREADY_EXISTS then MessageDlg('ACBrMonitor','O programa ACBrMonitor já está em execução', mtError, [mbOK], 0) else begin CloseHandle(hnd); AProcess := TProcess.Create(nil); AProcess.Executable := 'c:\ACBrMonitorPLUS\ACBrMonitor.exe'; AProcess.Execute; end; end;

Segue pequena correção no código. ACBrDevice.pas

Bom dia Wagner. Pelo o que entendi, você quer recuperar as chaves de acesso dos MDFe que estão pendentes. Para retornar essas chaves de acesso você pode fazer algo nesse sentido: if ACBrMDFe.WebServices.ConsultaMDFeNaoEnc( SomenteNumeros( xCNPJ ) ) then begin if ACBrMDFe.WebServices.ConsMDFeNaoEnc.cStat = 111 then begin for nPos := 0 to ACBrMDFe.WebServices.ConsMDFeNaoEnc.InfMDFe.Count - 1 do begin ACBrMDFe.WebServices.ConsMDFeNaoEnc.InfMDFe[nPos].chMDFe; //Retorna a chave de acesso ACBrMDFe.WebServices.ConsMDFeNaoEnc.InfMDFe[nPos].nProt; //Retorna o protocolo end; end; end; att

Apliquei uma simplificação no código proposto pelo Waldir... por favor façam alguns testes... ACBrDevice.pas

Renan, como é impressora NÃO FISCAL, faça uma impressão APÓS a impressão do S@T, do seu jeito, à sua maneira, com os teus números, etc. Usamos assim hoje aqui para cupons de gás/água, etc. Seria como se fosse um "CUPOM VINCULADO".

Olá Cristiano, consegui ativar no final da tarde, depois de umas 40 tentativas. Depois de alguns SATs ativados já penso que esse processo de ativação é muito obscuro, tem alguns que ativam de primeira outros já exibem erros cabulosos. Porém se trocar de máquina (recentemente tive que tentar em 3 máquina diferentes) ou esperar horas, essas mensagens somem e tudo funciona normalmente.

Os fontes do ACBr, já foram ajustados para trabalhar com XMLSec em 64 bits...

Boa tarde. Em relação ao processo de homologação do TEF (não me refiro ao equipamento), você deve contatar a empresa referente ao TEF que deseja homologar (Sitef, D-TEF..etc) e solicitar o inicio do processo de homologação. No caso do Sitef o qual somos homologados, você deve realizar um pré-roteiro e enviar a SoftwareExpress e somente então será agendada a certificação, podendo ser presencial ou remota. Att.

Se você ler o documento Manual_Orientacao_SAT_v_MO_2_15_05.pdf, verá que não há nenhuma menção do campo infAdProd

Showwww !!! Já achei o Função e vou testar. Muito obrigado pela dica. Abraço.

Sim - http://www.nfe.fazenda.gov.br/portal/listaConteudo.aspx?tipoConteudo=33ol5hhSYZk= SVN:\\ACBR\Exemplos\ACBrDFe\ACBrNFe Não, SAT atualmente é usado apenas em SP. Veja http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=qBEPLOBzMGs=

Configure corretamente as seguintes propriedades: ACBrNFe1.Configuracoes.Geral.IdCSC := ''; ACBrNFe1.Configuracoes.Geral.CSC := ''; ACBrNFe1Configuracoes.Geral.IncluirQRCodeXMLNFCe := True;

Prezados, boa tarde. Me deparei com esse problema hoje em um dos meus clientes no seguinte cenário: Sistema operacional Windows 10 e Impressora não fiscal Epson TM-T20. Consegui fazer funcionar setando a impressora como Vender Class pelo software da EPSON e associando a porta LPT1 (COM1, COM2, etc não funcionou). Fica a dica caso alguém passe pelo mesmo problema. Abraços.

Para resolver o problema em questao facam o seguinte : 1-Copie a midas.dll mais atual para o diretorio do executavel ; 2-Copie todas as dlls necessárias para o diretorio system32 e registre-as ;