Alteração componente ACBrBoleto

[valterpatrick]

Pessoal, acabei de atualizar o ACBr e vi que estava dando erro para atualizar as ocorrências, ai vi o código e algumas funções estava desatualizadas como é o caso da GetOcorrenciasRemessa que trazia menos ocorrências do que deveria.

Eu atualizei ela e também criei outras duas:

GetOcorrenciasRetorno = retorna as ocorrências de retorno;

GetOcorrencias = retorna todas as ocorrências (remessa e retorno)

 

Peço que analisem o meu código e atualizem o componente.

ACBrBoleto.pas

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-5012

[Victor H. Gonzales - Panda]

Boa noite, acho sim válido resolver esse tipo de problema, mas da forma que está ao meu ver, remediamos e adiamos para o próximo estágio.

obrigado por sua colaboração.

estou aqui anexando uma unit para tu e demais analisarem antes de subirmos, é também uma sugestão para esse problema, se mais alguém tiver algo que possa resolver definitivamente.ACBrBoleto.pas

[Victor H. Gonzales - Panda]

foi realizada uma alteração para que a função hoje utilize via RTTI.

possivelmente será removido esse Type em breve

[valterpatrick]

ACBrBoleto.pas

Pessoal, fiz uma nova alteração para adicionar o metodo GetOcorrenciasRetorno onde retorna as ocorrências do tipo retorno, atualmente só tem o metodo das ocorrências de remessa.
Segue o código que adicionei aqui:

 

{TACBrTipoOcorrenciaRetorno}
  TACBrOcorrenciaRetorno = Record
    Tipo     : TACBrTipoOcorrencia;
    Descricao: String;
  end;

  TACBrOcorrenciasRetorno =  array of TACBrOcorrenciaRetorno;

    function GetOcorrenciasRetorno() : TACBrOcorrenciasRetorno;

function TACBrBoleto.GetOcorrenciasRetorno(): TACBrOcorrenciasRetorno;
var I: Integer;
  LACBrOcorrenciasRetorno : TACBrOcorrenciasRetorno;
  LOcorrencia : String;
begin
  SetLength(LACBrOcorrenciasRetorno, 0);
  for I := Ord(Low(TACBrTipoOcorrencia)) to Ord(High(TACBrTipoOcorrencia)) do
  begin
    LOcorrencia := GetEnumName(TypeInfo(TACBrTipoOcorrencia), I);
    if Copy(LOcorrencia, 1, Length('toRetorno')) = 'toRetorno' then
    begin
      SetLength(LACBrOcorrenciasRetorno, Length(LACBrOcorrenciasRetorno) + 1);
      LACBrOcorrenciasRetorno[High(LACBrOcorrenciasRetorno)].Tipo := TACBrTipoOcorrencia(I);
      LACBrOcorrenciasRetorno[High(LACBrOcorrenciasRetorno)].descricao := cACBrTipoOcorrenciaDecricao[TACBrTipoOcorrencia(I)];
    end;
  end;
  Result := LACBrOcorrenciasRetorno;
end;

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-5692

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo