Santander segmento P posição 58 função DefineCaracTitulo

[Marcos Mentz_5837]

Boa tarde!

A função abaixo não estava contemplando o tipo de carteira tcDireta para o result 5, com a adição validou corretamente o arquivo.

A critica do banco antes da alteração:

REGISTRO DETALHE -SEGMENTO P REMESSA      
058-058 Tipo de cobrança: . . CÓDIGO DA CARTEIRA INCORRETO. ALTERAR PARA 5 USAR informação do tipo de carteira.

 

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;

ACBrBancoSantander.pas

[José M. S. Junior]

Bom dia, será analisado assim que possível.

[Fernando Rodrigo]

bom dia, como irei informar o codigo 5 

 

A opção ACBrBoleto.Cedente.TipoCarteira := tcSimplesRapComReg; não tem no componente, ja atualizei e compilei tudo novamente e da erro 

 

[Error] Gera_Arquivo_Banco.pas(1742): E2010 Incompatible types: 'TACBrTipoCarteira' and 'TACBrCaracTitulo'

 

Nota 5: TIPO DE COBRANÇA
REMESSA:
'1' = Cobrança Simples (Sem Registro e Eletrônica com Registro)
'3' = Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)
„4‟ = Cobrança Descontada (Eletrônica com Registro)
'5' = Cobrança Simples (Rápida com Registro)
„6‟ = Cobrança Caucionada (Rápida com Registro)

[Marcos Mentz_5837]

Bom dia!

Justamente isto que acrescentei na unit do componente em anexo "ACBrBancoSantander.pas" para ter a funcionalidade, não tinha este tratamento.

Marcos