Boleto e Remessa do Banco 097 - Credisis

[Jesse Nascimento Faria]

Bom dia, Estou desenvolvendo o layout 400 do Credisis e me deparei com um problema na geração dos arquivos para este banco, a formação do nosso número está diferente do manual.

function TACBrBancoCredisis.MontarCampoNossoNumero (const ACBrTitulo: TACBrTitulo ) : String;
var
  ANossoNumero :string;
  aAgencia, aConvenio :string;
begin
  ANossoNumero := PadLeft(ACBrTitulo.NossoNumero, 6, '0');
  aAgencia     := PadLeft(OnlyNumber(ACBrBanco.ACBrBoleto.Cedente.Agencia), 4, '0');
  aConvenio    := PadLeft(OnlyNumber(ACBrBanco.ACBrBoleto.Cedente.Convenio), 6, '0');
  Result := IntToStrZero(ACBrBanco.Numero, 3) + CalcularDigitoVerificador(ACBrTitulo) + aAgencia + aConvenio + ANossoNumero;
end;

Esta parte da composição está correta.  

function TACBrBancoCredisis.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo): string;
begin
  Modulo.CalculoPadrao;
  Modulo.Documento := ACBrTitulo.NossoNumero;  // Aqui está diferente do manual pois o manual diz para gera o digito a partir do CNPJ do beneficiário.
  Modulo.Calcular;
  if Modulo.ModuloFinal = 0 then
    Result := '1'
  else
    Result := IntToStr(Modulo.DigitoFinal);
end;

O banco me enviou uma mensagem de rejeição justamente por causa deste digito e minha dúvida e se mais alguém teve problema com isto? 

[Juliana Tamizou]

Bom dia, 
Pelo manual realmente parece ser necessária a alteração, por favor anexe o mesmo ao tópico.

Att.

[Jesse Nascimento Faria]

Boa tarde,

Segue em anexo o manual, assim que consegui homologar o  layout 400 do Credisis posto a classe com as alterações.

20190415_152726_LAYOUT_CNAB_400.pdf

[Jesse Nascimento Faria]

Homologado o layout 400 com sucesso.

ACBrBancoCredisis.pas

[sergiom]

Por favor, quem está usando CREDISIS?

Eu tenho um cliente em RONDÔNIA com CREDISIS e eu tinha feito uma versão somente para registro 400 e estava OK.

Implantei esta liberada (antes não tinha suporte no ACBR) e rejeitou.  Não tinha enviado a minha, pois eu não tinha homologado 240.

Inclusive o nosso número está com tamanho diferente.

Registro detalhe opcional deveria começar com 2 e gerou com 5.

Atenciosamente

Sérgio

 

[Juliana Tamizou]

Bom dia Sergio.

Você está usando os fontes do svn e teve rejeição, porém com seus fontes próprios estava passando, é isso mesmo?

Se sim, queira por favor anexar sua unit.

Att.