Focus

[osquiabro]

exist a function for set focus via code??

[Bruce]

yes, but you'll need to be a lot more explicit about the context.

cheers
Bruce

[osquiabro]

i have a procedure for change password with this part of code:

if  Loc:CurrentPassword =Use:Password   
    loc:alert='Invalid New Password, is equal to Current password'
    loc:Invalid=true       
    EXIT
end

when occurs this error i need to set focus to Loc:CurrentPassword

[Bruce]

I haven't tested this, but I think;

p_web.SetValue('SelectField','Loc:CurrentPassword')

will do it.
(before the Exit obviously)

cheers
Bruce

[osquiabro]

not work i have mi code in ValidateUpdate in memory form..

[Rene Simons]

Hi,
Shouldn't it be:

Loc:invalid = 'loc:Currentpassword' in stead of loc:invalid = true  ?

Anyway, loc:invalid must be equal to te field name that is in error.

Rene

[osquiabro]

thank you very much! worked...

[osquiabro]

stopped working with version 7.04.. go back to 7.03

[Bruce]

I can't think of any change that would have affected it in 7.04. I guess post an example and I'll take a look.

cheers
Bruce

[osquiabro]

i think that the  jQuery Dialogs has affected ..

[osquiabro]

7.05 don't work Focus, only work in 7.03 and back

this is my code:

IF Loc:CurrentPassword = ''
    loc:alert='Invalid Current Password'
    Loc:invalid = 'Loc:CurrentPassword'
    exit
END

IF  Loc:NewPassword=''
    loc:alert='Invalid New Password'
    Loc:invalid = 'Loc:NewPassword'
    EXIT       
END

IF Loc:NewPasswordConfrmation = ''
    loc:alert='Invalid Confirmation Password'
    Loc:invalid = 'Loc:NewPasswordConfrmation'
    exit
END

if  Loc:NewPasswordConfrmation <> Loc:NewPassword
    loc:alert='Invalid Confirm New Password'       
    Loc:invalid = 'Loc:NewPasswordConfrmation'
    Exit
end

p_web._OpenFile(Users)
Use:UserId = p_web.GSV('UserId')
Access:Users.Fetch(Use:PK_Users)

if  Loc:CurrentPassword =Use:Password   
    loc:alert='Invalid New Password, is equal to Current password'       
    Loc:invalid = 'Loc:CurrentPassword'   
    EXIT
end

if Loc:CurrentPassword <> Use:Password       
    loc:alert='Invalid Current Password' 
    Loc:invalid = 'Loc:CurrentPassword'
ELSE
    Use:Password = Loc:NewPassword
    PUT(Users)
END
p_web._CloseFile(Users)

[Bruce]

if you can duplicate the effect in one of the examples (perhaps example 3) and post that here that would be great.

cheers
Bruce

[osquiabro]

see attachment..

[attachment deleted by admin]

[Bruce]

you always need to include the dictionary with examples (because when you convert a dict from C6 to C8 a unique dict is created.)

also always include data files if you can, because this makes the example "stand-alone" for future readers of this thread.

lastly it is really helpful if you include instructions on what to do when the app runs. Where to go, and what to type etc. Explain what you expect to see, and what you do see.

Cheers
Bruce

[osquiabro]

again see the attactment, i include new procedure call ChangePassword.

[attachment deleted by admin]