ACBrBoleto Listar Ocorrência do Tipo Remessa Por Banco

[ClausquellerMitome]

Ola, 
Atualmente, uso o método GetOcorrenciasRemessa para obter informações das ocorrências de remessa, entretanto, cada banco tem as suas ocorrências especificas como ilustra o código abaixo do sicred.
Gostaria de saber se existe um método que busca a ocorrências do banco em si, depois de setado as configurações do componente.

Atenciosamente,

function TACBrBancoSicredi.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}
    09 : Result:= toRemessaProtestar;                       {Pedido de protesto}
    18 : Result:= toRemessaCancelarInstrucaoProtestoBaixa;  {Sustar protesto e baixar}
    19 : Result:= toRemessaCancelarInstrucaoProtesto;       {Sustar protesto e manter na carteira}
    31 : Result:= toRemessaOutrasOcorrencias;               {Alteração de Outros Dados}
  else
     Result:= toRemessaRegistrar;                           {Remessa}
  end;
end;

[Victor H. Gonzales - Panda]

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

[Victor H. Gonzales - Panda]

Bom dia,

como as classes são sobrecarregadas após a inicialização delas

Tente : 

<ACBrBoleto>.Banco.BancoClass.CodOcorrenciaToTipoRemessa(ACodigoOcorrencia);

 

[ClausquellerMitome]

O Código acima funcionou bem. Porém no meu caso gostaria de pegar a lista de ocorrências referente ao banco setado no componente.
Quando uso GetOcorrenciasRemessa, ele puxa todas as ocorrências e algumas não existe no banco em questão.

function GetOcorrenciasRemessa() : TACBrOcorrenciasRemessa;
function TACBrBoleto.GetOcorrenciasRemessa(): TACBrOcorrenciasRemessa;
var I: Integer;
begin
  SetLength(Result, 77);

  for I:= 1 to 48 do
  begin
    Result[I-1].Tipo := TACBrTipoOcorrencia(I-1);
    Result[I-1].descricao := cACBrTipoOcorrenciaDecricao[I-1];
  end;
end;

[Victor H. Gonzales - Panda]

Bom dia

se a classe é reescrita ela será alterada, caso contrário pegará da ancestral.

não sei se essa finalidade que tu quer fazer assim conseguirá, tu teria que fazer alguns testes se consegue.