Banco 756 Bancoob Valor juros e multa no LerRetorno240

[romerio.correia]

Na unidade ACBrBancoBancoob.pas, na rotina LerRetorno240, fiz as seguintes alterações:

Linha 575, acrescentei o fonte abaixo para a preencher o valor pago pelo cliente
   ValorPago            := StrToFloatDef(Copy(Linha,78,15),0)/100;

Linha 580, acrescentei o fonte abaixo para calcular a diferença entre o valor pago e o valor original do título preenchendo o valor da mora/juros ou o valor de outras despesas pois nos arquivos de retorno do meu cliente esse valor está vindo zerado.

            if (ValorPago > ValorDocumento) then
               begin
               //*** Pagamento com atraso - o correto é verificar próximo dia útil após o vencimento pois o vencimento pode cair em um sábado, domingo ou feriado
               if (DataOcorrencia > Vencimento) then
                  begin
                  if (ValorMoraJuros = 0) then
                     ValorMoraJuros := ValorPago - ValorDocumento;
                  end
               else
                  ValorOutrasDespesas := ValorOutrasDespesas + (ValorPago - ValorDocumento);
               end;
 

ACBrBancoBancoob.pas

[Juliana Tamizou]

Boa tarde.

Estas alterações se baseiam em qual parte do manual do banco?

Att.

[romerio.correia]

*** Manual em anexo

A 1a do valor pago é referente ao REGISTRO DETALHE SEGMENTO U - SEQ 12.3U que informa que as colunas de 78 a 92 são referentes ao valor do pagamento efetuado pelo Pagador referente ao título de cobrança, expresso em
moeda corrente.

A 2a. é baseada nos arquivos de retorno que recebi de meu cliente no qual constam títulos pagos com atraso e que incidiram juros mas que o campo REGISTRO DETALHE SEGMENTO U - SEQ 08.3U veio zerado. Então minha sugestão é que Juros/Multa sejam informados pela diferença entre o valor pago e o valor do título quando o campo de valor de juros/multa estiver zerado. O Cobrebem faz isso visto que recebo em seu campo de Juros/Multa o valor da diferença. 

Então inseri o fonte abaixo na linha 580 da unidade ACBrBancoBancoob.pas, na rotina LerRetorno240 e resolvi o problema dos títulos com juros e multa

if (ValorMoraJuros = 0) then
   //*** Somente se houver diferença
   if (ValorPago > ValorDocumento) then
      //*** Pagamento com atraso - o correto é verificar próximo dia útil após o vencimento pois o vencimento pode cair em um sábado, domingo ou feriado
      if (DataOcorrencia > Vencimento) then 
         ValorMoraJuros := ValorPago - ValorDocumento;
 

Também inseri uma função chamada Liquidado na classe TACBrTitulo que indica quando o retorno representa a liquidação do título. Facilita na hora de processar o retorno dos títulos.

function TACBrTitulo.Liquidado: Boolean;
begin
  Result := (Self.OcorrenciaOriginal.Tipo = TACBrTipoOcorrencia.toRetornoLiquidado) or
            (Self.OcorrenciaOriginal.Tipo = TACBrTipoOcorrencia.toRetornoLiquidadoAposBaixaOuNaoRegistro) or
            (Self.OcorrenciaOriginal.Tipo = TACBrTipoOcorrencia.toRetornoLiquidadoEmCartorio) or
            (Self.OcorrenciaOriginal.Tipo = TACBrTipoOcorrencia.toRetornoLiquidadoParcialmente) or
            (Self.OcorrenciaOriginal.Tipo = TACBrTipoOcorrencia.toRetornoLiquidadoPorConta) or
            (Self.OcorrenciaOriginal.Tipo = TACBrTipoOcorrencia.toRetornoLiquidadoSaldoRestante) or
            (Self.OcorrenciaOriginal.Tipo = TACBrTipoOcorrencia.toRetornoLiquidadoSemRegistro);
end;
 

Sicoob.zip

Editado 6 Junho, 2018 por romerio.correia

[José M. S. Junior]

Bom dia, favor atualizar os fontes...

Foi adicionado o campo 1º Item Campo "Valor Pago"

O 2º Item não é uma regra a ser realizada pelo componente nesta situação. O Retorno deve respeitar os campos lidos no arquivo, pode ser tratado isso na Aplicação Comercial.