Daniel Simoes

Essa impressão não foi projetada para cheques normais... Acho que nem existe mais... formulários contínuos de cheque...

Você precisa remover os libPaths do Path da máquina, e fazer Override em cada IDE Veja esse link: https://showdelphi.com.br/varias-versoes-do-delphi-instaladas/

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Humm pensei que o retorno com o valor era da balança... O retorno que você informou não faz muito sentido... provavelmente você não configurou os dados seriais corretamente

Por favor descreva melhor... Qual é exatamente o problema ?

Nessa caso, basta você tratar o retorno... algo como MeuPeso := StrToInt( Trim( ACBrBAL1.UltimaResposta) ) / 1000

Apague o arquivo de Cache, e deixe um BkPoint no método abaixo: function TACBrIBGE.UnZipDoc: String; var CT, UnZipStr: String; RespIsUTF8: Boolean; begin UnZipStr := UnZip(HTTPSend.Document); CT := LowerCase( GetHeaderValue('Content-Type:') ); RespIsUTF8 := (pos('utf-8', CT) > 0); if RespIsUTF8 then Result := UTF8ToNativeString(UnZipStr) else Result := UnZipStr; end; Observe se o método UTF8ToNativeString é invocado...

Apliquei modificações que devem atender a sugestão... Mas preservei uma funcionalidade, que acho importante... O programador, poder introduzir um valor na calculadora, antes de Chamar o Execute... Exemplo: procedure TfrExtenso.Button1Click(Sender: TObject); begin ACBrCalculadora1.Valor := 123; ACBrCalculadora1.Execute; end; commit: 17052

Obrigado @volmir.. no SVN, commit: 17051

Verifique com o NotePad++ se o Cache está sendo salvo em UTF8

Sua abordagem parece correta... mas esse assunto é realmente complexo... Infelizmente eu não tenho como ajudar mais, sem debugar no código...

Qual o peso que estaria descrito na balança ?

ok... você pode estudar os fontes do TEFDDemo, na pasta Exemplos... mas é fundamental, ter conhecimento do TEF... Primeiro escolha qual será o gerenciador TEF suportado... Se for trabalhar com o SiTef (líder do mercado), solicite informações de homologação com a SkyTEF - http://www.skytef.com.br/ Se for trabalhar com o Pay&Go: https://www.paygo.com.br/homologue-2/

Você usa Delphi? O ACBrTEFD apenas é suportado em Delphi

O comando de QRCode realmente é diferente do padrão Epson EscPos... e não é equivalente a nenhum das impressoras suportadas atualmente pelo ACBrPosPrinter Não parece ser difícil de implementar... mas isso é impossível, sem um equipamento na bancada, para testes...

Você tem o manual de impressão direta dela ? Manual onde é descrito os comandos EscPos que ela aceita e sintaxe dos mesmos... Pode ser que seja necessária uma atualização do Firmware...

parece ser configuração diferente dos parâmetros da Serial, entre a balança e o componente

Uma maneira simples de pegar o "dump" de comandos... e ligar o arquivo de Log... no PosPrinterTeste.exe basta informar um nome de arquivo... Observe que no Log aparece a tradução... O exemplo abaixo, é o comando enviado para uma Bematech MP4200TH

Veja esse tópico:

Nesse caso esse aparelho jamais poderia emitir um CFe de testes... Verifique se você carregou o CFe correto no componente, antes ds impresao

Se o aparelho de SAT é um SDK para desenvolvimento...ele somente falará com os servidores de homologação e gerará CFe's de teste

Nesse tópico temos informações complementares

Verifique se as configurações da serial da Balança são as mesmas no Monitor... Velocidade, paridade, etc..

Modifiquei o Demo... além do "cast" sem teste, ainda havia um "Memory Leak"... eu particularmente, não gosto de métodos que criam e retornam Objetos... (mas foi implementado dessa maneira) procedure TForm1.btMFEEnviarPagamentoClick(Sender: TObject); var PagamentoMFe : TEnviarPagamento; RespostaPagamentoMFe : TRespostaPagamento; begin RespostaPagamentoMFe := Nil; PagamentoMFe := TEnviarPagamento.Create; try with PagamentoMFe do begin Clear; ChaveAcessoValidador := '25CFE38D-3B92-46C0-91CA-CFF751A82D3D'; ChaveRequisicao := '26359854-5698-1365-9856-965478231456'; Estabelecimento := '10'; SerialPOS := InputBox('SerialPOS','Informe o Serial do POS','ACBr-'+RandomName(8)); CNPJ := edtEmitCNPJ.Text; IcmsBase := 0.23; ValorTotalVenda := 1530; HabilitarMultiplosPagamentos := True; HabilitarControleAntiFraude := False; CodigoMoeda := 'BRL'; EmitirCupomNFCE := False; OrigemPagamento := 'Mesa 1234'; end; if ACBrSAT1.SAT is TACBrSATMFe_integrador_XML then RespostaPagamentoMFe := TACBrSATMFe_integrador_XML(ACBrSAT1.SAT).EnviarPagamento(PagamentoMFe) else RespostaPagamentoMFe := ACBrIntegrador1.EnviarPagamento(PagamentoMFe); if Assigned(RespostaPagamentoMFe) then ShowMessage(IntToStr(RespostaPagamentoMFe.IDPagamento)); finally PagamentoMFe.Free; if Assigned(RespostaPagamentoMFe) then RespostaPagamentoMFe.Free; end; end;