Antonio Gomes

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 ?

modifica sua impressão e sobe o fr3

Pode por um cachorro do lado que consegue sonegar. O estado está no direito dele de querer receber, tem contribuinte capaz de dar nó em pingo d´água. Cancelamento por exemplo, é veridico, você vira as costas o sujeito cancela seu cupom, e ai? É PDV ECF, blindado como a sef SC quer... A menos que tenha um fiscal por empresa para evitar isso. O que penso, que ocorre, é que o estado já não sabe mais como resolver esse problema, que é sistêmico, inclusive na maquina administrativa dele, dai, querem punir quem faz o programa por isso. Fico chateado por uma coisa assim, aqui no meu estado mesmo, MG, até ontem não estramos no projeto, inventaram um tal de contratar TI... Homologar ECF aqui tem que ser highlinder.

ou seja, a contramão da evolução.

e a inscrição, quando vai ser liberado valor já sabem também?

No manual do BB não informa? Se não informar, numere os arquivos por sua conta.

vc deve informar no componente, numero da conta e código do cedente. Talvez seja esse o problema... gera esse mesmo boleto no cedente.exe do sicoob, e faça a leitura do código de barras e analise em cima a linha digitável se estão corretos.

gerado com os dados que vc passou. confere se é isso mesmo. mandar_forum.pdf

o cedente o numero 5 é dv ou faz parte do numero?

VC informou o codigo do cedente correto ? o calculo é feito com agencia+cedente+nosso numero posta os dados passados ao componente

Não deve. 4.0 mais segura.

O ideal seria aplicar um remove zeros antes né... ao inves desse corte com tamanho fixo. A conta nesse retorno, vem com 12 na posição 59 a 70