algumas divergentes contido arquivo de remessa com o boleto da Caix

[Pablo Gimenez]

Olá Amigos.

Recebi algumas solicitação de clientes na geração de boleto e arquivos de remessa pela ACBrBancoCaixa

(240 posições), mais para que boleto possa atualizado pelo cedente do boleto após o vencimento pelo

link abaixo

(https://bloquetoexpresso.caixa.gov.br/bloquetoexpresso/index.jsp) estaria com algumas divergentes contido arquivo de remessa com o boleto da Caixa .

Nos seguintes campos.

No segmento R

Campo 14.3R> Nome Código da Multa>Posição 066 > contém o valor 1, deve conter o valor 2

(Código da multa: 1- Valor fixo, 2- Percentual)

Porem quando o valor de multa for  fixo de ser informado código de multa "1" e campo 16.3R  Valor/Percentual Ser Aplicado , Posição 75 até 89

Preencher de acordo com a informação do campo 14.3R (Código da Multa),

utilizando duas casas decimais: Se 14.3R = '0', preencher com zeros; Se = ‘1’, informar Valor;

 Se = ‘2’, informar percentual; Como não havia implementação para esse caso no fontes  ACBrBancoCaixa

tive realizar algumas alteração fontes ACBrBoleto e ACBrBancoCaixa.

Caso não esteja no padrão do ACBr fico grato que seja analisando,

pois fiz algumas alterações para poder recebe valor 1 no campo código multa 1 e para recebe valor fixo da multa igual o valor contido campo observação 

no boleto gerado pelo Acbr.

Seguir as alterações dos arquivos abaixo.

 Na Classe TACBrTitulo  property CodigoMulta : String read fCodigoMulta write SetCodigoMulta;

 procedure TACBrTitulo.SetCodigoMulta(const AValue: String);

 begin

   if fCodigoMulta = AValue then

      exit;

   fCodigoMulta := AValue;

 end;

Na ACBrBancoCaixa alteração feitas

      {Multa}

      if (PercentualMulta > 0) then

        ADataMulta := IfThen(DataMoraJuros > 0,

                             FormatDateTime('ddmmyyyy', DataMoraJuros),

                             FormatDateTime('ddmmyyyy', Vencimento + 1))

      else

      begin

        ADataMulta := PadLeft('', 8, '0');

        CodigoMulta  := '0';

      end;

               IfThen(CodigoMulta  = '1' ,'1',

               IfThen((PercentualMulta <> null) and (PercentualMulta > 0), '2', '0'))         + //  66 a 66  - Código da Multa

               ADataMulta                                                                     + //  67 a 74  - Data da Multa

               IfThen(CodigoMulta  = '1',IntToStrZero(round(ValorDocumento * PercentualMulta),15),

               IfThen(PercentualMulta > 0, IntToStrZero(round(PercentualMulta * 100), 15),

                      PadRight('', 15, '0')))                                                   + //  75 a 89  - Valor/Percentual a ser aplicado

 

ACBrBancoCaixa.pas

ACBrBoleto.pas

Editado 3 Janeiro, 2017 por Pablo Gimenez
laytout do topic

[Pablo Gimenez]

Aonde está escrito observação seria Instruções no boleto 

[informais]

o acbrmonitor já esta atualizado e compilado com essa versão

[Pablo Gimenez]

Não estava atualizada ACBrBancoCaixa.pas e ACBrBoleto.pas. Acabei de fazer um merger nos arquivos sem nenhum conflito . 

 

ACBrBancoCaixa.pas

ACBrBoleto.pas

[Juliomar Marchetti]

Baseado em qual manual e quais as páginas do mesmo pra gente poder validar!

[Pablo Gimenez]

desculpa não tinha entendido , mais seguir o link do manual , na paginá 30 .

http://www.caixa.gov.br/Downloads/cobranca-caixa/Manual_Leiaute_CNAB240_SIGCB.pdf

e manual em anexo Especificação do Código de Barras para Boletos de Cobrança
Sem Registro e Registrada no SIGCB

na paginá 15 no item Cobrança Registrada

ESP_COD_BARRAS_SIGCB_COBRANCA_CAIXA.pdf

[Juliomar Marchetti]

Vamos aguardar que a @Juliana Tamizou analise seu código para subir ao svn

[Pablo Gimenez]

obrigado . ficou no Aguardo . 

[Juliana Tamizou]

Boa tarde.

No ACBrBancoCaixa.pas anexo a popriedade CodigoMulta não é utilizada em nenhum momento.

Att.

[Pablo Gimenez]

 Bom Dia 

Juliana

a propriedade CodigoMulta é utilizada no segmento R para informa que valor da multa é fixo conforme documentação SIGCB_Cobranca_Caixa_Manual_de_Leiaute_CNAB240_SIGCB_outubro_2015.pdf

pagina 30

Segmento R 

A cobrança de multa por atraso no pagamento do título pelo Pagador  no campo 14.3R posição 66 

dever : ‘0’ (Sem Multa); ou '1' (Valor Fixo); ou '2' (Percentual)

Esse Alteração permite que o valor 1 possa ser informado no momento da criação do arquivo de remessa pelo  ACBrBancoCaixa.pas . 

Mais foi do meu jeito a alteração , podendo ter outras formulas  de ser feito.

qualquer duvidas me avisar

 

Editado 10 Janeiro, 2017 por Pablo Gimenez

[Juliana Tamizou]

Boa tarde.

 O ideal seria tratar como é feito com o código de mora, observe o uso da propriedade CodigoMora nas classe do componente. Seria interessante colocar a mesma validação por classe de forma que os usuários possam informar somente códigos válidos.

Att.

[Pablo Gimenez]

Vou Verificar isso.

 

[Pablo Gimenez]

Entendo a validação do código Mora  e fiz as alterações semelhantes no código Multa .

Só  atribuir o valor fixo da string como '12' o mesmo para código Mora

na create da classe TACBrBancoClass  na linha 2027

ACBrBoleto.pas

Editado 11 Janeiro, 2017 por Pablo Gimenez

[Pablo Gimenez]

Bom dia, Pessoal ,Algumas novidades !!!

[Juliana Tamizou]

Bom dia.

48 minutos atrás, Pablo Gimenez disse:

Bom dia, Pessoal ,Algumas novidades !!!

Ainda não foi anallisado.

Att.

[Pablo Gimenez]

Aguardando retorno da analise.

Editado 27 Janeiro, 2017 por Pablo Gimenez

[Pablo Gimenez]

Estou no aguardo do retorno da analise , caso possível ter uma previsão,  pois fazem mais de um mês que está  em analise.

Seguir os arquivos com as alterações finais e implementações. 

 

ACBrBancoCaixa.pas

ACBrBoleto.pas

Editado 23 Fevereiro, 2017 por Pablo Gimenez
adciona oalavra

[Juliana Tamizou]

Boa tarde

Vc fez novos ajustes?

Att.

[Pablo Gimenez]

No fonte ACBrBoleto.pas está implementado os CodigoMulta e CodigosMultaAceitos 

, Mais do fontes ACBrBancoCaixa.pas alterei para recebe o valor do CodigoMulta direto , caso contrario 3

IfThen (ValorMoraJuros > 0, CodigoMora ,'3')+ //118 - Código de juros de mora: Valor por dia

Acho que agora não será necessário colocar o valor de zero  para CodigoMulta  , Conforme linhas abaixo no fontes ACBrBancoCaixa.pas

  {Multa}
      if (PercentualMulta > 0) then
        ADataMulta := IfThen(DataMoraJuros > 0,
                             FormatDateTime('ddmmyyyy', DataMoraJuros),
                             FormatDateTime('ddmmyyyy', Vencimento + 1))
      else
      begin
        ADataMulta := PadLeft('', 8, '0');
        CodigoMulta  := '0';
      end;

Para 
      if (PercentualMulta > 0) then
        ADataMulta := IfThen(DataMoraJuros > 0,
                             FormatDateTime('ddmmyyyy', DataMoraJuros),
                             FormatDateTime('ddmmyyyy', Vencimento + 1))
      else
        ADataMulta := PadLeft('', 8, '0');
      end;

 

 

[Juliana Tamizou]

Bom dia.

A propriedade CodigosMultaAceitos tem por finalidade garantir que sejam informados valores válidos para o banco, não entendi sua explicação da alteração.

Att.

[Pablo Gimenez]

Desculpa , não fiz alteração no  CodigosMultaAceitos   , somente na linha

aonde era  

IfThen(ValorMoraJuros > 0, '1', '3') + //118 - Código de juros de mora: Valor por dia

Ficou 

IfThen (ValorMoraJuros > 0, CodigoMora ,'3')+ //118 - Código de juros de mora: Valor por dia