Problema Arquivo Remessa ITAU

[raosistemas]

Segue arquivo remessa gerado, preenchi com o campo datamulta, mas continua não validadando o arquivo. cb270203.rem

o erro de validação é o que está no PDF anexado. valida_cb270203rem.pdf

Agradeço se puderem me ajudar, estava utilizando o cobrebemx mas mudei para o acbr devido a facilidade de gerar o boleto em pdf, ser free, etc.

[Edevair Viesa Junior]

Como você configurou o componente ACBRBoleto ??

[raosistemas]

          with Titulo do
          begin

            Titulo.OcorrenciaOriginal.Tipo:=toRemessaRegistrar;

            Vencimento := movoutrodtvcto.Value;
            DataDocumento := movoutrodtemis.Value;
            NumeroDocumento := formatatitulo(movoutrodocnf.Value)+'/'+formatfloat('0',MOVoutroPARC.value);
            EspecieDoc := 'DM';
            Aceite := atNao;
            DataProcessamento := Now;
            Carteira := cc_cobcarteira.AsString;
            Inc(ournumber);
            SeuNumero   := formatatitulo(movoutrodocnf.Value)+'/'+formatfloat('0',MOVoutroPARC.value);
            NossoNumero := Copy(movoutronrdocban.Value,1,8);
            ValorDocumento := movoutrovalor.Value;
            ValorAbatimento:= movoutrovalorabatido.Value;
            if ValorAbatimento>0 then begin
            DataAbatimento:=movoutrodtvcto.Value;
            end;
            if Length(sonumeros(clicnpj.Value))>11 then
               sacado.Pessoa:=pJuridica
               else Sacado.Pessoa:=pFisica;
            Sacado.NomeSacado := clirazao.Value;
            Sacado.CNPJCPF := sonumeros(clicnpj.Value);
            Sacado.Logradouro := cliendereco.value;
            Sacado.Numero := cliendereconumero.asstring;
            Sacado.Bairro := clibairro.Value;
            Sacado.Cidade := clicidade.Value;
            MultaValorFixo:= False;
            DataMulta     := movoutrodtvcto.Value+1;
            DataMoraJuros := movoutrodtvcto.Value+1;
            DataDesconto  := movoutrodtvcto.Value;
            //        TipoDesconto  := tdNaoConcederDesconto;
            ValorDesconto := 0;
            Sacado.UF := cliestado.value;
            Sacado.CEP := sonumeros(clicep.Value);
            PercentualMulta := cc_cobpercentualmulta.Value;
            ValorMoraJuros:=Arredondar(movoutrovalor.Value/100*cc_cobpercentualjuros.Value/30,2);
            if cc_cobprotestar.Value=1 then DataProtesto := movoutrodtvcto.value+cc_cobdiasprotesto.Value;
            if (cc_cobdiasprotesto.Value>0) and (cc_cobprotestar.Value<1) then Mensagem.Text :='Protestar Após '+formatfloat('00',cc_cobdiasprotesto.value)+' Dias de Vencido.';
          end;

 

[Rafael Thinassi]

Você precisa efetuar a configuração de multa junto ao banco, provavelmente eles não estão esperando a instrução que está sendo enviada, pois não está configurado lá no sistema deles.

O post a baixo soluciona o problema: