Boleto Sicredi

[Jefferson Quinelatto]

Bom dia,

Estou com a seguinte dúvida no código abaixo. Ao gerar boleto do Sicredi CNBAB-400, onde informo o tipo de Juros, valor monetário ou Percentual, para ambos é cobrado ao Dia e não ao Mês.

Porém nas instruções do boleto sai " ao mês ". Teria alguma forma de alterar essa instrução conforme o layout do Sicredi? (Obs: Conforme manual do Sicredi isso é somente para o layout CNAB400, para 240 utiliza-se ao mês).

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;

[Juliana Tamizou]

Boa tarde.

Você deverá passar ao componente as propriedades CodigoMora e ValorMoraJuros conforme decidir trabalhar com o banco.

Veja no trecho de código a seguir que é gerado na remessa conforme preenchimento do componente.

if (CodigoMora <> 'A') and (CodigoMora <> 'B') then
       CodigoMora := 'A';

...  

with ACBrBoleto do
   begin
         ...

        trim(CodigoMora)  
        ...

Att.

[Jefferson Quinelatto]

26 minutos atrás, Juliana Tamizou disse:

Boa tarde.

Você deverá passar ao componente as propriedades CodigoMora e ValorMoraJuros conforme decidir trabalhar com o banco.

Veja no trecho de código a seguir que é gerado na remessa conforme preenchimento do componente.

if (CodigoMora <> 'A') and (CodigoMora <> 'B') then
       CodigoMora := 'A';

...  

with ACBrBoleto do
   begin
         ...

        trim(CodigoMora)  
        ...

Att.

Boa tarde,  segue o código abaixo onde informo esse código.

if Trim(Copy(CBanco.Text,1,3)) = '748' then //Sicred
CodigoMora      := 'A';//Valor
ValorMoraJuros  := EValorJuros.Value;
end
else if CJuros.ItemIndex = 2 then
begin
if Trim(Copy(CBanco.Text,1,3)) = '748' then //Sicred
CodigoMora      := 'B';//Percentual
ValorMoraJuros  := (nValorBoleto * EValorJuros.Value)/100;
 end;

Segue em anexo, como fica a instrução no boleto, no caso deveria ser "Cobrar juros de 0,25% ao dia de atraso para pagamento a partir de 30/06/2020..."

Editado 15 Junho, 2020 por Jefferson Quinelatto

[Juliana Tamizou]

Boa tarde.

Acredito ter compreendido seu problema, pelo que observei no manual o % de juros também tratado como valor diário e não mensal, neste caso de fato cabe uma revisão no código, provavelmente na classe do sicredi de forma a não gerar efeitos colaterais nos demais bancos.

Att.

 

[Jefferson Quinelatto]

19 minutos atrás, Juliana Tamizou disse:

Boa tarde.

Acredito ter compreendido seu problema, pelo que observei no manual o % de juros também tratado como valor diário e não mensal, neste caso de fato cabe uma revisão no código, provavelmente na classe do sicredi de forma a não gerar efeitos colaterais nos demais bancos.

Att.

 

Exatamente Juliana, agradeço a atenção! Irei estar fazendo esse ajuste aqui, para liberar o Cliente. Obrigado!

[Juliana Tamizou]

Boa tarde.

Fique a vontade para anexar seu arquivo alterado caso queira colaborar com o projeto.

Att.

[José M. S. Junior]

Bom dia

Seguindo o padrão Febraban do boleto impresso e também dos demais bancos implementados, quando o valor é por dia, o mesmo já é calculado baseado no percentual e informado o valor diário em R$ na impressão ... Aparentemente o pessoal utiliza assim para o Sicred. 

Outra opção é desmarcar a propriedade "ImprimirMensagemPadrão" e informar a própria mensagem com percentual em dias.

[Idea Sistemas - Valter]

Bom dia , estou passando o tipo de jura 'A' , 'VALOR', e estou recebendo um erro..  

  WS SICREDI V2, 

 No manual orienta passar de uma forma, mas ojson esta passando outra..o que posso estar fazendo de errado?

[Idea Sistemas - Valter]

9 minutos atrás, Idea Sistemas Sistemas disse:

Bom dia , estou passando o tipo de jura 'A' , 'VALOR', e estou recebendo um erro..  

  WS SICREDI V2, 

 No manual orienta passar de uma forma, mas ojson esta passando outra..o que posso estar fazendo de errado?

Resolvi aqui.. estava olhando no manual errado.. E o problema ai é so arredondamento 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.