Fenix

Bom dia wandersonkd Estamos com problema de telefone/internet desde segunda-feira, estou conseguindo enviar pelo 3g desculpe a demora. O Modelo Carne não vejo como alterar, acho que nesse deveria constar essa informação na capa ou contra capa do Carne. Abraços. BoletoFR.zip

Olá wandersonkd No modelo fatura está desta forma, você observou? Qual modelo você utiliza? Esse layout foi gerado de uma forma que é difícil a manutenção dele, por isso, no modelo Carne e no BoletoFC, realmente não adicione o campo endereço, vou adicionar esse campo e envio, mas como vai levar um tempinho para mudar a estrutura do layout só vou conseguir fazer no final de semana. Conforme a solicitação do Itaú, precisa ter duas linhas no local de pagamento e para isso preciso ver com os moderadores, se pode incluir um local de pagamento 2 ou passar a string com quebra de linha e também preciso ver se o fastreport permite isso.

Olá Adicionei em anexo todos os modelos. Abraços boleto.zip

Obrigado pela contribuição de ambos arieldll e jonathan-augusto.

Amigo, Verifica se esse link te ajuda: http://flexdocs.com.br/FAQ/viewtopic.php?p=467&sid=8fa9663ba77c6442bd8554ea46a7e754

Olá pessoal, Estou enviando o arquivo atualizado em um novo post, pois vi que já foi baixado algumas vezes no anterior. Estava quebrando a cabeça para entender o, por que, do pdf do boleto estava ficando com 239 kb, depois de fazer vários testes descobri que era uma opção ativa no componente que gera o pdf para exportar o Background, depois que desativei o pdf foi para 68 kb, isto é, menos de 70%. Acho que é fundamental essa alteração, pois o envio de e-mail estava demorando muito. frxPDFExport.Author := SoftwareHouse; frxPDFExport.Creator := SoftwareHouse; frxPDFExport.Producer := SoftwareHouse; frxPDFExport.Title := TITULO_PDF; frxPDFExport.Subject := TITULO_PDF; frxPDFExport.Keywords := TITULO_PDF; frxPDFExport.Background := false; // isso faz diminuir 70% do tamanho do pdf ACBrBoletoFCFR.zip

Olá, Segue mais algumas alterações no ACBrBoletoFCFR.pas para deixar no mesmo padrão da geração do pdf do danfe. frxPDFExport.Author := SoftwareHouse; frxPDFExport.Creator := SoftwareHouse; frxPDFExport.Producer := SoftwareHouse; frxPDFExport.Title := TITULO_PDF; frxPDFExport.Subject := TITULO_PDF; frxPDFExport.Keywords := TITULO_PDF; ACBrBoletoFCFR.zip

Bom dia Paulo. Se estiver usando o que postei, isto é, junto com o fastreport, você precisa especificar o local do layout do boleto na seguinte propriedade ACBrBoletoFCFR1.FastReportFile := "informe o caminho do arquivo", lembrando que esse componente tem que está vinculado ao acbrboleto. Abraços

Olá Daniel. Desculpe mas acho que não entendeu... o assunto é sobre o banco do brasil, não entendi sua colocação. Pois o erro é referente ao tamanho fixo no arquivo acbrbrancobrasil.pas

Olá Abilosck Na pasta exemplos\acbrboleto tem um demo que vai te ajudar, para adiantar segue os campos: ACBrBoleto.Banco.TipoCobranca := BancoCodigoToACBrTipoCobranca(ObjBoletoConfiguracao.BANCO_CODIGO); // ACBrBoleto.DirArqRemessa := ObjBoletoConfiguracao.CAMINHO_ARQUIVO_REMESSA; // ACBrBoleto.DirArqRetorno := StringReplace(ObjBoletoConfiguracao.CAMINHO_ARQUIVO_RETORNO, '/', '\', [rfReplaceAll]); ACBrBoleto.LayoutRemessa := LayoutRemessaToACBRLayoutRemessa(ObjBoletoConfiguracao.REMESSA_LAYOUT); ACBrBoleto.Cedente.Nome := objEmpresa.RAZAO_SOCIAL; ACBrBoleto.Cedente.Agencia := ObjBoletoConfiguracao.BANCO_AGENCIA_CODIGO; ACBrBoleto.Cedente.AgenciaDigito := ObjBoletoConfiguracao.BANCO_AGENCIA_DIGITO; ACBrBoleto.Cedente.CaracTitulo := CarteiraTipoToACBrCaracTitulo(ObjBoletoConfiguracao.CARTEIRA_TIPO); if ACBrBoleto.Cedente.AgenciaDigito = '' then ACBrBoleto.Cedente.AgenciaDigito := '0'; ACBrBoleto.Cedente.CNPJCPF := objEmpresa.Cnpj; ACBrBoleto.Cedente.Conta := ObjBoletoConfiguracao.CONTA_CAIXA_CODIGO; ACBrBoleto.Cedente.ContaDigito := ObjBoletoConfiguracao.CONTA_CAIXA_DIGITO; ACBrBoleto.Cedente.CodigoCedente := ObjBoletoConfiguracao.CEDENTE_CODIGO; ACBrBoleto.Cedente.Convenio := ObjBoletoConfiguracao.CONVENIO_CODIGO; ACBrBoleto.Cedente.Modalidade := ObjBoletoConfiguracao.VARIACAO; ACBrBoleto.Cedente.Logradouro := objEndereco.Logradouro + ', ' + objEndereco.Numero; ACBrBoleto.Cedente.Complemento := objEndereco.Complemento; ACBrBoleto.Cedente.Bairro := objEndereco.Bairro; ACBrBoleto.Cedente.CEP := objEndereco.CEP; ACBrBoleto.Cedente.Cidade := objEndereco.Cidade; ACBrBoleto.Cedente.UF := objEndereco.UF;

Olá Jacinto. Removi o campo pagamento. Evitei alterações para não demorar a atualização no repositório. Att, Paulo

Bom dia Gipidan, Olhe esse post, acho que vai te ajudar:

Bom dia a todos! Fiz mais algumas melhorias, segue o arquivo atualizado. Sem mudar nada no funcionamento que já existia! Arquivo em anexo atualizado: 07/05/2014 ACBrBancoBrasil.zip

Olá Moderador, Realmente tem bastante campos com posições diferente do layout de 6 posições. Implementei a leitura e para não atrapalhar no código atual fiz a seguinte verificação: procedure TACBrBancoBrasil.LerRetorno400(ARetorno: TStringList); var TamConvenioMaior6: Boolean; begin TamConvenioMaior6:= Length(trim(ACBrBanco.ACBrBoleto.Cedente.Convenio)) > 6; if TamConvenioMaior6 then LerRetorno400Pos7(ARetorno) else LerRetorno400Pos6(ARetorno); //Layout de Arquivo Retorno para Convênios na faixa numérica entre 000.001 a 999.999 (Convênios de até 6 posições) Versão Set/09 end; Sendo assim, não vai alterar nada para os convênios com mais de 6 posições. Por favor, avaliem e se estiver tudo ok, enviem para o repositório. Grato.

Boa tarde Pessoal, Por favor, poderiam me passar para qual layout do retorno do banco do brasil, o componente está preparado? Pois tenho um cliente que o convenio é de 6 posições, quando fiz a leitura reparei que os dados estavam estranhos, quando fui validar pelo layout do banco, verifiquei que realmente está preparado para outro layout. Se não está preparado para o convênio de 6 posições, posso implementar para vocês adicionarem no componente ou é melhor fazer a leitura de forma independente do componente? Grato

Na verdade o erro da comparação que citou é devido o tamanho da conta está fixo com 12 dígitos e o correto seria 8. constructor TACBrBancoBrasil.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito := 9; fpNome := 'Banco do Brasil'; fpNumero := 001; fpTamanhoMaximoNossoNum := 0; fpTamanhoConta := 12; fpTamanhoAgencia := 4; fpTamanhoCarteira:= 2; end;

Entendo, mas o tamanho da conta, acho que é padrão certo? Que inclusive na leitura do arquivo do retorno (cnab 400) pega as 8 posições rConta := trim(Copy(ARetorno[0],32,8)); Poderia por favor, só alterar o tamanho da conta? Grato

Por favor, algum moderador poderia avaliar e subir a unit que o Jacinto compartilhou. Um exemplo é o erro do tamanho da conta que está com 12 e o certo é 8 e o Jacinto já realizou a mudança. Esse erro no tamanho da conta, impede de ler o arquivo retorno, pois o banco envia com 8 e no acbrboleto seta o cedente.conta com 12 dígitos e quando chega na validação da conta do arquivo retorno dá erro de conta invalida.

Boa tarde Wendel No Acbrboleto não havia a opção para definir a impressora, como estava no mesmo impasse que você, adicionei o recurso. Só definir a impressora em ACBrBoletoFCFR1.Impressora := ImpressoraPadrao(); Adiciono a impressora padrão com o função abaixo: uses Printers; function ImpressoraPadrao() : string; begin Printer.PrinterIndex := -1; Result := Printer.Printers.Strings[Printer.PrinterIndex]; end; Moderador, por favor, avalie a alteração e se estiver ok, envia para o repositório, segui o padrão. ACBrBoletoFCFR.zip

Olá Juliomar, Desculpe, não sabia. A próxima envio o arquivo. Enviei em outro post o fr3 do modelo Fatura. Abraços.

Olá amigos. Também precisei criar o Modelo fatura, como utilizo o fastreport segue layout em anexo. Quase criei um campo Demonstrativo do tipo tstringlist, mas como vi que havia um campo TextoLivre utilizei ele para o demonstrativo da fatura. No layout ativei a opção que permite tag html, neste campo. Abraços BoletoFatura FR.zip

Olá, Por favor, moderador, poderia adicionar a seguinte linha no ACBrBoletoFCFR.pas: Linha 288 frxPDFExport.ShowProgress := MostrarSetup; Isso vai evitar de aparecer o processo na geração do pdf, como minha aplicação é multicamada do lado do servidor fica aparecendo o processo para cada boleto gerado. Obrigado. fiPDF: begin frxPDFExport.FileName := NomeArquivo; frxPDFExport.ShowDialog := MostrarSetup; frxPDFExport.ShowProgress := MostrarSetup; frxReport.Export(DmBoleto.frxPDFExport); if frxPDFExport.FileName <> NomeArquivo then NomeArquivo := frxPDFExport.FileName; end;

Olá madalozzo, Analisei sua classe e não vi o tratamento para operações para zona franca (suframa e amazonia ocidental). Obrigado pela iniciativa.

Bom dia! Obrigado pela dica FocusRJ/Juliomar. FocusRJ, se conseguir, passa por escrito as etapas que seguiu para desativar, caso o video seja removido, os colegas que pesquisarem futuramente podem fazer o seu passo a passo. Grato

Bom dia, Claudemir! Obrigado por compartilhar. Irei iniciar os testes o mais breve. Abraços.