Sicredi - Remessa 240 posições - Erro na UF

[SaraHidalgo]

Boa tarde!

Encontramos um erro ao gerar o arquivo de remessa no padrão 240 do banco Sicredi.

No segmento Q, posição 152 a 153, deve ser enviado a UF do sacado, porém, no arquivo, é gerado com a literal "UF" ao invés de preencher com a UF informada no componente.

Fizemos a correção no arquivo, que está anexado a este post.

Trecho corrigido:

    {SEGMENTO Q}
    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
             'Q'                                                            + // 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
             TipoSacado                                                     + // 018 a 018 - Tipo de inscrição
             PadLeft(OnlyNumber(Sacado.CNPJCPF), 15, '0')                   + // 019 a 033 - Número de inscrição
             PadRight(TiraAcentos(Sacado.NomeSacado), 40)                                + // 034 a 073 - Nome
             EndSacado                                                      + // 074 a 113 - Endereço
             PadRight(TiraAcentos(Sacado.Bairro), 15)                                    + // 114 a 128 - Bairro
             Copy(PadLeft(OnlyNumber(Sacado.CEP),8,'0'),1,5)                + // 129 a 133 - CEP
             Copy(PadLeft(OnlyNumber(Sacado.CEP),8,'0'),6,3)                + // 134 a 136 - Sufixo do CEP
             PadRight(TiraAcentos(Sacado.Cidade), 15)                                    + // 137 a 151 - Cidade
//             PadLeft(UF, 2)                                                 + // 152 a 153 - Unidade da Federação
             PadLeft(Sacado.UF, 2)                                                 + // 152 a 153 - Unidade da Federação
             TipoAvalista                                                   + // 154 a 154 - Tipo de inscrição
             PadRight(Sacado.SacadoAvalista.CNPJCPF, 15, '0')               + // 155 a 169 - Número de inscrição
             PadRight(TiraAcentos(Sacado.SacadoAvalista.NomeAvalista),40,' ')            + // 170 a 209 - Nome do sacador/avalista
             PadRight('', 3, '0')                                           + // 210 a 212 - Cód. bco corresp. na compensação
             Space(20)                                                      + // 213 a 232 - Nosso nº no banco correspondente
             Space(8);                                                        // 233 a 240 - Uso exclusivo FEBRABAN/CNAB

 

Obrigada.

 

ACBrBancoSicredi.pas