ACBrBoleto BB

[Djean Carlos]

Boa Noite, 

Estou gerando arquivo de remessa para BB e não esta gerando no arquivo informações da negativação. Alimentei o componente conforme abaixo. Arquivo de remessa em anexo.

CodigoNegativacao := cnNegativar;

DataNegativacao      := QRCr.Fieldbyname('DATA_VENCIMENTO').Value  + frmmodulo.qrconfig_cobrebemDIASPROTESTO.AsInteger;

 

 

REM-20200818220804.REM

[Juliana Tamizou]

Bom dia.

O mesmo ocorre no demo?

Att.

[WYLSONRSL]

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. 

 

[Djean Carlos]

Desculpe, 

Meu problema é com o Cecred. Idêntico ao citado pelo WYLSONRSL.

[Juliana Tamizou]

Bom dia.

Vcs conseguem reproduzir no demo?

Att.

[WYLSONRSL]

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

[araujojunior]

6 horas atrás, Juliana Tamizou disse:

Bom dia.

Vcs conseguem reproduzir no demo?

Att.

Sim, o problema ocorre no layout PadraoEntrega, no meu caso aqui ocorreu de pular a pagina

 

[Juliana Tamizou]

Bom dia.

@araujojunior este tópico não é sobre a impressão do boleto, acredito que vc tenha confundido com outro tópico.

Att.

[Juliana Tamizou]

Boa tarde.

Nos desculpe a demora no retorno, em breve deve ser validado.

Em 19/08/2020 at 11:44, WYLSONRSL disse:

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

Att.