gerar remessa banco santander com problema tipo de cobranca

[carlitomorais]

Pessoal tentando homologar boleto no banco santander CNAB400 estou com problema no tipo de cobranca ja coloquei a carteira 101 tudo certo.. mas na remessa 

sai na posicao 58 seguimento P numero 1 e o certo era numero 5 segundo o banco ,,, podem me dar uma luz ?

 

em anexo a imagem ....do retorno do banco.

[Alexandre de Paula]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[Renato Rubinho]

Bom dia,

Você deve preencher a propriedade ACBrTitulo.CaracTitulo com tcSimplesRapComReg

 

Veja os detalhes a seguir na unit deste banco.

Obs: É CNAB240

../trunk2/Fontes/ACBrBoleto/ACBrBancoSantander.pas

function TACBrBancoSantander.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String;
begin
.
.
.
{Caracteristica T�tulo}
    sTipoCobranca := DefineCaracTitulo(ACBrTitulo);
.
.
.
sTipoCobranca  + // 058 - 058 / Tipo de cobran�a
.
.
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;