Ir para conteúdo
  • Cadastre-se

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

Recommended Posts

Postado

Saudações,

Estou com um situação que imagino ter algo de errado na geração do arquivo. Estou gerando remessa com tipo de registro de 240 posições, o código do convênio tem 7 dígitos e a carteira dele é '17'. No fonte para o Banco do Brasil temos a função: 

function TACBrBancoBrasil.FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String;
var
  ANossoNumero, AConvenio, wNossoNumero : String;
  wTamNossoNum: Integer;
begin
   with ACBrTitulo do
   begin
      AConvenio    := ACBrBoleto.Cedente.Convenio;
      ANossoNumero := IntToStr(StrToInt64(OnlyNumber(NossoNumero)));
      wNossoNumero := OnlyNumber(NossoNumero);
      wTamNossoNum := CalcularTamMaximoNossoNumero(Carteira,wNossoNumero);
      
      if ((ACBrTitulo.Carteira = '16') or (ACBrTitulo.Carteira = '18')) and
         (Length(AConvenio) = 6) and (wTamNossoNum = 17) then
         ANossoNumero := padR(ANossoNumero, 17, '0')
      else if Length(AConvenio) <= 4 then
          ANossoNumero := padR(AConvenio, 4, '0') + padR(ANossoNumero, 7, '0')
      else if (Length(AConvenio) > 4) and (Length(AConvenio) <= 6) then
          ANossoNumero := padR(AConvenio, 6, '0') + padR(ANossoNumero, 5, '0')
      else if (Length(AConvenio) = 7) and (ACBrTitulo.Carteira = '11') then
          ANossoNumero := padR('0', 7, '0') + padR(ANossoNumero, 10, '0')
      else if (Length(AConvenio) = 7) and ((ACBrTitulo.Carteira <> '11')) then
          ANossoNumero := padR(AConvenio, 7, '0') + padR(ANossoNumero, 10, '0');
   end;
   Result := ANossoNumero;
end;

O meu caso então é o último desta função. Porém o banco me pede o Nosso Número todo preenchido com zeros, pois a Característica do Título é Vinculada e Responsabilidade de Emissão é o Banco quem emite.

  • Administradores
Postado

Bom dia.

 

Você poderia informar em que parte do manual consta estas orientação? Procurei nos manuais disponíveis no svn e não localizei...

 

Att

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

  • Administradores
Postado

Na vdd pedi o local do manual onde consta esta orientação, pois precisamos saber exatamente qual é a regra para que o Nosso Número fique com 0, se possível tente solicitar ao banco o manual com estas orientações...penso que poderíamos adicionar um tratamento para que quando o NossNumero seja informado com 0, seja entendido que o mesmo deve ser informado zerado...porém seria importante conseguir o manual com o banco.

 

Att.

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

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.