Boleto Bancoob - Dígito da agência não informado

[Elias Conti]

Boa tarde pessoal,

Ao tentar homologar o boleto pelo banco Sicoob, no momento da geracao do boleto obtive o erro

"Dígito da agência não informado" ,  como o layout do banco me pede que o digito da agencia seja

" " (1 caracter vazio)  , precisei alterar o método "procedure TACBrBoleto.ChecarDadosObrigatorios;'"

adicionando o cobBancoob para resolver o problema. Vcs acham que a solução é esta ou  existe 

outra maneira de resolver ?.

Obrigado

[Juliana Tamizou]

Bom dia.

Provavelmente esta alteração não era necessária tendo em vista que a classe esta em uso por outro bancos.

Você chegou a passar o valor "0" para a propriedade AgenciaDigito?

Att.

[Antonio Gomes]

22 horas atrás, Elias Conti disse:

Boa tarde pessoal,

Ao tentar homologar o boleto pelo banco Sicoob, no momento da geracao do boleto obtive o erro

"Dígito da agência não informado" ,  como o layout do banco me pede que o digito da agencia seja

" " (1 caracter vazio)  , precisei alterar o método "procedure TACBrBoleto.ChecarDadosObrigatorios;'"

adicionando o cobBancoob para resolver o problema. Vcs acham que a solução é esta ou  existe 

outra maneira de resolver ?.

Obrigado

 

 

[Elias Conti]

Juliana, obrigado pela atenção.

Mas se eu informo 0 , o campo sai com valor 0 na remessa, e o banco SICOOB nao aceita 0 o campo tem que ser vazio " ".

por isso deixei na minha base de dados este campo vazio , porem quando tento armazenar neste campo (Ex: para aemitir o boleto) o componente reclama

que vazio é invalido, para resolver precisei adicionar "cobBancoob"  no metodo "procedure TACBrBoleto.ChecarDadosObrigatorios;'"

procedure TACBrBoleto.ChecarDadosObrigatorios;
begin
  if Cedente.Nome = '' then
    Raise Exception.Create(ACBrStr('Nome do cedente não informado'));
  if Cedente.Conta = '' then
    Raise Exception.Create(ACBrStr('Conta não informada'));
  if (Cedente.ContaDigito = '') and (not (Banco.TipoCobranca in [cobBanestes,cobBanese, cobCitiBank])) then
    Raise Exception.Create(ACBrStr('Dígito da conta não informado'));
  if Cedente.Agencia = '' then
    Raise Exception.Create(ACBrStr('Agência não informada'));
  if (Cedente.AgenciaDigito = '') and (not (Banco.TipoCobranca in [cobBanestes, cobBanese,
     cobBanrisul, cobItau, cobCaixaEconomica, cobCaixaSicob, cobCitiBank,cobBancoob])) then  //[ELIAS acrescentei o cobBancoob 10/10/2019]
    Raise Exception.Create(ACBrStr('Dígito da agência não informado'));
end;

 

Obrigado

[Elias Conti]

Desculpe Juliana,

Realmente se eu colocar um "if"  para armazenar " " (vazio) no componente  no momento da geracao da remessa , resolve 

ai eu posso deixar 0 no digito da agencia para os outros efeitos (Ex: imprimir o boleto) e para a remessa deixo vazio.

Obrigado Juliana e Antonio.

[Juliana Tamizou]

Bom dia Elias,

Pela sua mensagem me dá a impressão de que houve alteração no componente, é isso mesmo?

Att.

[Antonio Gomes]

43 minutos atrás, Juliana Tamizou disse:

Bom dia Elias,

Pela sua mensagem me dá a impressão de que houve alteração no componente, é isso mesmo?

Att.

Eu penso que ele fez confusão, o digito da agencia tem que enviar, pensei que estava falando do digitoAgenciaConta

conforme imagem do manual, um deles tem que ir vazio mesmo, porem, não está sendo validado, o componente está correto, ele valida apenas  o digito da agencia.

[Antonio Gomes]

Ai ai, esses bancos piram a gente:

Hearder do arquivo: 

Dígito Verificador da Ag/Conta: Preencher com zeros Header do lote: Dígito Verificador da Ag/Conta: Preencher com espaços em branco   Estou anexando a planilha que solicitei a cooperativa hoje.

LAYOUT PARA TROCA DE INFORMAÇÕES - ATUALIZADO.xls

[Elias Conti]

Ola Juliana,

Isso mesmo . o problema comecou dai.

Na classe  "TACBrBancoob" no metodo "GerarRegistroTransacao240" 

onde gera o digito da agencia estava: PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, '0'), (no registro "P" )

precisei alterar para: PadLeft(ACBrBoleto.Cedente.AgenciaDigito, 1, ' ')

para que no arquivo de remessa o campo saia vazio "". 

Porem la na classe TACBrBoleto metodo "ChecarDadosObrigatorios" 

no ultimo  if ele nao deixava passar vazio o campo AgencaDigito . ai acrescentei "cobBancoob"

Este é o problema .

Obrigado.

 

[Elias Conti]

Antonio,

No HEADER é para colocar "0" no digito da agencia porem no registro "P" que é onde estou com o problema

o banco nos passou que tem que ser " " 1 caracter vazio 

 

 

 

[Antonio Gomes]

Entendi. vc parametrizar no seu programa, para aceitar esse campo, vai funcionar,:

veja:

na procedure: GerarRegistroHeader240 está assim:

PadRight(DigitoVerificadorAgenciaConta, 1, ' ')+ // 72 - Dígito verificador Ag/Conta (zero)  << aqui entra seu parametro, igual coloquei la em cima

 

na procedure: TACBrBancoob.GerarRegistroTransacao240 está assim:

   PadLeft(ACBrBoleto.Cedente.ContaDigito , 1, '0')              + //36 - Dígito da Conta Corrente
               ' ';                                                            //37 - DV Agência/COnta Brancos

 

olha a tela, o parametro que pede no componente:

vc repassa o valor direto como string, para permanecer como o usuario colocou:

    Cedente.DigitoVerificadorAgenciaConta := ADataSetConfigServicoBanco.FieldByName('DV_AGENCIA_CONTA_CCR').AsString;

[Elias Conti]

Entendi.

Valeu Antonio, Obrigado pela dica.