osvaldobelss

Outra coisa também Juliana, que não sei se é um erro. Mas a 1ª vez que aparece o ' Agência / Código Cedente' o código é <Cedente."Agencia">+'-'+<Cedente."AgenciaDigito">+'/'+<Cedente."CodigoCedente"> e nas outras duas ocorrências está <Cedente."Agencia">+'/'+<Cedente."CodigoCedente"> Se você notar a primeira vai o dígito e as outras duas não. Será que é assim mesmo?? Em anexo está os campos assinalados. Outra modificação, aparece duas vezes o CEP, mas uma delas não tem a masca então eu coloquei no meu: [FormatMaskText('99.999-99;0; ', <Titulo."Sacado_CEP">)]

Depois sobe a versão com esta correção Juliana =)

Boa tarde, gostaria de saber se está certo no layout do fastreport (o arquivo fr3), tem 2 campos escrito 'Agência / Código Cedente', acho que o segundo seria o 'Nosso número'? Na imagem em anexo está em amarelo o que poderia ser o 'Nosso número'.

Desculpe Juliana, não sei o que aconteceu, mas eu coloquei.. vou tentar de novo! ACBrCaixaEconomicaSICOB.pas

muito obrigado Juliana e marcoAntoneo.. me esclareceu o que eu estava pensando! mais pra frente vai vir outras situações mesmo rsrs se tiver que fazer alguma restruturação no boleto vou fazer como você marcoAntoneo, colocar um campo para 'código do cedente/ convenio...' vlw

Boa tarde Juliana! Segue em anexo a unit com as alterações, só não consegui fazer a parte do local de pagamento que você me falou. O resto estão corrigidos.

?

No local de pagamento coloquei no meu código: if ACBrBoleto.Banco.Numero = 104 then LocalPagamento := 'PAGAR PREFERENCIALMENTE NAS CASAS LOTÉRICAS ATÉ O VALOR LIMITE' else LocalPagamento := UpperCase(Ban.FieldByName('LOCALPGTO').Text);

Bom dia! Estou homologando o arquivo de remessa da Caixa Sicob (104), Layout Remessa 240. Vou postar aqui todos os erros informados que já corrigi para que os membros possam alterar isso no código fonte do ACBR. E os outros postarei quando achar a solução. Boleto Local de pagamento Conteúdo Atual: PAGÁVEL EM QUALQUER BANCO ATÉ O VENCIMENTO Conteúdo Esperado: Pagar Preferencialmente nas Casas Lotéricas até o valor limite Registro Trailer de Lote 12.5 Quantidade de Títulos em Cobrança Posição:93 a 98 tamanho: 6 Conteúdo Atual: brancos Conteúdo Esperado: 000000 Alterações na unit ACBrCaixaEconomicaSICOB.pas na linha 785: antes estava assim: space(6) + // 93 a 98 - Quantidade títulos em cobrança (Somente retorno) agora está assim: padR('', 6, '0') + // 93 a 98 - Quantidade títulos em cobrança (Somente retorno) 13.5 Valor Total dos Títulos em Carteiras Posição:99 a 115 tamanho:17 Conteúdo Atual: brancos Conteúdo Esperado: 00000000000000000 Alterações na unit ACBrCaixaEconomicaSICOB.pas na linha 786: antes estava assim: space(17) + // 99 a 115 - Valor dos títulos em carteiras (Somente retorno) agora está assim: padR('',17, '0') + // 99 a 115 - Valor dos títulos em carteiras (Somente retorno)

Bom dia Juliana! Então no meu código fonte eu coloco o convênio, só não coloquei aqui no fórum. Pois aqui no software da empresa o cliente informa entre outros dados a agência, conta, carteira, variação, convênio e isso vai nos seus respectivos lugares, de acordo? Você está falando que no software de vocês tem mais um campo que é o código cedente que o cliente informa? Ou eu monto o código cedente de acordo com as informações que tenho, Exemplo da Caixa: AAAAOOOCCCCCCCCD, onde: AAAA = Código da Agência CAIXA de relacionamento do cliente OOO = Operação CCCCCCCC = Número da conta D = Dígito Verificador Então ficaria: Cedente.Agencia+CampoOperacao+Cedente.Conta A regra do código cedente é de acordo com cada banco? Thank you.

Bom dia pessoal, estou começando a fazer boletos dos principais bancos para homologação. Observei que os Código Cedentes mudam de acordo com cada banco, cada banco trata de um jeito. Então eu gostaria de compartilhar com vocês esta parte do meu código para saber a opinião de vocês e como cada pessoa trata isso, pois no meu código abaixo eu acho que ainda não vai encaixar em todas as ocorrências que viram daqui pra frente. case ACBrBoleto.Banco.Numero of 1: begin (* Banco do Brasil *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('00000000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('VARIACAO').Text; end; 33: begin (* Santander *) ACBrBoleto.Cedente.CodigoCedente := sContaComDigito; ACBrBoleto.Cedente.Modalidade := qBanco.FieldByName('CARTEIRA').Text; end; 104: begin (* Caixa Sicob *) ACBrBoleto.Cedente.CodigoCedente := ACBrBoleto.Cedente.Agencia+'870'+ACBrBoleto.Cedente.Convenio; end; 237: begin (* Bradesco *) ACBrBoleto.Cedente.CodigoCedente := FormatFloat('0000000',StrToInt(ACBrBoleto.Cedente.Conta))+'-'+ACBrBoleto.Cedente.ContaDigito; end; 341: begin (* Itau *) ACBrBoleto.Cedente.CodigoCedente := qBanco.FieldByName('CONTA').Text; end; end; (* Cedente.DigitoCodigoCedente := ''; *) No código acima não coloco nada no DigitoCodigoCedente e não sei pra que serve.

Encontrei uma duplicação da linha 531 na minha unit ACBrCaixaEconomicaSICOB padL('REMESSA-PRODUCAO', 20, ' ') + // 192 a 211 - Uso reservado da empresa // padL('REMESSA-PRODUÇÃO', 20, ' ') + // 192 a 211 - Uso reservado da empresa Quando for produção, desmarar essa linha e bloquear a linha anterior Favor concertar se ainda estiver errado.

Obrigado pela atenção lvr, mas não adiantou, fiz o que você me pediu. Mas o erro só parou de acontecer quando removi da pasta C:\Program Files (x86)\CollabNet\ a dll ssleay32. Bom vou deixar assim por enquanto, até eu relatar algum erro. Obrigado.

Outra dúvida, eu imprime um boleto com a modalidade 27 (com registro) e 29 (sem registro) e não encontrei nada diferente, está errado?

Bom dia, estou com dúvida também na primeira questão do fórum. Um cliente tem carteira 17 e variações 27 e 29 do Banco do Brasil. Então eu tenho que fazer o seguinte: ACBrBoleto.CriarTituloNaLista.Titulo.Carteira := 17; ACBrBoleto.Cedente.Modalidade := 27 ou ACBrBoleto.Cedente.Modalidade := 29 Está correto??

Eu não sei se pode acontecer algo no futuro, mas eu tirei ela da pasta que eu disse, e parou o erro. Mas como disse não sei se vou ter algum problema depois. Ah eh, como eu faço isso solivansoft?

Boa tarde, galera! Estou trabalhando com o Delphi XE4 e toda vez que eu vou executar o boleto, ocorre o seguinte erro: 'Não foi possível localizar o número ordinal 3872 na biblioteca de vínculo dinâmico C:\Program Files (x86)\CollabNet\ssleay32.dll.' Eu encontrei nesta pasta o arquivo ssleay32.dll, talvez seja algum erro interno. Alguém teve este erro? O meu software estava rodando certo no Delphi XE3, mas no XE4 ocorreu este erro. Observei também que o acbrboleto também tem uma dll com esse nome.

Boa tarde, pessoal! Estou fazendo um boleto aqui do Banco Itaú de carteira 109 O cliente que me passou falou que na agência não tem dígito verificador. Como eu faço no acbrboleto, pois se eu não colocar o dígito Cedente.AgenciaDigito := '' ocorre um erro, a seguinte mensagem 'Informações do Cedente incompletas.' O que poderia fazer?

Corretissimo RogerMello!! foi realmente o que fiz =)

muito obrigado RogerMello!! vou ver o seu código =)

Mais alterações: TRAILER DE LOTE 4-7 / Lote de serviço / Entrar com 0001 – está 9999 93-115 / qtde títulos em cobrança / entrar com brancos

No Header do Lote tive que alterar também para '00' ao invés dos ' ' brancos: '00' + //12 a 13 - Forma de lançamento: preencher com ZEROS no caso de cobrança

blz!! é o mesmo código fonte do CEF!

Pessoal deu certo fazendo a seguinte alteração: TRAILER DE LOTE: IntToStrZero((2*ARemessa.Count), 6) + // 18 a 23 - Quantidade de Registro no Lote TRAILER DE ARQUIVO: IntToStrZero((2*ARemessa.Count)+2, 6) + // 24 a 29 - Quantidade de registros do arquivo, inclusive este registro que está sendo criado agora} FAVOR REVISAREM PARA COLOCAREM NO CÓDIGO FONTE TAMBÉM. =)

Não deu certo lipsort!!! Fiz uma remessa e no final deveria ter o número 42 que corresponde a linha de arquivos, mas aparece 61. No meu trailer de LOTE está errado: 18 a 23 - Quantidade de Registro no Lote E tbm no meu trailer de ARQUIVO: 24 a 29 - Quantidade de registros do arquivo, inclusive este registro que está sendo criado agora} Se tiverem alguma outra dica agradeço! =)