Remessas Diárias Banco Sicredi

[Ademir P. Voigt]

Boa Noite!

 

Pessoal, estou implementando o ACBR Boleto em nosso sistema e estive gerando remessas para testes.

Me deparei com a seguinte situação:

O Componente só permite gerar 8 arquivos diários, porem, o Sicredi permite 10;

xxxx.crm

xxxx.rm2

xxxx.rm3

xxxx.rm4

xxxx.rm5

xxxx.rm6

xxxx.rm7

xxxx.rm8

xxxx.rm9

xxxx.rm0

O Arquivo xxxx.cr9 xxxx.cr0 eu consegui gerar alterando o fonte do ACBrBancoSicredi.pas.

Gostaria que avaliassem as alterações (FEITAS DO JEITO QUE CONSEGUI) ou que alterassem da forma que acharem melhor para que o componente permita gerar 10 arquivos por dia.

  while FilesExists(NomeArq) do
  begin
    NomeArq := NomeFixo + '.rm' + IntToStr(Sequencia);
    Inc(Sequencia);

    // testa se o nome gera for igual a .rm10
    // se for, altera para .rm0 - ADEMIR 21052015
    if NomeArq = NomeFixo + '.rm10' then
    begin
      NomeArq := NomeFixo + '.rm0'
    end;

    // alterado de > 9 para > 11 - ADEMIR 21052015
    if Sequencia > 11 then
      raise Exception.Create
        (ACBrStr('Número máximo de 10 arquivos de remessa alcançado'));
  end;

  Result := NomeArq;

Não enviei o .pas pq está dando erro no upload do forum.

[Juliana Tamizou]

Bom  dia.

 

Qual problema você está tendo para fazer o upload do pas?

 

Att.

[Ademir P. Voigt]

Segue:

ERRO UPLOAD

Eu busco o arquivo no meu disco e depois clico em Anexar este Arquivo

 

arquivo.pas

Editado 22 Maio, 2015 por CertaSolucoes

[Juliana Tamizou]

Boa noite.

 

Alteração disponibilizada no svn  com algumas modificações.

 

Att.

[Ademir P. Voigt]

Muito obrigado Juliana!

Bom poder contar com o apoio e agilidade de vcs.

Editado 2 Junho, 2015 por CertaSolucoes