joão vitor de fraga venancio

Olá, Segue o arquivo com as alterações. ACBrTEFAPICliSiTef.pas

Olá, Passei pela mesma dificuldade, resolvi de forma parecida a do colega @edu. Segue a sugestão: // ACBrTEFAPICliSiTef.pas - Linha 573 30: // Deve ser lido um campo cujo tamanho está entre TamMinimo e TamMaximo begin DefinicaoCampo.TipoCampo := TipoCampo; DefinicaoCampo.TituloPergunta := ACBrStr(Mensagem); DefinicaoCampo.TipoDeEntrada := tedTodos; DefinicaoCampo.TamanhoMaximo := TamanhoMaximo; DefinicaoCampo.TamanhoMinimo := TamanhoMinimo; DefinicaoCampo.MascaraDeCaptura := EmptyStr; Validado := True; TefAPI.QuandoPerguntarCampo(DefinicaoCampo, Resposta, Validado, Interromper); if Resposta = '-1' then Interromper := True else if Resposta = '-2' then Voltar := True else RespCliSiTef.GravaInformacao(TipoCampo, Resposta); end;