Bancoob Juros, Multa, Desconto

[Antonio Marcelo]

Bom dia Juliana

Verificando o Layout do Bancoob pude notar que no arquivo remessa gerado, algumas informações não estão sendo enviadas:

CNAB400 :multa, juros e desconto.

CNAB240: multa.

Por favor me avise se estou equivocado, do contrário vou fazer as alterações necessárias.

[Juliana Tamizou]

Boa tarde Antonio.

Realmente estes arquivos estão sendo gerados sem as informações que você citou, se desejar implementar e quiser compartilhar com todos, poste aqui.

Att.

[Antonio Marcelo]

Prezada Juliana

Fiz as alteração, mas acredito que possam não estar convenientes com o projeto me desculpem porque foi uma solução emergencial, vou analisar com mais calma e implementar nos padrões do projeto

Da forma como está vai considerar as instruções do trailler

Como especificado no layout em anexo:

"Primeira instrução codificada:

Regras de impressão de mensagens nos boletos:

* Primeira instrução (SEQ 34) = 00 e segunda (SEQ 35) = 00, não imprime nada.

* Primeira instrução (SEQ 34) = 01 e segunda (SEQ 35) = 01, desconsidera-se as instruções CNAB e imprime as mensagens relatadas no trailler do arquivo.

* Primeira e segunda instrução diferente das situações acima, imprimimos o conteúdo CNAB:

function TACBrBancoob.GerarRegistroTransacao400(ACBrTitulo :TACBrTitulo): String;

  ..

begin

  ..

      with ACBrBoleto do

      begin

   ..

                  ATipoAceite                                             +  // Identificação

                  FormatDateTime( 'ddmmyy', DataDocumento )               +  // 32 Data de Emissão

                  IntToStrZero( 1, 2)                                     +  // 33 Primeira instrução (SEQ 34) = 00 e segunda (SEQ 35) = 00, não imprime nada.

                  IntToStrZero( 1, 2)                                     +  // 34 Primeira instrução (SEQ 34) = 00 e segunda (SEQ 35) = 00, não imprime nada.

                  IntToStrZero( 0, 6)

E também fiz as alterações no rodapé:

function TACBrBancoob.GerarRegistroTrailler400(

  ARemessa: TStringList ): String;

var I: Integer;

    Mensagem: String;

begin

  Result:= UpperCase(Result);

   for I := 0 to fMensagem.Count - 1 do

    Mensagem:= Mensagem + padL(fMensagem.Strings[I], 40, ' ');


   Result:= '9'                                              + // ID Registro

            Space(193)                                       + // Brancos

            padL(Copy(Mensagem, 1, length(Mensagem)), 200, ' ') +

            IntToStrZero( ARemessa.Count + 1, 6);  // Contador de Registros


   Result:= UpperCase(Result);


end;

O tratamento das mensagens de transação também foi alterada segue o arquivo em anexo. Da forma como estava também precisava ser corrigido

if length(MensagemCedente) > 60 then

            MensagemCedente:= copy(MensagemCedente,1,60);

Veja que é carregado 60 posições para a variável MensagemCedente, mas o tamanho do campo é 40 e essa variável não é aproveitada posteriormente.

[attachment=0]ACBrBancoob.pas[/attachment]

[attachment=1]Layouts para troca de informações.zip[/attachment]

[Juliana Tamizou]

Boa tarde.

 

Faltou anexar o arquivo...

 

Pelo que observei no fonte atual, as propriedades instrução1 e instrução2  não são usadas neste banco até o momento, sendo assim poderia se utilizar este campo para informar o valor desejado. 

 

 

Att.