Nº da Versão do Layout do Arquivo e Nº da Versão do Layout do Lote Remessa Banco do Brasil 240 Posições

[Mailson.Dragon]

Sugestão de atualização da função ACBrBancoBrasil.pas/GerarRegistroHeader240

Leiaute CNAB 240 Posições

Header de Arquivo Posições 164 a 166 Nº da Versão do Layout do Arquivo

Hoje está fixa em 030, preciso manipular esse valor conforme meu cliente, que é 087.

Nas posições 223 a 225 está fixo 'CSP' 

-(Informar 'brancos', porém se o arquivo foi formatado com a versão do layout 030, pode ser informado 'CSP' nas posições 223 a 225, e 'zeros' nas posições 226 a 228)

Header de Lote Posições 14 a 16 Nº da Versão do Layout do Lote

Hoje está fixa em 020, preciso manipular esse valor conforme meu cliente, que é 045.

>------------------------------------------------------------------------------------------<

A seguir minhas alterações.

{ GERAR REGISTRO-HEADER DO ARQUIVO }

      Result:= IntToStrZero(ACBrBanco.Numero, 3)               + // 1 a 3 - Código do banco
               '0000'                                          + // 4 a 7 - Lote de serviço
               '0'                                             + // 8 - Tipo de registro - Registro header de arquivo
               StringOfChar(' ', 9)                            + // 9 a 17 Uso exclusivo FEBRABAN/CNAB
               ATipoInscricao                                  + // 18 - Tipo de inscrição do cedente
               PadLeft(OnlyNumber(CNPJCPF), 14, '0')           + // 19 a 32 -Número de inscrição do cedente
               PadLeft(Convenio, 9, '0') + '0014'              + // 33 a 45 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09
               ACBrBanco.ACBrBoleto.ListadeBoletos[0].Carteira + // 46 a 47 - Carteira
               aModalidade + '  '                              + // 48 a 52 - Variacao Carteira
               aAgencia                                        + // 53 a 57 - Código da agência do cedente
               PadRight(AgenciaDigito, 1 , '0')                + // 58 - Dígito da agência do cedente
               aConta                                          + // 59 a 70 - Número da conta do cedente
               PadRight(ContaDigito, 1, '0')                   + // 71 - Dígito da conta do cedente
               ' '                                             + // 72 - Dígito verificador da agência / conta
               TiraAcentos(UpperCase(PadRight(Nome, 30, ' '))) + // 73 a 102 - Nome do cedente
               PadRight('BANCO DO BRASIL', 30, ' ')            + // 103 a 132 - Nome do banco
               StringOfChar(' ', 10)                           + // 133 a 142 - Uso exclusivo FEBRABAN/CNAB
               '1'                                             + // 143 - Código de Remessa (1) / Retorno (2)
               FormatDateTime('ddmmyyyy', Now)                 + // 144 a 151 - Data do de geração do arquivo
               FormatDateTime('hhmmss', Now)                   + // 152 a 157 - Hora de geração do arquivo
               PadLeft(IntToStr(NumeroRemessa), 6, '0')        + // 158 a 163 - Número seqüencial do arquivo
               PadLeft(IntToStr(LayoutVersaoArquivo), 3, '0')  + // 164 a 166 - Número da versão do layout do arquivo
               StringOfChar('0', 5)                            + // 167 a 171 - Densidade de gravação do arquivo (BPI)
               StringOfChar(' ', 20)                           + // 172 a 191 - Uso reservado do banco
               StringOfChar('0', 20)                           + // 192 a 211 - Uso reservado da empresa
               StringOfChar(' ', 11)                           + // 212 a 222 - 11 brancos
               StringOfChar(' ', 3)                            + // 223 a 225 - 'CSP'
               StringOfChar('0', 3)                            + // 226 a 228 - Uso exclusivo de Vans
               StringOfChar(' ', 2)                            + // 229 a 230 - Tipo de servico
               StringOfChar(' ', 10);                            // 231 a 240 - titulo em carteira de cobranca

          { GERAR REGISTRO-HEADER DO LOTE }

      Result:= Result + #13#10 +
               IntToStrZero(ACBrBanco.Numero, 3)               + // 1 a 3 - Código do banco
               '0001'                                          + // 4 a 7 - Lote de serviço
               '1'                                             + // 8 - Tipo de registro - Registro header de arquivo
               'R'                                             + // 9 - Tipo de operação: R (Remessa) ou T (Retorno)
               '01'                                            + // 10 a 11 - Tipo de serviço: 01 (Cobrança)
               '00'                                            + // 12 a 13 - Forma de lançamento: preencher com ZEROS no caso de cobrança
               PadLeft(IntToStr(LayoutVersaoLote), 3, '0')     + // 14 a 16 - Número da versão do layout do lote
               ' '                                             + // 17 - Uso exclusivo FEBRABAN/CNAB
               ATipoInscricao                                  + // 18 - Tipo de inscrição do cedente
               PadLeft(OnlyNumber(CNPJCPF), 15, '0')           + // 19 a 32 -Número de inscrição do cedente
               PadLeft(Convenio, 9, '0') + '0014'              + // 33 a 45 - Código do convênio no banco [ Alterado conforme instruções da CSO Brasília ] 27-07-09
               ACBrBanco.ACBrBoleto.ListadeBoletos[0].Carteira + // 46 a 47 - Carteira
               aModalidade + '  '                              + // 48 a 52 - Variacao Carteira
               aAgencia                                        + // 53 a 57 - Código da agência do cedente
               PadRight(AgenciaDigito, 1 , '0')                + // 58 - Dígito da agência do cedente
               aConta                                          + // 59 a 70 - Número da conta do cedente
               PadRight(ContaDigito, 1, '0')                   + // 71 - Dígito da conta do cedente
               ' '                                             + // 72 - Dígito verificador da agência / conta
               PadRight(Nome, 30, ' ')                         + // 73 a 102 - Nome do cedente
               StringOfChar(' ', 40)                           + // 104 a 143 - Mensagem 1 para todos os boletos do lote
               StringOfChar(' ', 40)                           + // 144 a 183 - Mensagem 2 para todos os boletos do lote
               PadLeft(IntToStr(NumeroRemessa), 8, '0')        + // 184 a 191 - Número do arquivo
               FormatDateTime('ddmmyyyy', Now)                 + // 192 a 199 - Data de geração do arquivo
               StringOfChar('0', 8 )                            + // 200 a 207 - Data do crédito - Só para arquivo retorno
               StringOfChar(' ', 33);                            // 208 a 240 - Uso exclusivo FEBRABAN/CNAB

Editado 11 Dezembro, 2019 por Mailson.Dragon

[Antonio Gomes]

Maison: E o manual ou leiaute que usou como base posta ele aqui por favor, tem como? Grato.

[Mailson.Dragon]

11 horas atrás, Antonio Gomes disse:

Maison: E o manual ou leiaute que usou como base posta ele aqui por favor, tem como? Grato.

 

CNAB240SegPQRSTY.pdf

[Juliana Tamizou]

Bom dia.

Obrigada pela contribuição, adicionada para validação.

Att.

[Italo Giurizzato Junior]

Bom dia Maílson,

Primeiramente desculpe pela demora em analisar a colaboração.

Muito obrigado pela colaboração, já foi enviada para o repositório.

Favor atualizar os fontes e faça novos testes.

[Mailson.Dragon]

Está faltando a versão do lote 087 e versão do arquivo 045

...

 VersaoArquivo := LayoutVersaoArquivo;

      if not (VersaoArquivo in [030, 040, 080, 082, 083, 084, 087]) then
        VersaoArquivo := 030;

...

VersaoLote := LayoutVersaoLote;

      case VersaoArquivo of
        030: if VersaoLote <> 020 then VersaoLote := 020;
        040: if VersaoLote <> 030 then VersaoLote := 030;
        080: if VersaoLote <> 040 then VersaoLote := 040;
        082: if VersaoLote <> 041 then VersaoLote := 041;
        083: if VersaoLote <> 042 then VersaoLote := 042;
        084: if VersaoLote <> 043 then VersaoLote := 043;
        087: if VersaoLote <> 045 then VersaoLote := 045;
      else
        VersaoLote := 000;
      end;

...

[Italo Giurizzato Junior]

Bom dia Maílson,

Muito obrigado, já inclui e vou enviar novamente para o repositório.