Campo EspecieDoc errado na remessa CNAB 400 Caixa

[Joabe Geraldo]

Boa tarde

Estou homologando caixa e encontrei um erro na geração da remessa CNAB 400 da caixa.

O campo Espécie DOC está sendo atribuído com valores incorretos, de acordo com o manual da Caixa.

//A partir da Linha 916
{ Pegando o tipo de EspecieDoc }
      if EspecieDoc = 'DM' then
         ATipoEspecieDoc   := '01'      // Duplicata Mercantil
      else if EspecieDoc = 'NP' then
         ATipoEspecieDoc   := '02'      // Nota Promissória
      else if EspecieDoc = 'DS' then
         ATipoEspecieDoc   := '03'      // Duplicata de Prestação de Serviços
      else if EspecieDoc = 'NS' then
         ATipoEspecieDoc   := '05'      // Nota de Seguro
      else if EspecieDoc = 'LC' then
         ATipoEspecieDoc   := '06'      // Letra de Câmbio
      else if EspecieDoc = 'OU' then
         ATipoEspecieDoc   := '09'     ;// Outros

Onde, de acordo com o manual, o correto deve ser:

{ Pegando o tipo de EspecieDoc }
      if EspecieDoc = 'DM' then
         ATipoEspecieDoc   := '02'      // Duplicata Mercantil
      else if EspecieDoc = 'NP' then
         ATipoEspecieDoc   := '12'      // Nota Promissória
      else if EspecieDoc = 'DS' then
         ATipoEspecieDoc   := '04'      // Duplicata de Prestação de Serviços
      else if EspecieDoc = 'NS' then
         ATipoEspecieDoc   := '16'      // Nota de Seguro
      else if EspecieDoc = 'LC' then
         ATipoEspecieDoc   := '07'      // Letra de Câmbio
      else if EspecieDoc = 'OU' then
         ATipoEspecieDoc   := '99'     ;// Outros

 

Em anexo envio o arquivo AcbrBancoCaixa,pas corrigido e o manual da caixa

Manual_Leiaute_CNAB400_SIGCB.pdf

ACBrBancoCaixa.pas

[José M. S. Junior]

Bom dia, o layout CNAB400 Caixa está homologado na versão anterior ainda. 

[Joabe Geraldo]

Mas não dá nenhum problema enviar a remessa com a informação do layout anterior? Não deveria ser atualizado não?

[José M. S. Junior]

Chegou a verificar se é somente essa diferença em relação ao layout atualizado? Precisamos saber com certeza, qual versão a caixa está homologando ainda... aparentemente todos estão utilizando os códigos de espécie que está no ACBr.  

[Joabe Geraldo]

Encontrei mais uma diferença, no campo Valor da Multa.

O Acbr está passando esta instrução:

IntToStrZero(round(((ValorDocumento*PercentualMulta)/100)), 10)    + //358 até 367 - Valor nominal da multa

Desta forma, o valor da multa está gerando a parte inteira como Decimal, ficando o valor errado.

 

O Correto seria:

IntToStrZero(round(((ValorDocumento*PercentualMulta)/100)*100), 10)    + //358 até 367 - Valor nominal da multa

 

Inicialmente encontrei apenas estas diferenças.

Enviei o arquivo de remessa corrigido, de acordo com o manual de 07/2017 e estou aguardando o retorno da validação.

[Breno Barreto]

Substitui e recompilei e deu certinho no meu arquivo de Remessa.

Por favor Alterem!

 

 

[Daniel Simoes]

2 horas atrás, Breno Barreto disse:

Por favor Alterem!

Se você deseja sugerir modificações nos fontes... deve anexar as Units modificadas para analise...