Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Erro em Remessa Santander


Valdir Dill
  • Este tópico foi criado há 2400 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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!

Valdir Dill

Rio de Janeiro - RJ

 

 

Link to comment
Share on other sites

  • Administradores

Boa noite.

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

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Membros Pro

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!

Valdir Dill

Rio de Janeiro - RJ

 

 

Link to comment
Share on other sites

  • Consultores

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!

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

 

Link to comment
Share on other sites

  • Membros Pro

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

Valdir Dill

Rio de Janeiro - RJ

 

 

Link to comment
Share on other sites

  • Administradores

Boa tarde.

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

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.