walterfolly

O que eu posso estar preechendo de errado: ACBrBoleto1.Banco.TipoCobranca := cobBradesco; ACBrBoleto1.Cedente.Nome := DM_Geral.wEMPRESA; ACBrBoleto1.Cedente.CNPJCPF := DM_Geral.wCNPJ; ACBrBoleto1.Cedente.Modalidade := DM_Geral.qryCedente.FieldByName('modalidade').AsString; ACBrBoleto1.Cedente.Agencia := trim(DM_Geral.qryCedente.FieldByName('agencia').AsString); ACBrBoleto1.Cedente.AgenciaDigito := trim(DM_Geral.qryCedente.FieldByName('ag_digito').AsString); ACBrBoleto1.Cedente.CodigoCedente := DM_Geral.qryCedente.FieldByName('convenio').AsString; ACBrBoleto1.Cedente.CodigoTransmissao := ''; ACBrBoleto1.Cedente.Conta := DM_Geral.qryCedente.FieldByName('conta').AsString; ACBrBoleto1.Cedente.ContaDigito := DM_Geral.qryCedente.FieldByName('cc_digito').AsString; ACBrBoleto1.Cedente.DigitoVerificadorAgenciaConta := trim(DM_Geral.qryCedente.FieldByName('ag_digito').AsString); ACBrBoleto1.Cedente.CaracTitulo := tcSimples; ACBrBoleto1.Cedente.ResponEmissao := tbCliEmite; ACBrBoleto1.Cedente.TipoCarteira := tctRegistrada; ACBrBoleto1.Cedente.Bairro := DM_Geral.wBAIRRO; ACBrBoleto1.Cedente.Logradouro := DM_Geral.wENDERECO; ACBrBoleto1.Cedente.Cidade := DM_Geral.wCIDADE; ACBrBoleto1.Cedente.UF := DM_Geral.wUF; ACBrBoleto1.Cedente.CEP := DM_Geral.wCEP;

ao enviar arquivo de remessa e pdf para o Bradesco para homologar, foi recusado por falta do digito verificador da agência no codigo de barras. Alguem sabe como resolver isso? Segue o codigo gerado pelo componente acbrboleto e logo a baixo a forma que o banco informa ser correto. 23790.21401 90000.000290 33002.217801 1 97690000002500 - codigo gerado pelo compoente acbr 23792.14701 90000.000290 33002.217801 1 97690000002500 - exigido pelo banco