Remessa 240 Validação do Santander

[melissanascimento]

Bom dia, Preciso de ajuda. 

Até semana passada estava enviando arquivos pro Santander no formato 240 porem essa semana não consigo mais da erro Descrição do Erro: "DATA MULTA MAIOR QUE DATA DE VENCIMENTO" Valor do Erro: "SEU NUMERO ="

Meu código. 
 

  Titulo := dmACBR.ACBrBoleto.CriarTituloNaLista;
  with Titulo do begin // cria titulo na lista
   Application.ProcessMessages;
   Vencimento := StrToDate(SQLListaBoletosDiavencimento.AsString);
   DataDocumento := StrToDate(SQLListaBoletosDiadata_processamento.AsString);
   NumeroDocumento := SQLListaBoletosDiaNumeroDocumento.AsString;
   EspecieDoc := 'DM';
   EspecieMod := '$';
   Aceite := atSim;
   DataProcessamento := SQLListaBoletosDiadata_processamento.AsDateTime;
   Carteira := varCarteira;
   NossoNumero := SQLListaBoletosDiaNossoNumero.AsString;
   ValorDocumento := StrToCurr(SQLListaBoletosDiavalor.AsString);
   Sacado.NomeSacado := SQLListaBoletosDianomeCliente.AsString;
   Sacado.CNPJCPF := SQLListaBoletosDiadocumentoc.AsString;
   Sacado.Logradouro := SQLBuscaClientesruac.AsString;
   Sacado.Numero := SQLBuscaClientesnumeroc.AsString;
   Application.ProcessMessages;
   Sacado.Bairro := SQLBuscaClientesbairroc.AsString;
   Sacado.Cidade := SQLBuscaClientescidadec.AsString;
   Sacado.UF := SQLBuscaClientesestadoc.AsString;
   Sacado.CEP := OnlyNumber(SQLBuscaClientescepc.AsString);
   ValorAbatimento := StrToCurrDef('0', 0);
   LocalPagamento := varLocalPagamento;
   Application.ProcessMessages;
   ValorMoraJuros := StrToCurrDef('0', 0);
   ValorDesconto := StrToCurrDef('0', 0);
   ValorAbatimento := StrToCurrDef('0', 0);
   Application.ProcessMessages;
   DataMoraJuros := StrToDateDef('', 0);
   DataDesconto := StrToDateDef('', 0);
   DataAbatimento := StrToDateDef('', 0);
   PercentualMulta := StrToCurrDef(varPercentualMulta, 0);
   Application.ProcessMessages;
   Mensagem.Text := varMensagem;
   OcorrenciaOriginal.Tipo := toRemessaRegistrar;
   Application.ProcessMessages;

   if SQLListaBoletosDiaprotesto.AsString = 'SIM' then begin
     // date + 5
     DataProtesto := Vencimento + 5;
   end
   else begin
      DataProtesto := StrToDateDef('', 0);
   end;

  end;
  // fim do processo de add titulo
 

Obrigada. 

[José M. S. Junior]

Bom dia, Informe o campo "DataMulta" para passar a data da Multa. (DataMoraJuros e DataMulta são campos diferentes)

[melissanascimento]

Obrigada deu Certo.