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

Entendi.

Valeu Antonio, Obrigado pela dica.

 

 

 

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

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 

 

 

 

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

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.

 

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

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.

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

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

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

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

[ACBrEPCBloco_A_Class]

Desculpe,

A versão 2.1.4 corrigiu este erro no validador, somente a versão 2.1.2 do validador estava apresentando o erro.

Desconsiderar esta solicitação

[ACBrEPCBloco_A_Class]

Ola pessoal,

o método "procedure TBloco_A.WriteRegistroA100(RegA010: TRegistroA010) ;" terá que ser alterado.

 

na linha 308

onde esta :

          /// Tratamento NFs canceladas 02 - 19-ago-2011
          if Pos(strCOD_SIT,'02') > 0 then
          begin
            //COD_PART       := ''; Correção Mário Mesquita - programador Criare Informática
            CHV_NFSE       := '';
            DT_DOC         := 0;
            DT_EXE_SERV    := 0;
            IND_PGTO       := tpNenhum;
            booNFCancelada := true
          end
          else
            booNFCancelada := false;
teremos que passar para; 

          /// Tratamento NFs canceladas 02 - 19-ago-2011
          if Pos(strCOD_SIT,'02') > 0 then
          begin
            //COD_PART       := ''; Correção Mário Mesquita - programador Criare Informática
            CHV_NFSE       := '';
            IND_PGTO       := tpNenhum;
            booNFCancelada := true
          end
          else
            booNFCancelada := false;
 

é que as datas da nf de serviço cancelada, é obrigatória a partir da ultima versao do validador.

Tentei alterar por aqui , até que as modificações fossem feitas, porem a DCU nao gera. mantem a anterior.

Valeu