Daniel Simoes

Ainda temos o NFe e CTe pela frente... é difícil dar uma previsão nesse momento... mas estamos todos trabalhando forte, nas Libs...

https://acbr.sourceforge.io/ACBrMonitor/PosPrinter.html

Obrigado pelo Bug Report... já estamos verificando

Antigamente adotamos uma nomenclatura própria... mas com o ingresso de vários DFe's isso deixou de fazer sentido e passamos a adotar a mesma nomenclatura do manual da SEFAZ... Por motivo de compatibilidade a nomenclatura antiga ainda é aceita...

Mude para EscPos e nunca mais se preocupe com problemas semelhantes...

Não há o que possa ser feito do Lado do ACBr... tudo que ele faz, é enviar um relatório para o Spool.. o problema provavelmente está no driver do fabricante.. Mas você poderia resolver o problema, usando a Impressão em Esc/Pos... a Sweda tem uma ótima compatibilidade com a ppEscPosEpson

Nesse caso parece ser um Bug no Driver da Impressora... Se desligar e ligar Impressora, não resolve ?

Sim... mas ainda não temos exemplos ou os Imports para xHarbour... Ela podera ser usada em qualquer linguagem capaz de carregar DLLs..

Você forneceu poucas informações... exemplo:. Você imprime usando EscPos ou Fortes/Fast? Como está configurada a propriedade Porta, no componente?

Tente com as Units em anexo... ACBrECFVirtualSAT.pas ACBrECFVirtualNFCe.pas

Não sei se compreendi corretamente o post... mas aparentemente você quer atribuir um Evento ao componente, em Run Time Algo como: type TMinhaClasse = class private FSAT: TACBrSAT; public property SAT: TACBrSAT read FSAT; end; TMeuForm = class(TForm) private FMinhaClasse: TMinhaClasse; procedure ObtemNumeroSessao(var NumeroSessao: Integer); end; implementation procedure MeuForm.FormCreate() begin FMinhaClasse := TMinhaClasse.Create FMinhaClasse.SAT.OnGetNumeroSessao := ObtemNumeroSessao; end procedure MeuForm.FormDestroy() begin FMinhaClasse.Free; end; procedure MeuForm.ObtemNumeroSessao(var NumeroSessao: Integer); begin NumeroSessao := SeuControleDeSessao(); end;

Verifique qual modelo e quantas colunas ele configurou

Se possível, anexe a imagem, que você quer imprimir...

Modificações para ACBrDANFCeFortesFr.pas já estão no SVN

Não compreendi a alteração... se a consulta não foi executada com sucesso, muito provavelmente não haverá nada em "Inutilizacao.XMotivo"

Lembrando que leitura de informações da Impressora, só funcionaria com portas em TCP ou Serial

A outra única explicação possível, além de BPLs antigas... seria o fato de você ter copias das Units do ACBr (defasadas) em sua pasta de Projeto

JavaScript roda no Browser (Front End) Os componentes do ACBr não são muito úteis no Front End... A resposta está mais do seu lado... a sua linguagem consegue carregar Bibliotecas Dinâmicas (DLL) e fazer uso delas ?

Use o instalador, e marque a opção para remover todas as versões anteriores do ACBr

a Versão Esc/Pos, já está atualizada no SVN, rev 16121

no Lazarus, existe ainda, a seguinte propriedade e método ALabel.OptimalFill := True; ALabel.AdjustFontForOptimalFill;

Tem um código em ACBrDANFCeFortesFr.pas, que ajusta o tamanho da Fonte para menor, até detectar que cabe no Width... procedure TACBrNFeDANFCeFortes.DiminuirFonteSeNecessario(ARLMemo: TRLMemo; TamanhoMinimo: Integer); var ABmp: TBitmap; begin ABmp := TBitmap.Create; try ABmp.Canvas.Font.Assign(ARLMemo.Font); TamanhoMinimo := max(1, TamanhoMinimo); while ABmp.Canvas.Font.Size > TamanhoMinimo do begin if ABmp.Canvas.TextWidth( ARLMemo.Lines.Text ) <= ARLMemo.ClientWidth then Break; ABmp.Canvas.Font.Size := ABmp.Canvas.Font.Size - 1; end; finally ARLMemo.Font.Size := ABmp.Canvas.Font.Size; ABmp.Free; end; end;

Ainda falta alguns ajustes... mas para quem quiser ajudar nos testes... segue em anexo a Unit em EscPos (ainda não enviei para o SVN) ACBrSATExtratoClass.pas ACBrSATExtratoClass.pas

Acho que seja uma rotina de criptografia... Você tem algum Link com a documentação da Serpro ?

Modificações para ACBrNFeDANFeESCPOS já estão no SVN