Pesquisar na Comunidade

Bom dia, Estou com uma dificuldade na homologação do boleto do Sicredi, o Suporte do Banco Sicredi me retornou umas criticas, que ja pesquisei no fórum algo similar porem não encontrei. As criticas foram a respeito do tipo de cobrança que o cliente usa cobrança com registro porem na impressão e no arquivo de remessa estão indo o valor de cobranã sem registro. Analisando o código fonte me deparei com está informação. no campo modalidade do componente estou mandando o valor 3 que é cobrança com registro conforme descrito na linha 115 do código fonte do ACBrBancoSicredi FatorVencimento := CalcularFatorVencimento(ACBrTitulo.Vencimento); Modalidade := IfThen(Cedente.Modalidade='','1',Copy(trim(Cedente.Modalidade),1,1)); { Monta o campo livre } CampoLivre := Modalidade + { 1-Sem registro ou 3-Com registro.} O Suporte do banco me disse que valor do campo com Registo tem que ser o valor 'A' porem no arquivo de remessa está indo o valor 'C' que cobrança sem registro como descrito no manual na pagina 26 ( http://www.sicredi.com.br/websitesicredi/upload/files/28460_Manual_Beneficiario_Cobranca_CNAB_400___18062014.pdf) CNAB400. Depurando o o fonte encontrei na linha 289 do código fonte do ACBrBancoSicredi. if StrToIntDef(ACBrBoleto.Cedente.Modalidade,1) = 1 then wModalidade := 'A' else wModalidade := 'C'; with ACBrBoleto do begin wLinha:= '1' + // 001 a 001 - Identificação do registro detalhe wModalidade + // 002 a 002 - Tipo de cobrança ("A" - Registrada e "C" Sem Regsitro) ifthen(wModalidade = 'A', 'A', ' ') + // 003 a 003 - Tipo de carteira = "A" Simples IfThen(TipoImpressao = tipCarne, 'B', 'A') + // 004 a 004 - Tipo de impressão = "A" Normal "B" Carnê //--Anderson No if a modalidade 1 está recebendo o valor A de cobrança registrada então está invertendo os valores. Obrigado pela Ajuda . Att