Código Do Juros De Mora

[Hetosoft Sistemas]

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?

[Juliana Tamizou]

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.

[Hetosoft Sistemas]

Caixa econômica , liguei para eles e essa posição 118 é pra ter

1,2,3 e não zero 0

onde posso mudar isso no codigo ?

[Daniel Simoes]

Você deve nos enviar o manual onde consta essa mudança, para analise...

[Hetosoft Sistemas]

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,' ');