Ir para conteúdo
  • Cadastre-se

DIEGO J B PIRES

Membros
  • Total de ítens

    68
  • Registro em

  • Última visita

Posts postados por DIEGO J B PIRES

  1. Boa tarde,

     

    Estou utilizando o manifesto destinatário do ACBR, porém estou com problemas na parte do certificado.

    Meu certificado é A1.

    Poderia me ajudar? Já preenchi os dados no componente e não dá certo.

     

    WebService Distribuição de DFe:

    - Inativo ou Inoperante tente novamente.

    "CarregarCertificadoDeNumeroSerie" não suportado em: TDFeSSLCryptClass.
     

  2. Veja nesse exemplo agora:

    Estou passando o código 1: cjTaxaMensal e no ValorMoraJuros =  13,07;

    Como deveria ser impresso esse valores no boleto? 

    Dessa forma ai está imprimindo

    Cobrar juros de R$ 13,07 por dia de atraso para pagamento a partir de 01/01/2021

    e entendo que ao invés de R$ deveria ser %, ou no lugar de 13,07 já ser o valor real do juros dia;

     

    Ou na impressão do boleto eu já devo passar na ValorMoraJuros o valor já calculado ?

     

     

     

     

     

  3. Para o cálculo da multa está sendo calculado conforme % . Isso deveria acontecer para o juros tb, mas lá tá pegando o valor fixo como sendo o valor de juros, não observando se é taxa diaria, mensal ou valor fixo.

    Veja o código da multa:

     

      if PercentualMulta <> 0 then
          begin
            if DataMulta <> 0 then
              AStringList.Add(ACBrStr('Cobrar multa de ' + FormatCurr('R$ #,##0.00',
                IfThen(MultaValorFixo, PercentualMulta, TruncTo((ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento),2)  )) +
                             ' para pagamento'+ IfThen(DataMulta = Vencimento, ' após o vencimento.',
                                                       ' a partir de '+ FormatDateTime('dd/mm/yyyy',DataMulta))))
            else
              AStringList.Add(ACBrStr('Multa de ' + FormatCurr('R$ #,##0.00',
                IfThen(MultaValorFixo, PercentualMulta, TruncTo((ValorDocumento*( 1+ PercentualMulta/100)-ValorDocumento),2)  )) +
                             ' após o vencimento.'));

  4. Eu consigo te mandar o código para voce dar uma olhada pois olhei aqui novamente e ainda acho que tenho algo errado. Algo que eu esteja fazendo ficar errado.

    No caso está como TaxaDiaria de 13,07 e na impressão tá como 
    Cobrar juros de R$13,07 por dia de atraso.

     

      titulo.CodigoMoraJuros := TACBrCodigoJuros(Ord(CdsTitulos.AsInt('BOLTPCOBJUROS')-1));
      titulo.ValorMoraJuros := CdsTitulos.AsFloat('BOLJUROS');

    Capturar2.PNG

    Capturar.PNG

  5. Pessoal, estou implementando a geração de boleto utilizando o pacote acbr. Estou com problemas na impressão do boleto no que diz respeito aos valores de juros. Pelo que vi, indendependente do tipo de juros (mensal, diário ou valor fixo, sempre tá imprimindo como valor). Como devo proceder? Alguem sofreu com isso também ?

     

    Isso ocorre na procedure:

    procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo;
      AStringList: TStrings);

     

    Entendo que esse trecho tá "repetido", ou estou estou passando os valores de forma errada:

     

          if ValorMoraJuros <> 0 then
          begin
             if DataMoraJuros <> 0 then
                AStringList.Add(ACBrStr('Cobrar juros de '                        +
                                ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês',
                                       FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros))         +
                                 ' de atraso para pagamento '+
                                 ifthen(Vencimento = DataMoraJuros, 'após o vencimento.',
                                        'a partir de '+FormatDateTime('dd/mm/yyyy',DataMoraJuros))))
             else
                AStringList.Add(ACBrStr('Cobrar juros de '                +
                                        ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês',
                                               FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros))         +
                                 ' de atraso'));
          end;
     

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.