Sicredi Segmento R

[Vinicius Rodrigues_28287]

Olá a todos, comecei a utilizar o AcbrBoleto na empresa em que trabalho e vi que na remessa do arquivo da Sicredi não há o segmento R implementado que mostra a multa do boleto. Então eu alterei no meu fonte, se possível incluir ou alterar a função.

Obs: Não sei se está no padrão pois sou novo no fórum e com Acbr.

 A Função alterada foi a "function TACBrBancoSicredi.GerarRegistroTransacao240". Apenas adicionado este código abaixo do segmento Q.

O Manual de onde tirei as informações esta no link: http://www.sicredi.com.br/websitesicredi/upload/files/28459_Manual_Beneficiario_Cobranca_CNAB_240___18062014.pdf

    {SEGMENTO R (OPCIONAL)}
    if (PercentualMulta > 0) then
      Result:= Result + #13#10 +
               '748'                                                          + // 001 a 003 - Código do banco na compensação
               '0001'                                                         + // 004 a 007 - Lote de serviço = "0001"
               '3'                                                            + // 008 a 008 - Tipo de registro = "3" DETALHE
               IntToStrZero(
                 (2 * ACBrBoleto.ListadeBoletos.IndexOf(ACBrTitulo)) + 2 , 5) + // 009 a 013 - Nº sequencial do registro do lote
               'R'                                                            + // 014 a 014 - Cód. segmento do registro detalhe
               Space(1)                                                       + // 015 a 015 - Uso exclusivo FEBRABAN/CNAB
               '01'                                                           + // 016 a 017 - Código de movimento de remessa
               '0'                                                            + // 018 a 018 - Código Desconto 2
               '00000000'                                                     + // 019 a 026 - Data Desconto 2
               '000000000000000'                                              + // 027 a 041 - Valor/percentual a ser concedido
               '0'                                                            + // 042 a 042 - Código Desconto 3
               '00000000'                                                     + // 043 a 050 - Data Desconto 3
               '000000000000000'                                              + // 051 a 065 - Valor/percentual a ser concedido
               '2'                                                            + // 066 a 066 - Código da multa
               FormatDateTime( 'ddmmyyyy', IncDay(Vencimento))                + // 067 a 074 - Data da multa
               IntToStrZero( round( PercentualMulta * 100 ), 15)              + // 075 a 089 - Valor/percentual a ser aplicado
               Space(10)                                                      + // 090 a 099 - Informação ao sacado
               Space(40)                                                      + // 100 a 139 - Mensagem 3
               Space(40)                                                      + // 140 a 179 - Mensagem 4
               Space(20)                                                      + // 180 a 199 - Uso exclusivo FEBRABAN/CNAB
               '00000000'                                                     + // 200 a 207 - Cód. ocor. do sacado
               '748'                                                          + // 208 a 210 -  Cód. do Banco na conta do débito
               PadLeft(OnlyNumber(Agencia), 5,'0')                            + // 211 a 215 - Código da agência do débito
               IfThen(AgenciaDigito = '', ' ', AgenciaDigito)                 + // 216 a 216 - Dígito verificador da agência
               PadLeft(OnlyNumber(Conta), 12, '0')                            + // 217 a 228 - Conta corrente para débito
               ContaDigito	                                              + // 229 a 229 - Dígito verificador da conta
               Space(1)                                                       + // 230 a 230 - Dígito verificador ag/conta
               '0'                                                            + // 231 a 231 - Aviso para débito automático
               Space(9);                                                        // 232 a 240 - Uso exclusivo FEBRABAN/CNAB

 

[Vinicius Rodrigues_28287]

Em 10/11/2016 at 14:16, Vinicius Rodrigues_28287 disse:

Segue em anexo algumas modificações feitas por mim, são apenas tratamentos para geração dos arquivos. Se puderem incluir ficarei grato! Obrigado!

 

ACBrBoleto.patch

[marcianobandeira]

Bom dia,

Conforme a implementação acima, a homologação está rejeitando o campo na posição 18, conforme print em anexo da validação.

Vou deixar o meu codigo fixo como 1 aqui, mas se tiverem alguma sugestão.

 

Grato