Validação CNAB 400 Bradesco

[Carlos Júnior]

Estou com estes dois erros que não estou conseguindo encontrar o problema..

Linha 2, colunas 180 a 192, Registro tipo 1, Valor do desconto 1 não informado.  (Estou informando o campo Titulo.ValorDesconto := 0;)
Linha 3, colunas 395 a 400, Número sequencial de registro inválido. (Aonde é informado este sequencial? Esta estourando em 1 digito no arquivo ficando com 401 posições) 
Linha 3, Tamanho do registro inválido.

[Carlos Júnior]

O erro da linha 3 era por estar regerando o registro 2 quando eu passava algo em Titulo.Mensagem...Marquei a opçao de gera mensagem padrão e não passei as informações para o titulo.mensagem.

 

O erro da linha 2 eu ainda não descobri o que é...Fiz um teste no programa exemplo com os mesmo dados e lá não deu este erro...comparei os arquivos de configuração e não achei diferença.

 

[Antonio Gomes]

desconto, pede valor, se voce comandar ele, olha se vc colocou "sem desconto". 

Olha como faço:

Titulo.ValorDesconto  := 0;
              Titulo.CodigoDesconto := cdSemDesconto; // , cdValorFixo
              Titulo.TipoDesconto   := tdNaoConcederDesconto;

              if (IBDSReceber.FieldByName('CONCEDER_DESCONTO_ATE_REC').AsString = 'S') and
               ((IBDSReceber.FieldByName('VLR_DESCONTO_ATE_REC').AsCurrency > 0) or
                 (IBDSReceber.FieldByName('PERC_DESCONTO_BOLETO_REC').AsCurrency > 0)) then
              begin
                { tdNaoConcederDesconto,
                  tdValorFixoAteDataInformada,
                  tdPercentualAteDataInformada,
                  tdValorAntecipacaoDiaCorrido,
                  tdValorAntecipacaoDiaUtil,
                  tdPercentualSobreValorNominalDiaCorrido,
                  tdPercentualSobreValorNominalDiaUtil,
                  tdCancelamentoDesconto); }

                if IBQryServBanc.FieldByName('REM_DESCONTO_VP_SER').AsString = 'P' then
                begin
                  Titulo.ValorDesconto := IBDSReceber.FieldByName('PERC_DESCONTO_BOLETO_REC').AsCurrency;
                  Titulo.TipoDesconto  := tdPercentualAteDataInformada;
                end
                else if IBQryServBanc.FieldByName('REM_DESCONTO_VP_SER').AsString = 'V' then
                begin
                  Titulo.ValorDesconto := IBDSReceber.FieldByName('VLR_DESCONTO_ATE_REC').AsCurrency;
                  Titulo.TipoDesconto  := tdValorFixoAteDataInformada;
                end;

                if Titulo.ValorDesconto > 0 then
                begin
                  Titulo.CodigoDesconto := cdValorFixo;
                  Titulo.DataDesconto   := IBDSReceber.FieldByName('CONSIDERAR_DESC_ATE_REC').AsDateTime;
                end;
              end;