PauloAlexandre

Olá, Fiz algumas alterações conforme manual emitido em Janeiro, 2017 Foram incluídos os seguintes retornos 23: Result := '23-Remessa a Cartório'; 24: Result := '24-Retirada de Cartório'; 25: Result := '25-Protestado e Baixado (Baixa por Ter Sido Protestado)'; 46: Result := '46-Liquidação On-line'; 47: Result := '47-Estorno de Liquidação On-line'; 51: Result := '51-Título DDA reconhecido pelo pagador'; 52: Result := '52-Título DDA não reconhecido pelo pagador'; 53: Result := '53-Título DDA recusado pela CIP'; 61: Result := '61-Confirmação de alteração do valor nominal do título'; 62: Result := '62-Confirmação de alteração do valor/percentual mínimo/máximo'; A caixa tem o retorno opcional do arquivo de pré-critica, que analisa o layout do arquivo antes de ser processado. para meus clientes estava aparecendo um erro, então tomei a liberdade de adicionar uma função que faz a verificação da pré critica. Não está completa, ela apenas verifica se na pré critica existem erros. se não existir continua a execução normal do sistema. Estou enviando os arquivos para serem adicionados ao svn. Outra sugestão é na verdade uma pergunta. Se o acbr já foi pensado em ser migrado para o github? Creio que lá é mais simples visualizar o fonte e as alterações sem ter que baixar, além de ter a hospedagem gratuita da documentação. tbm tem suporte ao svn. Obrigado, Boa semana a todos! ACBrBancoCaixa.pas ACBrBoleto.pas CNAB240_SIGCB Janeiro2017.pdf

Olá, essa informação foi atualizada no repositório? Também tive esse problema, está sendo marcado como "liquidado" e não "baixado e enviado para protesto". porém no manual que tenho aqui "CNAB_240_SIGCB-2.pdf" não tem essa opção 23, porém no retorno do arquivo tem. Deu a maior confusão aqui. marcou como liquidado vários títulos que foram para protesto. kkkkkk

Obrigado! Acabei utilizando o Fortes Report https://github.com/fortesinformatica/fortesreport-ce

Era isso mesmo.. compilou..Obrigado! Agora tenho que resolver esse probleminha. Creio que tenho que desabilitar essa propriedade.

Bom dia Fenix, não consegui compilar o exemplo, pode me ajudar? Qual a versão do FastReport devo possuir? uso o XE2 [DCC Fatal Error] fs_isysrtti.pas(581): F2039 Could not create output file 'C:\Program Files\FastReports\LibD16\fs_isysrtti.dcu'

Não funcionou desse jeito pq não estou utilizando nenhum gerador de relatório, estou utilizando direto na impressora. Funcionou assim Printer.Canvas.StretchDraw( Rect(X, Y, X +(BMP.Width*Scale), Y+(BMP.Height*Scale)), BMP); Obrigado!

Consegui fazer a impressão, mas fica pequeno, alguma dica? BarCode := TACBrBarCode.Create(nil); BarCode.Typ := bcCodeEAN8; BarCode.Text := '10203040'; BarCode.BarCode.Width := 500; BarCode.BarCode.Height := 100; BMP := TBitmap.Create; // bmp.HandleType := bmDIB; BMP.Width := BarCode.Width; BMP.Height := BarCode.Height; BarCode.DrawBarcode(BMP.Canvas); Printer.BeginDoc; X := 200; Y := 200; for I := 0 to txt.Count-1 do if (not Printer.Aborted) then begin Printer.Canvas.TextOut(X, Y, txt.Strings[i]); Y := Y + 80; if (Y > (Printer.PageHeight - 300)) then begin Y := 200; Printer.NewPage; // Sleep(1000); // to give you time to abort! end; end; Printer.Canvas.Draw(X, Y, BMP); if (not Printer.Aborted) then Printer.EndDoc;

Boa tarde pessoal! eu consigo exportar ou copiar o TACBrBarCode para um Bitmap para depois imprimir com Printer.Canvas.StretchDraw(rect(0, BarCode.Height, BarCode.Width, 0),BarCode); o que vocês sugerem??