How to prevent changes to a id field

[twwtc]

Re: How to prevent changes to a id field

Al
Thanks, exactly what I was wanting. I have made the change to my field.
Error message pops up twice. Is that the it should work. Below is my code.

Onarrive envent:

dim flag as L

dim SHARED init_value AS N

'Set a variable to the initial value in Cust_ID

init_value= Cust_ID.value

'Set the flag variable to .T.

flag = .T.

Onchange event:

dim flag as L

if flag = .F. then

code = ui_msg_box("Warning", "You have changed the value in this field. Are you sure you want to change the value? ", UI_OK_SELECTED + UI_QUESTION_SYMBOL)

if (code = 2) then 'User selected Cancel button

this.value = init_value

this.refresh()

flag = .F.

end if

end if

For any other newbies reading this and are going to try it, the code in the wiki had two type-o's (or I assume they were type-o's)
In second line of onarrive event, Put a space in the "init_valueAS" between "eA"
and add "=.F." in second line of onchange event.

Thanks again Al!

[preston2]

Re: How to prevent changes to a id field

Al

For any other newbies reading this and are going to try it, the code in the wiki had two type-o's (or I assume they were type-o's)
In second line of onarrive event, Put a space in the "init_valueAS" between "eA"
and add "=.F." in second line of onchange event.

Thanks again Al!

Glad you got it figured out. As for Wiki, I have found a lot of type-o's or incorrect syntax.

[twwtc]

Re: How to prevent changes to a id field

Thanks Preston

Error message still pops up twice, not sure what's causing that, but we can live it.

Thanks
Tony

[Ray in Capetown]

Re: How to prevent changes to a id field

Tony
I have found a way to resolve the recurrence of the prompt.
Firstly the Wiki is correct in the onchange event with the flag as True, and it needn't be re-dim'd, but wrong at first, where the flag should be SHARED.
Notwithstanding that - the intention was for it to prevent the second occurrence of the warning.
For some reason it doesn't.
I used a different method, without using a flag, this doesn't warn the second time.
Just change "Code" to your FIELDname , my sample uses a Char field called CODE so I changed code var to codez to avoid any confusion.
For the OnChange use

if parentform:code.value = var->init_value ' instead of aflag =.t. then
else
    codez = ui_msg_box("Warning", "You have changed the value in this field. Are you sure ? ", UI_OK_SELECTED + UI_QUESTION_SYMBOL)
    if (codez = 2) then 'User selected Cancel button
      this.value = var->init_value
      this.refresh()
    end if
end if

[Ray in Capetown]

Re: How to prevent changes to a id field

This generic works.

if this.value <> var->init_value
    codez = ui_msg_box("Warning", "You have changed the value in this field. Are you sure ? ", UI_OK_SELECTED + UI_QUESTION_SYMBOL)
    if (codez = 2) then 'User selected Cancel button
      this.value = var->init_value
      this.refresh()
    end if
end if

[twwtc]

Re: How to prevent changes to a id field

Ray
Made the changes you suggested and it work perfect!
It just proves that with Alpha Five there are many ways to get a solution
Thanks
Tony