Carteira incorreta no Boleto

[Filippe]

Galera bom dia.

 

Estou gerando o boleto do BB.
O arquivo CNAB ja esta OK o banco validou.
porem estou com alguns problemas na impressão...
O campo Carteira . tem que sair 17 e esta saindo errado.. 
O campo especie esta saindo 02 e teria que sair DM que é o que estou informando .. 
Agora o por que esta saindo desta forma ?
Toquei de fast para fortes .. ai no fortes a carteira fica 17/019 mas mesmo assim esta errado... 

 

[Juliana Tamizou]

Boa tarde.

1 hora atrás, Filippe disse:

O campo Carteira . tem que sair 17 e esta saindo errado.

Você provavelmente está informando a variação na propriedade Carteira, mas o correto é usar a propriedade Modalidade para esta informação.

1 hora atrás, Filippe disse:

O campo especie esta saindo 02 e teria que sair DM que é o que estou informando .

Como você está atribuindo esta informação?

Att.

[Filippe]

Juliana..

 

Estou usando modalide

  Modalidade := '019';

 

 

Estou passando assim:

Carteira := 17 ;
Modalidade := '019';
EspecieDoc        := 'DM';

[Juliana Tamizou]

Boa tarde.

Não consegui reproduzir seu exemplo com o demo do ACBr(em meus tests utilizei o Fortes), por favor faça um teste com o demo do componente

Att.

[Filippe]

Quando coloco o modelo 19 da esse problemas... 
 

Fiz 2 alterações no PAS

function TACBrBancoBrasil.MontarCampoCarteira(const ACBrTitulo: TACBrTitulo
  String;
begin
//Alterado Filippe 14/01/2019
//Alterado para sempre Sair apenas a Carteira
//  Result := IfThen(ACBrTitulo.ACBrBoleto.Cedente.Modalidade = '',
//                   ACBrTitulo.Carteira,
//                   ACBrTitulo.Carteira + '/' + ACBrTitulo.ACBrBoleto.Cedente.Modalidade );

  Result := ACBrTitulo.Carteira;
end;

 

 

{ Pegando o tipo de EspecieDoc }
     //Alteração Filippe Maymone - 14/01/2019
     // Guardo a especie do DOC para depois da geração do arquivo
     // retornar para Especie
     AEspecieDoc := EspecieDoc;
     if EspecieDoc = 'DM' then
       EspecieDoc   := '02'
     else if EspecieDoc = 'RC' then
       EspecieDoc   := '17'
     else if EspecieDoc = 'NP' then
       EspecieDoc   := '12'
     else if EspecieDoc = 'NS' then
       EspecieDoc   := '16'
     else if EspecieDoc = 'ND' then
       EspecieDoc   := '19'
     else if EspecieDoc = 'DS' then
       EspecieDoc   := '04'
     else
       EspecieDoc := EspecieDoc;

 

 

Depois no final da rotina eu volto a especie

 

     { Pegando o tipo de EspecieDoc }
     //Retornando a especie
     EspecieDoc := AEspecieDoc;

 

 

Segue o arquivo ACBRBancoBrasil.pas

ACBrBancoBrasil.pas

[Juliana Tamizou]

Boa tarde.

Em relação a alteração da carteira, conforme citei antes, não consegui reproduzir seu problema, em meus testes é impresso Carteira/Modalidade (o que está aprovado por diversas homologações),  queira por favor analisar se está passando alguma informação adicional ao componente.

Em relação a EspecieDoc, suas alterações poderiam afetar somente a remessa e não a impressão.

Att.