Embrati

Primeiramente, muito obrigado pelo rápido retorno. Esses dados são preenchidos pelo aparelho, mas na ativação também não foi informado isso. Por acaso ele busca do cadastro da empresa na SEFAZ ?

Boa tarde pessoal... Desculpem a ignorância, mas realmente não consegui entender como alterar o nome e o endereço do emitente... abaixo seguem únicas informações que achei, quais são os demais campos ? // emitente Config.emit_CNPJ := SatHomologacaoEmitenteCnpj; Config.emit_IE := SatHomologacaoEmitenteIE; if trim(SatHomologacaoEmitenteIM)<>'' then Config.emit_IM := SatHomologacaoEmitenteIM;

Olá pessoal, sei que o assunto é antigo, mas estou precisando da tabela de tipos para PPLA e vi que estava no caminho https://acbr.svn.sourceforge.net/svnroot/acbr/tools/Argox/ mas esse URL não existe mais. Onde posso encontrar agora ? Obrigado pela atenção.

Migrei.... obrigado !!

Pessoal, boa tarde... O Difal não foi implementado no ACBR Trunk 1 ? Não consigo inserir os campos... Alguém pode ajudar por favor ?

boa tade, reativando o post... onde consigo o instalador do fortes reporte para o trunk 1 ?

Excelente, muito obrigado !!!!

Bom dia amigos, Sei que substituíram o Trunk pelo Trunk2 e que isso gerou diversas melhorias, porem ainda não adequei meu código para ele e preciso ainda usar o Trunk. Onde consigo a ultima versão funcional do Trunk, uma vez que o mesmo foi removido do SVN ?

Sérgio, muito obrigado pelo retorno. Vou passar essa informação ao cliente, mas me diz uma coisa, você tem preferencia por alguma das marcas ?! Seja por preço, facilidade de compra e de suporte, garantia, etc.

Prezados, bom dia. Gostaria de saber quais equipamentos SAT são compatíveis com o componente ACBR-SAT e qual o mais indicado por vocês, com relação a custo beneficio. Estou precisando desenvolver a integração no meu sistema, gostaria de saber também se alguém pode me dar uma consultoria sobre o assunto. Att. Fábio Salviano

Por gentileza, reconsidere... Esse layout pode ser muito utili para toda a comunidade que utiliza o QuickReport e posso ficar responsável por qualquer manutenção necessária nesse código. Trata-se de um layout simples, confira no anexo, que já atende ao padrão dos bancos e esta dentro de uma UNIT que já trabalha com o QuickReport. As Units AcbrBoletoFCQuickFR contam agora com o Filtro de PDF para salvar na visualização. Posso também arcar com o custo de adiciona-lo, pois me pouparia o retrabalho de adequar o fonte do ACBR toda vez que eu baixar a atualização. ACBrBoletoFCQuickFr.dfm ACBrBoletoFCQuickFr.pas ACBrBoleto.pas boleto.PDF

Boa tarde Montei um novo layout para boleto do QuickReport onde o mesmo permite a inclusão de um grande texto onde coloco o demonstrativo da cobrança. Por favor, alguém poderia adicionar esse novo layout para o SVN ? Ele já foi aprovado e esta em uso no Santander. Seguem Units atualizadas. agradeço pela atenção. ACBrBoleto.pas ACBrBoletoFCQuickFr.dfm ACBrBoletoFCQuickFr.pas

Bom dia... Estou precisando de um layout que possibilite um longo texto de detalhamento da cobrança, onde teríamos o recibo do sacado mais resumido na parte superior, depois um longo espaço para texto e por ultimo o boleto propriamente dito. Seria essa minha descrição o lFatura que vocês falam ? Vou desenvolve-lo usando esse parametro, vcs veem algum problema ? Passo os fontes assim que estiver pronto.

Bom dia... Acredito que tenha a ver com o campo Titulo.Carteira, onde você deve informar o código da carteira contratada no banco. Essa carteira é o que determina se será com registro ou sem, se será com protesto ou sem. Veja qual valor você esta colocando no campo e qual valor o banco determina que seja colocado para a forma como você deseja trabalhar.

Segui esses passos e deu tudo certo, MUITO OBRIGADO !!!

Desculpe, trata-se de desespero... Prazo vencido e código aparentemente ok, mas não da o resultado esperado... Vontade de jogar impressora pela janela... kkkkk Pode me ajudar ?

Olá, Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta. No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva. ----------------------------- | | | ---------------------------| | | | | | ----------------------------- Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta. Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq: AtivarACBrETQ; with ACBrETQ do begin ImprimirTexto(orNormal, 1, 1, 1, 0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO); Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text)); Desativar; end; Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm. Alguém pode me ajudar POR FAVOR ???

Olá, Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta. No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva. ----------------------------- | | | ---------------------------| | | | | | ----------------------------- Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta. Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq: AtivarACBrETQ; with ACBrETQ do begin ImprimirTexto(orNormal, 1, 1, 1, 0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO); Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text)); Desativar; end; Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm. Alguém pode me ajudar POR FAVOR ???

Olá, Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta. No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva. ----------------------------- | | | ---------------------------| | | | | | ----------------------------- Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta. Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq: AtivarACBrETQ; with ACBrETQ do begin ImprimirTexto(orNormal, 1, 1, 1, 0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO); Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text)); Desativar; end; Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm. Alguém pode me ajudar POR FAVOR ???

Olá, Estou tentando criar um modelo de impressão de etiquetas para óticas onde utilizo uma etiquetas que tem uma parte que passa pela haste, volta e é colada entre duas partes dobráveis da etiqueta. No desenho abaixo, a linha vertical no centro mostra onde ela é dobrada e a linha horizontal a esquerda mostra a parte que envolve a haste do óculos, volta e depois é colada entre as duas partes dobradas. A etiqueta é autoadesiva. ----------------------------- | | | ---------------------------| | | | | | ----------------------------- Outro detalhe é que essa parte da etiqueta que envolve a haste passa pelo sensor de GAP, então não posso usa-lo pois não representa inicio e fim da etiqueta. Abaixo segue código que adicionei a um botão no exemplo do componente ACBrEtq: AtivarACBrETQ; with ACBrETQ do begin ImprimirTexto(orNormal, 1, 1, 1, 0, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 21, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 28, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 35, 155, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 0, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 7, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirTexto(orNormal, 1, 1, 1, 14, 257, 'XXXXXXXXXXXXXXXXXXXXXXX'); ImprimirBarras(orNormal, '2', '5', '2', 21, 257, '0123456789', 15, becNAO); Imprimir(StrToInt(eCopias.Text), StrToInt(eAvanco.Text)); Desativar; end; Temos uma Argox OS-214 Plus novinha, já a reiniciei diversas vezes, uso padrao PPLB e o problema é que nenhum valor que eu coloque em Avanço da certo. O avança é sempre de 7mm. Alguém pode me ajudar POR FAVOR ???

seguem anexos conforme orientado. ACBrBoletoFCQuickFr dfm.txt ACBrBoletoFCQuickFr pas.txt ACBrBoletoFCQuickFr dfm.txt ACBrBoletoFCQuickFr pas.txt

Não tenho autorização no forum para enviar, seguem procedures atualizadas. uses SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto, QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode, {$IFDEF Delphi7}QRPDFFilt,{$ENDIF}QRWebFilt; procedure TACBrBoletoFCQuickFr.FormCreate(Sender: TObject); begin fBoletoFC := TACBrBoletoFCQuick(Owner) ; // Link para o Pai txtSwHouse.Caption := BoletoFC.SoftwareHouse ; QRLabel2.Caption := BoletoFC.SoftwareHouse ; QRLabel91.Caption := BoletoFC.SoftwareHouse ; ACBrBarCode1.Width := imgBarra.Width ; ACBrBarCode1.Height:= imgBarra.Height ; ACBrBarCode1.Ratio:=3; ACBrBarCode1.Modul:=1; end; procedure TACBrBoletoFCQuick.Imprimir; var frACBrBoletoQuick : TACBRBoletoFCQuickFr; RLLayout: TQuickRep; //MultiExport : TQRMultiExport ; FiltroExportacao: TQRPAbstractExportFilter; //HTMLFilter : TQRHTMLDocumentFilter ; begin inherited Imprimir; // Executa verificações padroes frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self); try with frACBrBoletoQuick do begin case LayOut of lCarne : RLLayout:= BoletoCarne; lPadraoEntrega : RLLayout:= LayoutPadraoEntrega; else RLLayout := LayoutBoleto; end; RLLayout.PrinterSettings.Copies := NumCopias ; case Filtro of fiPDF : begin {$IFDEF Delphi7} FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); finally FiltroExportacao.Free; end; {$ENDIF} // MultiExport := TQRMultiExport.Create(self); // try // MultiExport.Report := RLLayout ; // MultiExport.ExportFormat := qrxPDF ; // MultiExport.FileName := NomeArquivo ; // MultiExport.ShowDialog := MostrarSetup ; // MultiExport.DPI := 300 ; // MultiExport.DoExport ; // finally // MultiExport.Free ; // end ; end ; fiHTML : begin (* Codigo abaixo comentado pois não funciona... HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo ); try RLLayout.ExportToFilter( HTMLFilter ); finally HTMLFilter.Free ; end ; *) raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ; end ; else begin if MostrarPreview then RLLayout.PreviewModal else begin if MostrarSetup then RLLayout.PrinterSetup ; if (RLLayout.Tag = 0) then RLLayout.Print; end ; end end ; end ; finally frACBrBoletoQuick.Free ; end; end;

Sugiro também a adição das seguintes linhas no create do form 630 : QRLabel2.Caption := BoletoFC.SoftwareHouse ; 631 : QRLabel91.Caption := BoletoFC.SoftwareHouse ;

Ainda tenho problemas com envio de boleto por e-mail e geração do arquivo em PDF. Essas adequações, incluindo a diretiva, ainda não foram colocadas no SVN ? Tem previsão de quando vai colocar ? Agradeço pela atenção...

Segue Unit. ACBrBoleto.pas