Daniel Simoes

Mais uma vez você está correta... Obrigado pelo excelente bug report.. ( Acho que o problema ocorreu após um refactoring ) Rev: 6385

A AFRAC promoveu uma reunião com o Fisco de SP sobre isso... Mais informações, favor contactar a AFRAC

Oi Larissa, Muito obrigado pelas suas correções... Acabo de subi-las para o SVN... Rev.:6384

Veja o erro que aparece na tela do emulador do SAT

Provavelmente sua BPL está procurando alguma propriedade (ou evento) que não existe no código atual do ACBrTEFD... Recomendo remover o todos os Package do ACBr, e fazer uma nova instalação...

Até onde eu sei não existe...

Pode ser alguma coisa entre String e AnsiString da sua versão do seu Delphi... Apague e re-escreva o método: ACBrSAT.OnGetCodigoDeAtivacao

Acho que a Bematech ainda não lançou nada sobre o SAT Use a DLL da Kryptus http://www.kryptus.com/#!kryptus-st---equipamento-cf-e-sat-/c1gcz

Realmente estava errado... Da maneira como estava implementado, a chamada ao WriteToTXT iria adicionar novas informações no final do arquivo existente, ao invés de criar um novo arquivo... (além de uma quebra de linha a mais) Apliquei uma possível correção no SVN...

Por favor anexe o Log para analise...

Provavelmente o equipamento não é plenamente compatível... Lembro que no caso da Bematech, a mesma só consegue imprimir o QRCode, após uma atualização do Sw.Básico...

O arquivo TACBrSATExtratoESCPOS.pas já imprime todo o Comprovante, usando comandos ESC P/2 internos da Epson, ou seja, a própria impressora gera o QRCode... Hoje em dia, acredito que todas as impressoras não fiscais, possuem esse recurso... A dificuldade é compreender os comandos "nativos" da impressora... Mas seguindo o modelo de TACBrSATExtratoESCPOS.pas, poderiamos ter um Comprovante semelhante todo feito em FastReport, por exemplo... e usando um componente ou DLL de terceiro para gerar a imagem do QRCode... Muito semelhante os componentes existentes para a DANFE do ACBrNFe2

Realmente parece ser um problema de Hardware... Do lado do Aplicativo, acho que seria impossível enviar um comando que causasse esse tipo problema... Mesmo que fosse, seria um sério bug do Sw.Básico do ECF.

Você poderia criar um novo componente do Tipo TACBrSATExtratoClass, seguindo o exemplo do componente já existente ( TACBrSATExtratoESCPOS ), e nele implementar a sua própria rotina de impressão... usando um QRCode de terceiros, por exemplo

Baixe os fontes do ACBr, usando SVN ( a instruções na página do projeto ) Cada fabricante disponibilizará sua própria DLL

Qual a dificuldade de enviar outro comando de texto, com o numero abaixo do código de barras ?

Você testou no Demo do ACBr ? Alguns códigos de barras devem seguir uma formatação específica, como por exemplo apenas números, um numero fixo de caracteres, etc..

A modificação ocorreu na linha 690 de Unit1.pas mVenda.Lines.Text := ACBrSAT1.CFe.GetXMLString( True ) ;

O método AtivarSAT não deve ser chamado a cada inicialização do componente... Ele serve para inicializar o SAT e não o componente

Acho que você não leu esse post: Use o programa do Fisco para Ativar o Emulador do SAT... siga as instruções do Documento fornecido pelo Fisco

Claro que não... a DLL do Fisco foi projetada para falar apenas com o Emulador... Cada fabricante terá uma maneira diferente de se comunicar pela USB... Porém todas as DLLs terão o mesmo nome e a mesma assinatura... mudando talvez a maneira de carrega-la (estática, dinâmica; stdcall, cdecl, etc)

Seu pensamento não está correto... Como a Dll do fisco saberia conversar com diferentes portas USB ??

Pelo que li nos fontes... o método TACBrHTTP.HTTPMethod de ACBrSocket.pas já faz um tratamento de / para UTF8... Mas acho que é necessário mais estudos... - Como ficam as demais chamadas a ACBrStr() dentro de ACBrConsultaCPF.pas ? (Todas precisam ser removidas ?) - Testes em D7 - Testes em XE5

Ficaria algo como: procedure TForm1.ACBrSAT1GetcodigoDeAtivacao(var Chave : String) ; begin Chave := edtCodigoAtivacao.Text; end;

Acredito que não... só testando... ( Imaginei que você estava falando de uma Impressora Epson)