Pesquisar na Comunidade

Foi realizada a seguinte modificação na unit ACBrSATExtratoESCPOS.pas, na procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento: procedure TACBrSATExtratoESCPOS.GerarDadosCancelamento; Var ChaveEmUmaLinha, Suporta128c : Boolean; Chave, TagCode128 : String; QRCode: AnsiString; begin FBuffer.Add('</fn></linha_simples>'); FBuffer.Add(ACBrStr('</ce><n>DADOS DO CUPOM FISCAL ELETRÔNICO DE CANCELAMENTO</n>')); FBuffer.Add('</ce>SAT No. <n>'+IntToStr(CFe.ide.nserieSAT)+'</n>'); FBuffer.Add(FormatDateTimeBr(CFeCanc.ide.dEmi + CFeCanc.ide.hEmi)); Chave := FormatarChaveAcesso(CFeCanc.infCFe.ID); if Length(Chave) > FPosPrinter.ColunasFonteCondensada then Chave := OnlyNumber(Chave); if not FPosPrinter.ConfigBarras.MostrarCodigo then FBuffer.Add('<c>'+Chave+'</fn>'); Suporta128c := (FPosPrinter.TagsNaoSuportadas.IndexOf(cTagBarraCode128c) < 0); TagCode128 := IfThen(Suporta128c,'code128c', 'code128' ); ChaveEmUmaLinha := (ImprimeChaveEmUmaLinha = rSim) or ((ImprimeChaveEmUmaLinha = rAuto) and Suporta128c); if not ChaveEmUmaLinha then begin FBuffer.Add('<' + TagCode128 + '>'+copy(CFeCanc.infCFe.ID,1,22)+'</' + TagCode128 + '>'); FBuffer.Add('<' + TagCode128 + '>'+copy(CFeCanc.infCFe.ID,23,22)+'</' + TagCode128 + '>'); end else FBuffer.Add('<' + TagCode128 + '>'+CFeCanc.infCFe.ID+'</' + TagCode128 + '>'); if ImprimeQRCode then begin QRCode := CalcularConteudoQRCode( CFeCanc.infCFe.ID, CFeCanc.ide.dEmi+CFeCanc.ide.hEmi, CFeCanc.Total.vCFe, Trim(CFeCanc.Dest.CNPJCPF), CFeCanc.ide.assinaturaQRCODE ); FBuffer.Add('<qrcode_tipo>2</qrcode_tipo>'+ '<qrcode_error>0</qrcode_error>'+ '<qrcode>'+QRCode+'</qrcode>'); end; if MsgAppQRCode <> '' then FBuffer.Add('</ce><c>' + QuebraLinhas(MsgAppQRCode, FPosPrinter.ColunasFonteCondensada )); if (SoftwareHouse <> '') or (Site <> '') then FBuffer.Add('</linha_simples>'); // SoftwareHouse if SoftwareHouse <> '' then FBuffer.Add('</ce><c>' + SoftwareHouse); if Site <> '' then FBuffer.Add('</ce><c>' + Site); FBuffer.Add('</zera>'); if FPosPrinter.CortaPapel then FBuffer.Add('</corte_total>') else FBuffer.Add('</pular_linhas>'); end; No rodapé da impressão do SAT, são apresentados os dados da Software House e o Site. Porém, na impressão do cancelamento não é impresso. É necessário que os dados da Software House e do Site sejam apresentados no rodapé da impressão do cancelamento do SAT. Foram realizados diversos testes de impressão e não foi apresentado nenhum problema. Estou utilizando a revisão número 15238 da unit. ACBrSATExtratoESCPOS.pas

Ola pessoal Estou usando o exemplo que vem com ACBr para emitir o cupom via escPos, o cupom sai corretamente mas sem o qrCode, ja verifiquei se está habilidado (ACBrSATExtratoESCPOS1.ImprimeQRCode := True) Estou deixando a marca da Impressora como iEpson Já fiz uma pesquisa e nao achei nada que me ajuda-se. Qualquer dica será muito util. Obrigado.

Olá Boa Tarde. Faço a impressão do cupom normalmente via ACBrSATExtratoESCPOS, porém quando adicionou uma PictureLogo junto ao componente a impressão da logo não ocorre. Não consegui encontrar alguma propriedade que defina se deve ou não imprimir a logo marca no extrato...alguém passou pela mesma situação ou sabe me dizer se existe essa tal propriedade de impressão da logo ? Agradeço a atenção.

Boa tarde! Alguem poderia me informar por favor como definir a porta de impressão no ACBrSATExtratoESCPOS para a impressora Elgin i9? Eu atualizei pra versão Truck2, fiz os ajustes referentes ao SAT para o novo ambiente, mas na anterior também não conseguia. Na Bematech (MP4200 por exemplo), eu defino uma porta COM virtal que é criada, porém na Elgin isto não existe, apenas o driver do dispositivo de impressão. Tentei colocar o nome do driver que foi criado em na lista de impressoras do Windows, mas nada, tentei USB-003 (que é o que está definido na impressora) e nada também. Já não sei mais onde buscar. Procurei bastante aqui no forum, mas não vejo nada sobre isto, os assuntos são outros, mas nada referente sobre porta de impressão. Se alguem tiver alguma dica fico muito agradecido. Abraço! Emerson Crema Max Scalla Informática.

Boa tarde a todos, Estou entrando em contato pelo meu usuário, pois não consigo acessar com a conta da TDP (SAC) estou tentando dificuldade em acessar com nosso usuário. Em um contato anterior com usuário da TDP Sistemas de Informação, falei com o Daniel Simões sobre algumas necessidades de alterações no ACBrSATExtratoESCPOS.pas; Não é erro que encontramos, apenas tivemos a necessidade de alterar o espaçamento. Foi criado nesse .pas em anexo as seguintes property: property LinhasEntItens : Integer read FLinhasEntItens write FLinhasEntItens default 0; property LinhasEntTotais : Integer read FLinhasEntTotais write FLinhasEntTotais default 0; property LinhasEntPagamentos : Integer read FLinhasEntPagamentos write FLinhasEntPagamentos default 0; property LinhasEntDadosEntrega : Integer read FLinhasEntDadosEntrega write FLinhasEntDadosEntrega default 0; property LinhasEntRodape : Integer read FLinhasEntRodape write FLinhasEntRodape default 0; Fizemos pois na Impressora Epson estava saindo muito junto a impressão. Não sei dizer como está saindo a Impressão na Bematech. Estou anexando para analise de vocês, pelo nossos testes está OK. Espero que tenha ajudado e não ter feito nada de errado. Desde já agradeço pela atenção. ACBrSATExtratoESCPOS.pas