Adicionar Banco Sicredi ao componente TAcbrDebitoAutomatico

[arielguareschi]

Segue em anexo os arquivos alterados para que seja possível realizar a implementação do banco Sicredi.

Foi implementando seguindo os padrões estabelecidos, e também ajustado pois a descrição da mensagem de retorno do banco, esta juntando todos cada linha importada.

ACBrDebitoAutomatico.rar

[Italo Giurizzato Junior]

Bom dia @arielguareschi,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-5778

[Italo Giurizzato Junior]

@arielguareschi,

Gostaria de entender o motivo dessa alteração na unit ACBrDebitoAutomatico:

function TACBrDebitoAutomatico.GravarTxtRemessa(const ANomeArquivo: String): Boolean;
begin
  if Self.Arquivos.Count <=0 then
    raise EACBrDebitoAutomaticoException.Create('ERRO: Nenhum arquivo adicionado.');

  SetProvider; // <== linha incluida

  if not Assigned(FProvider) then
    raise EACBrDebitoAutomaticoException.Create(ERR_SEM_BANCO);

  FProvider.Gerar(ANomeArquivo);

  Result := True;
end;

e na unit ACBrDebitoAutomaticoArquivo:

function TRegistro.Ler(const aArquivoTXT: String): boolean;
var
  FProvider: IACBrDebitoAutomaticoProvider;
  Ok: Boolean;
begin
  // Incluida a condição abaixo
  if (TACBrDebitoAutomatico(FACBrDebitoAutomatico).Configuracoes.Geral.Banco = debNenhum) then
  begin
    TACBrDebitoAutomatico(FACBrDebitoAutomatico).Configuracoes.Geral.Banco := StrToBanco(Ok, Copy(aArquivoTXT, 1, 3));
  end;
  FProvider := TACBrDebitoAutomatico(FACBrDebitoAutomatico).Provider;

  if not Assigned(FProvider) then
    raise EACBrDebitoAutomaticoException.Create(ERR_SEM_BANCO);

  Result := FProvider.LerTxt(aArquivoTXT, FDebitoAutomatico);
end;

 

[arielguareschi]

A primeira ele não estava setando o provider na hora de gerar o arquivo, e a segunda é que para fazer a leitura do arquivo no caso do Sicredi ele não possui o código do banco no arquivo, por isso modifiquei para que caso já tenha atribuído o banco na hora de carregar o componente, ele não troca o provider.

[Italo Giurizzato Junior]

Boa tarde @arielguareschi,

Acredito que se ao configurar o componente você configurar por ultimo o banco ele vai setar sim o provider.

Desta forma não precisaria da primeira alteração.

Com relação a segunda, se eu entendi direito no arquivo de retorno não consta o código do banco, correto?

O que é informado nas 3 primeiras posições do arquivo?

[arielguareschi]

Para a primeiro mesmo realizando a configuração por ultimo não acatava, mas se realizar o teste e mesmo assim der certo de boa.

        AcbrDeb.Configuracoes.Geral.CNPJEmpresa := EmpresaCnp;
        AcbrDeb.Configuracoes.Geral.LayoutVersao := lv5;
        AcbrDeb.Configuracoes.Geral.Banco := oBanco;
        AcbrDeb.LerTxtRetorno(EditRetorno.FileName);
        if AcbrDeb.Arquivos.Count > 0 then

 

Com relação ao segundo item ele informa nas 3 primeiras posições o convenio.

Inclui em anexo o manual do banco.

Layout Debito Automatico - Versao 05_V1.3.pdf

[Italo Giurizzato Junior]

Bom dia @arielguareschi,

Favor atualizar todos os fontes de todas as pastas, reinstale o ACBr e faça novos testes.

[arielguareschi]

Testei aqui e ficou ok!

 

Muito obrigado!

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.