Menu Item

[G Gabriel]

Re: Menu Item

Works fine in v8

[Tom Henkel]

Re: Menu Item

Sounds like a BUG???

[martinwcole]

Re: Menu Item

Tom, in converting an app from V8 to V10, I found that the method is unreliable, and in cases where it didn't work, I used a different approach.

[Tom Henkel]

Re: Menu Item

Martin,

So then you agree that something isn't right with the function?

Tom

[martinwcole]

Re: Menu Item

yes

[G Gabriel]

Re: Menu Item

I'd submit a bug report.

[Tom Henkel]

Re: Menu Item

I'll set it up today.

Now the fun...

I went into Alpha Sport to duplicate my issue. I copied the vendor table to dupvend, and removed several records.

for the vendor form, I modified the "Blank" menu and added a "Test" menu Item.

In the on_fetch event of the form, I placed the following code

dim vnd as P
vnd = table.current()

if exist(vnd.vendor_id,"dupvend","Vendor_Id")
	:vendor_Information.MenuItemEnable("Test",.T.)
  else
	:vendor_Information.MenuItemEnable("Test",.F.)
end if
parentform.Resynch()
end

...works like a champ. Now how do I submit a bug when it works fine in AlphaSport???

Could this be a timing issue because My Customer Information set is fairly complex?

Any Thoughts?

Tom

[martinwcole]

Re: Menu Item

good question - however, another heads up - I have had a lot of problems with resynch - in general no longer use it

the issue I had with exist() was/is that the problems I had would occur in one use and not in another - i.e., is unreliable - I was using it in a long running looping script when I first ran into the issue

[Tom Henkel]

Re: Menu Item

Martin,

Like I said to Gabe, The issue wasn't with the "exist", that is performing just fine, It has to do with the command "<formname>.MenuItemEnable()". In either scenario, found or not found, the second time we hit the command, the ENTIRE program (Alpha5) hangs up and needs to be canceled to clear it. I just submitted a bug report, but I feel they will say they can't replicate the problem...

[MikeC]

Re: Menu Item

The issue wasn't with the "exist", that is performing just fine

You didn't say how you are using the debugger so not necessarily.....unless while in debugger you stepped through each part of the script which allows each line to complete...this helps eliminate timing issues from an issue.

Just wanted to make sure a possible cause was not bypassed...

[Tom Henkel]

Re: Menu Item

I placed the "Debug()" into the "on_fetch" script just before the "If" statement and then did an F12 to run through each line. When it hit the <formname>.MenuItemEnable(), Wham!

[MikeC]

Re: Menu Item

Hi Tom,
Again, probably just semantics but if the issue happens when on the Menu line ("...when it hit ...") then it could be the prior line that caused the issue.

[Tom Henkel]

Re: Menu Item

Definitely semantics.

I should have said "When I press F12 after arriving on the <formname>.Menuitemenable()" line.

[G Gabriel]

Re: Menu Item

Could this be a timing issue

That was my gut feeling but couldn't swear to it as I am not able to test and that's why I asked you to run a simple script just to enable/disable an item from a button without the if statement.
The debug is misleading here.
If it's a timing issue, which I think it is, I am sure you know how to deal with that.

[Tom Henkel]

Re: Menu Item

Just tested that theory.

One button has
Client_Reg.MenuItemEnable("Photo",.T.)

the other has
Client_Reg.MenuItemEnable("Photo",.F.)

Push either button the first time on the form, and the appropriate action happens. Push the other button on the same form, same record and everything locks up.

See attached. First is the form on the initial "fetch". Second shows menu item disabled. When I pressed the "enable" button ("Script"), Alpha locks up and cannot even <alt> prnt scrn to capture image!