Problema Homologação Boleto Banco Safra

[cgarrotti]

Bom dia Pessoal,

Estou com um problema na homologação no boleto do Banco Safra.

O Banco me mandou um modelo no qual deveria ser feito

[Felipe E. Resende Mesquita]

1 hora atrás, cgarrotti disse:

Bom dia Pessoal,

Estou com um problema na homologação no boleto do Banco Safra.

O Banco me mandou um modelo no qual deveria ser feito

Bom dia, cgarrotti

Você está com os fontes atualizados? Sem informar o problema, fica difícil tentar te ajudar. Sugiro que descreva as suas dúvidas.

[cgarrotti]

8 horas atrás, Felipe E. Resende Mesquita disse:

Bom dia, cgarrotti

Você está com os fontes atualizados? Sem informar o problema, fica difícil tentar te ajudar. Sugiro que descreva as suas dúvidas.

Olá Felipe,

Sim, está atualizado, inclusive atualizei hoje de manhã.

O que ocorre é que na parte da agência/ Codigo de beneficiário, a agência está saindo diferente do manual. No meu exemplo deveria sair 03700/000346971  e no acbr está saindo 37000/000346971.

O que estou fazendo de errado ?

Att

 

Charles

[Juliana Tamizou]

Boa tarde.

Como você está alimentando o componente?

Att.

[cgarrotti]

14 horas atrás, Juliana Tamizou disse:

Boa tarde.

Como você está alimentando o componente?

Att.

Bom dia,

Estou passando a Agência (03700) em formato de string para  ACBrBoleto1.Cedente.Agencia, porém a  procedure TACBrCedente.SetAgencia(const AValue: String); que recebe o valor da agencia, transforma essa String que passei para inteiro, removendo o 0 do 03700 ficando 3700 e depois la dentro da Classe do Banco safra ele pega essa agencia e concatena com o digito da agência.  

[Juliana Tamizou]

Bom dia.

O problema é que a agência para este banco tem o tamanho 4, logo você deve passar 3700.

Note o que diz o manual

Na impressão do campo Agência/Código Beneficiário do boleto Bradesco, deverá ser preenchido com a informação que será fornecido pelo banco por ocasião do início dos testes.
Exemplo: “3114-3 / 0176300-8” (campo numérico).

Att.

[Souza]

Bom dia, também estou tentando homologar o banco SAFRA, e minha dúvida é a seguinte, como informar o Nosso Número sem o Digito Verificador na emissão do boleto ?

visto que é uma das rejeições que o banco acusou na homologação

"Campo nosso número deve ser numeração sequencial e formatado com 9 caracteres, exemplo : 000000001,000000002 etc.."

 

Desde já obrigado.

 

[Felipe E. Resende Mesquita]

 

2 horas atrás, Souza disse:

Bom dia, também estou tentando homologar o banco SAFRA, e minha dúvida é a seguinte, como informar o Nosso Número sem o Digito Verificador na emissão do boleto ?

visto que é uma das rejeições que o banco acusou na homologação

"Campo nosso número deve ser numeração sequencial e formatado com 9 caracteres, exemplo : 000000001,000000002 etc.."

 

Desde já obrigado.

 

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.

[Souza]

51 minutos atrás, Felipe E. Resende Mesquita disse:

 

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.

Boa tarde Felipe, mas o topico é sobre homologação do boleto Safra, que o meu caso.

 

[Felipe E. Resende Mesquita]

1 hora atrás, Souza disse:

Boa tarde Felipe, mas o topico é sobre homologação do boleto Safra, que o meu caso.

 

A dúvida do tópico é sobre o campo agência do banco Safra.

[JGarcia]

Agência Safra: 14500 - Cuiaba
Conta Safra: 580712-2 

O Banco quer o campo Agencia/Codigo do beneficiario
14500/005807122

o Acbr imprime no boleto
01450/58071-2

estou passando dessa forma para o componente;
422 : BDados.ACBrBoleto1.Banco.TipoCobranca  := cobBancoSafra;        {422}

  BDados.ACBrBoleto1.Cedente.Agencia       := Trim(BDados.IBQuery1.FieldByName('Agencia').AsString);
  BDados.ACBrBoleto1.Cedente.AgenciaDigito := Trim(BDados.IBQuery1.FieldByName('AG_DV').AsString);
  BDados.ACBrBoleto1.Cedente.Conta         := Trim(BDados.IBQuery1.FieldByName('Conta').AsString);
  BDados.ACBrBoleto1.Cedente.ContaDigito   := Trim(BDados.IBQuery1.FieldByName('CC_DV').AsString);

function TACBrBancoSafra.MontarCampoCodigoCedente(
  const ACBrTitulo: TACBrTitulo): string;
begin
  with ACBrTitulo.ACBrBoleto.Cedente do
  begin
    Result := PadLeft(Agencia, 4, '0') + PadLeft(AgenciaDigito, 1, '0') + '/' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0');
  end;
end;

esta funcao acima esta correta.
mas acredito que o acbr nao esta lendo ela.
e nao sei onde ele esta buscando.

[JGarcia]

12 minutos atrás, JGarcia disse:

Agência Safra: 14500 - Cuiaba
Conta Safra: 580712-2 

O Banco quer o campo Agencia/Codigo do beneficiario
14500/005807122

o Acbr imprime no boleto
01450/58071-2

estou passando dessa forma para o componente;
422 : BDados.ACBrBoleto1.Banco.TipoCobranca  := cobBancoSafra;        {422}

  BDados.ACBrBoleto1.Cedente.Agencia       := Trim(BDados.IBQuery1.FieldByName('Agencia').AsString);
  BDados.ACBrBoleto1.Cedente.AgenciaDigito := Trim(BDados.IBQuery1.FieldByName('AG_DV').AsString);
  BDados.ACBrBoleto1.Cedente.Conta         := Trim(BDados.IBQuery1.FieldByName('Conta').AsString);
  BDados.ACBrBoleto1.Cedente.ContaDigito   := Trim(BDados.IBQuery1.FieldByName('CC_DV').AsString);

function TACBrBancoSafra.MontarCampoCodigoCedente(
  const ACBrTitulo: TACBrTitulo): string;
begin
  with ACBrTitulo.ACBrBoleto.Cedente do
  begin
    Result := PadLeft(Agencia, 4, '0') + PadLeft(AgenciaDigito, 1, '0') + '/' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0');
  end;
end;

esta funcao acima esta correta.
mas acredito que o acbr nao esta lendo ela.
e nao sei onde ele esta buscando.

Obs.. O arquivo remessa sai certinho

Fontes atualizados

[Juliana Tamizou]

Bom dia.

16 horas atrás, JGarcia disse:

BDados.ACBrBoleto1.Cedente.Agencia       := Trim(BDados.IBQuery1.FieldByName('Agencia').AsString);
  BDados.ACBrBoleto1.Cedente.AgenciaDigito := Trim(BDados.IBQuery1.FieldByName('AG_DV').AsString);
  BDados.ACBrBoleto1.Cedente.Conta         := Trim(BDados.IBQuery1.FieldByName('Conta').AsString);
  BDados.ACBrBoleto1.Cedente.ContaDigito   := Trim(BDados.IBQuery1.FieldByName('CC_DV').AsString);

Sm você informar os valores contidos em eu bd fica um pouco dificil lhe auxiliar.

Att.

[JGarcia]

1 hora atrás, Juliana Tamizou disse:

Bom dia.

Sm você informar os valores contidos em eu bd fica um pouco dificil lhe auxiliar.

Att.

bom dia Juliana.

 BDados.ACBrBoleto1.Cedente.Agencia       := '1450'
  BDados.ACBrBoleto1.Cedente.AgenciaDigito := '0'
  BDados.ACBrBoleto1.Cedente.Conta         := '580712'
  BDados.ACBrBoleto1.Cedente.ContaDigito   := '2'

Mas a questao esta no formato do campo

O Banco quer o campo Agencia/Codigo do beneficiario dessa forma:
14500/005807122

o Acbr imprime no boleto
01450/58071-2

segue anexo

 

Editado 21 Março, 2019 por JGarcia

[Juliana Tamizou]

Boa tarde.

Teste da seguinte forma:

Cedente.Agencia =  0145

Cedente.Conta = 58071

Att.

 

[JGarcia]

26 minutos atrás, Juliana Tamizou disse:

Boa tarde.

Teste da seguinte forma:

Cedente.Agencia =  0145

Cedente.Conta = 58071

Att.

 

boa tarde

Não da certo Tbem Juliana

e a conta é 580712-2 nao pode ser da forma que vc citou.

function TACBrBancoSafra.MontarCampoCodigoCedente(
  const ACBrTitulo: TACBrTitulo): string;
begin
  with ACBrTitulo.ACBrBoleto.Cedente do
  begin
    Result := PadLeft(Agencia, 4, '0') + PadLeft(AgenciaDigito, 1, '0') + '/' + PadLeft(ACBrBoleto.Cedente.Conta, 8, '0') + PadLeft(ACBrBoleto.Cedente.ContaDigito, 1, '0');
  end;
end;

esta função é exatamente oq o banco quer.

mas o acbr não le ela e mais esta pegando Cedente.Convenio para formar o codigo do beneciario e não Cedente.Conta.

ja atualizei os fontes via SVN e nao consigo. e o banco quer para segunda feira no maximo.

[Juliana Tamizou]

Bom dia.

Esta função foi criada para ser utilizada sempre na impressão do código do cedente, vc debugou e realmente a mesma não foi chamada?

Qual gerador de relatórios vc está utilizando?

Att,

[JGarcia]

1 hora atrás, Juliana Tamizou disse:

Bom dia.

Esta função foi criada para ser utilizada sempre na impressão do código do cedente, vc debugou e realmente a mesma não foi chamada?

Qual gerador de relatórios vc está utilizando?

Att,

bom dia.

uso Fast "BoletoFR.fr3".

No proprio ACbrBoletoDemo que vem como exemplo, não chama essa função, o boleto sai exatamente como eu mandei acima.

eu preciso mudar mesmo que seja o fonte acbr por enquanto, mas nao consigo saber qual funcao esta chamando.

[lmdsistemas]

Também estou homologando Safra, D7 e Fortes report.

Coloquei a sua agência e conta, minha impressão saiu aparentemente correta.

Sei que não lhe ajuda muito saber que para outros funciona, mas para ter ciência que aparentemente está funcionando com ACBR/FortesReport.

[JGarcia]

Boa tarde

Consegui resolver

//    422: Result := cobSafraBradesco;
    422: Result := cobBancoSafra;
 

Alterei essa instrução no ACBrBoleto.

deu certo...

Obrigado Juliana

Valeu ImdSistemas pelo retorno.