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.

Olá a todos, Pretendo criar um Wizard visual para desenhar etiquetas e gerar modelos e codigos tanto em Acbr qnto em comando Pl2 como o ZebraDesing. Gostaria de propor um lugar para compartilhar blocos de codigos comuns para modelos de etiquetas: Modelo Impressora : Tamanho/Modelo Etiqueta: Imagem de exemplo: Bloco de Código para gerar na impressora. Ex: Argox: Modelo = etqPpla Gondola_100mm_x_32mm_3_Colunas Sem imagem de exemplo: Codigo: ImprimirTexto(orNormal, 2, 1, 2, 180, 15, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 15, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 10, Etiqueta.Barras, 70); ImprimirTexto(orNormal, 2, 1, 2, 180, 315, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 315, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 315, Etiqueta.Barras, 70); ImprimirTexto(orNormal, 2, 1, 2, 180, 620, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 140, 620, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 20, 620, Etiqueta.Barras, 70); Zebra: epl2 Gondola_100mm_x_32mm_3_Colunas Sem imagem de exemplo: ImprimirTexto(orNormal, 2, 1, 3, 15, 55, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 55, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 55, Etiqueta.Barras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 365, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 365, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 365, Etiqueta.Barras, 080, becSIM); ImprimirTexto(orNormal, 2, 1, 3, 15, 670, Etiqueta.Descr); ImprimirTexto(orNormal, 2, 1, 1, 80, 670, 'R$ ' + Etiqueta.Valor); ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 120, 670, Etiqueta.Barras, 080, becSIM); Argox: etqPpla Gondola_100mm_x_32mm_Simples FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 190, 5, Centraliza(Etiqueta.Descr, 8) ); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 32, 0, Etiqueta.Barras, 90, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 15, 300, 'R$'); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 4, 15, 450, Etiqueta.Valor); //OU centralizada em 3 linhas sHorizontal := retornaHorizontal(Etiqueta.BarCode, Etiqueta.Barras); //Original Code: Descricao, valor e barras centralizadas horizontalmente FACbrEtiqueta.ImprimirTexto(orNormal, 3, 1, 2, 0220, 0080,Centraliza(Etiqueta.Descr, 3)); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '9', '3', 0010, StrToInt(sHorizontal), Etiqueta.Barras, 100, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 5, 1, 1, 0150, 0080, centraliza('R$ ' + Copy(Etiqueta.Valor, 0, 8), 5)); Zebra :epl2 Gondola_100mm_x_32mm_Simples FACbrEtiqueta.ImprimirTexto(orNormal, 2, 2, 2, 15, 55, Centraliza(Etiqueta.Descr, 8)); FACbrEtiqueta.ImprimirBarras(orNormal, Etiqueta.TipoBarCode, '2', '2', 95, 55, Etiqueta.Barras, 90, becSIM); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 3, 2, 110, 355, 'R$'); FACbrEtiqueta.ImprimirTexto(orNormal, 3, 4, 5, 85, 515, Etiqueta.Valor); Caso tenham modelos para trocar me enviem no email: [email protected] Obrigado.

Olhando o seu log, a forma de pagamento 04 não permite vinculado, como você utilizou ela o TEF tenta abrir o vinculado, como ela não permite, é mostrado o erro de retentar, o usuário clicou em SIM, então o ACBrTEFD tenta imprimir via gerencial, isso está errado, você deveria ter programado a forma de pagamento para permitir vinculado ou ter utilizado uma forma de pagamento que permitisse, como está não vai dar certo mesmo.

Marcos coloquei o valor que voce falou mais mesmo assim continuo recebendo "Consumo Indevido" tem alguma outra ideia ? Percebo também uma grande demora para receber a mensagem de consumo indevido. Aguardo Rodrigo Chiva

Boa tarde! Coloquei 5000 e até o momento não deu mais erro de consumo indevido! Estava 1000. Valeu!

Prezado Edson Parabens pela iniciativa de separar o projeto, visto que o mesmo (até onde sei) não será integrado ao projeto por motivos óbvios. Boa sorte

Você tem que dar um Update e não Commit

Só para "desenhar" o que o Kiko disse, veja o anexo:

Pelo log você está utilizando o método ArquivoMF_DLL quando o correto seria PafMF_ArqMF e PafMF_ArqMFD, o primeiro método (ArquivoMF_DLL) realmente não gera o arquivo .txt, somente os dois métodos corretos.

Boa tarde pessoal. Em respeito aos colaboradores do ACBr, e para não poluir o fórum com um projeto "polêmico", criei um projeto no SourceForge, para dar continuidade à unit. O link é: https://sourceforge.net/projects/recuperaxml/ Lá tem fórum também, sugiro que postem suas dúvidas e sujestões lá. Postei a última versão do ACBrHTMLtoXML.pas, revisada pelo colega Solivan, que parece que é a mais completa no momento. Na minha modesta opnião, o projeto não faz mal nenhum a ninguém, pode apenas servir para uns e não servir para outros. Poderia até ficar no SVN do ACBr, pois seria um lugar a menos pra procurar. No meu caso, por exemplo, sempre tenho consulta de escritórios de contabilidade, querendo ajuda na captura de consulta de NFe, principalmente nas notas de entrada, pois as de saída são enviadas pelos clientes aos seus contadores. Imagine uma nota com 800 ítens, sendo lançada manualmente na contabilidade. Vai um dia inteiro de digitação e depois outro pra achar um erro de centavos. Importando o XML (original, de preferência), são apenas alguns segundos. Todos estamos carecas de saber (e cansados de cobrar) os fornecedores, alguns enviam certinho, outros não. Tem os fornecedores pequenos, que usam o emissor gratuito da receita federal, que nem xml gera automático, tem que "exportar", depois enviar o xml por e-mail, e estes ainda acham que o DANFe é a NFe. []´s Edson.

Boa tarde! Também consegui autorizar mas fica dando Consumo indevido. Depois disso faço consulta na nota e ela está autorizada. Se tiverem alguma dica me passem por favor! Obrigado!

Boa tarde, O problema nem chega a ser na impressão, deve ser na função GerarChaveContingencia do ACBrNFeUtil.pas que não foi alterada ainda com as novos tipos de impressão. Atualizei as units com as alterações da impressão NFC-e em FastReport e atualizei também com as novas alterações do svn do ACBr. Segue em anexo. Aproveitando, para geração do QRcode existe uma unit em Pascal chamada DelphiZXingQRCode desenvolvida pela empresa Debenu e liberada open-source, neste link tem a unit e um exemplo de como utilizá-la. Se o ACBr tiver interesse em implementar a impressão da NFCe talvez seria interessante "envelopar" as funções desta unit e gerar um componente do ACBr da mesma forma que foi feito com o ACBrBarCode envelopando o AJBarcode.