[ACBrBoleto BB]

Fiz algumas alterações no fonte ACBrBancoCecred segue para avaliação.

estou usando assim para carregar as informações.  

if frmmodulo.qrconfigCODPROTESTO.AsString = 'Nenhum' then
          begin
            CodigoNegativacao := cnNenhum;
          end;          
          if frmmodulo.qrconfigCODPROTESTO.AsString = 'Protestar Corrido' then
          begin
            CodigoNegativacao := cnProtestarCorrido;
            DataProtesto          := qrReceber.Fieldbyname('DATA_VENCIMENTO').Value
                                   + frmmodulo.qrconfigDIASPROTESTO.AsInteger;

          end;          
          if frmmodulo.qrconfigCODPROTESTO.AsString = 'Protestar Uteis' then
          begin
              CodigoNegativacao := cnProtestarUteis;
              DataProtesto         := qrReceber.Fieldbyname('DATA_VENCIMENTO').Value
                                    + frmmodulo.qrconfigDIASPROTESTO.AsInteger;

          end;          
          if frmmodulo.qrconfigCODPROTESTO.AsString = 'Não Protestar' then
          begin
            CodigoNegativacao := cnNaoProtestar;
          end;
          
          if frmmodulo.qrconfigCODPROTESTO.AsString = 'Negativar' then
          begin
              CodigoNegativacao := cnNegativar;
              DataNegativacao      := qrReceber.Fieldbyname('DATA_VENCIMENTO').Value
                                      + frmmodulo.qrconfigDIASPROTESTO.AsInteger;

          end;          
          if frmmodulo.qrconfigCODPROTESTO.AsString = 'Não Negativar' then
          begin
            CodigoNegativacao := cnNaoNegativar;
          end;
 

 

ACBrBancoCecred.pas

[ACBrBoleto BB]

bom dia, estou com problema parecido com Cecred. 

CodigoNegativacao := cnNegativar;

DataNegativacao      :=  vencimento  + 5;

não gera o prazo para negativar na remessa;

na impressão do aparece.