Erro ao importar Remessa Banco Inter

[rodrigofernandes]

Bom dia tudo bem ?

Após importar o arquivo de remessa do Banco Inter tenho o seguinte retorno:

foi informado multa e/ou juros para um boleto com dias de agenda igual a 0 valor 0 

Alguém poderia informar qual informação estou deixando de passar, pois pela manual não consegui identificar.

 

Estou colocando em anexo o arquivo de remessa e também um print do boleto, desde já agradeço a cooperação de todos.

Coloquei também o arquivo de remessa.

CI400_001_0000008.rem

[FGGLUIZ]

@rodrigofernandes, bom dia.

Você está preenchendo a Data Limite de Pagamento? 

Titulo.DataLimitePagto

Manual do Inter:  Coluna 140 a 141 - Data limite de pagamento
Informar “0”, "30" ou "60". Esses são os dias decorridos da data de vencimento do título em que ainda será possível o pagamento

Seria interessante passar como você está alimentando o componente para analisar melhor.

Fábio Gabriel

[rodrigofernandes]

Sim estou passando o valor conforme a linha abaixo:

1                   11200010228549620                            20000000000000030009092200000000000        01PD 317440 080922000000002910300      99N         10000000000029000009092200000000000000000000000000000000000000100028267865802FERNANDA MORAIS RIBEIRO                 ANTONIO PEDROSO DE OLIVEIRA 160 AMERICAN04428000                                                                      000002

O código estou gerando da seguinte forma:
 

iNumeroTitulo := iNumeroTitulo + 1;
        Titulo := ACBrBoleto1.CriarTituloNaLista;
        Vencimento := DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value;
        DataDocumento := DmBoleto.QryPesquisaNfeCabDATAEMISSAO.Value;
        Carteira := DmBoleto.QryBancoCARTEIRA.Value;
        NossoNumero := DmBoleto.QryPesquisaNfeCabNOSSONUMERO.Value;

        EspecieDoc := DmBoleto.QryBancoESPECIEDOCUMENTO.Value;
        EspecieMod := 'R$';
        if DmBoleto.QryBancoACEITE.Value = 'SIM' then
          Aceite := atSim
        else
          Aceite := atNao;
        DataProcessamento := Now;
        NumeroDocumento := DmBoleto.QryPesquisaNfeCabDOCNUMERO.AsString;
        ValorDocumento := DmBoleto.QryPesquisaNfeCabVALORVENCIMENTO.Value;
        Sacado.NomeSacado := DmBoleto.QryPesquisaNfeCabRAZAOSOCIAL.Value;
        Sacado.CNPJCPF := DmBoleto.QryPesquisaNfeCabCNPJ.Value;
        Sacado.Logradouro := DmBoleto.QryPesquisaNfeCabENDERECO.Value;
        Sacado.Numero := DmBoleto.QryPesquisaNfeCabNUMERO.AsString;
        Sacado.Bairro := DmBoleto.QryPesquisaNfeCabBAIRRO.Value;
        Sacado.Cidade := DmBoleto.QryPesquisaNfeCabCIDADE.Value;
        Sacado.UF := DmBoleto.QryPesquisaNfeCabUF.Value;
        Sacado.Complemento := DmBoleto.QryPesquisaNfeCabComplemento.Value;
        if length(DmBoleto.QryPesquisaNfeCabCNPJ.Value) = 18 then
          Sacado.Pessoa := pJuridica
        else
          Sacado.Pessoa := pFisica;

        Sacado.CEP :=
          TiraAcentos(TiraPontos(DmBoleto.QryPesquisaNfeCabCEP.Value));
        ValorAbatimento := 0;
        LocalPagamento := DmBoleto.QryBancoLOCALPAGAMENTO.Value;
        ValorMoraJuros :=
          ((DmBoleto.QryPesquisaNfeCabVALORVENCIMENTO.Value *
          DmBoleto.QryBancoJUROSMORA.Value) / 100) / 30;
        ValorDesconto := DmBoleto.QryPesquisaNfeCabVALORDESCONTO.Value;
        ValorAbatimento := 0;
        DataMoraJuros := IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value,
          DmBoleto.QryBancoDIASJUROS.Value);
        DataDesconto := 0;
        DataAbatimento := 0;
        DataProtesto := IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value,
          DmBoleto.QryBancoDIASPROTESTO.Value);
        PercentualMulta := DmBoleto.QryBancoMULTA.Value;
        if ((DmBoleto.QryBancoNUMEROBANCO.Value = 1) or
          (DmBoleto.QryBancoNUMEROBANCO.Value = 77)) then
        begin
          DataMulta :=
            IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value, 1);
        end;
        if (DmBoleto.QryBancoNUMEROBANCO.Value = 77) then
        begin
          DiasDeProtesto := DmBoleto.QryBancoDIASPROTESTO.Value;
          DataMoraJuros :=
            IncDay(DmBoleto.QryPesquisaNfeCabDATAVENCIMENTO.Value,
            DmBoleto.QryBancoDIASJUROS.Value);
        end;

        Mensagem.Text := DmBoleto.QryBancoMENSAGEM.Value;
        // OcorrenciaOriginal.Tipo := toRemessaBaixar;
        Instrucao1 := PadRight(Trim(DmBoleto.QryBancoINSTRUCAO1.Value), 2, '0');
        Instrucao2 := PadRight(Trim(DmBoleto.QryBancoINSTRUCAO2.Value), 2, '0');
        Parcela := DmBoleto.QryPesquisaNfeCabNUMEROPARCELA.AsInteger;
        TotalParcelas := DmBoleto.QryPesquisaNfeCab.RecordCount;

 

Coloquei também o arquivo de remessa.