DV do banco Uniprime

[Vinícius Iancovski]

Boa tarde!

Ontem um gerente do banco Uniprime de Foz do Iguaçú - PR nos ligou afirmando que DV do número do banco dos boletos gerados no nosso sistema estava incorreto, pois estava 4 e o correto seria X.

Ele nos mandou um manual (em anexo) contendo a seguinte citação na segunda página:

Citar

Número do Banco e seu DV: Fixar o número do banco ‘099-X’ ao lado direito Logo/Nome do Banco.

Ao ACBrUniprime.pas o DV está sendo setado como 4, gerando o número do banco como "099-4"

Nessa situação, qual seria a procedência correta? Será necessária alteração do fonte ACBrUniprime.pas?

Obrigado desde já!

Cobexpess-Boleto padrao+Layout CNAB 400_Banco099.pdf

[José M. S. Junior]

Boa tarde

O digito do banco é uma propriedade publica do componente, pode ser alterada via código:

ACBrBoleto1.Banco.Digito:=

  ou pelo ObjetInspector em: "Banco"

[Giquieu]

Olá,

Estou realizando a homologação com Uniprime.

Tive a mesma critica do Digito X na impressão do Boleto. Usando Lazarus.

Utilizando o Fortes pra impressão existe um tratamento para imprimir X quando o digito do banco for maior ou igual a 10. Como mostra a imagem:

 

Fiz um teste com o demo  forçando um o valor 10 no digito do banco, conforme sugerido. 

Porém o boleto ainda está sendo impresso com o digito 4, que é atribuído ao informar o tipo Uniprime.

   ACBrBoleto1.Banco.Digito := 10;
   ACBrBoleto1.Imprimir;

 

Fui olhar a property e a mesma tem um Setter "fake" , usado apenas pra mostrar o ObjectInspector:

Então indiferente do que informar no Digito do Banco o Fortes não vai considerar.

Sugiro implementarmos um Set pra property e no Get tratar se existe algo nela, caso contrario podemos retornar o Digito que está na propria classe do Banco.

TACBrBanco = class(TComponent)
private 
  fDigitoManual: Integer;

....

procedure TACBrBanco.SetDigito(const AValue: Integer);
begin
  fDigitoManual := AValue;
end;

function TACBrBanco.GetDigito: Integer;
begin
  Result := fBancoClass.Digito;
   if (fDigitoManual > 0) then
     Result := fDigitoManual;
end;

 

[José M. S. Junior]

Bom dia, será analisado... Obrigado!

[Jefferson Quinelatto]

Em 10/12/2020 at 20:39, Giquieu disse:

Olá,

Estou realizando a homologação com Uniprime.

Tive a mesma critica do Digito X na impressão do Boleto. Usando Lazarus.

Utilizando o Fortes pra impressão existe um tratamento para imprimir X quando o digito do banco for maior ou igual a 10. Como mostra a imagem:

 

Fiz um teste com o demo  forçando um o valor 10 no digito do banco, conforme sugerido. 

Porém o boleto ainda está sendo impresso com o digito 4, que é atribuído ao informar o tipo Uniprime.

   ACBrBoleto1.Banco.Digito := 10;
   ACBrBoleto1.Imprimir;

 

Fui olhar a property e a mesma tem um Setter "fake" , usado apenas pra mostrar o ObjectInspector:

Então indiferente do que informar no Digito do Banco o Fortes não vai considerar.

Sugiro implementarmos um Set pra property e no Get tratar se existe algo nela, caso contrario podemos retornar o Digito que está na propria classe do Banco.

TACBrBanco = class(TComponent)
private 
  fDigitoManual: Integer;

....

procedure TACBrBanco.SetDigito(const AValue: Integer);
begin
  fDigitoManual := AValue;
end;

function TACBrBanco.GetDigito: Integer;
begin
  Result := fBancoClass.Digito;
   if (fDigitoManual > 0) then
     Result := fDigitoManual;
end;

 

Boa tarde, estou passando pela mesma situação no momento, e ao colocar o Digito 12, entrou na condição normalmente, e gerou o boleto 099-X.

[Giquieu]

Olá,

Interessante!

Não existe um "setter" pra propriedade digito e o GetDigito, pega do BancoClass, que aqui está retornando 4.

 

 

[José M. S. Junior]

Por padrão todos os bancos não deveriam mudar o dígito do Banco, assim como o código do Banco não muda. Por isso essa property é fixa na classe. 

Se possível solicite esse manual do banco para que possamos analisar, pois se existe essa alteração pode se tratar de outro layout, nesse caso seria necessário implementar a classe e não apenas alterar esses campos referente ao Banco.

[lais contrin]

Algum de vcs conseguiu homologar sem fazer essa alteração?

[Giquieu]

Por email, me enviaram que é necessário ser 099-X.

Solicitei a nova documentação. Assim que pegar coloco aqui junto a alteração pra usar X.

 

[lais contrin]

Eu tenho adocumentação que pede 099-XMANUAL CNAB400 - UNIPRIME.pdf