Erro em Remessa Santander

[Valdir Dill]

Boa noite,

Acredito que na formatação das instruções de protesto da ACBrBancoSantander esteja com erro.
Vejamos abaixo as linhas que gerarm essas dados. É a partir da linha 433 da ACBrBancoSantander.pas.

    {Instruções}
    if (DataProtesto <> 0) and
       (DataProtesto > Vencimento) then
    begin
      if (Trim(Instrucao2) = '') then //correto  if (Trim(Instrucao1) = '')
        Instrucao2 := '1' // Protestar Dias Corridos //correto Instrucao1 := '1' // Protestar Dias Corridos
      else
      begin
        if not MatchText(Instrucao2, ['0', '1', '2', '3', '9']) then //correto if not MatchText(Instrucao1, ['0', '1', '2', '3', '9']) then
          raise Exception.Create('Código de protesto informado incorretamente!');
      end;
      // Calcular os dias para protesto
      sDiasProtesto := PadLeft(IntToStr(Trunc(DataProtesto) - Trunc(Vencimento)), 2, '0');
    end
    else
    begin
      Instrucao1 := '0';  // Não protestar
      SDiasProtesto := '00';
    end;

Na minha opinião, em todas as linhas acima, onde está "Instrucao2", deveria estar "Instrucao1", pois é Instrucao1 que vai popular a coluna 221 do segmento P. E essa posição 221 é o código de protesto.

Do jeito que está, a posição 221 está ficando em branco no arquivo remessa e, as posições 223 e 224, que são os dias de protesto recebem valor, o que gera rejeição do arquivo pelo banco.

Por favor verifiquem. 

Obrigado!

[Juliana Tamizou]

Boa noite.

Alteração para corrigir esta situação disponibilizada no svn na sexta-feira.

Att.

[Valdir Dill]

Bom dia,

Na minha opinião, a linha 445 da ACBrBancoSantander.pas -> "if not MatchText(Instrucao2, ['0', '1', '2', '3', '9']) then", continua errada. 

Claro que essa linha só será acionada se Instrucao1 não tiver valor, mas para que a essa rotina fique 100% correta e até para futuras análise...

Obrigado!

[Juliomar Marchetti]

Bom dia,

Na minha opinião, a linha 445 da ACBrBancoSantander.pas -> "if not MatchText(Instrucao2, ['0', '1', '2', '3', '9']) then", continua errada. 

Claro que essa linha só será acionada se Instrucao1 não tiver valor, mas para que a essa rotina fique 100% correta e até para futuras análise...

Obrigado!

Bom dia

favor atualizar já está no svn a correção!

[Valdir Dill]

Bom dia,

Na minha opinião, a linha 445 da ACBrBancoSantander.pas -> "if not MatchText(Instrucao2, ['0', '1', '2', '3', '9']) then", continua errada. 

Claro que essa linha só será acionada se Instrucao1 não tiver valor, mas para que a essa rotina fique 100% correta e até para futuras análise...

Obrigado!

Bom dia

favor atualizar já está no svn a correção!

Juliomar, antes dessa minha última resposta eu havia atualizado. Por desencargo atualizei neste momento novamente e essa linha continua errada. Os outros dois locais dessa função onde estava Instrucao2 e o correto era Instrucao1, foram corrigidos, mas essa linha 445 continua com Instrucao2.

Obrigado

[Juliana Tamizou]

Boa tarde.

Realmente faltou observar esta linha, já está no svn a correção.

Att.

[Valdir Dill]

Agora sim, tudo certo!

Obrigado!