Problema na homologação Banco do Nordeste

[edvaniojancy]

Segue arquivo com alteração necessária para homologação.

Data Homologação: 30/06/2016

Anexado retorno de inconsistências encontradas pelo banco.

 

ACBrBancoNordeste.pas

boleto homologação.pdf

[Luciano Rodrigues Pereira]

Não tem nada de errado com o pas do ACBr. Eu trabalho com o bnb e tudo certo. Você está fazendo confusão com Carteira e Tipo de Operação. Isso é uma chatice mesmo no bnb. A carteira no caso é 4 e o Tipo de Operação é 21. É só você colocar no seu sistema carteira 4 que o ACBr faz o resto. Já na impressão do boleto, o boleto pede Carteira (que seria 4), mas o banco quer que imprima na verdade o Tipo de Operação (21), aí você edita o boleto que você trabalha. Cria uma função para converter a Carteira em Tipo de Operação e chama ela lá em before print do MasterData. Tipo assim:

procedure MDOnBeforePrint(Sender: TfrxComponent);
begin
  // Banco 004 (Banco do Nordeste) - Imprime o Tipo de Operação no lugar da Carteira
  TituloCarteira.Text  := IIF(<Banco."Numero"> = '004', CarteiraToTipoOperacao(<Titulo."Carteira">),  <Titulo."Carteira">);
end;

function CarteiraToTipoOperacao(const Carteira: string): String;
begin
  if Carteira = '4' then
    Result:= '21'
  else if Carteira = '5' then
    Result:= '41'
  else if Carteira = '6' then
    Result:= '31'
  else if Carteira = 'I' then
    Result:= '51'
  else result:= Carteira                                                       
end;

[Juliana Tamizou]

Boa noite.

Houve uma alteração recente no ACBrBoletoFCFortes para incluir a função citada.

Em 01/07/2016 at 09:44, Luciano Rodrigues Pereira disse:

Cria uma função para converter a Carteira em Tipo de Operação e chama ela lá em before print do MasterData

Att.

[Luciano Rodrigues Pereira]

Em 05/07/2016 at 17:17, Juliana Tamizou disse:

Boa noite.

Houve uma alteração recente no ACBrBoletoFCFortes para incluir a função citada.

Att.

E no FastReport houve também?

[Juliana Tamizou]

Boa tarde @Luciano Rodrigues Pereira.

Acredito que ainda não, mas você pode confirmar pelo histórico do svn.

Att.

[Henrique Paraiba]

Boa tarde Pessoal!

Basta na procedure PrepareBoletos: Boolean;

colocar a seguinte linha:

Field_Carteira.AsString := Banco.MontarCampoCarteira(ListadeBoletos[iFor]);

Que resolve!

Att!

[Patrick Alves]

Boa tarde!

Como na ultima revisão ainda não tem esta alteração para o Fast Report, anexei a unit alterada com a sugestão do colega @Henrique Paraiba.

Alterado a linha 606:

Field_Carteira.AsString := ListadeBoletos[iFor].Carteira;

para:

Field_Carteira.AsString := Banco.MontarCampoCarteira(ListadeBoletos[iFor]);

Por favor sendo possível adicione ao repositório.

Obrigado!

 

ACBrBoletoFCFR.pas

Editado 30 Agosto, 2016 por Patrick Alves

[Juliomar Marchetti]

Em 30/08/2016 at 14:29, Patrick Alves disse:

Boa tarde!

Como na ultima revisão ainda não tem esta alteração para o Fast Report, anexei a unit alterada com a sugestão do colega @Henrique Paraiba.

Alterado a linha 606:

Field_Carteira.AsString := ListadeBoletos[iFor].Carteira;

para:

Field_Carteira.AsString := Banco.MontarCampoCarteira(ListadeBoletos[iFor]);

Por favor sendo possível adicione ao repositório.

Obrigado!

 

ACBrBoletoFCFR.pas

Boa tarde

enviei a alteração ao svn!

favor testar