Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Membros Pro
Postado

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

 

 

  • Administradores
Postado

Boa noite.

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

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

  • Membros Pro
Postado

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

 

 

  • Moderadores
Postado

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
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

  • Membros Pro
Postado

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

 

 

  • Administradores
Postado

Boa tarde.

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

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 !!

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.