Claudiomir

Pessoal.... RESOLVIDO!!!! O erro era basicamente uma burrice minha. Por algum motivo insondável, eu estava mandando gerar novamente o nosso numero quando do envio da remessa. Não pergunte por que! Provavelmente o maldito Ctrl C, Ctrl V. Enfim, o cliente conseguiu pagar! Agradeço profundamente a todos que me ajudaram!!!! Grato Claudiomir [Tópico pode ser encerrado]

Juliana.... perdão, mas eu não entendi isso (...além do numero da parcela com 3 digitos). o campo Titulo.Parcela é integer. Como você passa ele com 3 digitos?? Sempre que eu tento passar, ele passa somente 1 dígito, ou seja, o próprio valor (quantidades de parcelas). Se eu gero 3 boletos, ele vai passar 3 em Titulo.TotalParcelas, não é isso? Ou estou completamente enganado? Claudiomir

Saudações Juliana Eu procurei, mas não encontrei. Tem como, olhando no arquivo de remessa, encontrar o campo linha digitável? Sicoob Cnab 240. Ou ele não aparece como estaria no boleto? Claudiomir

Valeu Juliana Tamizou Sabe... tem dias que me odeio. Esqueci a quantidade de dígitos... ".... além do numero da parcela com 3 digitos. "!! To passando somente 1 Digito. Parcela ( 1,2,3) Titulo.TotalParcelas := self.gcrecretotalparcelas.asinteger; (está indo somente 1 dígito)!!!!! No caso o valor inteiro (3)! e não "003". Tem dias... que tenho vontade de "me exorcizar"! Vou tentar novamente amanhã. Cliente sem internet agora para testar. Grato por enquanto. Antonio Gomes Posso colocar 1 e 1?? Tanto em Titulo.Parcela como em Titulo.TotalParcelas??? O banco não vai encher o saco por não ser a informação correta?? Grato Claudiomir

Não funcionou! Impressionante! Nada do que eu faço dá certo nessa......ç. Nhaca de banco!!!! Erro persiste!!

Boa. Alterei o código para salvar a qtde de parcelas(cre.recordcount), e o numero da parcela(1,2,3,4....) direto em cada registro do contas a receber. Dessa forma, na geração da remessa eu pego direto da tabela de contas a receber, onde eu já tenho gravado esses valores, impedindo burradas dentro da geração da remessa. Bora testar. Te respondo a tarde. Grato por enquanto. Claudiomir

Saudações. Fiz uma alteração na numeração das parcelas. Só vou poder testar no horário do almoço. Te respondo a tarde. Por enquanto, grato por vosso auxílio. Claudiomir

Saudações, Uma boa pergunta. Acredito que sim, pois é uma numeração sequencial. Uso o mesmo código para gerar o boleto. Tecnicamente deveria. Mas pode não estar correto. Deixa eu ver se posso alterar isso, de alguma forma. Claudiomir

Saudações Conferi, com seu código e, apesar de você ter mais opções, não encontrei diferenças óbvias. Gero o boleto. Ele imprime normal. Testo no arquivo do excel que me enviou. Ele confirma os dados. Indica que a Pré-Homologação está correta. Gero a remessa. Ele envia para o site. Ela é testada. Indica que está normal. Mas em algum lugar no meio disso, a linha digitável está sendo alterada. Posto abaixo o código da geração da Remessa. Vou continuar procurando, mas não consigo ver nada óbvio. procedure Tgeraremessa.BitBtn4Click(Sender: TObject); Var Tipo, tipo2: String; Titulo: TACBrTitulo; nn: double; reg: integer; arqnp: String; ch, bc: String; nrremessa: integer; ext: string; begin cta.close; cta.SQL.Clear; cta.SQL.Add('select * from cta where ctacodigo=' + gcrectacodigo.AsString); cta.Open; if not cta.IsEmpty then begin Tipo := self.ctactanossonume.AsString; bc := self.ctabcocodigo.AsString; nrremessa := self.ctactanumremessa.asinteger; End; case strtoint(bc) of 756: fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob; end; if ctactacnab.asinteger = 400 then begin fprinci.ACBrBoleto1.LayoutRemessa := c400; end else begin fprinci.ACBrBoleto1.LayoutRemessa := c240; end; If ctactatipoboleto.asinteger = 0 Then Begin fprinci.ACBrBoletoFCFR1.LayOut := lcarne; End Else If ctactatipoboleto.asinteger = 1 Then Begin fprinci.ACBrBoletoFCFR1.LayOut := lpadrao; End Else Begin fprinci.ACBrBoletoFCFR1.LayOut := lfatura; End; fprinci.ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; fprinci.ACBrBoletoFCFR1.DirLogo := extractfilepath(application.ExeName) + 'logo'; fprinci.ACBrBoleto1.DirArqRemessa := fprinci.cfgcfgcaminhoremessabanco.AsString; fprinci.ACBrBoleto1.DirArqRetorno := fprinci.cfgcfgcaminhoremessabanco.AsString; fprinci.ACBrBoleto1.ListadeBoletos.Clear; fprinci.ACBrBoleto1.cedente.Agencia := self.ctactanragencia.AsString; fprinci.ACBrBoleto1.cedente.AgenciaDigito := self.ctactadgagencia.AsString; fprinci.ACBrBoleto1.cedente.Conta := self.ctacatnrconta.AsString; fprinci.ACBrBoleto1.cedente.ContaDigito := self.ctactadgconta.AsString; fprinci.ACBrBoleto1.cedente.DigitoVerificadorAgenciaConta := self.ctactadigverificaconta.AsString; fprinci.ACBrBoleto1.cedente.Convenio := self.ctactaconvenio.AsString; fprinci.ACBrBoleto1.cedente.CNPJCPF := fprinci.cfgcfgdoc1.AsString; fprinci.ACBrBoleto1.cedente.TipoInscricao := pJuridica; fprinci.ACBrBoleto1.cedente.Logradouro := fprinci.cfgcfgendereco.AsString; fprinci.ACBrBoleto1.cedente.NumeroRes := fprinci.cfgcfgnumero.AsString; fprinci.ACBrBoleto1.cedente.Bairro := fprinci.cfgcfgbairro.AsString; fprinci.ACBrBoleto1.cedente.Cidade := fprinci.cfgcfgcidade.AsString; fprinci.ACBrBoleto1.cedente.UF := fprinci.cfgcfguf.AsString; fprinci.ACBrBoleto1.cedente.CEP := fprinci.cfgcfgcep.AsString; fprinci.ACBrBoleto1.cedente.CodigoCedente := self.ctactacodigocedente.AsString; fprinci.ACBrBoleto1.cedente.NumeroRes := ''; fprinci.ACBrBoleto1.cedente.Nome := self.ctactabeneficiario.AsString; fprinci.ACBrBoleto1.cedente.Modalidade := self.ctactamodalidade.AsString; gcre.first; While Not gcre.eof Do Begin Titulo := fprinci.ACBrBoleto1.CriarTituloNaLista; Titulo.TotalParcelas := self.gcre.RecordCount; With Titulo Do Begin if strtoint(bc) = 1 then begin Titulo.Carteira := self.ctactacarteira.AsString; end; Vencimento := StrToDate(self.gcrecrevencimento.AsString); DataDocumento := StrToDate(self.gcrecreemissao.AsString); NumeroDocumento := self.gcrecrenumero.AsString; Aceite := atNao; DataProcessamento := Now; parcela := gcre.RecNo; Titulo.EspecieDoc := 'DM'; Titulo.EspecieMod := ''; if gcreregistro.AsString = 'Com Registro' then begin case strtoint(bc) of 756: begin fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob; Carteira := self.ctactacarteira.AsString; end; end; end; Titulo.EspecieDoc := 'DM'; ValorDocumento := StrToCurr(self.gcrecrevalor.AsString); Sacado.NomeSacado := self.gcreclinome.AsString; Sacado.CNPJCPF := self.limpatexto(self.gcreclidoc1.AsString); if length(self.limpatexto(self.gcreclidoc1.AsString)) = 11 then begin Sacado.Pessoa := pFisica; end else begin Sacado.Pessoa := pJuridica; end; Sacado.Logradouro := self.gcrecliendereco.AsString; Sacado.Numero := self.gcreclinumero.AsString; Sacado.Bairro := self.gcreclibairro.AsString; Sacado.Cidade := self.gcrecddnome.AsString; Sacado.UF := self.gcreufsuf.AsString; Sacado.CEP := copy(self.gcreclicep.AsString, 1, 5) + copy(self.gcreclicep.AsString, 7, 3); LocalPagamento := ctalocalpagamento.AsString; CodigoMoraJuros := cjValorDia; DataMoraJuros := self.gcrecrevencimento.AsDateTime; ValorMoraJuros := StrToCurrDef('0', self.gcrecremoradia.AsFloat); ValorDesconto := StrToCurrDef('0', 0); ValorAbatimento := StrToCurrDef('0', 0); ValorAbatimento := StrToCurrDef('0', 0); PercentualMulta := fprinci.cfgcfgmultadiaria.AsFloat; Mensagem.Text := self.ctactamensagem1.AsString + #13 + self.ctactamensagem2.AsString + #13 + self.ctactamensagem3.AsString; OcorrenciaOriginal.Tipo := toRemessaregistrar; fprinci.ACBrBoleto1.AdicionarMensagensPadroes(Titulo, Mensagem); End; gcre.Next; End; try fprinci.ACBrBoleto1.ChecarDadosObrigatorios; Inc(nrremessa); fprinci.ACBrBoleto1.GerarRemessa(nrremessa); cta.edit; ctactanumremessa.asinteger := nrremessa; cta.post; except MessageDlg('Erro ao gerar arquivo de remessa. Verifique!', mtWarning, [mbOK], 0); end; end; Se alguém tiver uma idéia, fico agradecido. Claudiomir

Só por curiosidade, qual o valor para o sicoob do campo TamanhoMaximoNossoNum?? 7??

Essa é a parte mais estranha. Aparentemente a remessa está indo corretamente. Ele é validado pelo site e aceito normalmente. Tem que ter algo errado na geração do boleto. Mas o que???? Claudiomir

Saudações Big Wings. Vi sim. Implementei baseada nela. Testei. Tudo indicava que iria funcionar. Recebi resposta 2 horas atrás. Erro permanece. Claudiomir

Saudações. Já criei um tópico anterior mas o moderador fechou por falta de uma resposta minha. Lamento não ter respondido no prazo. Meu problema continua com a geração da linha digitável. Gero o boleto e imprimo. Nenhum erro. Normal. Envio para o banco. 1 em cada 3 funciona. Os demais dá erro na hora de pagar. A linha digitável enviada para o banco via remessa está indo com valores diferentes do que é gerada antes, na emissão do boleto. Eu não encontro o erro. Se alguém tiver uma idéia, eu agradeço. Pergunto ainda, existe um "validador" de boletos do Sicoob? Antigamente tinha uma planilha no excel onde testávamos isso. Se alguém puder, ainda, me indicar qual o "campo" que está dando a diferença na imagem abaixo, eu agradeço. O primeiro valor é o que eu gero na hora de imprimir o boleto. O segundo valor é o que o banco está recebendo na remessa. No aguarde de qualquer idéia. Claudiomir

Frio na barriga nem passa perto do que estou sofrendo com esse.... banco. Vou testar aqui. Interessante que até essa semana, em outro cliente, esse campo enviava normalmente. Grato por seu auxílio. Claudiomir

Saudações. Estou em minha "saga" particular para implementar no banco Sicoob. Ao enviar a remessa no validador do sicoob ele me retorna um erro na posição 72. Informando que o valor deve ser 0 e não vazio. A posição informada vem logo após o ultimo campo onde é informado o digito da conta. Ficaria entre o dígito da conta e a primeira letra do nome do Emitente. Eu realmente não entendo. Abro a remessa, substituo o "vazio" por "zero" e a remessa é aceita. Na geração desses valores, estou esquecendo de preencher algo? Alguma propriedade que devo ativar? CNAB 240 Código Abaixo: fprinci.ACBrBoleto1.ACBrBoletoFC.Filtro := fiNenhum; fprinci.ACBrBoletoFCFR1.DirLogo := extractfilepath(application.ExeName) + 'logo'; fprinci.ACBrBoleto1.DirArqRemessa := fprinci.cfgcfgcaminhoremessabanco.AsString; fprinci.ACBrBoleto1.DirArqRetorno := fprinci.cfgcfgcaminhoremessabanco.AsString; fprinci.ACBrBoleto1.ListadeBoletos.Clear; fprinci.ACBrBoleto1.cedente.Agencia := self.ctactanragencia.AsString; fprinci.ACBrBoleto1.cedente.AgenciaDigito := self.ctactadgagencia.AsString; fprinci.ACBrBoleto1.cedente.Conta := self.ctacatnrconta.AsString; fprinci.ACBrBoleto1.cedente.ContaDigito := self.ctactadgconta.AsString; fprinci.ACBrBoleto1.cedente.Convenio := self.ctactaconvenio.AsString; fprinci.ACBrBoleto1.cedente.CNPJCPF := fprinci.cfgcfgdoc1.AsString; fprinci.ACBrBoleto1.cedente.TipoInscricao := pJuridica; fprinci.ACBrBoleto1.cedente.Logradouro := fprinci.cfgcfgendereco.AsString; fprinci.ACBrBoleto1.cedente.NumeroRes := fprinci.cfgcfgnumero.AsString; fprinci.ACBrBoleto1.cedente.Bairro := fprinci.cfgcfgbairro.AsString; fprinci.ACBrBoleto1.cedente.Cidade := fprinci.cfgcfgcidade.AsString; fprinci.ACBrBoleto1.cedente.UF := fprinci.cfgcfguf.AsString; fprinci.ACBrBoleto1.cedente.CEP := fprinci.cfgcfgcep.AsString; fprinci.ACBrBoleto1.cedente.CodigoCedente := self.ctactacodigocedente.AsString; fprinci.ACBrBoleto1.cedente.NumeroRes := ''; fprinci.ACBrBoleto1.cedente.Nome := self.ctactabeneficiario.AsString; fprinci.ACBrBoleto1.cedente.Modalidade := self.ctactamodalidade.AsString; No aguardo de qualquer idéia. Claudiomir Posição Inicial: 72 - Valor informado diverge do valor default definido para o campo: 0