ACBrPagFor - Banco UnicredCooperativa

[Grupo FS]

Por necessidade tivemos que desenvolver o arquivo de Pagamentos para o Banco Unicred (Cooperativa)

Em conversa om o pessoal do banco e o link do site para download das especificações (particularidades) do CNAB240 é direcionado ao Manual do FEBRABAN 10.3

Fiz a criação das units

PagFor.UnicredCooperativa.GravarTxtRemessa.pas; PagFor.UnicredCooperativa.LerTxtRetorno.pas; PagFor.UnicredCooperativa.Provider.pas

uACBrPagForProviderManager.pas na Unit

 

na Unit ACBrPagForProviderManager
Adicionado a Uses   PagFor.UnicredCooperativa.Provider

Adicionado na Function o Provider do UnicredCooperativa
class function TACBrPagForProviderManager.GetProvider(ACBrPagFor: TComponent): IACBrPagForProvider;

 

Tentei gerar o arquivo utilizando as procedures do CNAB240.GravarTxtRemessa, porém deu incompatibilidade no SegmentoB, ai foi criado os Blocos dentro da Classe.

PagFor.UnicredCooperativa.GravarTxtRemessa.pas PagFor.UnicredCooperativa.LerTxtRetorno.pas PagFor.UnicredCooperativa.Provider.pas ACBrPagForProviderManager.pas

[Diego Foliene]

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

Por favor, é possível disponibilizar o manual do banco para que possamos usar na análise?

[Diego Foliene]

Bom dia @Grupo FS.

Por favor, pode disponibilizar o manual do Unicred que utilizou como base para a implementação?

Temos uma biblioteca de acesso público e gostaríamos de acrescentar o manual deste banco nela.

Além disso ele é necessário como base para analisar sua implementação.

[Diego Foliene]

Boa tarde.

Primeiro de tudo, mais uma vez, muito obrigado pela contribuição.

Toda e qualquer colaboração sempre será mais do que bem vinda.

Como não tinha o manual para conferir não pude validar os dados e as posições, mas no geral, sua contribuição me pareceu correta.

Apenas removi os trechos comentados na GravarTxt e os overrides das funções de leitura dos Segmentos N na LerTxt, pois a ferramenta de comparação apontou como única diferente nessas funções em comparação com a classe base a seguinte linha:

Receita := StrToIntDef(LerCampo(Linha, 111, 6, tcStr), 0);

Sendo que na classe base está:

Receita := LerCampo(Linha, 111, 6, tcInt);

E se conferirmos a LerCampo, ela já faz uso do StrToIntDef quando o tipo é tcInt.

tcInt:
  begin
    if length(ConteudoCampo) > 0 then
      result := StrToIntDef(OnlyNumber(ConteudoCampo), 0)
    else
      result := 0;
  end;

Enviado ao SVN na Rev-29097, commit dos packages atualizados na Rev-29098.

Por favor, queira atualizar seus fontes, reinstalar o ACBr para realizar novos testes e reportar qualquer problema.