Número do sequencial do lote incorreto, Santander 240

[brunomachadogp]

Estou gerando uma remessa do Santander, e o sequencial do lote do segmento P parece se comportar errado.

Esta começando com o lote 1, corretamente, e depois, pula para o 5, ignorando o 2, 3 e 4.

Vendo os fontes, o preenchimento ocorre da seguinte forma:

 

function TACBrBancoSantander.GerarRegistroTransacao240(ACBrTitulo: TACBrTitulo): String;

.......

ISequencia := (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo) * 4) + 1;

 

O mesmo acontece no trailer do lote e do arquivo, essa multiplicação por 4.

 

Desta forma, o banco me retornou que os totais estão incorretos.

"REGISTRO DETALHE  - SEGMENTO P      REMESSA                                                                                                          

Posição 09 - 013 Nº seqüencial do registro de lote SEQUENCIAL DEVE INICIAR EM '00001' E SOMAR '1' A CADA LINHA ATÉ O FINAL DO LOTE, LINHA 4."

Para corrigir, eu removi o " * 4", do sequencial do segmento P, e do trailer do arquivo e lote.

 

29052020143508_000005.txt

[Juliana Tamizou]

Seu arquivo não está correto, faltam os segmentos Q, R e S, por este os contadores não batem...seus fontes estão atualizados?

 

Att.

[brunomachadogp]

Eu atualizei em 18/02/2020, 

estes segmentos não são opcionais?

Porque no envio ao banco, não enviei estes segmentos, e não relataram isso como problema.

Se necessário, posso baixar os novos fontes..

[Juliana Tamizou]

Boa tarde.

Se tratar-se de uma remessa de inclusão de titulos sim, verifique se está setando  toRemessaRegistrar em OcorrenciaOriginal.Tipo

Att.

[brunomachadogp]

Realmente alterando para OcorrenciaOriginal.Tipo = toRemessaRegistrar, o contador fica correto.

Eu estava enviando toRemessaBaixar.

Nesse caso, não deveria haver uma regra, se "OcorrenciaOriginal.Tipo" = "toRemessaBaixar", não multiplicar por aquele 4?

 

[Juliana Tamizou]

Bom dia.

De fato cabe ajuste, caso queira nos ajudar com essa parte, será muito bem vindo também.

Att.

[brunomachadogp]

Bom dia Juliana, 

Pelo que notei nos fontes do ACBRBancoSantader, os segmentos Q, R e S, apenas são implementados caso a seguinte regra seja valida:

 

if sCodMovimento = '01' then begin..

Então, quando o sCodMovimento for '01', significa que irá preencher os 4 segmentos, neste caso, o multiplicador por 4 deve existir.

Caso o sCodMovimento seja <> '01', a multiplicação não deve ocorrer.

    iSegmentos := 1;
    if sCodMovimento = '01' then
      iSegmentos := 4;

    ISequencia := (ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo) * iSegmentos) + 1;

 

O mesmo ocorre no trailer do lote e do arquivo.

Uma observação: Esta solução não serve se uma mesma remessa, possuir títulos com diferentes "OcorrenciaOriginal.Tipo".

Exemplo, um titulo é "OcorrenciaOriginal.Tipo = toRemessaRegistrar", e outro título "OcorrenciaOriginal.Tipo = toRemessaBaixar".

Neste caso, o trailer ficaria errado.

Mas, acredito que na prática não deva ocorrer, o tipo de remessa deve ser uma propriedade da empresa, e não do título.

Ajustei o fonte desta maneira, e funcionou para os casos com 1 segmento e 4 segmentos.

Desde já, agradeço atenção.

Segue o fonte:

 

ACBrBancoSantander.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[brunomachadogp]

Bom dia Juliana,

Surgiu outro problema referente a esse banco.

O meu cliente, não vai cobrar multa e juros por atraso. Então, eu envio o valor da multa e valor de juros zero.

Porém, o banco recusa o arquivo, porque ele diz que não deve existir o segmento R, apenas o P Q e S.

Se você verificar o fonte, não existe essa opção. Ou enviam todos segmentos (P, Q, R, S), ou apenas o (P).

Já tentei enviar apenas o P, e também foi recusado, dizendo que deveria ter os segmentos P Q e S.

Segundo o banco, o segmento R é para informações de cobrança de multa e juros, como no meu caso não tem essa cobrança, ele não deve ser enviado.

Minha sugestão, seria preencher o segmento R, apenas quando houver valor de multa ou juros.