Antonio Gomes

Nota 2: O órgão responsável pela distribuição e controle desta numeração será a Febraban, devendo a solicitação ser efetuada através do e-mail: [email protected]. pagina 5. Tem uma lista, cada orgão tem o seu atribuido.

Se for acbr boleto, só boleto mesmo. Esse codigo de barras é o leiaute de arrecadacao recebimento. Muito mais fácil para criar que codigo de barras, alem de não precisar de registro. Você mesmo pode cria-lo, basta ter a empresa ou seu codigo na febraban. Também pode ser arrecadado com o prefixo do cnpj. Veja campo livre no manual. https://cmsportal.febraban.org.br/Arquivos/documentos/PDF/Layout - Código de Barras - Versão 5 - 01_08_2016.pdf https://portal.febraban.org.br/pagina/3166/33/pt-br/layour-arrecadacao

Esse é o modo padrão. Alguns poucos bancos já tem opção de webservice. veja aqui: https://suporte.boletosimples.com.br/article/8udp3swan1-conexao-online-com-o-banco-atraves-de-webservice Acbr não tem essa opção. Mas nada impede de gerar no webservice, pois a parte de nf, comunica do mesmo formato...

Como se fosse uma marca d´agua ? Os bancos, (chatos) permitem isso ?

sicoob vc trabalha com o numero do cedente, nao da conta. nessa property: Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); No meu caso, eu tenho os possiveis campos no cadastro da conta corrente, de acordo com o que o banco pede eu preencho. Para evitar de ter que ficar inventando de trocar dentro do codigo fonte. Assim: Cedente.Conta := ADataSetConfigServicoBanco.FieldByName('CONTA_CCR').AsString; << sicoob usa so para imprimir o boleto Cedente.ContaDigito := ADataSetConfigServicoBanco.FieldByName('DV_CONTA_CCR').AsString; Cedente.Agencia := ADataSetConfigServicoBanco.FieldByName('AGENCIA_CCR').AsString; Cedente.AgenciaDigito := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CCR').AsString; Cedente.Modalidade := Trim(ADataSetConfigServicoBanco.FieldByName('MODALIDADE_SER').AsString); <<<<<sicoob usa Cedente.DigitoVerificadorAgenciaConta := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CONTA_CCR').AsString; << sicoob, apareceu tem pouco tempo if ADataSetConfigServicoBanco.FieldByName('LEIAUTE_SER').AsInteger = 1 then LayoutRemessa := c240 else LayoutRemessa := c400; Cedente.CodigoCedente := Trim(ADataSetConfigServicoBanco.FieldByName('CODIGO_CEDENTE_SER').AsString) + Trim(ADataSetConfigServicoBanco.FieldByName('DV_CEDENTE_SER').AsString); <<<< sicoob usa Cedente.CodigoTransmissao := ADataSetConfigServicoBanco.FieldByName('CODIGO_TRANSMISSAO_SER').AsString; Cedente.Convenio := ADataSetConfigServicoBanco.FieldByName('NUM_CONTRATO_SER').AsString; na unit Acbrbancobancoob, tem essa funcao: function TACBrBancoob.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ? String; a resposta está nela.

Não é o cliente, é vc... Exemplo: Arquivo := IBDSPai.FieldByName('NOME_ARQUIVO_BOR').AsString; Arquivo := StringReplace(Arquivo, '"', '', [rfReplaceAll]); if not FileExists(Arquivo) then begin Aviso('Arquivo: ' + Arquivo + ' não encontrado.'); Abort; end; // CONTEUDO DO ARQUIVO ARQUIVO_RETORNO_BOR LS.LoadFromFile(Arquivo); P := LS.Count - 1; if (IBDSPai.FieldByName('RETORNO_PAGFACIL_BOR').AsString = 'N') and (IBDSPai.FieldByName('RETORNO_PESSOA_FISICA_BOR').AsString = 'S') then MudarRetornoPosicao2_FisicaJuridica(LS); LS.SaveToStream(ArquivoDeRetorno); funcao: procedure TFCadBorderoBancario.MudarRetornoPosicao2_FisicaJuridica(var ARetornoLido: TStrings); var Linha: string; I : Integer; begin for I := 0 to ARetornoLido.Count - 1 do begin Linha := ARetornoLido; // Mexer nas linhas que correspondem a titulos apenas - iniciados com 1 if (Copy(Linha, 1, 1) = '1') and (Copy(Linha, 2, 2) = '02') then begin Delete(Linha, 2, 2); Insert('01', Linha, 2); ARetornoLido := Linha; end; end; end; Voce pode tratar um arquivo temporario também, caso não queira mexer no do cliente...

Passo por esse problema no banco itau, o retorno de pessoa fisica, vem completado com zeros antes, e o itau insiste em mandar como pessoa juridica, o que eu faço, é abrir o arquivo antes de mandar para o componente, e mudar, engando assim o componente para o que eu quero. assim, eu sei que está certo, tem o cpf dentro do arquivo, e ainda assim vem o numero como se fosse cnpj (talvez o retorno seja feito apenas por cnpj no itau, nao sei...), então quando entra na funcao, o componente aciona aquela funcao de validar o cpf, nisso passa liso. Não que eu queira que faça algo errado, mas tem hora que tem que ser assim... Detalhe: Se isso acontecer com vc, se for arquivo de critica, e mudar o arquivo, sugiro não fazer ação alguma no banco de dados, apenas mostrar em tela para o usuário...

complementando: pelo manual, é digito da conta, olha a capa da planilha que a cooperativa envia.

será que apos o número 6, não pede um numero zero ? "0555576 JVA COBR" entre o 6 e o J, esse campo deu pano para manga outro dia, o componente foi alterado para aceitar esse campo. tenho uma remessa rodando, e veja como ela vai: 2100180MAR, antes da letra M, tem o zero... tem manual ?

Não entendi nada, vc estava sentando o valor com mais de 2 decimais? Se sim, para que finalidade?

você pode mudar isso no fr3 e mandar p/ incorporar... você pode mudar isso no fastreport em tempo de execucao também. ou pode fazer como eu, eu tenho meu próprio modelo, fiz meus fr3, mandei p/ cliente, e hoje, se preciso, edito no cliente, pois fica salvo no banco de dados dele...

Seu campo é ponto flutuante com N dizimas? Em modo debug ele nao fica assim: 1978,546666666667 ?

Olha, sem querer ser chato, mas me parece que o homebank da nonus, ja manipula do jeito que precisa nos sites de banco, tanto é estranho que as vezes uso a pistola também, e tenho que deixar aquela marcação do site do banco para o codigo de barras ser lido ao inves de digitado, com o nomus, so pega digitado. Pelo que reparei, ele coloca como se o operador estivesse digitando o nosso numero, repare: Pelo nomus: 07790001161200000050000816758478377440000034620 pistola: 07793774400000346200001112000000500081675847 Se reparar o do nonus, é igual a linha digitavel. Não vejo como problema isso com vc, se o meu está assim também. Imagem do boleto.

uai! Estão aceitando esse ainda, bom saber, vou mudar então. Valeu a dica.

@Pedro E. Braga por acaso, não lhe criticaram no banco, para informar o juro com 5 decimais? Eu fui homologar um dia desses, dai passei enviar o juro e multa como valor calculado, devido essa deficiência no componente. No CNAB240, na página 18, omde menciona isso:Nota 18: CAMPOS REFERENTES A VALOR . Quando o valor for expresso em moeda corrente, utilizar duas casas decimais: 9(013)v99; . Quando o valor for expresso em moeda variável, utilizar cinco casas decimais: 9(010)v9(05); . Quando o valor se referir à taxa de juros, utilizar cinco casas decimais: 9(010)v9(05);

a data do documento, o que está colocando nela? Pois ela geralmente é a data do dia... dica: Pq nao coloca a data da emissao do seu titulo na tabela de contas a receber? Pois vai esbarrar no problema que está mencionado logo abaixo pela juliana.

tem que ficar atento com o pessoal que mantem @Juliana Tamizou @José M. S. Junior do projeto acbrboleto, no que tange se for preciso criar propriedades no componente.. observe o campo 08.3Y no manual: 02 - Modelo Padrão CAIXA 10 - Genérico Modelo 01 1 11 - Genérico Modelo 02 1 12 - Condomínios 1, 13 - Nota Fiscal 1, 2(*) 14 - Consórcios 1, 2, 3, 4, 5 18 - Similiar a Nota Fiscal 1, 2(*) 19 - Seguradoras 1, 2(*), 3(*) 21 - Escolas 1 22 - Imobiliárias 1 30 - Carnê 1 Cada um pede uma informação.

Altere o fonte no que precisa, sobe para o mantenedor analisar. Ajuda você, e outro que precisar. Nao esquecer de atualizar os fontes.

Mantenedor, gostaria analisasse se posso corrigir hints desse tipo. Pois ao haver raise exception, acredito que o retorno da function, pouco importa... @Juliomar Marchetti @Juliana Tamizou ACBrBoleto.pas

Não, mas tenho aqui no meu computador, se quiser ter acesso me avise. Eu não enviei, pois em contato com o pessoal do banco inter, os mesmo não se dispuseram a deixar fazer a emissão por fora do site do banco.

interessante, vc falando, uma vez aconteceu isso daqui com o rdprint, era um erro ao gerar o pdf. Pode ser encrenca do filtro de gerar esse pdf do quickreport. Seu quickreport é mesmo usado no desenvolvimento do componente? Um detalhe, aquele modo em fastreport, voce tem o mesmo problema?

Estranho, seu cabeçalho do pdf está com a versão 1.3, tem como voce mudar para 1.4? olha: %PDF-1.3 %Å­o 1 0 obj Abra o pdf seu pelo bloco de notas. tente mudar a versao.

Porque não acha a parcela no seu programa antes, e coloca a descrição da pessoa? Campo nosso número ou campo livre que você envia para o banco quando faz a remessa de entrada...

abra o arquivo antes, capture a posicao do banco, agencia e conta / cedente, então, ache essa informacao no seu banco de dados. Vc deve ter essa informacao no programa que é do bradesco sicoob. O componente so vai retornar dados para processar o retorno. Exemplo de como faço isso: TFuncBoleto.ACBrBoleto.LeCedenteRetorno := true; // DEve ser false devido problema do sicoob 756 TFuncBoleto.ACBrBoleto.DirArqRetorno := ExtractFilePath(Arquivo); TFuncBoleto.ACBrBoleto.NomeArqRetorno := ExtractFileName(Arquivo); TFuncBoleto.ACBrBoleto.Cedente.Conta := '0'; // Ocultar erro do ACBr TFuncBoleto.ACBrBoleto.LerRetorno(ArquivoDeRetorno); ACodBanco := TFuncBoleto.ACBrBoleto.Banco.Numero; ANomeCedente := TFuncBoleto.ACBrBoleto.Cedente.Nome; AAgencia := TFuncBoleto.ACBrBoleto.Cedente.Agencia; AContaNum := TiraZeroAntes(TFuncBoleto.ACBrBoleto.Cedente.Conta); AContaDV := TFuncBoleto.ACBrBoleto.Cedente.ContaDigito; if LS.Count > 0 then sLinha := LS[0]; if ((TFuncBoleto.ACBrBoleto.LayoutRemessa = c240) and (ACodBanco = 104)) then begin ACodCedente := Copy(sLinha, 59, 6); AcharContaCorrentePeloCedente(ACodCedente, AContaNum, AContaDV); end else if ((TFuncBoleto.ACBrBoleto.LayoutRemessa = c400) and (ACodBanco = 756)) then begin ACodCedente := Trim(TiraZeroAntes(Copy(sLinha, 32, 8))); AcharContaCorrentePeloCedente(ACodCedente, AContaNum, AContaDV); end; CdsHeader.Insert; CdsHeader.FieldByName('CEDENTE').AsString := ANomeCedente; CdsHeader.FieldByName('BANCO').AsInteger := ACodBanco; CdsHeader.FieldByName('CONTA').AsString := AContaNum; CdsHeader.FieldByName('CONTA_DV').AsString := AContaDV; if (CdsHeader.FieldByName('CONTA').AsString <> '') and (IBQryCC.Locate('CONTA_CCR', CdsHeader.FieldByName('CONTA').AsString, [])) then begin DBLookupContaCorrente.KeyValue := IBQryCC.FieldByName('CODIGO_CCR').AsInteger; IBDSPai.FieldByName('CTA_MOVIMENTO_BOR').AsInteger := IBQryCC.FieldByName('CODIGO_CCR').AsInteger; CdsHeader.FieldByName('COD_CONTA').AsInteger := IBQryCC.FieldByName('CODIGO_CCR').AsInteger; end; CdsHeader.Post; CarregarDadosAnteriorPelaConta(CdsHeader.FieldByName('COD_CONTA').AsInteger);

Tem que atentar se não está usando o mesmo numero de nosso numero, houve incremento do numero ?