M & M INFORMATICA LTDA

Você deve estar carregando os dados do cedente antes de ler o arquivo, no arquivo o CPF está vindo cortado por isso fala que não é igual, no caso é só não carregar o CPF do cedente antes de ler o arquivo.

Ao ler retorno CRESOL 240, quando a conta está cadastrada como CPF, no arquivo o CPF vem errado, e acontece erro ao tratar. Adicionei um try na linha onde carrega o CPF para resolver, se possível adicionar ao SVN. Arquivo ACBr\Fontes\ACBrBoleto\ACBrBancoCresol.pas with ACBrBanco.ACBrBoleto do begin if LeCedenteRetorno then begin ACodBeneficiario:= trim(DefineCodBeneficiarioHeader); Cedente.Nome := rCedente; try Cedente.CNPJCPF := rCNPJCPF; except // Retorno quando é CPF está vindo errado por isso ignora erro na atribuição end; Cedente.Convenio := rConvenioCedente; Cedente.Agencia := trim(copy(ARetorno[0], 53, 5)); Cedente.AgenciaDigito := trim(copy(ARetorno[0], 58, 1)); if (ACodBeneficiario <> '') then Cedente.CodigoCedente := trim(copy(ARetorno[0], 59, 14)) else begin Cedente.Conta := trim(copy(ARetorno[0], 59, 12)); Cedente.ContaDigito := trim(copy(ARetorno[0], 71, 1)); end; if (StrToIntDef(copy(ARetorno[0], 18, 1), 0) = 1) then Cedente.TipoInscricao := pFisica else Cedente.TipoInscricao := pJuridica; end; ACBrBanco.ACBrBoleto.ListadeBoletos.Clear; end;

Boa tarde, sei que este tópico é antigo mas para quem precisar emitir o beep na impressora Print ID Touch, utilizar este comando ACBrPosPrinter1.ImprimirCmd(DLE + DC4 + #03 + #01 + #01 + #01 + #06 + #01);