Boleto Banco do Brasil erro na validação de dias recebimento após vencimento

[epantoja22]

Bom dia, Gostaria de saber qual campo vc preenche para resolver este problema:

Orientações:

1. Regularize as informações marcadas abaixo;

 

*******************************  Detalhe tipo 5  ********************************

Posições 023 a 025: Caso o preenchimento permaneça com 000 dias, o título não poderá ser recebido após o seu vencimento .

Para recebimento após vencimento alterar campos com "Quantidade de dias para recebimento após vencimento". Ou preencher com "Brancos"

[Juliomar Marchetti]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[José M. S. Junior]

Bom dia
Creio que esteja se referindo ao campo DataLimitePagto o BB trabalha com esse campo, a qtd de dias será baseado na diferença entre DataLimitePagto e Vencimento.

[epantoja22]

                   with Titulo do
                   begin
                     Carteira:= dmFinancas.CedentesCarteira.Value;
                     CarteiraEnvio:= tceCedente;
         

                     Vencimento  := dmFinancas.Titulos1Vencimento.AsDateTime;
                     DataLimitePagto:= dmFinancas.Titulos1Vencimento.AsDateTime + dmFinancas.CedentesPeriodoProtestoTitulo.asinteger;
         

                     DataDocumento   := dmFinancas.Titulos1Emissao.AsDateTime;
                     NumeroDocumento := Trim(dmFinancas.Titulos1NumeroDoc2.Text);
                     EspecieDoc:= 'DM';
                     Aceite:= atSim;
                     DataProcessamento:= Date;
                     NossoNumero:= dmFinancas.Titulos1NumeroDoc2.Text;
                     EspecieMod:= 'R$';
                     ValorDocumento:= dmFinancas.Titulos1ValorBoleto.AsCurrency;

 

 

 

===============================================================

O meu código ta assim, inserindo o vencimento e a datalimitepagamento, porém não insere esses dias de diferença no arquivo remessa. Arquivo em anexo.
         

CB070658.REM

[Juliana Tamizou]

Boa tarde.

Consegue reproduzir o mesmo no demo?

Att.

[José M. S. Junior]

A regra para gerar os dias de pagamento é essa: 

(TipoOcorrencia = '01') and ( DataLimitePagto > Vencimento )   

Caso contrário preenche com 0

[epantoja22]

Código do Demo e o arquivo remessa gerado por ele.  

===================================================

 with dm.ACBrBoleto.Banco do
   begin
        TipoCobranca:= cobBancoDoBrasil;
   end;

  with dm.ACBrBoleto.Cedente do
  begin
     Nome:= 'L. C.SDDDD';
     CodigoCedente:='001';
     Agencia:= '4222';
     AgenciaDigito:= '6';
     Conta:= '11566';
     ContaDigito:= '5';
     Convenio:= '3107702';
     TipoCarteira:= tctRegistrada;
     ResponEmissao:= tbCliEmite;
     CaracTitulo:= tcSimples;
     CNPJCPF:= '03225988000185';
     TipoInscricao:= pJuridica;
     Logradouro:= ' sda';
     NumeroRes:= '23';
     Complemento:='ds';
     Bairro:= 'e';
     Cidade:= 'ws';
     UF:= 'PA';
     CEP:= '66083390';
     Modalidade:= '019';

   end;

  dm.ACBrBoleto.Cedente.FantasiaCedente := 'Nome Fantasia';
  dm.ACBrBoleto.Cedente.Nome := 'Nome do cedente';
  dm.ACBrBoleto.Cedente.Logradouro := 'Logradouro do cedente';
  dm.ACBrBoleto.Cedente.Bairro := 'Bairro do cedente';
  dm.ACBrBoleto.Cedente.Cidade := 'Cidade do cedente';
  dm.ACBrBoleto.Cedente.CEP := 'CEP do cedente';
  dm.ACBrBoleto.Cedente.Telefone := '(xx) 99999-9999';

  Titulo := dm.ACBrBoleto.CriarTituloNaLista;

  with Titulo do
  begin
    Vencimento        := StrToDate(edtVencimento.Text);
    DataDocumento     := StrToDate(edtDataDoc.Text);
    NumeroDocumento   := edtNumeroDoc.Text;
    EspecieDoc        := edtEspecieDoc.Text;
    if cbxAceite.ItemIndex = 0 then
       Aceite := atSim
    else
       Aceite := atNao;
    DataProcessamento := Now;
    Carteira          := edtCarteira.Text;
    NossoNumero       := edtNossoNro.Text;
    ValorDocumento    := StrToCurr(edtValorDoc.Text);
    Sacado.NomeSacado := edtNome.Text;
    Sacado.CNPJCPF    := OnlyNumber(edtCPFCNPJ.Text);
    Sacado.Logradouro := edtEndereco.Text;
    Sacado.Numero     := edtNumero.Text;
    Sacado.Bairro     := edtBairro.Text;
    Sacado.Cidade     := edtCidade.Text;
    Sacado.UF         := edtUF.Text;
    Sacado.CEP        := OnlyNumber(edtCEP.Text);
    ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);
    LocalPagamento    := edtLocalPag.Text;
    ValorMoraJuros    := StrToCurrDef(edtMoraJuros.Text,0);
    ValorDesconto     := StrToCurrDef(edtValorDesconto.Text,0);
    ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);
    DataMoraJuros     := StrToDateDef(edtDataMora.Text, 0);
    DataDesconto      := StrToDateDef(edtDataDesconto.Text, 0);
    DataAbatimento    := StrToDateDef(edtDataAbatimento.Text, 0);
    DataProtesto      := StrToDateDef(edtDataProtesto.Text, 0);
    DataLimitePagto   := StrToDate(edtVencimento.Text)+20;
    PercentualMulta   := StrToCurrDef(edtMulta.Text,0);
    //Mensagem.Text     := memMensagem.Text;
    OcorrenciaOriginal.Tipo := toRemessaBaixar;
    Instrucao1        := PadRight(trim(edtInstrucoes1.Text),2,'0');
    Instrucao2        := PadRight(trim(edtInstrucoes2.Text),2,'0');

    QtdePagamentoParcial:= 1;
    TipoPagamento:= tpNao_Aceita_Valor_Divergente;
    PercentualMinPagamento:= 0;
    PercentualMaxPagamento:= 0;
    ValorMinPagamento:= 0;
    ValorMaxPagamento:= 0;

   // dm.ACBrBoleto.AdicionarMensagensPadroes(Titulo,Mensagem);

    if cbxLayOut.ItemIndex = 6 then
    begin
      for i:=0 to 3 do
      begin
        VLinha := '.';

        VQtdeCarcA := length('Descrição Produto/Serviço ' + IntToStr(I));
        VQtdeCarcB := Length('Valor:');
        VQtdeCarcC := 85 - (VQtdeCarcA + VQtdeCarcB);

        VLinha := PadLeft(VLinha,VQtdeCarcC,'.');

        Detalhamento.Add('Descrição Produto/Serviço ' + IntToStr(I) + ' '+ VLinha + ' Valor:   '+  PadRight(FormatCurr('R$ ###,##0.00', StrToCurr(edtValorDoc.Text) * 0.25),18,' ') );
      end;
      Detalhamento.Add('');
      Detalhamento.Add('');
      Detalhamento.Add('');
      Detalhamento.Add('');
      Detalhamento.Add('Desconto ........................................................................... Valor: R$ 0,00' );
    end;

    logo:= ExtractFileDir(ParamStr(0)) + '\acbr_logo.jpg';

    ArquivoLogoEmp := logo;  // logo da empresa
    //ShowMessage(logo);

    Verso := ((cbxImprimirVersoFatura.Checked) and ( cbxImprimirVersoFatura.Enabled = true ));
  end;

cb070606.rem

[epantoja22]

35 minutos atrás, José M. S. Junior disse:

A regra para gerar os dias de pagamento é essa: 

(TipoOcorrencia = '01') and ( DataLimitePagto > Vencimento )   

Caso contrário preenche com 0

Esse campo TipoOcorrencia, fica no Titulo? Não encontrei ele.

[José M. S. Junior]

 

1 hora atrás, epantoja22 disse:

Esse campo TipoOcorrencia, fica no Titulo? Não encontrei ele.

Corresponde ao OcorrenciaOriginal.Tipo := toRemessaBaixar;

 

Pesquise pela variável wDiasPagto na unit ACBrBancodoBrasil, e tente realizar um debug para identifica por que não está gerando a qtd de dias.