Como preencho os campos

[Eleandro Be More Web]

Boa tarde! Estou tendo dificuldade para passar valor em alguns campos do ACBRBoleto-
Segue os campos onde não estou conseguindo passar valores para o mesmo
CodigoMora, ValorMoraJuros, DataMoraJuros, DataDesconto, ValorDesconto
Preciso com urgência SICOOB Canab240- Bradesco Canab 400-BRasil CANAB 400-Itau-Canab 400-
Poderia me auxiliar como dou valor, ou como chamo a método?

[Dercide Alvarez]

@Eleandro fistsoft

Você já olhou o demo ? 

Qual a tua dificuldade ? O demo esta bem claro as informações.

Você deverá repetir a rotina para cada boleto a ser gerado.

 

  Titulo := dm.ACBrBoleto.CriarTituloNaLista;

  with Titulo do
  begin
    Vencimento                := StrToDate(edtVencimento.Text);
    DataDocumento        := StrToDate(edtDataDoc.Text);
    NumeroDocumento  := edtNumeroDoc.Text;
    EspecieDoc                 := edtEspecieDoc.Text;
    DataProcessamento := Now;
    Carteira                       := edtCarteira.Text;
    NossoNumero           := edtNossoNro.Text;
    ValorDocumento       := StrToCurr(edtValorDoc.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);
    PercentualMulta     := StrToCurrDef(edtMulta.Text, 0);
 

 

Dercide.

[Eleandro Be More Web]

Em 05/05/2018 at 20:24, Dercide Alvarez disse:

@Eleandro fistsoft

Você já olhou o demo ? 

Qual a tua dificuldade ? O demo esta bem claro as informações.

Você deverá repetir a rotina para cada boleto a ser gerado.

 

  Titulo := dm.ACBrBoleto.CriarTituloNaLista;

  with Titulo do
  begin
    Vencimento                := StrToDate(edtVencimento.Text);
    DataDocumento        := StrToDate(edtDataDoc.Text);
    NumeroDocumento  := edtNumeroDoc.Text;
    EspecieDoc                 := edtEspecieDoc.Text;
    DataProcessamento := Now;
    Carteira                       := edtCarteira.Text;
    NossoNumero           := edtNossoNro.Text;
    ValorDocumento       := StrToCurr(edtValorDoc.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);
    PercentualMulta     := StrToCurrDef(edtMulta.Text, 0);
 

 

Dercide.

Bom dia! isso fiz idêntico. porém não grava o número no arquivo de remessa, nem imprimi no boleto Aliquota ou valor de desconto, acréscimo, multa etc. Não sei onde informo isso para dar certo

[Dercide Alvarez]

@Eleandro fistsoft

Primeiro você tem que carregar todos os boletos, e depois fazer a impressão.

Você não pode se esquecer de passar o sequencial do nossonumero para cada boleto :

NossoNumero           :=  FNossoNumero; ==> ( deve ser incrementado para cada boleto gerado)

 

                             AcbrBoletoImpressao.MostrarPreview := True;
                             AcbrBoleto.Imprimir;
 

Dercide.

 

 

[Eleandro Be More Web]

2 minutos atrás, Dercide Alvarez disse:

@Eleandro fistsoft

Primeiro você tem que carregar todos os boletos, e depois fazer a impressão.

Você não pode se esquecer de passar o sequencial do nossonumero para cada boleto :

NossoNumero           :=  FNossoNumero; ==> ( deve ser incrementado para cada boleto gerado)

 

                             AcbrBoletoImpressao.MostrarPreview := True;
                             AcbrBoleto.Imprimir;
 

Dercide.

 

 

Posso ter enviar o arquivo de remessa que mandei para o Sicoob e as impressões para vc dar uma olhada?

1 minuto atrás, Eleandro fistsoft disse:

Posso ter enviar o arquivo de remessa que mandei para o Sicoob e as impressões para vc dar uma olhada?

estou preenchendo este campo assim
vTitulo.TipoDesconto := tdPercentualAteDataInformada;//tdValorFixoAteDataInformada;
vTitulo.TipoDiasProtesto:=?

[Dercide Alvarez]

@Eleandro fistsoft

Não tenho como analisar o arquivo remessa, senão me engano o Sicoob tem um link para você mesmo validar a remessa.

O ideal é você esperar o retorno e postar as criticas, ai fica mais fácil trabalharmos em cima do problema.

 

Dercide.

[Eleandro Be More Web]

7 minutos atrás, Dercide Alvarez disse:

@Eleandro fistsoft

Não tenho como analisar o arquivo remessa, senão me engano o Sicoob tem um link para você mesmo validar a remessa.

O ideal é você esperar o retorno e postar as criticas, ai fica mais fácil trabalharmos em cima do problema.

 

Dercide.

estou preenchendo este campo assim
vTitulo.TipoDesconto := tdPercentualAteDataInformada;//tdValorFixoAteDataInformada;
vTitulo.TipoDiasProtesto:=?
Tem a opção cobrar multas que o banco pede um número também, essas informações que não saem na remessa, nem na impressão

[Dercide Alvarez]

@Eleandro fistsoft

 

vTitulo.TipoDesconto ==> Eu não preencho, isso já deve ter o valor default que deve ser em % ou valor

 

               if FTipoDiasProtesto = 0 then  ==> Protestar em dias corridos
               Begin
                 TipoDiasProtesto  := diCorridos;
                 CodigoNegativacao := cnProtestarCorrido;
               End
                else
               Begin
                 TipoDiasProtesto  := diUteis;
                 CodigoNegativacao := cnProtestarUteis;
               end;
 

Nos meus fontes esta preenchido dessa forma.

 CodigoNegativacao ==> esse você não precisa preencher, eu uso para negativação Serasa

Dercide.

[Eleandro Be More Web]

2 horas atrás, Dercide Alvarez disse:

@Eleandro fistsoft

 

vTitulo.TipoDesconto ==> Eu não preencho, isso já deve ter o valor default que deve ser em % ou valor

 

               if FTipoDiasProtesto = 0 then  ==> Protestar em dias corridos
               Begin
                 TipoDiasProtesto  := diCorridos;
                 CodigoNegativacao := cnProtestarCorrido;
               End
                else
               Begin
                 TipoDiasProtesto  := diUteis;
                 CodigoNegativacao := cnProtestarUteis;
               end;
 

Nos meus fontes esta preenchido dessa forma.

 CodigoNegativacao ==> esse você não precisa preencher, eu uso para negativação Serasa

Dercide.

Em meus fontes, para teste de Homologação junto ao banco, estou preenchendo assim, vamos ver se vai validar.

   vTitulo.ValorMoraJuros := StrToCurrDef(fValorMoraJuros, 0);
    vTitulo.ValorDesconto := StrToCurrDef(fValorDesconto, 0);
    vTitulo.ValorAbatimento := StrToCurrDef(fValorAbatimento, 0);
    vTitulo.DataMoraJuros := StrToDateDef(fDataMoraJuros, 0);

    //vTitulo.TipoDiasProtesto
    vTitulo.CodigoMora:='1';// "CodigoMora=1" para Valor em R$ / "CodigoMora=2"  para Percentual.
    vTitulo.CodigoMoraJuros:=cjValorDia; //cjValorDia, cjTaxaMensal, cjIsento
    vTitulo.CodigoDesconto:=cdSemDesconto;//cdSemDesconto, cdValorFixo
    vTitulo.TipoDesconto := tdNaoConcederDesconto;//(tdNaoConcederDesconto, tdValorFixoAteDataInformada, tdPercentualAteDataInformada);
    vTitulo.CodigoNegativacao:=cnProtestarUteis;//(cnNenhum, cnProtestarCorrido, cnProtestarUteis, cnNaoProtestar, cnNegativar, cnNaoNegativar);

    vTitulo.DataDesconto := StrToDateDef(fDataDesconto, 0);
    vTitulo.DataAbatimento := StrToDateDef(fDataAbatimento, 0);
    vTitulo.DataProtesto := StrToDateDef(fDataProtesto, 0);
    vTitulo.PercentualMulta := StrToCurrDef(fPercentualMulta, 0);

[Alan Petry]

Aproveitando o tópico sobre o preenchimento dos campos de CodigoNegativacao ==> esse você não precisa preencher, eu uso para negativação Serasa  é justamente isso que preciso fazer, porém, acho que ainda não foi implementado para o BANCO SICREDI. Preciso de uma confirmação de que isso está funcionando corretamente e também para o BANCO BANRISUL.

 

Att,

[José M. S. Junior]

1 hora atrás, Alan Petry disse:

Aproveitando o tópico sobre o preenchimento dos campos de CodigoNegativacao ==> esse você não precisa preencher, eu uso para negativação Serasa  é justamente isso que preciso fazer, porém, acho que ainda não foi implementado para o BANCO SICREDI. Preciso de uma confirmação de que isso está funcionando corretamente e também para o BANCO BANRISUL.

 

Att,

Boa tarde, esse campo está presente apenas no layout dos Bancos: Itau e Bancoob. Mas a propriedade com o nome CodigoNegativacao  já existe no componente, basta adicionar ao layout do banco que necessita, se os mesmo estiverem especificados no manual. Pode-rá seguir o exemplo existente nos dois Bancos citados...

Se desejar implementar nos fontes, poste aqui juntamente com o manual e podemos adicionar aos fontes do ACBr.

[Juliana Tamizou]

Boa tarde.
 

@José M. S. Junior conforme citei neste tópico, acredito que seria questao de adicionar uma nova ocorrência...

Att.

[Juliana Tamizou]

Bom dia.

Após revisão dos manuais dos bancos citados pelo @José M. S. Junior, notei que no caso do Itau, existe a ocorrência as negativações imediatas (inclusive saída de negativação) e as configurações de quando deve ocorrer a negativação automática, semelhante as instruções de protesto após X dias... será necessário uma análise mais criteriosa de forma a decidir a melhor implementação.

Att.

[Juliana Tamizou]

Bom dia.

Foi realizada alteração para que sejam tratadas as ocorrências relacionadas  a inclusão/exclusão de negativação, favor atualizar seus fontes e testar.

Att.