Erro no arquivo de remessa segmento R

[amauridebarros]

Pessoal antes peço desculpas por abrir tantos tópicos mas estou abrindo a medida em que os erros vão aparecendo no meu arquivo.

O Problema agora é que os dados do segmento R do arquivo estão vindo sem as datas, e o validador está dando erro porque o arquivo está 

sem a data de multa.

Segue abaixo a ilustração do arquivo

 

 

 

[BigWings]

Você informou a data de multa no componente?

[amauridebarros]

está informado na rotina abaixo, onde eu destaquei em vermelho. A não ser que tenha que informar em outro lugar.

 

procedure TfrmDemo.Button4Click(Sender: TObject);
var
  Titulo : TACBrTitulo;
  VQtdeCarcA, VQtdeCarcB, VQtdeCarcC :Integer;
  VLinha, logo : string;
  i: Integer;
begin

  dm.ACBrBoleto.Cedente.FantasiaCedente := 'HKS INFORMATICA E SOLUCOES LTDA - ME';

  dm.ACBrBoleto.Cedente.Nome := 'HKS INFORMATICA E SOLUCOES LTDA - ME';
  dm.ACBrBoleto.Cedente.Logradouro := ' R. Evaristo Rodrigues de Arruda,121';
  dm.ACBrBoleto.Cedente.Bairro := 'Jardim Dourado';
  dm.ACBrBoleto.Cedente.Cidade := 'Guarulhos';
  dm.ACBrBoleto.Cedente.CEP := '07093-100';
  dm.ACBrBoleto.Cedente.Telefone := ' (11) 4969-5235';
  dm.ACBrBoleto.Cedente.Modalidade:='01';
  ///00001
  Titulo := dm.ACBrBoleto.CriarTituloNaLista;
  with Titulo do
  begin

    Vencimento        := StrToDate(edtVencimento.Text);
    DataDocumento     := StrToDate(edtDataDoc.Text);
    NumeroDocumento   := edtNumeroDoc.Text;
    EspecieDoc        := edtEspecieDoc.Text;
    if cbxAceite.ItemIndex = 0 then
       Aceite := atSim
    else
    Aceite := atNao;
    DataProcessamento := Now;
    Carteira          := edtCarteira.Text;
    NossoNumero       := edtNossoNro.Text;
    ValorDocumento    := StrToCurr(edtValorDoc.Text);
    Sacado.NomeSacado := edtNome.Text;
    Sacado.CNPJCPF    := OnlyNumber(edtCPFCNPJ.Text);
    Sacado.Logradouro := edtEndereco.Text;
    Sacado.Numero     := edtNumero.Text;
    Sacado.Bairro     := edtBairro.Text;
    Sacado.Cidade     := edtCidade.Text;
    Sacado.UF         := edtUF.Text;
    Sacado.CEP        := OnlyNumber(edtCEP.Text);
    ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);
    LocalPagamento    := edtLocalPag.Text;
    ValorMoraJuros    := StrToCurrDef(edtMoraJuros.Text,0);
    ValorDesconto     := StrToCurrDef(edtValorDesconto.Text,0);
    ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);

   //**********************************************************
    DataMoraJuros     := StrToDateDef(edtDataMora.Text, 0);

   //**********************************************************

    DataDesconto      := StrToDateDef(edtDataDesconto.Text, 0);
    DataAbatimento    := StrToDateDef(edtDataAbatimento.Text, 0);
    DataProtesto      := StrToDateDef(edtDataProtesto.Text, 0);
    PercentualMulta   := StrToCurrDef(edtMulta.Text,0);
    //Mensagem.Text     := memMensagem.Text;
    //OcorrenciaOriginal.Tipo := toRemessaBaixar;
    OcorrenciaOriginal.Tipo:=toRemessaRegistrar;
    Instrucao1        := PadRight(trim(edtInstrucoes1.Text),2,'0');
    Instrucao2        := PadRight(trim(edtInstrucoes2.Text),2,'0');

    QtdePagamentoParcial:= 1;
    TipoPagamento:= tpNao_Aceita_Valor_Divergente;
    PercentualMinPagamento:= 0;
    PercentualMaxPagamento:= 0;
    ValorMinPagamento:= 0;
    ValorMaxPagamento:= 0;

[BigWings]

Está informando apenas PercentualMulta e não DataMulta.

[amauridebarros]

RESOLVIDO

Muito obrigado

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.