Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Código Do Juros De Mora


hetoandrade
Go to solution Solved by Juliana Tamizou,
  • Este tópico foi criado há 2862 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

1040001300001P 0102985034683300000000000140000000000065611122027805          0507201400000000000100000000004N30062014(linha118) 00000000000000000000000000000000000000

 

 

A caixa min retorno falando que na posição 118 não ta informando o código de juros

Código do Juros de Mora
Código adotado pela FEBRABAN para identificação do tipo de pagamento de juros de mora.
‘1’ = Valor por Dia
‘2’ = Taxa Mensal
‘3’ = Isento

 

que esta Zero 0

e era pra ta ‘3’ = Isento

 

o que devo fazer?

Link to comment
Share on other sites

  • Administradores
  • Solution

Boa tarde.

 

Apesar da existência do layout da Febraban  cada banco fez adequações conforme a sua necessidade, sendo assim você avaliar o manual fornecido pelo banco que deseja homologar.

 

Att.

Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • 3 weeks later...
  • Membros Pro

resolvi, fazendo isto.

 

unit ACBrCaixaEconomica

 

 

function TACBrCaixaEconomica.GerarRegistroTrailler240( ARemessa : TStringList ): String;
begin
   {REGISTRO TRAILER DO LOTE}
   Result:= IntToStrZero(ACBrBanco.Numero, 3)                          + //Código do banco
            '0001'                                                     + //Lote de Serviço
            '5'                                                        + //Tipo do registro: Registro trailer do lote
            Space(9)                                                   + //Uso exclusivo FEBRABAN/CNAB
            //IntToStrZero((2*ARemessa.Count), 6)                        + //Quantidade de Registro no Lote
            IntToStrZero((2*ARemessa.Count)+1, 6)                        + //Quantidade de Registro no Lote
            IntToStrZero((ARemessa.Count-1), 6)+ // padL('', 6, '0')                                           + //Quantidade títulos em cobrança
            IntToStrZero( round( fValorTotalDocs * 100), 17)+ // padL('',17, '0')                                           + //Valor dos títulos em carteiras}
            padL('', 6, '0')                                           + //Quantidade títulos em cobrança
            padL('',17, '0')                                           + //Valor dos títulos em carteiras}
            padL('',6,  '0')                                           + //Quantidade títulos em cobrança
            padL('',17, '0')                                           + //Quantidade de Títulos em Carteiras
            padL('',31, ' ')                                           + //Uso exclusivo FEBRABAN/CNAB
            padL('',117,' ')                                           ; //Uso exclusivo FEBRABAN/CNAB}

   {GERAR REGISTRO TRAILER DO ARQUIVO}
   Result:= Result + #13#10 +
            IntToStrZero(ACBrBanco.Numero, 3)                          + //Código do banco
            '9999'                                                     + //Lote de serviço
            '9'                                                        + //Tipo do registro: Registro trailer do arquivo
            padL('',9,' ')                                             + //Uso exclusivo FEBRABAN/CNAB}
            '000001'                                                   + //Quantidade de lotes do arquivo}
            //IntToStrZero((2*ARemessa.Count)+3, 6)                      + //Quantidade de registros do arquivo, inclusive este registro que está sendo criado agora}
            IntToStrZero((2*ARemessa.Count)+3, 6)                      + //Quantidade de registros do arquivo, inclusive este registro que está sendo criado agora}
            padL('',6,' ')                                             + //Uso exclusivo FEBRABAN/CNAB}
            padL('',205,' '); 

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.