viniciusfip

Resolvido... O problema não era com o componente e nem com o envento OnValidate em si, mas na função documentoValido2.

Resolvido... O problema não era com o componente e nem com o envento OnValidate em si, mas na função documentoValido2. Obrigado pelas respostas.

Olá pessoal, estou com algumas dúvidas quanto ao uso do ACBrValidator... estou tentando validar o campo inscrição estadual, mas sempre que tento inserir uma nova inscrição e informo incorreto perde o foco... na edição mantém esse foco e tinha o evendo OnValidate, no entanto retirei esse evento e mesmo assim me mostra a mensagem do componente! por que esse problema? Alguém poderia me dá uma força? segue o código function TfrmClientes.documentoValido2(doc2:string): boolean; begin if length(trim(doc2))<=0 then begin result:=true; exit; end; if CLTSGENERO.AsInteger in [0,1] then begin Result:=true; exit; end; if length(trim(CLTSESTADO.AsString))<=0 then begin ShowMessage('UF não definida!'); result:=false; exit; end; fp.ACBrValidador1.TipoDocto:=docInscEst; fp.ACBrValidador1.Complemento:=CLTSESTADO.AsString; fp.ACBrValidador1.Documento:=doc2; result:=fp.ACBrValidador1.Validar; end; E estava chamando no Onvalidate assim: Código: procedure TfrmClientes.CLTSDOC2Validate(Sender: TField); begin if ((not CLTSDOC2.IsNull) and (Length(trim(CLTSDOC2.NewValue))>0) and (not documentoValido2(CLTSDOC2.NewValue))) then abort; if dd.verificaDOC(CLTS.State, CLTSID.AsInteger, 'CLIENTES','DOC2',CLTSDOC2.AsString,CLTSGENERO.AsInteger )then abort; end;

O pior é que não sei se o erro é do componente ou no evento OnValidate?!? Alguém Utiliza o ACBrValidator e poderia me dá uma força de como resolver esse problema de validação?! é como se não estivesse executando o Onvalidate, pois aparece a mensagem de alerta, mas perde o foco! tem algum comando que force o o cursor ficar em determinado campo? pois já tentei o setfocus, mas não adiantou...

Olá pessoal, estou com algumas dúvidas quanto ao uso do ACBrValidator... estou tentando validar o campo inscrição estadual, mas sempre que tento inserir uma nova inscrição e informo incorreto perde o foco... na edição mantém esse foco e tinha o evendo OnValidate, no entanto retirei esse evento e mesmo assim me mostrando a mensagem do componente! por que esse problema? Alguém poderia me dá uma força? segue o código function TfrmClientes.documentoValido2(doc2:string): boolean; begin if length(trim(doc2))<=0 then begin result:=true; exit; end; if CLTSGENERO.AsInteger in [0,1] then begin Result:=true; exit; end; if length(trim(CLTSESTADO.AsString))<=0 then begin ShowMessage('UF não definida!'); result:=false; exit; end; fp.ACBrValidador1.TipoDocto:=docInscEst; fp.ACBrValidador1.Complemento:=CLTSESTADO.AsString; fp.ACBrValidador1.Documento:=doc2; result:=fp.ACBrValidador1.Validar; end; E estava chamando no Onvalidate assim: procedure TfrmClientes.CLTSDOC2Validate(Sender: TField); begin if ((not CLTSDOC2.IsNull) and (Length(trim(CLTSDOC2.NewValue))>0) and (not documentoValido2(CLTSDOC2.NewValue))) then abort; if dd.verificaDOC(CLTS.State, CLTSID.AsInteger, 'CLIENTES','DOC2',CLTSDOC2.AsString,CLTSGENERO.AsInteger )then abort; end;