BRADESCO: Erro na posição: 157 e 178 na Remessa Cnab400, não envia a tolerância por demora...

[eraldocg]

Ola senhores,

Há um Ano fiz com sucesso a homologação desta conta bancária com o acbrboleto (não usava e não usa protesto) !

Esse ano enviamos a remessa todos os boletos (média de 5000 mil boletos), e agora foi percebido que os pgtos não estão obedecendo a tolerância para dias de juros e multa,  verificando todo o processo, após vários testes: foi percebido que só consigo acessar a instrução 1 (para informar: 12 Cobrar encargos após o 5º dia do vencimento. /13 Cobrar encargos após o 10º dia do vencimento /14 Cobrar encargos após o 15º dia do vencimento), se informar os dias para protesto como na impressão abaixo no teste 2, lembrando que não uso protesto nessa conta bancária, sendo assim, se faz necessário que volte a funcionar como antes, podendo acessar a instrução 1, sem haver a necessidade de informar o protesto. grato

[eraldocg]

1 hora atrás, eraldocg disse:

Ola senhores,

Há um Ano fiz com sucesso a homologação desta conta bancária com o acbrboleto (não usava e não usa protesto) !

Esse ano enviamos a remessa todos os boletos (média de 5000 mil boletos), e agora foi percebido que os pgtos não estão obedecendo a tolerância para dias de juros e multa,  verificando todo o processo, após vários testes: foi percebido que só consigo acessar a instrução 1 (para informar: 12 Cobrar encargos após o 5º dia do vencimento. /13 Cobrar encargos após o 10º dia do vencimento /14 Cobrar encargos após o 15º dia do vencimento), se informar os dias para protesto como na impressão abaixo no teste 2, lembrando que não uso protesto nessa conta bancária, sendo assim, seria necessário acessar a instrução 1, sem haver a necessidade de informar o protesto. grato

 

[Juliana Tamizou]

Boa tarde.

if ((DataProtesto > 0) and (DataProtesto > Vencimento)) then
   Protesto := IfThen(PadLeft(trim(Instrucao1),2,'0') = '00','06',PadLeft(trim(Instrucao1),2,'0')) + IntToStrZero(DaysBetween(DataProtesto,Vencimento),2)
else if Ocorrencia = '31' then
   Protesto := '9999'
else if ((DataBaixa > 0) and (DataBaixa > Vencimento)) then
   Protesto := PadLeft(trim(Instrucao2),2,'0') + IntToStrZero(DaysBetween(DataBaixa,Vencimento),2)
else
   Protesto := PadLeft(trim(Instrucao1),2,'0') + PadLeft(trim(Instrucao2),2,'0');  

Note no trecho acima que caso não seja passada Data de Protesto, Data de Baixa Automatica ou a Ocorrência for diferente de 31, cairá no ultimo else, onde vc pode passar os valores tanto para a instrução 1 quanto para a instrução 2.

Att.