Sicredi...

[LEANDRODOCOUTO]

Consegui homologar o Sicredi na planilha deles..

Conforme o Manual padrao 240, no Header e no Header do Lote, deve ir o numero da Conta e o ACBR esta mandando o código do Cedente.
Fiz as Seguintes Alterações
No Método GerarRegistroHeader240

Alterei o código em destaque... ali estava mandando o codigo do Cedente, quando deveria mandar o numero da Conta..
Depois disso, consegui homologar normalmente...

 with ACBrBanco.ACBrBoleto.Cedente do
  begin
    { HEADER DE ARQUIVO }
    Result := '748'                                                         + // 001 a 003 - Código do banco na compensação "748" SCIREDI
              '0000'                                                        + // 004 a 007 - Lote de serviço "0000"
              '0'                                                           + // 008 a 008 - Tipo de registro = "0" HEADER ARQUIVO
              Space(9)                                                      + // 009 a 017 - Uso exclusivo FEBRABAN/CNAB
              TipoInsc                                                      + // 018 a 018 - Tipo de inscrição da empresa = "1" Pessoa Física "2" Pessoa Jurídica
              PadLeft(OnlyNumber(CNPJCPF), 14, '0')                         + // 019 a 032 - Número de inscrição da empresa
              Space(20)                                                     + // 033 a 052 - Código do convênio no banco (O SICREDI não valida este campo; cfe Manual Agosto 2010 pág. 35)
              PadLeft(OnlyNumber(Agencia), 5, '0')                          + // 053 a 057 - Agência mantenedora da conta
              Space(1)                                                      + // 058 a 058 - Dígito verificador da agência
              PadLeft(OnlyNumber(Conta), 12, '0')                           + // 059 a 070 - Código do cedente
              PadRight(ContaDigito, 1, '0')                                 + // 071 a 071 - DV Conta
              Space(1)                                                      + // 072 a 072 - Dígito verificador da ag
              PadRight(Nome, 30)                                            + // 073 a 102 - Nome da empresa
              PadRight('SICREDI', 30)                                       + // 103 a 132 - Nome do banco = "SICREDI"
              Space(10)                                                     + // 133 a 142 - Uso exclusivo FEBRABAN/CNAB
              '1'                                                           + // 143 a 143 - Código Remessa/Retorno = "1" Remessa "2" Retorno
              FormatDateTime('ddmmyyyy', Now)                               + // 144 a 151 - Data de geração do arquivo
              FormatDateTime('hhnnss', Now)                                 + // 152 a 157 - Hora de geração do arquivo
              IntToStrZero(NumeroRemessa, 6)                                + // 158 a 163 - Número sequencial do arquivo
              '081'                                                         + // 164 a 166 - Nº da versão do leiaute do arquivo = "081"
              '01600'                                                       + // 167 a 171 - Densidade de gravação do arquivo = "01600"
              Space(20)                                                     + // 172 a 191 - Para uso reservado do banco
              Space(20)                                                     + // 192 a 211 - Para uso reservado da empresa
              Space(29);                                                      // 212 a 240 - Uso exclusivo FEBRABAN/CNAB

    { HEADER DE LOTE }
    Result := Result + #13#10                                               +
              '748'                                                         + // 001 a 003 - Código do banco na compensação "748" SICREDI
              '0001'                                                        + // 004 a 007 - Lote de serviço "0001"
              '1'                                                           + // 008 a 008 - Tipo de registro = "1" HEADER LOTE
              'R'                                                           + // 009 a 009 - Tipo de operação = "R" Arquivo de Remessa
              '01'                                                          + // 010 a 011 - Tipo de serviço = "01" Cobrança
              Space(2)                                                      + // 012 a 013 - Uso exclusivo FEBRABAN/CNAB
              '040'                                                         + // 014 a 016 - Nº da versão do leiaute do lote = "040"
              Space(1)                                                      + // 017 a 017 - Uso exclusivo FEBRABAN/CNAB
              TipoInsc                                                      + // 018 a 018 - Tipo de inscrição da empresa = "1" Pessoa Física "2" Pessoa Jurídica
              PadLeft(OnlyNumber(CNPJCPF), 15, '0')                         + // 019 a 033 - Número de inscrição da empresa
              Space(20)                                                     + // 034 a 053 - Código do convênio no banco (O SICREDI não valida este campo; cfe Manual Agosto 2010 pág. 35)
              PadLeft(OnlyNumber(Agencia), 5, '0')                          + // 054 a 058 - Agência mantenedora da conta
              Space(1)                                                      + // 059 a 059 - Dígito verificador da agência
              PadLeft(OnlyNumber(Conta), 12, '0')                   + // 060 a 071 - Código do cedente
              PadRight(ContaDigito,1)                                       + // 072 a 072 - Zeros
              Space(1)                                                      + // 073 a 073 - Dígito verificador da coop/ag/conta
              PadRight(Nome, 30)                                            + // 074 a 103 - Nome da empresa
              Space(40)                                                     + // 104 a 143 - Mensagem 1
              Space(40)                                                     + // 144 a 183 - Mensagem 2
              IntToStrZero(NumeroRemessa, 8)                                + // 184 a 191 - Número remessa/retorno
              FormatDateTime('ddmmyyyy', Now)                               + // 192 a 199 - Data de gravação rem./ret.
              PadRight('', 8, '0')                                          + // 200 a 207 - Data do crédito
              Space(33);                                                      // 208 a 240 - Uso exclusivo FEBRABAN/CNAB

    end;
 

[LEANDRODOCOUTO]

Por gentileza, algum dos moderadores pode confirmar e commitar essas alterações..

São importantes para a homologação do Sicredi..

[José M. S. Junior]

Bom dia, poderia anexar a documentação do Sicred onde relata esta informação, para análise...

[LEANDRODOCOUTO]

Segue em anexo.. nas páginas 33 e 36 estão os discriminativos...

 

Manual CNAB240.compressed.pdf

[LEANDRODOCOUTO]

Boa tarde.. algum retorno ?

Grato..

[José M. S. Junior]

Obrigado, assim que possível vamos analisar para subir no SVN.

[José M. S. Junior]

Correção disponível no SVN...

[LEANDRODOCOUTO]

ok.. obrigado..