Homologação Itau C240

valramosr · 16 Fevereiro, 2016

Estou tentando fazer a homologação no Itaú. e me enviaram essa msg;

ü A leitura do código de barras não apresentou problema, porém, a composição numérica está irregular:

ý Valor lido no bloqueto: 34191677000000100001090000577510491196150000

ý Valor calculado: 34191677000000100001090000577590491196150000

ü A composição da representação numérica, linha digitável da ficha de compensação está irregular:

ý Valor do bloqueto: 341910900800577510498119615000031677000000010000

ý Valor calculado: 34191.09008 00577.590490 11961.500003 1 67700000010000

Juliana Tamizou · 16 Fevereiro, 2016

Bom dia.

Provavelmente alguma informação que compõe o código de barras deixou de ser informada ou foi informada de forma incorreta. Normalmente o banco informa qual posição está incorreta e qual o valor deveria constar na mesma.

Att.

valramosr · 17 Fevereiro, 2016

Bom Dia Juliana,

segue o que me foi enviado:

Cálculo de DAC e fator de vencimento	Valor do bloqueto	Valor calculado
DAC do campo “Nosso número”	6	4
DAC do campo “Agência/Código Beneficiário”	0	0
Fator de vencimento informado na linha digitável	6710	6710

Observações:

ü A leitura do código de barras não apresentou problema, porém, a composição numérica está irregular:

ý Valor lido no bloqueto: 34196671000000100001090000577360491196150000

ý Valor calculado: 34199671000000100001090000577340491196150000

ü A composição da representação numérica, linha digitável da ficha de compensação está irregular:

ý Valor do bloqueto: 34191090080057736049811961500003667100000010000

ý Valor calculado: 34191.09008 00577.340490 11961.500003 9 67100000010000

valramosr · 18 Fevereiro, 2016

Bom dia Juliana,

chequei os campos e enviei novamente e me mandaram a mesma solicitação.

Bom Dia,

O valor calculado pelo nosso sistema para o código de barras e para representação numérica está diferente dos apresentados nos boletos por favor verificar novamente o cálculo desses 2 itens.

Representação numérica:

Valor do boleto: 34191.09008 00577.360498 11961.500003 6 67100000010000

Valor calculado: 34191.09008 00577.340490 11961.500003 9 67100000010000

Código de barras:

Valor lido no boleto: 34196671000000100001090000577360491196150000

Valor calculado pelo sistema: 34199671000000100001090000577340491196150000

Juliana Tamizou · 18 Fevereiro, 2016

Boa tarde.

Favor fornecer os dados configurados no componente para impressão dos boletos conforme seu último post.

Att.

valramosr · 18 Fevereiro, 2016

Olá Juliana, Boa Noite!

Segue o código que alimenta o componente.

 with  ACBrBoleto1.CriarTituloNaLista do
       begin

        LocalPagamento :='Até o vencimento, preferencialmente no Itaú. ' +
                          'Após o vencimento, somente no Itaú';
        Vencimento        := up.fieldbyname('data_vencimento').AsDateTime;
        DataDocumento     := now;
        NumeroDocumento   := up.fieldbyname('id').AsString;
        EspecieDoc        := 'DM';
        Aceite            := atSim;
        DataProcessamento := now;
        NossoNumero       := up.fieldbyname('id').AsString;
        Carteira          := dmfinanceiro.ClientCedentecodigo_carteira.AsString;
        ValorDocumento    := up.fieldbyname('valor_base').AsFloat;

          Mensagem.Text     := 'Até o vencimento Desconto de '+FormatCurr('R$ #,##0.00', StrToFloat(up.fieldbyname('valor_desconto').AsString))+#13+
                     'Após o vencimento Juros de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedJuros.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100)
                     +' ao dia + Multa de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedMulta.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100)+#13+
                     DBEdObservacao1.Text+#13+
                     DBEdObservacao2.Text+#13+
                     'Aluno: '+clientalunosnome.AsString + '-' + 'Turma: '+clientturmasnome.AsString;

         with Sacado do

          begin

          Pessoa     := pFisica;
          NomeSacado := clientalunosresp.AsString;
          CNPJCPF    := clientalunoscpf_resp.AsString;
          Logradouro := clientalunosender_resp.AsString;
          Numero     := '000';
          Bairro     := clientalunosbairro_resp.AsString;
          Cidade     := clientalunoscidade_resp.AsString;
          UF         := clientalunosuf_resp.AsString;
          CEP        := clientalunoscep_resp.AsString;
          ValorAbatimento:= vdesconto;
          end;

          with ACBrBoleto1.Cedente do
      begin
     //  Modalidade    := DBEditCedCodigo_Carteira.Text;
       CaracTitulo   := tcSimples;
       Agencia       := DBEditCedAgencia.Text;
       AgenciaDigito := DBEditDigitoAgencia.Text;
       CodigoCedente := DBEditCodCedente.Text;
       Conta         := DBEditConta.Text;
       ContaDigito   := DBEditDigitoConta.Text;
       TipoInscricao := pJuridica;
       Nome          := DBEditCedNome.Text;
       Bairro        := clientparametrosbairro_escola.AsString;
       Cidade        := clientparametroscidadeescola.AsString;
       Logradouro    := clientparametrosenderescola.AsString;
       NumeroRes     :='';
       CEP           := '55000000';
       CNPJCPF       := DBEditCedCNPJ.Text;
       //Convenio      := DBEditCedCodigo_Carteira.Text;
       //CodigoTransmissao:=DBEditCodTransmissao.Text;
       CaracTitulo:=tcVinculada;
       //TipoCarteira:=tctRegistrada;
       ResponEmissao := tbCliEmite;
      end;

Juliana Tamizou · 19 Fevereiro, 2016

Bom dia.

Precisamos das informações passadas ao componente.

Att.

valramosr · 19 Fevereiro, 2016

O código que uso pra alimentar o componete é esse:

 with  ACBrBoleto1.CriarTituloNaLista do
       begin

        LocalPagamento :='Até o vencimento, preferencialmente no Itaú. ' +
                          'Após o vencimento, somente no Itaú';
        Vencimento        := up.fieldbyname('data_vencimento').AsDateTime;
        DataDocumento     := now;
        NumeroDocumento   := up.fieldbyname('id').AsString;
        EspecieDoc        := 'DM';
        Aceite            := atSim;
        DataProcessamento := now;
        NossoNumero       := up.fieldbyname('id').AsString;
        Carteira          := dmfinanceiro.ClientCedentecodigo_carteira.AsString;
        ValorDocumento    := up.fieldbyname('valor_base').AsFloat;

          Mensagem.Text     := 'Até o vencimento Desconto de '+FormatCurr('R$ #,##0.00', StrToFloat(up.fieldbyname('valor_desconto').AsString))+#13+
                     'Após o vencimento Juros de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedJuros.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100)
                     +' ao dia + Multa de '+FormatCurr('R$ #,##0.00',(StrToFloat(DBEditCedMulta.Text)*strtofloat(up.fieldbyname('valor_base').AsString))/100)+#13+
                     DBEdObservacao1.Text+#13+
                     DBEdObservacao2.Text+#13+
                     'Aluno: '+clientalunosnome.AsString + '-' + 'Turma: '+clientturmasnome.AsString;

         with Sacado do

          begin

          Pessoa     := pFisica;
          NomeSacado := clientalunosresp.AsString;
          CNPJCPF    := clientalunoscpf_resp.AsString;
          Logradouro := clientalunosender_resp.AsString;
          Numero     := '000';
          Bairro     := clientalunosbairro_resp.AsString;
          Cidade     := clientalunoscidade_resp.AsString;
          UF         := clientalunosuf_resp.AsString;
          CEP        := clientalunoscep_resp.AsString;
          ValorAbatimento:= vdesconto;
          end;

          with ACBrBoleto1.Cedente do
      begin
     //  Modalidade    := DBEditCedCodigo_Carteira.Text;
       CaracTitulo   := tcSimples;
       Agencia       := DBEditCedAgencia.Text;
       AgenciaDigito := DBEditDigitoAgencia.Text;
       CodigoCedente := DBEditCodCedente.Text;
       Conta         := DBEditConta.Text;
       ContaDigito   := DBEditDigitoConta.Text;
       TipoInscricao := pJuridica;
       Nome          := DBEditCedNome.Text;
       Bairro        := clientparametrosbairro_escola.AsString;
       Cidade        := clientparametroscidadeescola.AsString;
       Logradouro    := clientparametrosenderescola.AsString;
       NumeroRes     :='';
       CEP           := '55000000';
       CNPJCPF       := DBEditCedCNPJ.Text;
       //Convenio      := DBEditCedCodigo_Carteira.Text;
       //CodigoTransmissao:=DBEditCodTransmissao.Text;
       CaracTitulo:=tcVinculada;
       //TipoCarteira:=tctRegistrada;
       ResponEmissao := tbCliEmite;
      end;

Juliana Tamizou · 19 Fevereiro, 2016

Boa noite.

Acho que você não entendeu a solicitação, para poder verificar oque exatamente está faltando ou errado no calculo indicado pelo banco seriam os dados em si, por exemplo:

Ao invés de

Agencia       := DBEditCedAgencia.Text;

Precisamos saber como o DBeditCedAgencia está preenchido.

Att.

valramosr · 20 Fevereiro, 2016

Ha tá, Entendi. Desculpe minha ignorância.

//dados cedente
       CaracTitulo   := tcSimples;
       Agencia       := 0491
       AgenciaDigito := 0 // não tem digito ou não me passaram, ai passo como 0.
       CodigoCedente := 19615 // passo o nr da conta, pois não passaram o codigo do cedente ou o itau nao usa.
       Conta         := 19615 // conta corrente
       ContaDigito   := 0 // digito da conta
       TipoInscricao := pJuridica;
       // os dados abaixo vem da tabela do cliente;

       Nome          := nome da empresa
       Bairro        := clientparametrosbairro_escola.AsString;
       Cidade        := clientparametroscidadeescola.AsString;
       Logradouro    := clientparametrosenderescola.AsString;
       CEP           := '55000000';
       CNPJCPF       := DBEditCedCNPJ.Text;

alimentando o componente com os dados do titulo.

LocalPagamento :='Até o vencimento, preferencialmente no Itaú. ' +
'Após o vencimento, somente no Itaú';

Vencimento := EncodeDate(2016,03,20) // mexi nesse campo de data, pois uso mysql que passa a data como aaaa-mm-dd,

        DataDocumento     := Now;
        NumeroDocumento   := ClientGeraTitulosid.AsString; // id passo id como numero
        EspecieDoc        := 'DM';
        Aceite            := atSim;
        DataProcessamento := Now;
        NossoNumero       := ClientGeraTitulosid.AsString; // passo tb id como nossonumero
        Carteira          := 109 // código que o banco me passou
        ValorDocumento    := ClientGeraTitulosvalor_base.AsFloat;

Ré-enviei para o banco com a alteração de data.
pode ter sido isso, devido o MySql passar data aaaa-mm-dd.

vou esprar resposta. Assim que me derem a resposta posta aqui.

Desde ja lhe agradeço a atençao e a paciencia.

valramosr · 22 Fevereiro, 2016

Bom dia Juliana,

Como suspeitei, era realmente o erro na data que estava passando devido o MySql passa a data invertida. Mas resolvi o problema da data e re-enviei o arquivo.

Foi homologado o boleto.

Muito obrigado por sua disponibilidade em ajudar.

Bom Dia.

Entrar

Sobre nós...

Homologação Itau C240

Recommended Posts

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Cálculo de DAC e fator de vencimento

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Crie uma conta ou entre para comentar

Criar uma conta

Entrar

Sobre nós...

Informação Importante