Giovani Reis

boa tarde. estou com problema ao ler o Retorno do Banco do Brasil no Cnab 240. Utilizo convenio com 6 posições e a carteira é 17, gravo no banco o nosso numero gerado na emissão do titulo a fim de dar baixa no documento por este código. Ao gerar o nosso número pega o convenio e a carteira formatada em 5 posições. Até ai está correto pois convênio 6 e carteira 17 usa a formatação 5. Na leitura do Retorno é que está o problema, pois preciso concatenar o convenio + a carteira pra comparar com o numero interno. Só que a leitura pega carteira 7 ( pois quando carteira é 17 grava 7 na remessa de acordo com o manual) e formatada com 11 posições em vez de 5. como faço para pegar o nosso numero correto ao ler o retorno? obrigado. if (Length(trim(NossoNumero)) > 10) and (((wTamConvenio = 6) and ((wCarteira = '16') or (wCarteira = '18'))) or ((wTamConvenio = 7) and (wCarteira = '18'))) then Result:= 17 else if (wTamConvenio <= 4) then Result := 7 else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or (wCarteira = '17') or (wCarteira = '18'))) then Result := 5 else if (wTamConvenio = 6) then Result := 11 else if (wTamConvenio = 7) then Result := 10; IEDCBR36091508201713628.ret

Pessoal bom dia. Acho que fui paciente. As alterações foram feitas?

alguma notícia?

Bom dia Igor, também acertei o meu aqui, porém ainda estou no aguardo destas atualizações no repositório.

Bom dia Juliana. tem alguma novidade?

Meu camarada, eu já analisei e alterei aqui no meu fonte, porém eu queria somente compartilhar estes problemas com vocês, pois creio que existam ou venham existir outras pessoas com estes mesmos problemas. em momento algum eu disse que estava insatisfeito. O conceito de fórum é exatamente todos se ajudando, eu fiz somente uma perguanda para a Juliana. E a resposta dele e sua foram rispidas sim, tenham educação em responder, só pretendo ajudar para ser ajudado também.

Juliomar Alguem aqui disse que estava sendo verificado? a Juliana somente me perguntou o tipo de cobrança utilizado e eu queria saber se existe a possibilidade de acerto. a sua resposta rispida é porque não tenho assinatura e acha que pode responder assim a qualquer pessoa ?

Juliana, existe a possibilidade do acerto ?

Bom dia Juliana. SIGCB.

ok Agnaldo, vamos aguardar um parecer da Juliana então.

Bom dia Agnaldo. Perfeito e obrigado, porém gostaria de saber se vão alterar isto no fonte original, com quem verificamos isto?

* IfThen(ValorMoraJuros > 0, '1', '0')

Boa noite amigos do forum. Estou com problema ao gerar a Remessa da Caixa pelo componente AcbrCaixaEconomica, recebi a seguinte msm de homologação : Linha 9 SEGMENTO P. Codigos de erro: 27.3P Este Título tem que estar marcado para protestar ou devolver ou cancelar protesto. Constatei que no componente no SEGMENTO P é passada : IfThen(ValorMoraJuros &gt; 0, '1', '0') + //118 - Código de juros de mora: Valor por dia Só que o layout do banco para o 240 não permite '0', somente de 1 a 4 vejam só: C018 Código do Juros de Mora Código adotado pela FEBRABAN para identificação do tipo de pagamento de juros de mora. ‘1’ = Valor por Dia ‘2’ = Taxa Mensal ‘3’ = Isento ‘4’ = Acata cadastramento na CAIXA por isto este erro, alguém pode me ajudar ? Obrigado

Pessoal, obrigado. consegui inserir o logo relacionado à Empresa que estava querendo, assim: - Inseri uma nova imagem no boleto chamada "LogoEmpresa" - Criei uma variável no Fast chamada "CaminhoLogoEmpresa" com a seguinte expressão : <Banco."DirLogo">+'\LogoEmpresa.bmp' - na Propriedada "FileLink" da Imagem "LogoEmpresa" passei esta variável [CaminhoLogoEmpresa], entre colchetes - é claro que eu tenho o logo da empresa gravado no caminho dos logos dos bancos também. só isso. Se alguém precisar inserir outras imagens sem mexer no componente, taí a dica. obrigado a todos.

Excelente idéia Patrick, adicionando esta propriedade seria melhor ainda, assim eu poderia trazer a imagem diretamento do meu BD.

Isaque, tudo bem. Mas recusa do banco jamais. Digo isto porque no nosso gerador de boletos antigo imprimia os logos dos bancos e, no Recibo do pagador ao lado da imagem do banco, aparecia o logo da Empresa. Muitos boleto fazem assim. Abaixo o Boleto que estou gerando e onde desejo inserir este logo. Obrigado.

Isaque, não tem como fazer isto? { TdmACBrBoletoFCFR } procedure TdmACBrBoletoFCFR.frxReportBeforePrint(Sender: TfrxReportComponent); begin ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString +'\' +cdsBanco.FieldByName('Numero').AsString + '.bmp','Logo_1'); ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString +'\' +cdsBanco.FieldByName('Numero').AsString + '.bmp','Logo_2'); ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString +'\' +cdsBanco.FieldByName('Numero').AsString + '.bmp','Logo_3'); ImprimeLogoMarca(cdsBanco.FieldByName('DirLogo').AsString +'\' +cdsBanco.FieldByName('Numero').AsString + '.bmp','Logo_4'); end;

Isaque, você quis dizer juntar as duas imagens, certo? mas isto ficaria inviável porque as imagens ficarão distantes uma da outra no boleto.

Bom dia Isaque. não poderia adicionar uma nova opção de inserir mais uma imagem no boleto como padrão( logo_1, logo_2, logo_3, logo_4 ) , pois acho que isto será essencial em outros casos também, não acha?

Isaque, só lembrando que eu utilizo os 3 logos do banco e gostaria de inserir mais um da empresa.

Boa tarde Isaque, não entendi bem, como assim criar criar logo do banco mesclado?

Bom dia Isaque. Teria como adicionar um campo para que possamos adicionar o logo da Empresa no Boleto, pois da maneira que está só conseguimos inserir o logo dos bancos. Ou existe uma outra possibilidade? Obrigado.

Boa tarde pessoal. Utilizo o FastReports com acbrboleto para gerar boletos. só é possível passar as imagens através dos arquivos na pasta logos ? e a função carregalogo ? tentei pegar uma imagem através dela e nao consegui tentei assim carregalogo ( imgteste.picture, banco.numero ); mas não traz nada. Outra coisa, nos nossos boletos temos o logo da empresa também, agora, como passo esta imagem do banco de dados para o boleto? tem esta flexibilidade? obrigado.

Pessoal, passou a funcionar acentuação depois que fiz isto abaixo no corpo do email. Sinceramente não ententi porque tem estas verificações. //if fDefaultCharsetCode <> UTF_8 then // fBody.Text := CharsetConversion(fBody.Text, UTF_8, fDefaultCharsetCode) fBody.Text := fBody.Text; //if fDefaultCharsetCode <> UTF_8 then // fAltBody.Text := CharsetConversion(fAltBody.Text, UTF_8, fDefaultCharsetCode); fAltBody.Text := fAltBody.Text;