Acbr Boleto Mudança Na Versão Desestabilizou Sistema

[Claudiomir]

Saudações a todos

Assumi os fontes de um sistema e precisei atualizar o Acbr para imprimir as NFC-e. Depois de muita ajuda por parte de todos, incluindo os membros deste grupo, as NFC-e estão funcionando. 

No entanto, o acbr boleto ficou... bem, eu diria insano, mas não se adequa.

1) Por exemplo, ele não imprime mais boletos para o banco Bancoob, e sim, eu li o tópico associado a este grupo e fiz as alterações de acordo, conforme modelo abaixo.

fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc);

//fprinci é o formulario principal, ou tela principal do sistema

    case strtoint(bc) of

      1:        fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoDoBrasil;

      237:    fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBradesco;

      341:    fprinci.ACBrBoleto1.Banco.TipoCobranca := cobItau;

      748:    fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSicred;

      // incluido na atualizacao da nfce

      756:    fprinci.ACBrBoleto1.Banco.TipoCobranca := cobBancoob;

      104:    fprinci.ACBrBoleto1.Banco.TipoCobranca := cobCaixaEconomica;

      33, 53, 008:   fprinci.ACBrBoleto1.Banco.TipoCobranca := cobSantander;

    end;

Fazendo dessa forma, ele indica que on banco 756 o numero máximo do "nosso número" deve ser 7 e não 13 como estava sendo feito. Estou errando algo ou é assim mesmo???

2) em outro cliente, que usa o mesmo sistema(só que com o banco sicredi) ele funciona adequadamente. Só que o programador antigo alterou algo( e não, eu não sei onde ele fez ou por onde anda) só que na impressão do boleto, ele imprimia ao invés de recibo e fatura (com código de barra para pgto em banco) ele imprimia recibo, fatura, fatura (2x) na mesma folha. Como torno a implementar isso???

Espero ter sido claro ( embora os problemas sejam obscuros kakakakaka!!)

No aguardo de qualquer ajuda,

Antecipadamente agradeço,

 

Claudiomir

 

[Claudiomir]

Ainda com problema. 

Consegui acertar NossoNumero de acordo com o manual, mas agora dá erro dizendo que o Nosso Numero não está correto. Peguei o manual direto do banco e ele informa que nosso numero é de 9 digitos. 

 

estou informando essa linha abaixo, antes de dar o erro.

 

 fprinci.ACBrBoleto1.Banco.Numero := strtoint(bc); // sendo que bc é = 756.

 

Uma vez que envio para impressao tenho uma mensagem de erro dizendo:

" Tamanho Máximo do Nosso Numero é 7"

 

 

 

Galera, qualquer ajuda, ajuda. 

 

No aguardo.

 

Claudiomir

Editado 11 Setembro, 2014 por Claudiomir

[Claudiomir]

resolvi da seguinte forma.

 

unit ACBrBancoob;

.

.

.

.

constructor TACBrBancoob.create(AOwner: TACBrBanco);

begin

   inherited create(AOwner);

   fpDigito := 0;

   fpNome   := 'SICOOB';

   fpNumero := 756;

   fpTamanhoMaximoNossoNum := 9;

   fpTamanhoCarteira   := 1;

   fpTamanhoConta      := 8;

   fpCodigosMoraAceitos:= '2';

end;

 

por enquanto.... funciona

 

Claudiomir

[Juliana Tamizou]

Bom dia.

 

 

Favor anexar o manual que você está utilizando, pois os manuais disponíveis no svn indicam que neste banco são utilizados somente 7 dígitos para o nosso número.

 

Att.