Dúvida Nosso Nùmero

[andersonh]

Ola pessoal, estou com uma dúvida sobre como vocês tem feito para salvar o Nosso Número em seu banco de dados, estão salvando apenas o número sequencial ou o Nosso Número calculado, independente do qual banco tem usado, segue exemplo abaixo com o Sicredi:

 

 

NossoNumero       := qurTitulos.FieldByName('NOSSO_NUMERO_SEQL').AsString; //Este é o número sequencial usado com base para calcular o Nosso Número Ex.: 39

 

NossoNumero       := qurTitulos.FieldByName('NOSSO_NUMERO').AsString; //Este campo é o Nosso Número calculado Ex.: 122000391 inclusive com DV

 

 

Usando a primeira linha, quando tento gerar o boleto em um ano  diferente do ano que criei o titulo ira sair diferente o Nosso Número (Ex.: 132000394) tanto no arquivo de Remessa quanto no boleto impresso.

 

Usando a segunda linha, onde ja possuo o Nosso Número calculado inclusive com DV da erro que o tamanho maximo é 8 (Sicredi), ou 10 (Banco do Brasil)

 

Como vocês tem feito? Armazenado Nosso Número sem DV? 

Fico no aguardo, desde ja obrigado!

 

 

[Juliana Tamizou]

Boa tarde.

 

Caso queira armazenar o nosso número formtado em seu BD, basta você utilizar a função MontarCampoNossoNumero() para capturar como o mesmo será impresso no boleto.

 

Att.

[andersonh]

Juliana pode me dar um exemplo de como usar essa função pois não estou conseguindo usa-la no momento que estou criando a lista de titulos onde informo os dados do título.

 

Obrigado!

[Juliana Tamizou]

Boa tarde.

 

Seria algo assim

 

 

NossoNumImpresso:= OnlyNumber(ACBrBoleto1.Banco.MontarCampoNossoNumero(ACBrBoleto1.ListadeBoletos[DataModule1.ACBrBoleto1.ListadeBoletos.Count-1]));

 

Att.

[andersonh]

Não sei eu não entendi direito ou não descrevi corretamente:

A situação é a seguinte, ja possuo o título salvo no meu BD com o Nosso Número calculado com DV (ex.  132000394) no momento que vou imprimir e estou alimentando o componente com os dados do título como segue abaixo

 

 

Titulo := acbrBoleto.CriarTituloNaLista;

with Titulo do

begin

        Vencimento        := qurTitulos.FieldByName('DT_VENCIMENTO').AsDateTime;

        DataDocumento     := qurTitulos.FieldByName('DT_DOCUMENTO').AsDateTime;

        NumeroDocumento   := qurTitulos.FieldByName('NUM_DOCUMENTO').AsString;

        NossoNumero   := ???? aqui quero passar o Nosso Numero que ja tenho no meu BD calculado (ex.  132000394) de quando criei o titulo mas se eu passar com os 9 digitos da erro que relatei na primeira dúvida

        {...}

end;

 

Obrigado pela atenção, Juliana!

Att

[Juliana Tamizou]

Bom dia.

 

se você está apenas querendo capturar o nosso número calculado pelo componente utilize esta função que te passei, porém ao informar o nosso número ao componente para ser impresso faça conforme o primeiro exemplo, ou seja

 

 NossoNumero       := qurTitulos.FieldByName('NOSSO_NUMERO_SEQL').AsString; //Este é o número sequencial usado com base para calcular o Nosso Número Ex.: 39

 

Quem calcula o DV é o componente e você não deve passá-lo junto com o nosso número.

 

Att.

[andersonh]

É exatamente como estou fazendo, só que quando vou fazer reeimpressão de um título de 2012 no ano de 2013 ele monta o Nosso Número diferente por ser outro ano, pelo menos no banco Sicredi onde usa o ano para definir os dois primeiros digitos do Nosso Número.

[Juliana Tamizou]

Bom dia.

 

Observe as funções CalculaTamMaximoNossoNumero e FormataNossoNumero na unit da CaixaEconomicaSicob, talvez seja o caso de fazer algo parecido, caso o componente receba o Nosso Número com 9 posições então ele apenas insere as barras para a impressão...

 

Desde que realmente o padrão seja YY+'2'+999999

 

Att.

[andersonh]

Juliana, deu certo obrigado pela sugestão, segue anexo Unit do banco Sicredi onde fiz os ajustes, para disponibilizar no SVN.

 

Att

[Juliana Tamizou]

Bom dia Anderson.

 

Obrigada pela colaboração...iremos analisar os ajustes  e assim que possível postar uma reposta aqui.

 

Att.

[Juliana Tamizou]

Boa noite.

 

Apo invés da alteração sugerida inicialmente, mudei a função MontarCampoNossoNumero para considerar a data informada na propriedade DataDocumento para montar o Nosso Número, acredito que como a data do documento não muda, as reimpressões ficarão corretas.

 

A alteração já está no svn.

 

Att.

[andersonh]

certo Juliana, mas dai nesse caso não vou poder atribuir para Nosso Numero o número ja calculado incluindo o DV que compoem 9 digitos correto terei que passar apenas o número sequencial, correto?

[Juliana Tamizou]

Bom dia.

 

Isso mesmo.

 

Att.

[andersonh]

Juliana eu estava analisando com a unit que esta no SVN e tem um pequeno detalhe no retorno400 que ja ajustei e comentei o porque da alteração. Segue anexo unit corrigida!

[Juliana Tamizou]

Bom dia.

 

Por favor cite aqui oque foi alterado e o motivo da alteração.

 

Att.

[andersonh]

Juliana acontece o seguinte:

Na função LerRetorno400 atualmente na unit do Sicredi o sistema faz a seguinte verificação

 

 

if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or

          (rCodCedente <> OnlyNumber(Cedente.CodigoCedente))) then

         raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

 

 

Acontece que o arquivo de retorno do sicrecei não possue a Agencia, sendo que sempre em todos os retornos ira gerar a Exception. Na Unit que segue anexo apenas fiz a seguinte alteração :

 

if (not LeCedenteRetorno) and (rCodCedente <> OnlyNumber(Cedente.CodigoCedente)) then

         raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));

 

 

Att

Anderson Luis

 

[Juliana Tamizou]

Boa noite.

 

Correção disponível no svn.

Att.