ACBrBancoSantander.pas

{******************************************************************************}
{ Projeto: Componentes ACBr                                                    }
{  Biblioteca multiplataforma de componentes Delphi para interação com equipa- }
{ mentos de Automação Comercial utilizados no Brasil                           }
{                                                                              }
{ Direitos Autorais Reservados (c) 2020 Daniel Simoes de Almeida               }
{                                                                              }
{ Colaboradores nesse arquivo: Juliana Tamizou                                 }
{                                                                              }
{  Você pode obter a última versão desse arquivo na pagina do  Projeto ACBr    }
{ Componentes localizado em      http://www.sourceforge.net/projects/acbr      }
{                                                                              }
{  Esta biblioteca é software livre; você pode redistribuí-la e/ou modificá-la }
{ sob os termos da Licença Pública Geral Menor do GNU conforme publicada pela  }
{ Free Software Foundation; tanto a versão 2.1 da Licença, ou (a seu critério) }
{ qualquer versão posterior.                                                   }
{                                                                              }
{  Esta biblioteca é distribuída na expectativa de que seja útil, porém, SEM   }
{ NENHUMA GARANTIA; nem mesmo a garantia implícita de COMERCIABILIDADE OU      }
{ ADEQUAÇÃO A UMA FINALIDADE ESPECÍFICA. Consulte a Licença Pública Geral Menor}
{ do GNU para mais detalhes. (Arquivo LICENÇA.TXT ou LICENSE.TXT)              }
{                                                                              }
{  Você deve ter recebido uma cópia da Licença Pública Geral Menor do GNU junto}
{ com esta biblioteca; se não, escreva para a Free Software Foundation, Inc.,  }
{ no endereço 59 Temple Street, Suite 330, Boston, MA 02111-1307 USA.          }
{ Você também pode obter uma copia da licença em:                              }
{ http://www.opensource.org/licenses/lgpl-license.php                          }
{                                                                              }
{ Daniel Simões de Almeida - daniel@projetoacbr.com.br - www.projetoacbr.com.br}
{       Rua Coronel Aureliano de Camargo, 963 - Tatuí - SP - 18270-170         }
{******************************************************************************}

{$I ACBr.inc}

unit ACBrBancoSantander;

interface

uses
  Classes, SysUtils, Contnrs,
  ACBrBoleto, ACBrBoletoConversao;

type

  { TACBrBancoSantander }

  TACBrBancoSantander = class(TACBrBancoClass)
  private
    FvTotalTitulos : Double;
  protected
    function DefineNumeroDocumentoModulo(const ACBrTitulo: TACBrTitulo): String; override;
    function DefineCampoLivreCodigoBarras(const ACBrTitulo: TACBrTitulo): String; override;
    function DefinePosicaoNossoNumeroRetorno: Integer; override;
    function DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String; override;
    function DefineEspecieDoc(const ACBrTitulo: TACBrTitulo): String; override;
    function DefineTipoDiasProtesto(const ACBrTitulo: TACBrTitulo): String; override;
    function InstrucoesProtesto(const ACBrTitulo: TACBrTitulo): String; override;
    function DefineTipoCarteira(const ACBrTitulo: TACBrTitulo): String;
    function DefineCarteira(const ACBrTitulo: TACBrTitulo): String;
    function DefineTipoDocumento(const ACBrTitulo: TACBrTitulo): String; reintroduce;
    function MontaInstrucoes1CNAB240(const ACBrTitulo: TACBrTitulo): String;
    function MontaInstrucoes2CNAB240(const ACBrTitulo: TACBrTitulo): String;
  public
    Constructor create(AOwner: TACBrBanco);
    function MontarCampoNossoNumero(const ACBrTitulo :TACBrTitulo): String; override;
    function MontarCampoCodigoCedente(const ACBrTitulo: TACBrTitulo): String; override;

    function GerarRegistroHeader240(NumeroRemessa: Integer): String; override;
    function GerarRegistroTransacao240(ACBrTitulo : TACBrTitulo): String; override;
    function GerarRegistroTrailler240(ARemessa : TStringList): String;  override;
    procedure GerarRegistroHeader400(NumeroRemessa : Integer; aRemessa: TStringList); override;
    procedure GerarRegistroTransacao400(ACBrTitulo : TACBrTitulo; aRemessa: TStringList); override;
    procedure GerarRegistroTrailler400(ARemessa:TStringList);  override;
    Procedure LerRetorno240(ARetorno:TStringList); override;
    Procedure LerRetorno400(ARetorno:TStringList); override;

    function TipoOcorrenciaToDescricao(const TipoOcorrencia: TACBrTipoOcorrencia) : String; override;
    function CodOcorrenciaToTipo(const CodOcorrencia:Integer): TACBrTipoOcorrencia; override;
    function TipoOcorrenciaToCod(const TipoOcorrencia: TACBrTipoOcorrencia):String; override;
    function CodMotivoRejeicaoToDescricao(const TipoOcorrencia:TACBrTipoOcorrencia; CodMotivo:Integer): String; override;
    function CodOcorrenciaToTipoRemessa(const CodOcorrencia:Integer): TACBrTipoOcorrencia; override;
    function TipoOcorrenciaToCodRemessa(const TipoOcorrencia: TACBrTipoOcorrencia): String; override;
    function CodEspecieDocToTipo(const EspecieDoc: String): String;
    function DefineNossoNumeroRetorno(const Retorno: String): String; override;
  end;

implementation

uses
  {$IFDEF COMPILER6_UP} dateutils {$ELSE} ACBrD5 {$ENDIF},
  StrUtils, math, ACBrUtil.Base, ACBrUtil.FilesIO, ACBrUtil.Strings, ACBrUtil.DateTime,
  ACBrUtil.Math, ACBrPIXBase;

{ TACBrBancoSantander }

constructor TACBrBancoSantander.create(AOwner: TACBrBanco);
begin
   inherited create(AOwner);
   fpDigito                 := 7;
   fpNome                   := 'BANCO SANTANDER';
   fpNumero                 := 033;
   fpTamanhoMaximoNossoNum  := 12;
   fpTamanhoCarteira        := 3;
   fpCodigosMoraAceitos    := '123456';
   fpTamanhoConta           := 11;
   fpLayoutVersaoArquivo    := 40;
   fpLayoutVersaoLote       := 30;
   fpDensidadeGravacao      := '0';
   fpModuloMultiplicadorInicial:= 0;
   fpModuloMultiplicadorFinal:= 9;
   fpModuloMultiplicadorAtual:= 0;
end;

function TACBrBancoSantander.DefineNossoNumeroRetorno(const Retorno: String): String;
begin
  if ACBrBanco.ACBrBoleto.LerNossoNumeroCompleto then
  begin
    ACBrBanco.TamanhoMaximoNossoNum := 13;
    Result := Copy(Retorno,DefinePosicaoNossoNumeroRetorno,13)
  end else
  begin
    ACBrBanco.TamanhoMaximoNossoNum := 12;
    Result := Copy(Retorno,DefinePosicaoNossoNumeroRetorno,12);
  end;
end;

function TACBrBancoSantander.DefineNumeroDocumentoModulo(
  const ACBrTitulo: TACBrTitulo): String;
begin
  case ACBrTitulo.ACBrBoleto.LayoutRemessa of
    c240 : Result:= ACBrTitulo.NossoNumero;
    c400 : Result:= PadLeft(RightStr(ACBrTitulo.NossoNumero,7),7,'0');
  end
end;

function TACBrBancoSantander.DefinePosicaoNossoNumeroRetorno: Integer;
begin
  if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
    Result := 41
  else
    Result := 63;
end;

function TACBrBancoSantander.DefineCampoLivreCodigoBarras(
  const ACBrTitulo: TACBrTitulo): String;
begin
   with ACBrTitulo.ACBrBoleto do
  begin
    Result := '9'
               + PadLeft(trim(Cedente.CodigoCedente),7,'0')
               + PadLeft(OnlyNumber(MontarCampoNossoNumero(ACBrTitulo)), 13,'0')
               + '0'
               + PadLeft(trim(Cedente.Modalidade),3,'0');
  end;
end;

function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    case CaracTitulo of
      tcSimples            : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)}
      tcCaucionada         : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)}
      tcDescontada         : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)}
      tcVinculada, tcDireta,
      tcSimplesRapComReg   : Result := '5'; {Cobrança Simples (Rápida com Registro)}
      tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)}
      { TODO :
          8 = Cobranca Cessao (Eletronica com Registro)
      }
    else
        Result := '1';
    end;
  end;
end;

function TACBrBancoSantander.DefineEspecieDoc(const ACBrTitulo: TACBrTitulo): String;
begin
  Result:= ' ';
  with ACBrTitulo do
  begin
    if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
    begin
      if Trim(EspecieDoc) = 'DM' then      {DM - DUPLICATA MERCANTIL}
        Result := '02'
      else if Trim(EspecieDoc) = 'DS' then {DS - DUPLICATA DE SERVICO}
        Result := '04'
      else if Trim(EspecieDoc) = 'NP' then {NP - NOTA PROMISSORIA}
        Result := '12'
      else if Trim(EspecieDoc) = 'NR' then {NR - NOTA PROMISSORIA RURAL}
        Result := '13'
      else if Trim(EspecieDoc) = 'RC' then {RC - RECIBO}
        Result := '17'
      else if Trim(EspecieDoc) = 'AP' then {AP – APOLICE DE SEGURO}
        Result := '20'
      else if Trim(EspecieDoc) = 'CH' then {CH - CHEQUE}
        Result := '97'
      else if Trim(EspecieDoc) = 'ND' then {ND - NOTA PROMISSORIA DIRETA}
        Result := '98'
      else
      begin
        if not MatchText(EspecieDoc, ['02', '04', '12', '13', '17', '20', '97', '98']) then
          raise Exception.Create('Espécie de documento informada incorretamente!');

        Result := EspecieDoc;
      end;
    end
    else
    begin
      {Pegando Especie}
      if trim(EspecieDoc) = 'DM' then
         Result:= '01'
      else if trim(EspecieDoc) = 'NP' then
         Result:= '02'
      else if trim(EspecieDoc) = 'NS' then
         Result:= '03'
      else if trim(EspecieDoc) = 'RC' then
         Result:= '05'
      else if trim(EspecieDoc) = 'DS' then
         Result:= '06'
      else if trim(EspecieDoc) = 'LC' then
         Result:= '07'
      else if trim(EspecieDoc) = 'BDP' then
         Result:= '08'
      else if trim(EspecieDoc) = 'BCC' then
         Result:= '19'
      else
         Result:= EspecieDoc;
    end;
  end;

end;

function TACBrBancoSantander.DefineTipoDiasProtesto(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    case TipoDiasProtesto of
       diCorridos       : Result := '1';
       diUteis          : Result := '2';
    else
       Result := '0';
    end;
  end;

end;

function TACBrBancoSantander.InstrucoesProtesto(const ACBrTitulo: TACBrTitulo): String;
var
  sDiasProtesto: String;
begin
  Result := '';
  if ACBrBanco.ACBrBoleto.LayoutRemessa = c240 then
  begin
    {Intruções}
    with ACBrTitulo do
    begin
      try
        {Instruções}
        Instrucao1 := Trim(Instrucao1);
        Instrucao2 := Trim(Instrucao2);

        if ((DataProtesto <> 0) and (DiasDeProtesto > 0)) then
        begin
          if not MatchText(Instrucao1, ['0', '1', '2', '3', '9']) then
            Instrucao1 := DefineTipoDiasProtesto(ACBrTitulo);
          // Dias para protesto
          sDiasProtesto := PadLeft(IntToStr(DiasDeProtesto), 2, '0');
        end
        else
        begin
          Instrucao1 := '0';  // Não protestar
          SDiasProtesto := '00';
        end;

        // Baixa/Devolução
        if (Instrucao2 = '') then
          Instrucao2 := '2' // NAO BAIXAR / NAO DEVOLVER
        else
        begin
          if not MatchText(Instrucao2, ['1', '2', '3']) then
            raise Exception.Create('Código de Baixa/Devolução informado incorretamente!');
        end;

      finally
        Result := Instrucao1 + sDiasProtesto + Instrucao2;
      end;
    end;

  end
  else
  begin
    with ACBrTitulo do
    begin
      if (DataProtesto > 0) and (DataProtesto > Vencimento) then //and (Instrucao1 = '06') then
       begin
         Result :=  IntToStrZero(DaysBetween(DataProtesto,Vencimento),2);
         if (trim(Instrucao1) <> '06' )  and (trim(Instrucao2) <> '06' ) then
            If Trim(Instrucao1) = '' then
               Instrucao1 := '06'
            else
               Instrucao2 := '06';
       end
      else
         Result :=  '00';
    end;
  end;

end;

function TACBrBancoSantander.DefineTipoCarteira(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    case ACBrBoleto.Cedente.TipoCarteira of
       tctSimples: Result := '2';
       tctRegistrada: Result := '1';
       else
        Result := '2';
    end;
  end;
end;

function TACBrBancoSantander.DefineCarteira(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    Result := PadLeft(Carteira, 1, '0');

    if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) and ((Carteira = '101') or (Carteira = '005')) then
      Result := '1'
    else if ((Carteira = '101') or (Carteira = '005')) then
      Result := '5'
    else if ((Carteira = '201') or (Carteira = '006')) then
      Result := '6'
    else if ((Carteira = '102') or (Carteira = '004')) then
      Result := '4';
  end;
end;

function TACBrBancoSantander.DefineTipoDocumento(const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    case ACBrBoleto.Cedente.TipoDocumento of
      Tradicional: Result := '1';
      Escritural: Result := '2';
    else
      Result := '1';
    end;
  end;

end;

function TACBrBancoSantander.MontaInstrucoes1CNAB240(
  const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    if Mensagem.Count = 0 then
    begin
      Result := PadRight('', 80, ' '); // 2 registros
      Exit;
    end;

    Result := '';
    if Mensagem.Count >= 1 then
    begin
      Result := Result +
                Copy(PadRight(Mensagem[0], 40, ' '), 1, 40);
    end;

    if Mensagem.Count >= 2 then
    begin
      Result := Result +
                Copy(PadRight(Mensagem[1], 40, ' '), 1, 40)
    end
    else
    begin
      if (Result <> EmptyStr) then
        Result := Result + PadRight('', 40, ' ')  // 1 registro
      else
        Result := Result + PadRight('', 80, ' '); // 2 registros
      Exit;
    end;
  end;

end;

function TACBrBancoSantander.MontaInstrucoes2CNAB240(
  const ACBrTitulo: TACBrTitulo): String;
begin
  with ACBrTitulo do
  begin
    if (Mensagem.Count <= 2) then
    begin
      // Somente duas linhas, foi montado o MonarInstrucoes1
      Result := PadRight('', 200, ' ');
      Exit;
    end;

    Result := '';
    if Mensagem.Count >= 3 then
    begin
      Result := Copy(PadRight(Mensagem[2], 40, ' '), 1, 40);
    end;

    if Mensagem.Count >= 4 then
    begin
      Result := Result +
                Copy(PadRight(Mensagem[3], 40, ' '), 1, 40)
    end;

    if Mensagem.Count >= 5 then
    begin
      Result := Result +
                Copy(PadRight(Mensagem[4], 40, ' '), 1, 40)
    end;

    if Mensagem.Count >= 6 then
    begin
      Result := Result +
                Copy(PadRight(Mensagem[5], 40, ' '), 1, 40)
    end;

    if Mensagem.Count >= 7 then
    begin
      Result := Result +
                Copy(PadRight(Mensagem[6], 40, ' '), 1, 40)
    end;

    // Acertar a quantidade de caracteres
    Result := PadRight(Result, 200);
  end;

end;

function TACBrBancoSantander.MontarCampoNossoNumero (
   const ACBrTitulo: TACBrTitulo ) : String;
var LDV : String;
begin
   with ACBrTitulo do
   begin
      case StrToIntDef(Carteira,0) of
         5: Carteira := '101';
         6: Carteira := '201';
         4: Carteira := '102';
      end;
   end;

   if not (ACBrTitulo.ACBrBoleto.Configuracoes.WebService.VersaoDF = 'V1') then
     LDV := ' ' + CalcularDigitoVerificador(ACBrTitulo);

   Result:= PadLeft(ACBrTitulo.NossoNumero,12,'0') + LDV;
end;

function TACBrBancoSantander.MontarCampoCodigoCedente (
   const ACBrTitulo: TACBrTitulo ) : String;
begin
   Result := ACBrTitulo.ACBrBoleto.Cedente.Agencia+'-'+
             ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito+'/'+
             ACBrTitulo.ACBrBoleto.Cedente.CodigoCedente
end;

function TACBrBancoSantander.GerarRegistroHeader240(NumeroRemessa: Integer): String;
var
  ListHeader: TStringList;
begin
   Result := '';
   ListHeader:= TStringList.Create;
   try
     with ACBrBanco.ACBrBoleto.Cedente do
     begin
        { REGISTRO HEADER DO ARQUIVO REMESSA }
        ListHeader.Add(IntToStrZero(fpNumero, 3)             + // 001 - 003 / Código do Banco na compensação
                  '0000'                                     + // 004 - 007 / Lote de serviço
                  '0'                                        + // 008 - 008 / Tipo de registro
                  Space(8)                                   + // 009 - 016 / Reservado (uso Banco)
                  DefineTipoInscricao                        + // 017 - 017 / Tipo de inscrição da empresa
                  PadLeft(trim(OnlyNumber(CNPJCPF)),15,'0')  + // 018 - 032 / Nº de inscrição da empresa
                  PadLeft(CodigoTransmissao, 15)             + // 033 - 047 / Código de Transmissão
                  Space(25)                                  + // 048 - 072 / Reservado (uso Banco)
                  PadRight(Nome, 30)                         + // 073 - 102 / Nome da Empresa
                  PadRight(fpNome, 30)                       + // 103 - 132 / Nome do Banco(BANCO SANTANDER)
                  Space(10)                                  + // 133 - 142 / Reservado (uso Banco)
                  '1'                                        + // 143 - 143 / Código remessa = 1
                  FormatDateTime('ddmmyyyy',Now)             + // 144 - 151 / Data de geração do arquivo
                  Space(6)                                   + // 152 - 157 / Reservado (uso Banco)
                  PadLeft(IntToStr(NumeroRemessa), 6, '0')   + // 158 - 163 / Nº seqüencial do arquivo
                  PadLeft(IntToStr(fpLayoutVersaoArquivo), 3,'0')+ // 164 - 166 / Nº da versão do layout do arquivo
                  Space(74)                                 ); // 167 - 240 / Reservado (uso Banco)

        { REGISTRO HEADER DO LOTE REMESSA }
        ListHeader.Add(IntToStrZero(fpNumero, 3)             + // 001 - 003 / Código do Banco na compensação
                  '0001'                                     + // 004 - 007 / Numero do lote remessa
                  '1'                                        + // 008 - 008 / Tipo de registro
                  'R'                                        + // 009 - 009 / Tipo de operação
                  '01'                                       + // 010 - 011 / Tipo de serviço
                  Space(2)                                   + // 012 - 013 / Reservado (uso Banco)
                  PadLeft(IntToStr(fpLayoutVersaoLote), 3, '0') + // 014 - 016 / Nº da versão do layout do lote
                  Space(1)                                   + // 017 - 017 / Reservado (uso Banco)
                  DefineTipoInscricao                        + // 018 - 018 / Tipo de inscrição da empresa
                  PadLeft(trim(OnlyNumber(CNPJCPF)),15,'0')  + // 019 - 033 / Nº de inscrição da empresa
                  Space(20)                                  + // 034 - 053 / Reservado (uso Banco)
                  PadLeft(CodigoTransmissao, 15)             + // 054 - 068 / Código de Transmissão
                  Space(5)                                   + // 069 - 073 / Reservado (uso Banco)
                  PadRight(Nome, 30)                         + // 074 - 0103 / Nome do Cedente
                  Space(40)                                  + // 104 - 143 / Mensagem 1
                  Space(40)                                  + // 144 - 183 / Mensagem 2
                  PadLeft(IntToStr(NumeroRemessa), 8, '0')   + // 184 - 191 / Nº temessa
                  FormatDateTime('ddmmyyyy',Now)             + // 192 - 199 / Data de geração do arquivo
                  Space(41)                                 ); // 200 - 240 / Reservado (uso Banco)
     end;

     Result := RemoverQuebraLinhaFinal(ListHeader.Text);
   finally
     ListHeader.Free;
   end;

end;

procedure TACBrBancoSantander.GerarRegistroHeader400(NumeroRemessa : Integer; aRemessa: TStringList);
var
  wLinha: String;
begin
   FvTotalTitulos:= 0;
   with ACBrBanco.ACBrBoleto.Cedente do
   begin
      wLinha:= '0'                                        + // ID do Registro
               '1'                                        + // ID do Arquivo( 1 - Remessa)
               'REMESSA'                                  + // Literal de Remessa
               '01'                                       + // Código do Tipo de Serviço
               PadRight( 'COBRANCA', 15 )                 + // Descrição do tipo de serviço
               PadLeft( CodigoTransmissao, 20, '0')       + // Codigo da Empresa no Banco
               PadRight( Nome, 30)                        + // Nome da Empresa
               IntToStrZero(fpNumero, 3)                  + // Codigo
               PadRight('SANTANDER', 15)                  + // Nome do Banco(237 - Bradesco)
               FormatDateTime('ddmmyy',Now)               + // Data de geração do arquivo + brancos
               StringOfChar( '0', 16)                     +
               Space(275)+ '000'                          + // Nr. Sequencial de Remessa + brancos
               IntToStrZero(1,6);                           // Nr. Sequencial de Remessa + brancos + Contador

      ARemessa.Add(UpperCase(wLinha));
   end;
end;

function TACBrBancoSantander.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String;
var
  ISequencia : Integer;
  sCodMovimento, sAgencia, sCCorrente: String;
  sDigitoNossoNumero, sTipoCobranca, sTipoDocto, sTipoCarteira: String;
  sEspecie, sDataMoraJuros, sDataDesconto: String;
  STipoJuros, sTipoDesconto, sInstrucoesProtesto, sDiasBaixaDevol: String;
  sTipoInscricao, sEndereco : String;
  ATipoInscricao: String;
  ListTransacao: TStringList;

  LTipoChaveDICT : string;


begin
  ATipoInscricao := ' ';

  with ACBrTitulo do
  begin
    {Tipo de Ocorrencia}
    sCodMovimento := TipoOcorrenciaToCodRemessa(ACBrTitulo.OcorrenciaOriginal.Tipo);

    {Define Agência}
    sAgencia := PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
                        ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0');

    // Tamanho da conta corrente definida como padrão de 11 digitos, porém no arquivo
    // remessa a conta solicitada é de 8 dígitos.
    // Devemos retirar os zeros a esquerda da conta

    {Define Conta}
    sCCorrente := OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Conta);
    sCCorrente := Copy(SCCorrente, Length(sCCorrente) - 8, 9) +
                  OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.ContaDigito);

    sDigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);

    {Caracteristica Título}
    sTipoCobranca := DefineCaracTitulo(ACBrTitulo);

    {Tipo Carteira}
    sTipoCarteira:= DefineTipoCarteira(ACBrTitulo);

    {Tipo Documento}
    sTipoDocto:= DefineTipoDocumento(ACBrTitulo);

    {Especie Documento}
    sEspecie := DefineEspecieDoc(ACBrTitulo);

    {Código Mora}
    STipoJuros := DefineCodigoMoraJuros(ACBrTitulo);

    {Data Mora}
    if ( TruncTo( ValorMoraJuros, fpCasasDecimaisMoraJuros ) > 0) then
      sDataMoraJuros := DefineDataMoraJuros(ACBrTitulo)
    else
    begin
      sDataMoraJuros := PadLeft('', 8, '0');
      STipoJuros := '3'; // Isento
    end;

    {Código Desconto}
    sTipoDesconto := DefineCodigoDesconto(ACBrTitulo);

    {Data Desconto}
    sDataDesconto := DefineDataDesconto(ACBrTitulo);

    {Instruções}
    sInstrucoesProtesto := InstrucoesProtesto(ACBrTitulo);

    {Dias Baixa/Devolução}
    sDiasBaixaDevol:= ifthen(DataBaixa > 0, IntToStrZero(DaysBetween(Vencimento,DataBaixa),2), '00');

    {Pegando tipo de pessoa do Sacado}
    sTipoInscricao := Copy( DefineTipoSacado(ACBrTitulo), 2, 1);

    {Pegando tipo de pessoa do Avalista}
    aTipoInscricao:= DefineTipoSacadoAvalista(ACBrTitulo);

    {Define campo endereco}
    sEndereco := PadRight(Sacado.Logradouro + ' ' + Sacado.Numero + ' ' + Sacado.Complemento , 40, ' ');

    fpQtdRegsLote := 1;

    if sCodMovimento = '01' then
    begin
      if (PercentualMulta = 0) then
        fpQtdRegsLote := 3
      else
        fpQtdRegsLote := 4;

      if (ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX <> tchNenhuma) then
        fpQtdRegsLote := fpQtdRegsLote + 1;

    end;

    ISequencia := (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo) * fpQtdRegsLote) + 1;

    ListTransacao:= TStringList.Create;
    try
      {SEGMENTO P}
      ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3)                                                   + // 001 - 003 / Código do Banco na compensação
                '0001'                                                                                       + // 004 - 007 / Numero do lote remessa
                '3'                                                                                          + // 008 - 008 / Tipo de registro
                IntToStrZero(ISequencia ,5)                                                                  + // 009 - 013 / Número seqüencial do registro no lote
                'P'                                                                                          + // 014 - 014 / Cód. Segmento do registro detalhe
                Space(1)                                                                                     + // 015 - 015 / Reservado (uso Banco)
                sCodMovimento                                                                                + // 016 - 017 / Código de movimento remessa
                Copy(sAgencia, 1, 4)                                                                         + // 018 – 021 / Agência do Cedente
                Copy(sAgencia, 5, 1)                                                                         + // 022 – 022 / Dígito da Agência do Cedente
                Copy(sCCorrente, 1, 9)                                                                       + // 023 - 031 / da conta corrente
                Copy(sCCorrente, 10, 1)                                                                      + // 032 – 032 / Dígito verificador da conta
                Copy(sCCorrente, 1, 9)                                                                       + // 033 - 041 / Conta cobrança
                Copy(sCCorrente, 10, 1)                                                                      + // 042 - 042 / Dígito da conta cobrança
                Space(2)                                                                                     + // 043 - 044 / Reservado (uso Banco)
                PadLeft(RemoveZerosEsquerda(NossoNumero + sDigitoNossoNumero) , 13, '0')                     + // 045 – 057 / Identificação do título no Banco (Nosso Número
                sTipoCobranca                                                                                + // 058 - 058 / Tipo de cobrança
                sTipoCarteira                                                                                + // 059 - 059 / Forma de Cadastramento = 1 Registrada / 2 Sem Registro
                sTipoDocto                                                                                   + // 060 - 060 / Tipo de documento
                Space(1)                                                                                     + // 061 - 061 / Reservado (uso Banco)
                Space(1)                                                                                     + // 062 - 062 / Reservado (uso Banco)
                PadRight(Copy(NumeroDocumento, 1, 15), 15, ' ')                                              + // 063 - 077 / Nº do documento
                FormatDateTime('ddmmyyyy',Vencimento)                                                        + // 078 - 085 / Data de vencimento do título
                IntToStrZero(round(ValorDocumento * 100), 15)                                                + // 086 - 100 / Valor nominal do título
                PadLeft('0', 4, '0')                                                                         + // 101 - 104 / Agência encarregada da cobrança
                '0'                                                                                          + // 105 - 105 / Dígito da Agência encarregada da cobrança
                Space(1)                                                                                     + // 106 - 106 / Reservado (uso Banco)
                sEspecie                                                                                     + // 107 – 108 / Espécie do título
                ifThen(Aceite = atSim,  'A', 'N')                                                            + // 109 - 109 / Identif. de título Aceito/Não Aceito
                FormatDateTime('ddmmyyyy',DataDocumento)                                                     + // 110 - 117 / Data da emissão do título
                STipoJuros                                                                                   + // 118 - 118 / Código do juros de mora
                sDataMoraJuros                                                                               + // 119 - 126 / Data do juros de mora
                ifthen((STipoJuros = '2'), FormatarMoraJurosRemessa(15, ACBrTitulo ),
                                   IntToStrZero(round(ValorMoraJuros * 100), 15))                            + // 127 - 141 / Valor da mora/dia ou Taxa mensal
                sTipoDesconto                                                                                + // 142 - 142 / Código do desconto 1
                sDataDesconto                                                                                + // 143 - 150 / Data de desconto 1
                IntToStrZero(round(ValorDesconto * 100), 15)                                                 + // 151 - 165 / Valor ou Percentual do desconto concedido
                IntToStrZero(round(ValorIOF * 100), 15)                                                      + // 166 - 180 / Valor do IOF a ser recolhido
                IntToStrZero(round(ValorAbatimento * 100), 15)                                               + // 181 - 195 / Valor do abatimento
                PadRight(SeuNumero, 25)                                                                      + // 196 - 220 / Identificação do título na empresa
                PadRight(sInstrucoesProtesto, 4)                                                             + // 221 - 221 / Código para protesto     // 222 - 223 / Número de dias para protesto      // 224 - 224 / Código para Baixa/Devolução
                '0'                                                                                          + // 225 - 225 / Reservado (uso Banco)
                sDiasBaixaDevol                                                                              + // 226 - 227 / Número de dias para Baixa/Devolução
                '00'                                                                                         + // 228 - 229 / Código da moeda
                Space(11)                                                                                   ); // 230 – 240 / Reservado (uso Banco)
      {SEGMENTO P - FIM}

      Inc(ISequencia);

      if sCodMovimento = '01' then
      begin
        {SEGMENTO Q}
        ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3)     + // 001 - 003 / Código do Banco na compensação
                '0001'                                           + // 004 - 007 / Numero do lote remessa
                '3'                                              + // 008 - 008 / Tipo de registro
                IntToStrZero(ISequencia ,5)                      + // 009 - 013 / Número seqüencial do registro no lote
                'Q'                                              + // 014 - 014 / Cód. Segmento do registro detalhe
                Space(1)                                         + // 015 - 015 / Reservado (uso Banco)
                sCodMovimento                                    + // 016 - 017 / Código de movimento remessa
                sTipoInscricao                                   + // 018 - 018 / Tipo de inscrição do sacado
                PadLeft(trim(OnlyNumber(Sacado.CNPJCPF)),15,'0')    + // 019 - 033 / Número de inscrição do sacado
                PadRight(Trim(Sacado.NomeSacado), 40)               + // 034 - 073 / Nome sacado
                sEndereco                                           + // 074 - 113 / Endereço sacado
                PadRight(Trim(Sacado.Bairro), 15)                   + // 114 - 128 / Bairro sacado
                PadLeft(Copy(OnlyNumber(Sacado.CEP), 1, 5), 5, '0') + // 129 - 133 / Cep sacado
                PadLeft(Copy(OnlyNumber(Sacado.CEP), 6, 3), 3, '0') + // 134 - 136 / Sufixo do Cep do sacado
                PadRight(Trim(Sacado.Cidade), 15)                   + // 137 - 151 / Cidade do sacado
                PadRight(Sacado.UF, 2)                              + // 152 - 153 / Unidade da federação do sacado
                aTipoInscricao                                      + // 154 - 154 / Tipo de inscrição sacador/avalista
                PadLeft(Sacado.SacadoAvalista.CNPJCPF, 15,'0')      + // 155 - 169 / Nº de inscrição sacador/avalista
                PadRight(Sacado.SacadoAvalista.NomeAvalista,40,' ') + // 170 - 209 / Nome do sacador/avalista
                '000'                                            + // 210 – 212 / Identificador de carne
                '000'                                            + // 213 – 215 / Seqüencial da Parcela ou número inicial da parcela
                '000'                                            + // 216 – 218 / Quantidade total de parcelas
                '000'                                            + // 219 – 221 / Número do plano
                Space(19)                                        ); // 230 – 240 / Reservado (uso Banco)
        {SEGMENTO Q - FIM}

        if (PercentualMulta > 0) then
        begin
          Inc(ISequencia);

          {SEGMENTO R}
          ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3)               + // 001 - 003 / Código do Banco na compensação
                  '0001'                                                     + // 004 - 007 / Numero do lote remessa
                  '3'                                                        + // 008 - 008 / Tipo de registro
                  IntToStrZero(ISequencia ,5)                                + // 009 - 013 / Número seqüencial do registro no lote
                  'R'                                                        + // 014 - 014 / Cód. Segmento do registro detalhe
                  Space(1)                                                   + // 015 - 015 / Reservado (uso Banco)
                  sCodMovimento                                              + // 016 - 017 / Código de movimento remessa
                  TipoDescontoToString(TipoDesconto2)                        + // 018 - 018 / Código do desconto 2
                  PadLeft(IfThen(TipoDesconto2<>tdNaoConcederDesconto,IfThen(DataDesconto2 > 0, FormatDateTime( 'ddmmyyyy', DataDesconto2),''),''),8,'0')      + // 019 - 026 / Data do desconto 2
                  PadLeft(IfThen(TipoDesconto2<>tdNaoConcederDesconto,IfThen(ValorDesconto2 > 0, IntToStrZero(round(ValorDesconto2 * 100), 15),''),''),15,'0') + // 027 - 041 / Valor/Percentual a ser concedido 2
                  TipoDescontoToString(TipoDesconto3)                        + // 042 - 042 / Código do desconto 3
                  PadLeft(IfThen(TipoDesconto3<>tdNaoConcederDesconto,IfThen(DataDesconto3 > 0, FormatDateTime( 'ddmmyyyy', DataDesconto3),''),''),8,'0')      + // 043 - 050 / Data do desconto 3
                  PadLeft(IfThen(TipoDesconto3<>tdNaoConcederDesconto,IfThen(ValorDesconto3 > 0, IntToStrZero(round(ValorDesconto3 * 100), 15),''),''),15,'0') + // 051 - 065 / Valor/Percentual a ser concedido 3
                  IfThen((PercentualMulta > 0),
                         IfThen(MultaValorFixo,'1','2'), '2')                                           + // 66 - 66 1-Cobrar Multa Valor Fixo / 2-Percentual / 0-Não cobrar multa
                  IfThen((PercentualMulta > 0),
                          FormatDateTime('ddmmyyyy', DataMulta), '00000000')                            + // 67 - 74 Se cobrar informe a data para iniciar a cobrança ou informe zeros se não cobrar
                  IfThen((PercentualMulta > 0), IntToStrZero(round(PercentualMulta * 100), 15),
                         PadRight('', 15, '0'))                                                         + // 075 - 089 / Valor/Percentual a ser aplicado
                  Space(10)                                                  + // 090 - 099 / Reservado (uso Banco)
                  MontaInstrucoes1CNAB240(ACBrTitulo)                        + // 100 - 139 / Mensagem 3
                                                                               // 140 - 179 / Mensagem 4
                  Space(61)                                                  ); // 180 - 240 / Reservado (uso Banco)
        end;
        {SEGMENTO R - FIM}

        if (ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX <> tchNenhuma) then
        begin
          Inc(ISequencia);

          {SEGMENTO Y03}
          case ACBrTitulo.ACBrBoleto.Cedente.PIX.TipoChavePIX of
            tchCPF       : LTipoChaveDICT := '1';
            tchCNPJ      : LTipoChaveDICT := '2';
            tchCelular   : LTipoChaveDICT := '3';
            tchEmail     : LTipoChaveDICT := '4';
            tchAleatoria : LTipoChaveDICT := '5';
          end;

          ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3)               +  // 001 - 003 Código do Banco na compensação
                  '0001'                                                     +  // 004 - 007 Numero do lote remessa
                  '3'                                                        +  // 008 - 008 Tipo de Registro
                  IntToStrZero(ISequencia ,5)                                +  // 009 - 013 N Sequencial do Registro no lote
                  'Y'                                                        +  // 014 - 014 Cód. Segmento do registro detalhe
                  Space(1)                                                   +  // 015 - 015 Reservado (uso Banco)
                  sCodMovimento                                              +  // 016 - 017 Código de movimento Remessa
                  '03'                                                       +  // 018 - 019 Identificação Registro
                  Space(61)                                                  +  // 020 - 080 Reservado (uso Banco)
                  LTipoChaveDICT                                             +  // 081 - 081 Tipo de Chave Pix
                  PadRight(ACBrTitulo.ACBrBoleto.Cedente.PIX.Chave,77,' ')   +  // 082 - 158 Chave Pix
                  PadRight(QrCode.txId,35,' ')                               +  // 159 - 193 Código identificação do QR Code
                  Space(47)                                                 );  // 194 - 240 Reservado (uso Banco)

        end;
        {SEGMENTO Y03 - FIM}

        Inc(ISequencia);
        {SEGMENTO S}
        // Existe um Formulário 1 - Especial, que não será implementado, erá implementado do Formulário 2
        ListTransacao.Add( IntToStrZero(ACBrBanco.Numero, 3)     + // 001 - 003 / Código do Banco na compensação
                '0001'                                           + // 004 - 007 / Numero do lote remessa
                '3'                                              + // 008 - 008 / Tipo de registro
                IntToStrZero(ISequencia ,5)                      + // 009 - 013 / Número seqüencial do registro no lote
                'S'                                              + // 014 - 014 / Cód. Segmento do registro detalhe
                Space(1)                                         + // 015 - 015 / Reservado (uso Banco)
                sCodMovimento                                    + // 016 - 017 / Código de movimento remessa
                '2'                                              + // 018 - 018 / Identificação da impressão
                MontaInstrucoes2CNAB240(ACBrTitulo)              + // 019 - 058 / Mensagem 5
                                                                   // 059 - 098 / Mensagem 6
                                                                   // 099 - 138 / Mensagem 7
                                                                   // 139 - 178 / Mensagem 8
                                                                   // 179 - 218 / Mensagem 9
                Space(22)                                        ); // 219 - 240 / Reservado (uso Banco)

      end;
      {SEGMENTO S - FIM}

      Result := RemoverQuebraLinhaFinal(ListTransacao.Text);
    finally
      ListTransacao.Free;
    end;
  end;
end;

procedure TACBrBancoSantander.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo; aRemessa: TStringList);
var
  DigitoNossoNumero, Ocorrencia,aEspecie :String;
  Protesto, aAgencia, TipoSacado, wLinha :String;
  aCarteira, I: Integer;
  LMensagem1, LMensagem2, LMensagem3 : String;
begin

   aCarteira := StrToIntDef( DefineCarteira(ACBrTitulo) , 0);

   if aCarteira = 5 then
      aAgencia := PadLeft(OnlyNumber(ACBrTitulo.ACBrBoleto.Cedente.Agencia) +
                       ACBrTitulo.ACBrBoleto.Cedente.AgenciaDigito,5,'0')
   else
      aAgencia:= '00000';

   FvTotalTitulos := FvTotalTitulos + ACBrTitulo.ValorDocumento;

   with ACBrTitulo do
   begin
      DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);

      {Tipo de Ocorrencia}
      ocorrencia := TipoOcorrenciaToCodRemessa(ACBrTitulo.OcorrenciaOriginal.Tipo);

      {Especie Documento}
      aEspecie := DefineEspecieDoc(ACBrTitulo);

      {Instruções}
      Protesto := InstrucoesProtesto(ACBrTitulo);

      {Pegando Tipo de Sacado}
      TipoSacado := DefineTipoSacado(ACBrTitulo);

      with ACBrBoleto do
      begin
         wLinha:= '1'                                                         +  // 1- ID Registro
                  IfThen(Cedente.TipoInscricao = pJuridica,'02','01')         +  // 2 a 3
                  PadLeft(trim(OnlyNumber(Cedente.CNPJCPF)),14,'0')           +  // 4 a 17
                  PadRight(trim(Cedente.CodigoTransmissao),20,'0')            +  // 18 a 37
                  PadRight( SeuNumero ,25,' ')                                +  // 38 a 62
                  PadLeft(RightStr(NossoNumero,7),7,'0') + DigitoNossoNumero  +  // 63 a 70
                  IfThen(DataAbatimento < EncodeDate(2000,01,01),
                         '000000',
                         FormatDateTime( 'ddmmyy', DataAbatimento))           +  // 71 a 76
                  ' '+IfThen(PercentualMulta > 0,'4','0')                     +  // 77 a 78
                  IntToStrZero( round( PercentualMulta * 100 ), 4)            +  // 79 a 82
                  '00'+StringOfChar( '0', 13)+space(4)                        +  // 83 a 101
                  IfThen((DataMulta <= 0),'000000',
                         FormatDateTime( 'ddmmyy', DataMulta))                +  // 102 a 107
                   IntToStr(aCarteira) + Ocorrencia                           +  // 108 a 110
                  PadRight( NumeroDocumento,10,' ')                           +  // 111 a 120
                  FormatDateTime( 'ddmmyy', Vencimento)                       +  // 121 a 126
                  IntToStrZero( round( ValorDocumento * 100), 13)             +  // 127 a 139
                  '033' + aAgencia                                            +  // 140 a 147
                  PadLeft(aEspecie, 2) + 'N'                                  +  // 148 a 150
                  FormatDateTime( 'ddmmyy', DataDocumento )                   +  // 151 a 156
                  PadLeft(trim(Instrucao1),2,'0')                             +  // 157 a 158
                  PadLeft(trim(Instrucao2),2,'0')                             +  // 159 a 160
                  IntToStrZero( round(ValorMoraJuros * 100 ), 13)             +  // 161 a 173
                  IfThen(DataDesconto < EncodeDate(2000,01,01),
                         '000000',
                         FormatDateTime( 'ddmmyy', DataDesconto))             +  // 174 a 179
                  IntToStrZero( round( ValorDesconto * 100), 13)              +  // 180 a 192
                  IntToStrZero( round( ValorIOF * 100 ), 13)                  +  // 193 a 205
                  IntToStrZero( round( ValorAbatimento * 100 ), 13)           +  // 206 a 218
                  TipoSacado + PadLeft(OnlyNumber(Sacado.CNPJCPF),14,'0')     +  // 219 a 234
                  PadRight( Sacado.NomeSacado, 40, ' ')                       +  // 235 a 274
                  PadRight( Sacado.Logradouro + ' '+ Sacado.Numero, 40, ' ')  +  // 275 a 314
                  PadRight( Sacado.Bairro,12,' ')                             +  // 315 a 326
                  PadRight( OnlyNumber(Sacado.CEP) , 8, ' ' )                 +  // 327 a 334
                  PadRight( Sacado.Cidade, 15, ' ')                           +
                  PadRight( Sacado.UF, 2 )                                    +  // 335 a 351
                  PadRight(Sacado.Avalista, 30, ' ' )                         +  // 352 a 381
                  ' I'                                                        +  // 382 a 383
                  Copy( Cedente.Conta, length( Cedente.Conta ),1 )            +  //
                  PadLeft( Cedente.ContaDigito, 1 )                           +  // 384 a 385
                  Space(6)                                                    +  // 386 a 391
                  Protesto + ' '                                              +  // 392 a 394
                  IntToStrZero( aRemessa.Count + 1, 6 );                         // 395 a 400

         aRemessa.Add(UpperCase(wLinha));
            LMensagem1 := '';
            LMensagem2 := '';
            LMensagem3 := '';
            if Mensagem.Count >= 1 then
              LMensagem1 := TiraAcentos(Mensagem[0]);

            if Mensagem.Count >= 2 then
              LMensagem1 := TiraAcentos(Mensagem[1]);

            if Mensagem.Count >= 3 then
              LMensagem1 := TiraAcentos(Mensagem[2]);

            wLinha:= '2'                                                      + // 001-001 "2" - Recibo Pagador
                     space(16)                                                + // 002-017 Reservado Banco
                     PadLeft(Cedente.CodigoTransmissao,20,'0')                + // 018-037 Agencia / Conta Movimento / Conta Cobranca
                     Space(10)                                                + // 038-047 Reservado Banco
                     '01'                                                     + // 048-049 SubRegistro "01"
                     PadRight(LMensagem1, 50)                                 + // 050-099 Mensagem Variavel
                     '02'                                                     + // 100-101 SubSequencia "02"
                     PadRight(LMensagem2, 50)                                 + // 102-151 Mensagem Variavel
                     '02'                                                     + // 152-153 SubSequencia "02"
                     PadRight(LMensagem3, 50)                                 + // 154-203 Mensagem Variavel
                     Space(179)                                               + // 204-382 Reservado Banco
                     'I'                                                      + // 383-383 Identificação do Complemento
                     PadLeft(Copy( Cedente.Conta, length( Cedente.Conta ),1 ), 1, '0') +
                     PadLeft( Cedente.ContaDigito, 1, '0' )                   + // 384-385 Complemento
                     Space(9)                                                 + // 386-394 Reservado Banco
                     IntToStrZero( aRemessa.Count + 1 , 6 );                    // 395-400 Sequencial de Registro
            aRemessa.Add(UpperCase(wLinha));

      end;
   end;
end;

function TACBrBancoSantander.GerarRegistroTrailler240(
  ARemessa: TStringList): String;
var
  ListTrailler: TStringList;
begin
  Result:= '';
  ListTrailler:= TStringList.Create;
  try
    {REGISTRO TRAILER DO LOTE}
    ListTrailler.Add(IntToStrZero(fpNumero, 3)                          + // 001 - 003 / Código do Banco na compensação
             '0001'                                                     + // 004 - 007 / Numero do lote remessa
             '5'                                                        + // 008 - 008 / Tipo de registro
             Space(9)                                                   + // 009 - 017 / Reservado (uso Banco)
             IntToStrZero((fpQtdRegsLote * (ARemessa.Count -1)) + 2, 6) + // 018 - 023 / Quantidade de registros do lote
             space(217)                                                ); // 024 - 240 / Reservado (uso Banco)

    {GERAR REGISTRO TRAILER DO ARQUIVO}
    ListTrailler.Add(IntToStrZero(fpNumero, 3)                          + // 001 - 003 / Código do Banco na compensação
             '9999'                                                     + // 004 - 007 / Numero do lote remessa
             '9'                                                        + // 008 - 008 / Tipo de registro
             space(9)                                                   + // 009 - 017 / Reservado (uso Banco)
             '000001'                                                   + // 018 - 023 / Quantidade de lotes do arquivo
             IntToStrZero((fpQtdRegsLote * (ARemessa.Count -1)) + 4, 6) + // 024 - 029 / Quantidade de registros do arquivo
             space(211)                                                ); // 030 - 240 / Reservado (uso Banco)

    Result := RemoverQuebraLinhaFinal(ListTrailler.Text);

  finally
    fpQtdRegsLote      := 0;
    fpQtdRegsCobranca  := 0;
    fpVlrRegsCobranca  := 0;
    ListTrailler.Free;
  end;
end;

procedure TACBrBancoSantander.GerarRegistroTrailler400( ARemessa:TStringList );
var
  vQtdeLinha : Integer;
  wLinha: String;
begin
   vQtdeLinha := StrToInt(copy(ARemessa.Text,Length(ARemessa.Text)-7,6));//lê a ultima linha gravada para pergar o codigo seq.

   wLinha:= '9'                                            +           // ID Registro
            IntToStrZero( vQtdeLinha + 1, 6 )              +           // Contador de Registros
            IntToStrZero( round( FvTotalTitulos* 100), 13) +           // Valor Total dos Titulos
            StringOfChar( '0', 374)                        +
            IntToStrZero(ARemessa.Count + 1, 6);

   ARemessa.Add(UpperCase(wLinha));
end;

procedure TACBrBancoSantander.LerRetorno240(ARetorno: TStringList);
var
  Titulo: TACBrTitulo;
  Linha, rCodigoCedente, rCedente, rAgencia, rAgenciaDigito, rConta, rContaDigito, rCNPJCPF : String;
  iLinha : Integer;

  procedure DoVerOcorrencia(AOcorrencia: string);
  var
    pMotivoRejeicao, CodMotivo, I: Integer;
  begin
    with Titulo.OcorrenciaOriginal do
    begin
      if MatchText(AOcorrencia, ['03', '06', '09', '17', '26', '30'])  then
      begin
        if AOcorrencia = '03' then
          Tipo:= toRetornoRegistroRecusado
        else if AOcorrencia = '26' then
          Tipo := toRetornoInstrucaoRejeitada
        else if AOcorrencia = '30' then
          Tipo := toRetornoAlteracaoDadosRejeitados
        else if MatchText(AOcorrencia, ['06', '09'])  then
          Tipo := CodOcorrenciaToTipo(StrToInt(AOcorrencia))
        else if AOcorrencia = '17' then
           Tipo := toRetornoLiquidadoAposBaixaOuNaoRegistro;
        pMotivoRejeicao:= 209;

        for I:= 0 to 4 do
        begin
          CodMotivo:= StrToIntDef(copy(Linha,pMotivoRejeicao,2),0);
          if CodMotivo > 0 then
          begin
            Titulo.MotivoRejeicaoComando.Add(copy(Linha, pMotivoRejeicao, 2));
            Titulo.DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
                                                      Titulo.OcorrenciaOriginal.Tipo,CodMotivo));
          end;
          Inc(pMotivoRejeicao, 2);
        end;
      end
      else if MatchText(AOcorrencia, ['02', '06', '09', '11', '12', '13', '14'])  then
      begin
        Tipo := CodOcorrenciaToTipo(StrToInt(AOcorrencia));
      end
      else
      begin
        if AOcorrencia = '04' then
          Tipo := toRetornoTransferenciaCarteiraEntrada
        else if AOcorrencia = '05' then
          Tipo := toRetornoTransferenciaCarteiraBaixa
        else if AOcorrencia = '17' then
          Tipo := toRetornoLiquidadoAposBaixaOuNaoRegistro
        else if AOcorrencia = '19' then
          Tipo := toRetornoRecebimentoInstrucaoProtestar
        else if AOcorrencia = '20' then
          Tipo := toRetornoRecebimentoInstrucaoSustarProtesto
        else if AOcorrencia = '23' then
          Tipo := toRetornoEntradaEmCartorio
        else if AOcorrencia = '24' then
          Tipo := toRetornoRetiradoDeCartorio
        else if AOcorrencia = '25' then
          Tipo := toRetornoBaixaPorProtesto
        else if AOcorrencia = '27' then
          Tipo := toRetornoAlteracaoUsoCedente
        else if AOcorrencia = '28' then
          Tipo := toRetornoDebitoTarifas
        else if AOcorrencia = '29' then
          Tipo := toRetornoOcorrenciasDoSacado
        else if AOcorrencia = '32' then
          Tipo := toRetornoIOFInvalido
        else if AOcorrencia = '51' then
          Tipo := toRetornoTituloDDAReconhecidoPagador
        else if AOcorrencia = '52' then
          Tipo := toRetornoTituloDDANaoReconhecidoPagador
        else if AOcorrencia = '53' then
          Tipo := toRetornoTituloDDARecusadoCIP;
      end;
    end;
  end;
begin

  // Verificar se o retorno é do banco selecionado
  if StrToIntDef(copy(ARetorno.Strings[0], 1, 3),-1) <> Numero then
    raise Exception.create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno +
                           'não é um arquivo de retorno do banco' + sLineBreak + Nome));

  rCodigoCedente := Copy(ARetorno[0], 53, 9);
  rCedente       := Copy(ARetorno[0], 73, 30);
  rAgencia       := Copy(ARetorno[0], 33, 4);
  rAgenciaDigito := Copy(ARetorno[0], 37, 1);
  rConta         := PadLeft(OnlyNumber(Copy(ARetorno[0], 38, 9)), fpTamanhoConta, '0');
  rContaDigito   := Copy(ARetorno[0], 47, 1);

  case StrToIntDef(Copy(ARetorno[0],17,1),0) of
    1: rCNPJCPF := Copy(ARetorno[0],22,11);
    2: rCNPJCPF := Copy(ARetorno[0],19,14);
  else
   rCNPJCPF := Copy(ARetorno[0],19,14);
  end;

  ValidarDadosRetorno(rAgencia, rConta, rCNPJCPF);
  with ACBrBanco.ACBrBoleto do
  begin
    Cedente.Nome          := rCedente;
    Cedente.CodigoCedente := rCodigoCedente;
    Cedente.CNPJCPF       := rCnpjCpf;
    Cedente.Agencia       := rAgencia;
    Cedente.AgenciaDigito := rAgenciaDigito;
    Cedente.Conta         := rConta;
    Cedente.ContaDigito   := rContaDigito;

    if StrToIntDef(copy(ARetorno[0], 17, 1), 0) = 1 then
      Cedente.TipoInscricao := pFisica
    else
      Cedente.TipoInscricao := pJuridica;

    ACBrBanco.ACBrBoleto.ListadeBoletos.Clear;
  end;

  ACBrBanco.ACBrBoleto.DataArquivo := StringToDateTimeDef(Copy(ARetorno[0],144,2)+'/'+
                                                          Copy(ARetorno[0],146,2)+'/'+
                                                          Copy(ARetorno[0],148,4),0, 'DD/MM/YYYY' );

  ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],158,6),0);

  for iLinha := 1 to ARetorno.Count - 2 do
  begin
    Linha := ARetorno[iLinha];

    if copy(Linha, 14, 1) = 'T' then // se for segmento T cria um novo Titulo
       Titulo := ACBrBanco.ACBrBoleto.CriarTituloNaLista;

    try
      with Titulo do
      begin
        if copy(Linha, 14, 1) = 'T' then
        begin
          NossoNumero          := DefineNossoNumeroRetorno(Linha);
          NumeroDocumento      := Copy(Linha, 55, 15);
          SeuNumero            := Copy(Linha, 101, 25);
          Carteira             := Copy(Linha, 54, 1);
          Vencimento           := StringToDateTimeDef(Copy(Linha, 70, 2)+'/'+
                                                      Copy(Linha, 72, 2)+'/'+
                                                      Copy(Linha, 74,4),0, 'DD/MM/YYYY' );
          ValorDocumento       := StrToFloatDef(copy(Linha, 78, 15), 0) / 100;
          ValorDespesaCobranca := StrToFloatDef(copy(Linha, 194, 15), 0) / 100;
          // Sacado
          if Copy(Linha, 128, 1) = '1' then
          begin
            Sacado.Pessoa  := pFisica;
            Sacado.CNPJCPF := Trim(Copy(Linha, 133, 11));
          end
          else
          begin
            Sacado.Pessoa := pJuridica;
            Sacado.CNPJCPF    := Trim(Copy(Linha, 129, 15));
          end;
          Sacado.NomeSacado := Trim(Copy(Linha, 144, 40));

          // Algumas ocorrências estão diferentes do cnab400, farei uma separada aqui
          DoVerOcorrencia(Copy(Linha, 16, 2));
        end
        else if copy(Linha, 14, 1) = 'U' then
        begin
          ValorMoraJuros      := StrToFloatDef(copy(Linha, 18, 15), 0) / 100;
          ValorDesconto       := StrToFloatDef(copy(Linha, 33, 15), 0) / 100;
          ValorAbatimento     := StrToFloatDef(copy(Linha, 48, 15), 0) / 100;
          ValorIOF            := StrToFloatDef(copy(Linha, 63, 15), 0) / 100;
          ValorPago           := StrToFloatDef(copy(Linha, 78, 15), 0) / 100;
          ValorRecebido       := StrToFloatDef(copy(Linha, 93, 15), 0) / 100;
          ValorOutrasDespesas := StrToFloatDef(copy(Linha, 108, 15), 0) / 100;
          ValorOutrosCreditos := StrToFloatDef(copy(Linha, 123, 15), 0) / 100;
          DataOcorrencia      := StringToDateTimeDef(Copy(Linha, 138, 2)+'/'+
                                                     Copy(Linha, 140, 2)+'/'+
                                                     Copy(Linha, 142,4),0, 'DD/MM/YYYY' );
          DataCredito := StringToDateTimeDef(Copy(Linha, 146, 2)+'/'+
                                             Copy(Linha, 148, 2)+'/'+
                                             Copy(Linha, 150,4),0, 'DD/MM/YYYY' );
        end
        else if((copy(Linha, 14, 1) = 'Y')
                 and (copy(Linha, 18, 2) = '03')
                 and (Trim(Copy(Linha, 82, 77))<>'')
                 and (Trim(Copy(Linha, 159, 35))<>''))  then
          QrCode.PIXQRCodeDinamico(Trim(Copy(Linha, 82, 77)), Trim(Copy(Linha, 159, 35)), Titulo);
      end;
    finally
      ACBrBanco.TamanhoMaximoNossoNum := 12;
    end;
  end;
end;

procedure TACBrBancoSantander.LerRetorno400(ARetorno: TStringList);
var
  Titulo : TACBrTitulo;
  ContLinha, CodOcorrencia, CodMotivo : Integer;
  Linha, rCedente, rAgencia, rConta, rDigitoConta, rCNPJCPF : String;
  wCodBanco: Integer;
begin
   wCodBanco := StrToIntDef(copy(ARetorno.Strings[0],77,3),-1);
   if (wCodBanco <> Numero) and (wCodBanco <> 353) then
      raise Exception.Create(ACBrStr(ACBrBanco.ACBrBoleto.NomeArqRetorno +
                             'não é um arquivo de retorno do '+ Nome));

   rCedente := trim(Copy(ARetorno[0],47,30));
   rAgencia := trim(Copy(ARetorno[1],18,4));
   rConta   := trim(Copy(ARetorno[1],22,8))+ Copy(ARetorno[1],384,1);
   rConta   := PadLeft( OnlyNumber(rConta),fpTamanhoConta,'0');
   rDigitoConta := Copy(ARetorno[1],385,1);

   case StrToIntDef(Copy(ARetorno[1],2,2),0) of
      01: rCNPJCPF := Copy(ARetorno[1],7,11);
      02: rCNPJCPF := Copy(ARetorno[1],4,14);
   else
     rCNPJCPF := Copy(ARetorno[1],4,14);
   end;

   ACBrBanco.ACBrBoleto.DataCreditoLanc :=
     StringToDateTimeDef(Copy(ARetorno[0], 95, 2) + '/' +
                         Copy(ARetorno[0], 97, 2) + '/' +
                         Copy(ARetorno[0], 99, 2), 0, 'DD/MM/YY');

   ACBrBanco.ACBrBoleto.NumeroArquivo := StrToIntDef(Copy(ARetorno[0],392,3),0);

   ValidarDadosRetorno(rAgencia, rConta, rCNPJCPF);
   with ACBrBanco.ACBrBoleto do
   begin
      Cedente.Nome    := rCedente;
      Cedente.CNPJCPF := rCNPJCPF;
      Cedente.Agencia := rAgencia;
      Cedente.AgenciaDigito:= '0';
      Cedente.Conta   := rConta;
      Cedente.ContaDigito:= rDigitoConta;
      Cedente.CodigoCedente := Copy(ARetorno[0], 109, 9);

      DataArquivo   := StringToDateTimeDef(Copy(ARetorno[0],95,2)+'/'+
                                           Copy(ARetorno[0],97,2)+'/'+
                                           Copy(ARetorno[0],99,2),0, 'DD/MM/YY' );

      case StrToIntDef(Copy(ARetorno[1],2,2),0) of
         01: Cedente.TipoInscricao:= pFisica;
         else
            Cedente.TipoInscricao:= pJuridica;
      end;

      ACBrBanco.ACBrBoleto.ListadeBoletos.Clear;
   end;

   for ContLinha := 1 to ARetorno.Count - 2 do
   begin
      Linha := ARetorno[ContLinha] ;

      if Copy(Linha,1,1)<> '1' then
         Continue;

      Titulo := ACBrBanco.ACBrBoleto.CriarTituloNaLista;

      with Titulo do
      begin
         SeuNumero   := copy(Linha,38,25);
         NossoNumero := Copy(Linha,63,07);
         Carteira    := Copy(Linha,108,1);

         OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef(
                                                        copy(Linha,109,2),0));

         DataOcorrencia:= StringToDateTimeDef(Copy(Linha,111,2)+'/'+
                                              Copy(Linha,113,2)+'/'+
                                              Copy(Linha,115,2),0, 'DD/MM/YY' );

         NumeroDocumento:= Copy(Linha,117,10);

         CodOcorrencia := StrToIntDef(copy(Linha,135,2),0);

         //-|Se a ocorrencia for igual a > 0 - Houve Erros
         if(CodOcorrencia > 0) then
         begin
            if copy(Linha,137,3) <> '   ' then
            begin
               CodMotivo:= StrToIntDef(copy(Linha,137,3),0);
               MotivoRejeicaoComando.Add(copy(Linha,137,3));
               DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
                                                  OcorrenciaOriginal.Tipo,CodMotivo));
            end;

            if copy(Linha,140,3) <> '   ' then
            begin
               CodMotivo:= StrToIntDef(copy(Linha,140,3),0);
               MotivoRejeicaoComando.Add(copy(Linha,137,3));
               DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
                                                  OcorrenciaOriginal.Tipo,CodMotivo));
            end;

            if copy(Linha,143,3) <> '   ' then
            begin
               CodMotivo:= StrToIntDef(copy(Linha,143,3),0);
               MotivoRejeicaoComando.Add(copy(Linha,137,3));
               DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(
                                                  OcorrenciaOriginal.Tipo,CodMotivo));
            end;
         end;

         Vencimento := StringToDateTimeDef( Copy(Linha,147,2)+'/'+
                                            Copy(Linha,149,2)+'/'+
                                            Copy(Linha,151,2),0, 'DD/MM/YY' );

         ValorDocumento       := StrToFloatDef(Copy(Linha,153,13),0)/100;

         EspecieDoc := CodEspecieDocToTipo(Copy(Linha,174,2));

         ValorDespesaCobranca := StrToFloatDef(Copy(Linha,176,13),0)/100;
         ValorOutrasDespesas  := StrToFloatDef(Copy(Linha,189,13),0)/100;
         ValorMoraJuros       := StrToFloatDef(Copy(Linha,202,13),0) +
                                 StrToFloatDef(Copy(Linha,267,13),0)/100;
         ValorIOF             := StrToFloatDef(Copy(Linha,215,13),0)/100;
         ValorAbatimento      := StrToFloatDef(Copy(Linha,228,13),0)/100;
         ValorDesconto        := StrToFloatDef(Copy(Linha,241,13),0)/100;
         ValorRecebido        := StrToFloatDef(Copy(Linha,254,13),0)/100;
         ValorOutrosCreditos  := StrToFloatDef(Copy(Linha,280,13),0)/100;

         if Copy(Linha,294,1) = 'N' then
            Aceite:=  atNao
         else
            Aceite:=  atSim;

         if StrToIntDef(Copy(Linha,296,6),0) <> 0 then
            DataCredito:= StringToDateTimeDef( Copy(Linha,296,2)+'/'+
                                               Copy(Linha,298,2)+'/'+
                                               Copy(Linha,300,2),0, 'DD/MM/YY' );

         Sacado.NomeSacado:= Copy(Linha,302,36);
      end;
   end;
end;

function TACBrBancoSantander.TipoOcorrenciaToDescricao(const TipoOcorrencia: TACBrTipoOcorrencia): String;
var
 CodOcorrencia: Integer;
begin
  Result := '';
  CodOcorrencia := StrToIntDef(TipoOcorrenciaToCod(TipoOcorrencia),0);

  { Atribuindo Ocorrências divergêntes entre CNAB240 e CNAB400 }
  if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
  begin
    case CodOcorrencia of
      17: Result := '17-Liq. Após Baixa/Liq.Tít. não Registrado';
      24: Result := '24-Retirada de Cartório/Manutenção em Carteira';
      25: Result := '25-Protestado e Baixado';
      26: Result := '26-Instrução Rejeitada';
      51: Result := '51-Título DDA Reconhecido Pelo Sacado';
      52: Result := '52-Título DDA Não Reconhecido Pelo Sacado';
      53: Result := '53-Título DDA Recusado Pela CIP';
    end;
  end
  else
  begin
    case CodOcorrencia of
      17: Result := '17-Liquidado em Cartório';
      24: Result := '24-Custas de Cartório';
      25: Result := '25-Protestar Título';
      26: Result := '26-Sustar Protesto';
      35: Result := '35-Título DDA Reconhecido Pelo Sacado';
      36: Result := '36-Título DDA Não Reconhecido Pelo Sacado';
      37: Result := '37-Título DDA Recusado Pela CIP';
    end;
  end;

  if (Result <> '') then
  begin
    Result := ACBrSTr(Result);
    Exit;
  end;

  case CodOcorrencia of
    01: Result := '01-Título Não Existe';
    02: Result := '02-Entrada Tít.Confirmada';
    03: Result := '03-Entrada Tít.Rejeitada';
    04: Result := '04-Transf. de Carteira/Entrada';
    05: Result := '05-Transf. de Carteira/Baixa';
    06: Result := '06-Liquidação';
    07: Result := '07-Liquidação por Conta';
    08: Result := '08-Liquidação por Saldo';
    09: Result := '09-Baixa Automática';
    10: Result := '10-Tít.Baix.Conf.Instrução';
    11: Result := '11-Em Ser';
    12: Result := '12-Abatimento Concedido';
    13: Result := '13-Abatimento Cancelado';
    14: Result := '14-Prorrogação de Vencimento';
    15: Result := '15-Confirmação de Protesto';
    16: Result := '16-Tít.Já Baixado/Liquidado';
    19: Result := '19-Recebimento da Instrução Protesto';
    20: Result := '20-Recebimento da Instrução Não Protestar';
    21: Result := '21-Tít. Enviado a Cartório';
    22: Result := '22-Tít. Retirado de Cartório';
    23: Result := '23-Remessa a Cartório';
    27: Result := '27-Confirmação alt.de outros dados';
    28: Result := '28-Débito de tarifas e custas';
    29: Result := '29-Ocorrência do sacado';
    30: Result := '30-Alteração de dados rejeitada';
    32: Result := '32-Código IOF Inválido';
    38: Result := '38-Recebimento da Instrução Não Protestar'
  end;

  Result := ACBrSTr(Result);
end;

function TACBrBancoSantander.CodOcorrenciaToTipo(const CodOcorrencia:
   Integer ) : TACBrTipoOcorrencia;
begin
  Result := toTipoOcorrenciaNenhum;

  { Atribuindo Ocorrências divergêntes entre CNAB240 e CNAB400 }
  if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
  begin
    case CodOcorrencia of
      17: Result := toRetornoLiquidadoAposBaixaOuNaoRegistro;
      24: Result := toRetornoRetiradoDeCartorio;
      25: Result := toRetornoBaixaPorProtesto;
      26: Result := toRetornoInstrucaoRejeitada;
      35: Result := toRetornoTituloDDAReconhecidoPagador;
      36: Result := toRetornoTituloDDANaoReconhecidoPagador;
      37: Result := toRetornoTituloDDARecusadoCIP;
      91: Result := toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual;
      92: Result := toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual;
    end;
  end
  else
  begin
    case CodOcorrencia of // CNAB 400
      17: Result := toRetornoLiquidadoEmCartorio;
      24: Result := toRetornoCustasCartorio;
      25: Result := toRetornoRecebimentoInstrucaoProtestar;
      26: Result := toRetornoRecebimentoInstrucaoSustarProtesto;
      51: Result := toRetornoTituloDDAReconhecidoPagador;
      52: Result := toRetornoTituloDDANaoReconhecidoPagador;
      53: Result := toRetornoTituloDDARecusadoCIP;
      62: Result := toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual;
      63: Result := toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual;
    end;
  end;

  if (Result <> toTipoOcorrenciaNenhum) then
    Exit;

  case CodOcorrencia of
    01: Result := toRetornoTituloNaoExiste;
    02: Result := toRetornoRegistroConfirmado;
    03: Result := toRetornoRegistroRecusado;
    04: Result := toRetornoTransferenciaCarteiraEntrada;
    05: Result := toRetornoTransferenciaCarteiraBaixa;
    06: Result := toRetornoLiquidado;
    07: Result := toRetornoLiquidadoPorConta;
    08: Result := toRetornoLiquidadoSaldoRestante;
    09: Result := toRetornoBaixaAutomatica;
    10: Result := toRetornoBaixadoInstAgencia;
    11: Result := toRetornoTituloEmSer;
    12: Result := toRetornoAbatimentoConcedido;
    13: Result := toRetornoAbatimentoCancelado;
    14: Result := toRetornoVencimentoAlterado;
    15: Result := toRetornoProtestado;
    16: Result := toRetornoTituloJaBaixado;
    19: Result := toRetornoRecebimentoInstrucaoProtestar;
    20: Result := toRetornoRecebimentoInstrucaoSustarProtesto;
    21: Result := toRetornoEncaminhadoACartorio;
    22: Result := toRetornoRetiradoDeCartorio;
    23: Result := toRetornoEntradaEmCartorio;
    27: Result := toRetornoAlteracaoUsoCedente;
    28: Result := toRetornoDebitoTarifas;
    29: Result := toRetornoOcorrenciasDoSacado;
    30: Result := toRetornoAlteracaoDadosRejeitados;
    32: Result := toRetornoIOFInvalido;
    38: Result := toRetornoRecebimentoInstrucaoNaoProtestar;
    61: Result := toRetornoConfirmacaoAlteracaoValorNominal;

  else
    Result := toRetornoOutrasOcorrencias;
  end;
end;

function TACBrBancoSantander.CodOcorrenciaToTipoRemessa(const CodOcorrencia: Integer): TACBrTipoOcorrencia;
begin
  case CodOcorrencia of
    02 : Result:= toRemessaBaixar;                          {Pedido de Baixa}
    04 : Result:= toRemessaConcederAbatimento;              {Concessão de Abatimento}
    05 : Result:= toRemessaCancelarAbatimento;              {Cancelamento de Abatimento concedido}
    06 : Result:= toRemessaAlterarVencimento;               {Alteração de vencimento}
    07 : Result:= toRemessaAlterarControleParticipante;     {Alteração do controle do participante}
    08 : Result:= toRemessaAlterarNumeroControle;           {Alteração de seu número}
    09 : Result:= toRemessaProtestar;                       {Pedido de protesto}
    10 : Result:= toRemessaConcederDesconto;                {Concessão de Desconto}
    11 : Result:= toRemessaCancelarDesconto;                {Cancelamento de desconto}
    18 : Result:= toRemessaCancelarInstrucaoProtesto;       {Sustar protesto e manter na carteira}
    31 : Result:= toRemessaAlterarOutrosDados;              {Alteração de outros dados}
    47 : Result:= toRemessaAlteracaoValorNominal;           {Alteração do valor nominal do boleto}
    48 : Result:= toRemessaAlterarValorMinimo;              {Alteração do valor mínimo/percentual}
    49 : Result:= toRemessaAlterarValorMaximo;              {Alteração do valor máximo/percentual}
    98 : Result:= toRemessaNaoProtestar;                    {Sustar protesto antes do início do ciclo de protesto *}
  else
     Result:= toRemessaRegistrar;                           {Remessa}
  end;
end;

function TACBrBancoSantander.TipoOcorrenciaToCodRemessa(
  const TipoOcorrencia: TACBrTipoOcorrencia): String;
begin
  if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
  begin
    case TipoOcorrencia of
         toRemessaBaixar                        : Result := '02'; {Pedido de Baixa}
         toRemessaConcederAbatimento            : Result := '04'; {Concessão de Abatimento}
         toRemessaCancelarAbatimento            : Result := '05'; {Cancelamento de Abatimento concedido}
         toRemessaAlterarVencimento             : Result := '06'; {Alteração de vencimento}
         toRemessaAlterarControleParticipante   : Result := '07'; {Alteração Número Controle Cedente}
         toRemessaAlterarNumeroControle         : Result := '08'; {Alteração de seu número}
         toRemessaProtestar                     : Result := '09'; {Pedido de protesto}
         toRemessaCancelarInstrucaoProtesto     : Result := '18'; {Sustar protesto e manter na carteira}
         toRemessaConcederDesconto              : Result := '10'; {Concessão de Desconto}
         toRemessaCancelarDesconto              : Result := '11'; {Cancelamento de Desconto}
         toRemessaAlterarOutrosDados            : Result := '31'; {Alteração de outros dados}
         toRemessaAlteracaoValorNominal         : Result := '47'; {Alteração do valor nominal do boleto}
         toRemessaAlterarValorMinimo	        : Result := '48'; {Alteração do valor mínimo/percentual}
         toRemessaAlterarValorMaximo	        : Result := '49'; {Alteração do valor máximo/percentual}
         toRemessaNaoProtestar                  : Result := '98'; {Não Protestar (Antes de iniciar o ciclo de protesto )}
      else
         Result := '01';                                          {Remessa}
      end;

  end
  else
  begin
    case TipoOcorrencia of  // 400
         toRemessaBaixar                        : Result := '02'; {Pedido de Baixa}
         toRemessaConcederAbatimento            : Result := '04'; {Concessão de Abatimento}
         toRemessaCancelarAbatimento            : Result := '05'; {Cancelamento de Abatimento concedido}
         toRemessaAlterarVencimento             : Result := '06'; {Alteração de vencimento}
         toRemessaAlterarControleParticipante   : Result := '07'; {Alteração Número Controle Cedente}
         toRemessaAlterarNumeroControle         : Result := '08'; {Alteração de seu número}
         toRemessaProtestar                     : Result := '09'; {Pedido de protesto}
         toRemessaCancelarInstrucaoProtesto     : Result := '18'; {Sustar protesto e manter na carteira}
         toRemessaAlteracaoValorNominal         : Result := '47'; {Alteração do valor nominal do boleto}
         toRemessaAlterarValorMinimo	        : Result := '48'; {Alteração do valor mínimo/percentual}
         toRemessaAlterarValorMaximo	        : Result := '49'; { Alteração do valor máximo/percentual}
         toRemessaNaoProtestar                  : Result := '98'; {Sustar protesto antes do início do ciclo de protesto}
      else
         Result := '01';                                          {Remessa}
      end;

  end;
end;

function TACBrBancoSantander.CodEspecieDocToTipo(const EspecieDoc: String): String;
begin
  case StrToIntDef(EspecieDoc,0) of
    01 : Result:= 'DM';
    02 : Result:= 'NP';
    03 : Result:= 'NS';
    05 : Result:= 'RC';
    06 : Result:= 'DS';
    07 : Result:= 'LS';
    08 : Result:= 'BDP';
    19 : Result:= 'BCC';
  else
    Result:= '';
  end;
end;

function TACBrBancoSantander.TipoOcorrenciaToCod (
   const TipoOcorrencia: TACBrTipoOcorrencia ) : String;
begin
  Result := '';

  if (ACBrBanco.ACBrBoleto.LayoutRemessa = c240) then
  begin
    case TipoOcorrencia of
      toRetornoLiquidadoAposBaixaOuNaoRegistro               : Result := '17';
      toRetornoRetiradoDeCartorio                            : Result := '24';
      toRetornoBaixaPorProtesto                              : Result := '25';
      toRetornoInstrucaoRejeitada                            : Result := '26';
      toRetornoTituloDDAReconhecidoPagador                   : Result := '35';
      toRetornoTituloDDANaoReconhecidoPagador                : Result := '36';
      toRetornoTituloDDARecusadoCIP                          : Result := '37';
      toRetornoConfirmacaoAlteracaoValorNominal              : Result := '61';
      toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual	 : Result := '91';
      toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual   : Result := '92';
    end;
  end
  else
  begin
    case TipoOcorrencia of
      toRetornoLiquidadoEmCartorio                           : Result := '17';
      toRetornoCustasCartorio                                : Result := '24';
      toRetornoRecebimentoInstrucaoProtestar                 : Result := '25';
      toRetornoRecebimentoInstrucaoSustarProtesto            : Result := '26';
      toRetornoTituloDDAReconhecidoPagador                   : Result := '51';
      toRetornoTituloDDANaoReconhecidoPagador                : Result := '52';
      toRetornoTituloDDARecusadoCIP                          : Result := '53';
      toRetornoConfirmacaoAlteracaoValorNominal              : Result := '61';
      toRetornoConfirmacaoAlteracaoValorMinimoOuPercentual	 : Result := '62';
      toRetornoConfirmacaoAlteracaoValorMaximoOuPercentual   : Result := '63';
    end;
  end;

  if (Result <> '') then
    Exit;

  case TipoOcorrencia of
    toRetornoTituloNaoExiste                                 : Result := '01';
    toRetornoRegistroConfirmado                              : Result := '02';
    toRetornoRegistroRecusado                                : Result := '03';
    toRetornoTransferenciaCarteiraEntrada                    : Result := '04';
    toRetornoTransferenciaCarteiraBaixa                      : Result := '05';
    toRetornoLiquidado                                       : Result := '06';
    toRetornoLiquidadoPorConta                               : Result := '07';
    toRetornoLiquidadoSaldoRestante                          : Result := '08';
    toRetornoBaixaAutomatica                                 : Result := '09';
    toRetornoBaixadoInstAgencia                              : Result := '10';
    toRetornoTituloEmSer                                     : Result := '11';
    toRetornoAbatimentoConcedido                             : Result := '12';
    toRetornoAbatimentoCancelado                             : Result := '13';
    toRetornoVencimentoAlterado                              : Result := '14';
    toRetornoProtestado                                      : Result := '15';
    toRetornoTituloJaBaixado                                 : Result := '16';
    toRetornoRecebimentoInstrucaoProtestar                   : Result := '19';
    toRetornoRecebimentoInstrucaoSustarProtesto              : Result := '20';
    toRetornoEncaminhadoACartorio                            : Result := '21';
    toRetornoRetiradoDeCartorio                              : Result := '22';
    toRetornoEntradaEmCartorio                               : Result := '23';
    toRetornoAlteracaoUsoCedente                             : Result := '27';
    toRetornoDebitoTarifas                                   : Result := '28';
    toRetornoOcorrenciasDoSacado                             : Result := '29';
    toRetornoAlteracaoDadosRejeitados                        : Result := '30';
    toRetornoIOFInvalido                                     : Result := '32';
    toRetornoRecebimentoInstrucaoNaoProtestar                : Result := '38';
  else
    Result := '02';
  end;
end;

function TACBrBancoSantander.CodMotivoRejeicaoToDescricao( const TipoOcorrencia:TACBrTipoOcorrencia; CodMotivo: Integer) : String;
begin
  if (ACBrBanco.ACBrBoleto.LayoutRemessa = c400) then
  begin
    case CodMotivo of
      001: Result := '001-NOSSO NUMERO NAO NUMERICO';
      002: Result := '002-VALOR DO ABATIMENTO NAO NUMERICO';
      003: Result := '003-DATA VENCIMENTO NAO NUMERICA';
      004: Result := '004-CONTA COBRANCA NAO NUMERICA';
      005: Result := '005-CODIGO DA CARTEIRA NAO NUMERICO';
      006: Result := '006-CODIGO DA CARTEIRA INVALIDO';
      007: Result := '007-ESPECIE DO DOCUMENTO INVALIDA';
      008: Result := '008-UNIDADE DE VALOR NAO NUMERICA';
      009: Result := '009-UNIDADE DE VALOR INVALIDA';
      010: Result := '010-CODIGO PRIMEIRA INSTRUCAO NAO NUMERICA';
      011: Result := '011-CODIGO SEGUNDA INSTRUCAO NAO NUMERICA';
      012: Result := '012-VALOR DO TITULO EM OUTRA UNIDADE';
      013: Result := '013-VALOR DO TITULO NAO NUMERICO';
      014: Result := '014-VALOR DE MORA NAO NUMERICO';
      015: Result := '015-DATA EMISSAO NÃO NUMERICA';
      016: Result := '016-DATA DE VENCIMENTO INVALIDA';
      017: Result := '017-CODIGO DA AGENCIA COBRADORA NAO NUMERICA';
      018: Result := '018-VALOR DO IOC NAO NUMERICO';
      019: Result := '019-NUMERO DO CEP NAO NUMERICO';
      020: Result := '020-TIPO INSCRICAO NAO NUMERICO';
      021: Result := '021-NUMERO DO CGC OU CPF NAO NUMERICO';
      022: Result := '022-CODIGO OCORRENCIA INVALIDO';
      024: Result := '024-TOTAL PARCELA NAO NUMERICO';
      025: Result := '025-VALOR DESCONTO NAO NUMERICO';
      026: Result := '026-CODIGO BANCO COBRADOR INVALIDO';
      027: Result := '027-NUMERO PARCELAS CARNE NAO NUMERICO';
      028: Result := '028-NUMERO PARCELAS CARNE ZERADO';
      029: Result := '029-VALOR DE MORA INVALIDO';
      030: Result := '030-DT VENC MENOR DE 15 DIAS DA DT PROCES';
      039: Result := '039-PERFIL NAO ACEITA TITULO EM BCO CORRESP';
      041: Result := '041-AGENCIA COBRADORA NAO ENCONTRADA';
      042: Result := '042-CONTA COBRANCA INVALIDA';
      043: Result := '043-NAO BAIXAR,  COMPL. INFORMADO INVALIDO';
      044: Result := '044-NAO PROTESTAR, COMPL. INFORMADO INVALIDO';
      045: Result := '045-QTD DE DIAS DE BAIXA NAO PREENCHIDO';
      046: Result := '046-QTD DE DIAS PROTESTO NAO PREENCHIDO';
      047: Result := '047-TOT PARC. INF. NAO BATE C/ QTD PARC GER';
      048: Result := '048-CARNE COM PARCELAS COM ERRO';
      049: Result := '049-SEU NUMERO NAO CONFERE COM O CARNE';
      051: Result := '051-TITULO NAO ENCONTRADO';
      052: Result := '052-OCOR.  NAO ACATADA, TITULO  LIQUIDADO';
      053: Result := '053-OCOR. NAO ACATADA, TITULO BAIXADO';
      054: Result := '054-TITULO COM ORDEM DE PROTESTO JA EMITIDA';
      055: Result := '055-OCOR. NAO ACATADA, TITULO JA PROTESTADO';
      056: Result := '056-OCOR. NAO ACATADA, TIT. NAO VENCIDO';
      057: Result := '057-CEP DO SACADO INCORRETO';
      058: Result := '058-CGC/CPF INCORRETO';
      059: Result := '059-INSTRUCAO ACEITA SO P/ COBRANCA SIMPLES';
      060: Result := '060-ESPECIE DOCUMENTO NAO PROTESTAVEL';
      061: Result := '061-CEDENTE SEM CARTA DE PROTESTO';
      062: Result := '062-SACADO NAO PROTESTAVEL';
      063: Result := '063-CEP NAO ENCONTRADO NA TABELA DE PRACAS';
      064: Result := '064-TIPO DE COBRANCA NAO PERMITE PROTESTO';
      065: Result := '065-PEDIDO SUSTACAO JA SOLICITADO';
      066: Result := '066-SUSTACAO PROTESTO FORA DE PRAZO';
      067: Result := '067-CLIENTE NAO TRANSMITE REG. DE OCORRENCIA';
      068: Result := '068-TIPO DE VENCIMENTO INVALIDO';
      069: Result := '069-PRODUTO DIFERENTE DE COBRANCA SIMPLES';
      070: Result := '070-DATA PRORROGACAO MENOR QUE DATA VENCTO';
      071: Result := '071-DATA ANTECIPACAO MAIOR QUE DATA VENCTO';
      072: Result := '072-DATA DOCUMENTO SUPERIOR A DATA INSTRUCAO';
      073: Result := '073-ABATIMENTO MAIOR/IGUAL AO VALOR TITULO';
      074: Result := '074-PRIM. DESCONTO MAIOR/IGUAL VALOR TITULO';
      075: Result := '075-SEG. DESCONTO MAIOR/IGUAL VALOR TITULO';
      076: Result := '076-TERC. DESCONTO MAIOR/IGUAL VALOR TITULO';
      077: Result := '077-DESC. POR ANTEC. MAIOR/IGUAL VLR TITULO';
      078: Result := '078-NAO EXISTE ABATIMENTO P/ CANCELAR';
      079: Result := '079-NAO EXISTE PRIM. DESCONTO P/ CANCELAR';
      080: Result := '080-NAO EXISTE SEG. DESCONTO P/ CANCELAR';
      081: Result := '081-NAO EXISTE TERC. DESCONTO P/ CANCELAR';
      082: Result := '082-NAO EXISTE DESC. POR ANTEC. P/ CANCELAR';
      084: Result := '084-JA EXISTE SEGUNDO DESCONTO';
      085: Result := '085-JA EXISTE TERCEIRO DESCONTO';
      086: Result := '086-DATA SEGUNDO DESCONTO INVALIDA';
      087: Result := '087-DATA TERCEIRO DESCONTO INVALIDA';
      089: Result := '089-DATA MULTA MENOR/IGUAL QUE VENCIMENTO';
      090: Result := '090-JA EXISTE DESCONTO POR DIA ANTECIPACAO';
      091: Result := '091-JA EXISTE CONCESSAO DE DESCONTO';
      092: Result := '092-NOSSO NUMERO JA CADASTRADO';
      093: Result := '093-VALOR DO TITULO NAO INFORMADO';
      094: Result := '094-VALOR TIT. EM OUTRA MOEDA NAO INFORMADO';
      095: Result := '095-PERFIL NAO ACEITA VALOR TITULO ZERADO';
      096: Result := '096-ESPECIE DOCTO NAO PERMITE PROTESTO';
      097: Result := '097-ESPECIE DOCTO NAO PERMITE IOC ZERADO';
      098: Result := '098-DATA EMISSAO INVALIDA';
      099: Result := '099-REGISTRO DUPLICADO NO MOVIMENTO DIÁRIO';
      100: Result := '100-DATA EMISSAO MAIOR QUE A DATA VENCIMENTO';
      101: Result := '101-NOME DO SACADO NÃO INFORMADO';
      102: Result := '102-ENDERECO DO SACADO NÃO INFORMADO';
      103: Result := '103-MUNICIPIO DO SACADO NAO INFORMADO';
      104: Result := '104-UNIDADE DA FEDERACAO NAO INFORMADA';
      105: Result := '105-TIPO INSCRICAO NÃO EXISTE';
      106: Result := '106-CGC/CPF NAO INFORMADO';
      107: Result := '107-UNIDADE DA FEDERACAO INCORRETA';
      108: Result := '108-DIGITO CGC/CPF INCORRETO';
      109: Result := '109-VALOR MORA TEM QUE SER ZERO (TIT = ZERO)';
      110: Result := '110-DATA PRIMEIRO DESCONTO INVALIDA';
      111: Result := '111-DATA  DESCONTO NAO NUMERICA';
      112: Result := '112-VALOR DESCONTO NAO INFORMADO';
      113: Result := '113-VALOR DESCONTO INVALIDO';
      114: Result := '114-VALOR ABATIMENTO NAO INFORMADO';
      115: Result := '115-VALOR ABATIMENTO MAIOR VALOR TITULO';
      116: Result := '116-DATA MULTA NAO NUMERICA';
      117: Result := '117-VALOR DESCONTO MAIOR VALOR TITULO';
      118: Result := '118-DATA MULTA NAO INFORMADA';
      119: Result := '119-DATA MULTA MAIOR QUE DATA DE VENCIMENTO';
      120: Result := '120-PERCENTUAL MULTA NAO NUMERICO';
      121: Result := '121-PERCENTUAL MULTA NAO INFORMADO';
      122: Result := '122-VALOR IOF MAIOR QUE VALOR TITULO';
      123: Result := '123-CEP DO SACADO NAO NUMERICO';
      124: Result := '124-CEP SACADO NAO ENCONTRADO';
      126: Result := '126-CODIGO P. BAIXA / DEVOL. INVALIDO';
      127: Result := '127-CODIGO P. BAIXA / DEVOL. NAO NUMERICA';
      128: Result := '128-CODIGO PROTESTO INVALIDO';
      129: Result := '129-ESPEC DE DOCUMENTO NAO NUMERICA';
      130: Result := '130-FORMA DE CADASTRAMENTO NAO NUMERICA';
      131: Result := '131-FORMA DE CADASTRAMENTO INVALIDA';
      132: Result := '132-FORMA CADAST. 2 INVALIDA PARA CARTEIRA 3';
      133: Result := '133-FORMA CADAST. 2 INVALIDA PARA CARTEIRA 4';
      134: Result := '134-CODIGO DO MOV. REMESSA NAO NUMERICO';
      135: Result := '135-CODIGO DO MOV. REMESSA INVALIDO';
      136: Result := '136-CODIGO BCO NA COMPENSACAO NAO NUMERICO';
      138: Result := '138-NUM. LOTE REMESSA(DETALHE) NAO NUMERICO';
      140: Result := '140-COD. SEQUEC.DO REG. DETALHE INVALIDO';
      141: Result := '141-NUM. SEQ. REG. DO LOTE NAO NUMERICO';
      142: Result := '142-NUM.AG.CEDENTE/DIG.NAO NUMERICO';
      144: Result := '144-TIPO DE DOCUMENTO NAO NUMERICO';
      145: Result := '145-TIPO DE DOCUMENTO INVALIDO';
      146: Result := '146-CODIGO P. PROTESTO NAO NUMERICO';
      147: Result := '147-QTDE DE DIAS P. PROTESTO INVALIDO';
      148: Result := '148-QTDE DE DIAS P. PROTESTO NAO NUMERICO';
      149: Result := '149-CODIGO DE MORA INVALIDO';
      150: Result := '150-CODIGO DE MORA NAO NUMERICO';
      151: Result := '151-VL.MORA IGUAL A ZEROS P. COD.MORA 1';
      152: Result := '152-VL. TAXA MORA IGUAL A ZEROS P.COD MORA 2';
      154: Result := '154-VL. MORA NAO NUMERICO P. COD MORA 2';
      155: Result := '155-VL. MORA INVALIDO P. COD.MORA 4';
      156: Result := '156-QTDE DIAS P.BAIXA/DEVOL. NAO NUMERICO';
      157: Result := '157-QTDE DIAS BAIXA/DEV. INVALIDO P. COD. 1';
      158: Result := '158-QTDE DIAS BAIXA/DEV. INVALIDO P.COD. 2';
      160: Result := '160-BAIRRO DO SACADO NAO INFORMADO';
      161: Result := '161-TIPO INSC.CPF/CGC SACADOR/AVAL.NAO NUM.';
      162: Result := '162-INDICADOR DE CARNE NAO NUMERICO';
      163: Result := '163-NUM. TOTAL DE PARC.CARNE NAO NUMERICO';
      164: Result := '164-NUMERO DO PLANO NAO NUMERICO';
      165: Result := '165-INDICADOR DE PARCELAS CARNE INVALIDO';
      166: Result := '166-N.SEQ. PARCELA INV.P.INDIC. MAIOR 0';
      167: Result := '167-N. SEQ.PARCELA INV.P.INDIC.DIF.ZEROS';
      168: Result := '168-N.TOT.PARC.INV.P.INDIC. MAIOR ZEROS';
      169: Result := '169-NUM.TOT.PARC.INV.P.INDIC.DIFER.ZEROS';
      170: Result := '170-FORMA DE CADASTRAMENTO 2 INV.P.CART.5';
      199: Result := '199-TIPO INSC.CGC/CPF SACADOR.AVAL.INVAL.';
      200: Result := '200-NUM.INSC.(CGC)SACADOR/AVAL.NAO NUMERICO';
      201: Result := '201-ALT. DO CONTR. PARTICIPANTE INVALIDO';
      202: Result := '202-ALT. DO SEU NUMERO INVALIDA';
      218: Result := '218-BCO COMPENSACAO NAO NUMERICO (D3Q)';
      219: Result := '219-BCO COMPENSACAO INVALIDO (D3Q)';
      220: Result := '220-NUM. DO LOTE REMESSA NAO NUMERICO(D3Q)';
      221: Result := '221-NUM. SEQ. REG. NO LOTE (D3Q)';
      222: Result := '222-TIPO INSC.SACADO NAO NUMERICO (D3Q)';
      223: Result := '223-TIPO INSC.SACADO INVALIDO (D3Q)';
      224: Result := '224-NUM.INSC.SACADO NAO NUMERICO (D3Q)';
      225: Result := '225-NUM.INSC.SAC.INV.P.TIPO INSC.0 E 9(D3Q)';
      226: Result := '226-NUM.BCO COMPENSACAO NAO NUMERICO (D3R)';
      228: Result := '228-NUM. LOTE REMESSA NAO NUMERICO (D3R)';
      229: Result := '229-NUM. SEQ. REG. LOTE NAO NUMERICO (D3R)';
      246: Result := '246-COD.BCO COMPENSACAO NAO NUMERICO (D3S)';
      247: Result := '247-COD. BANCO COMPENSACAO INVALIDO (D3S)';
      248: Result := '248-NUM.LOTE REMESSA NAO NUMERICO (D3S)';
      249: Result := '249-NUM.SEQ.DO REG.LOTE NAO NUMERICO (D3S)';
      250: Result := '250-NUM.IDENT.DE IMPRESSAO NAO NUMERICO(D3S)';
      251: Result := '251-NUM.IDENT.DE IMPRESSAO INVALIDO (D3S)';
      252: Result := '252-NUM.LINHA IMPRESSA NAO NUMERICO(D3S)';
      253: Result := '253-COD.MSG. P.REC. SAC. NAO NUMERICO (D3S)';
      254: Result := '254-COD.MSG.P.REC.SACADO INVALIDO(D3S)';
      258: Result := '258-VL.MORA NAO NUMERICO P.COD=4(D3P)';
      259: Result := '259-CAD.TXPERM.SK.INV.P.COD.MORA=4(D3P)';
      260: Result := '260-VL.TIT(REAL).INV.P.COD.MORA = 1(DEP)';
      261: Result := '261-VL.OUTROS INV.P.COD.MORA = 1(D3P)';
    else
      Result := IntToStrZero(CodMotivo, 3) + ' - Outros Motivos';
    end;
  end
  else // 240
  begin
    case TipoOcorrencia of
    toRetornoComandoRecusado, toRetornoRegistroRecusado: //03 (Entrada rejeitada)
      case CodMotivo of
        01: Result:='Codigo do banco invalido';
        02: Result:='Codigo do registro detalhe invalido';
        03: Result:='Codigo do segmento invalido';
        04: Result:='Codigo do movimento nao permitido para carteira';
        05: Result:='Codigo de movimento invalido';
        06: Result:='Tipo/numero de inscricao do beneficiário invalidos';
        07: Result:='Agencia/Conta/DV invalido';
        08: Result:='Nosso numero invalido';
        09: Result:='Nosso numero duplicado';
        10: Result:='Carteira invalida';
        11: Result:='Forma de cadastramento do titulo invalido';
        12: Result:='Tipo de documento invalido';
        13: Result:='Identificacao da emissao do bloqueto invalida';
        14: Result:='Identificacao da distribuicao do bloqueto invalida';
        15: Result:='Caracteristicas da cobranca incompativeis';
        16: Result:='Data de vencimento invalida';
        17: Result:='Data de vencimento anterior a data de emissao';
        18: Result:='Vencimento fora do prazo de operacao';
        19: Result:='Titulo a cargo de Bancos Correspondentes com vencimento inferior XX dias';
        20: Result:='Valor do titulo invalido';
        21: Result:='Especie do titulo invalida';
        22: Result:='Especie nao permitida para a carteira';
        23: Result:='Aceite invalido';
        24: Result:='Data da emissao invalida';
        25: Result:='Data da emissao posterior a data';
        26: Result:='Codigo de juros de mora invalido';
        27: Result:='Valor/Taxa de juros de mora invalido';
        28: Result:='Codigo do desconto invalido';
        29: Result:='Valor do desconto maior ou igual ao valor do titulo ';
        30: Result:='Desconto a conceder nao confere';
        31: Result:='Concessao de desconto - ja existe desconto anterior';
        32: Result:='Valor do IOF invalido';
        33: Result:='Valor do abatimento invalido';
        34: Result:='Valor do abatimento maior ou igual ao valor do titulo';
        35: Result:='Abatimento a conceder nao confere';
        36: Result:='Concessao de abatimento - ja existe abatimento anterior';
        37: Result:='Codigo para protesto invalido';
        38: Result:='Prazo para protesto invalido';
        39: Result:='Pedido de protesto nao permitido para o titulo';
        40: Result:='Titulo com ordem de protesto emitida';
        41: Result:='Pedido de cancelamento/sustacao para titulos sem instrucao de protesto';
        42: Result:='Codigo para baixa/devolucao invalido';
        43: Result:='Prazo para baixa/devolucao invalido';
        44: Result:='Codigo da moeda invalido';
        45: Result:='Nome do pagador nao informado';
        46: Result:='Tipo/numero de inscricao do pagador invalidos';
        47: Result:='Endereco do pagador nao informado';
        48: Result:='CEP invalido';
        49: Result:='CEP sem praca de cobranca /nao localizado';
        50: Result:='CEP referente a um Banco Correspondente';
        51: Result:='CEP incompativel com a unidade da federacao';
        52: Result:='Unidade da federacao invalida';
        53: Result:='Tipo/numero de inscricao do sacador/avalista invalidos';
        54: Result:='Sacador/Avalista nao informado';
        55: Result:='Nosso numero no Banco Correspondente nao informado';
        56: Result:='Codigo do Banco Correspondente nao informado';
        57: Result:='Codigo da multa invalido';
        58: Result:='Data da multa invalida';
        59: Result:='Valor/Percentual da multa invalido';
        60: Result:='Movimento para titulo nao cadastrado';
        61: Result:='Alteracao da agencia cobradora/dv invalida';
        62: Result:='Tipo de impressao invalido';
        63: Result:='Entrada para titulo ja cadastrado';
        64: Result:='Numero da linha invalido';
        65: Result:='A espécie de título não permite a instrução';
        72: Result:='Entrada de título Sem Registro';
        90: Result:='Identificador/Quantidade de Parcelas de carnê invalido';
        92: Result:='Data de Desconto Inválida';
      end;
    toRetornoLiquidadoSemRegistro, toRetornoLiquidado, toRetornoLiquidadoPorConta,
       toRetornoLiquidadoSaldoRestante, toRetornoLiquidadoEmCartorio: // 05, 06, 07, 08 e 15 (Liquidado)
      case CodMotivo of
        01: Result:='01-Por saldo';
        02: Result:='02-Por conta';
        03: Result:='03-No próprio banco';
        04: Result:='04-Compensação eletrônica';
        05: Result:='05-Compensação convencional';
        06: Result:='06-Arquivo magnético';
        07: Result:='07-Após feriado local';
        08: Result:='08-Em cartório';
        09: Result:='09-Pagamento Parcial';
      end;
    else
      Result := IntToStrZero(CodMotivo, 2) + ' - Outros Motivos';
    end;
  end;

  Result := ACBrSTr(Result);
end;

end.