Prevent row delete in emb browse

[gaby_h]

I want to prevent user from deleting a row in an emb browse if a condition is true (calc field > Max amount). In Field Rule I can see there is a CandeleteRecord event. However, I couldn't find a similar event for embedded browse.

[Mike Wilson]

Re: Prevent row delete in emb browse

Gaby,
what mechanism are you providing for the user to delete an embedded browse record (row)? A button? The browse OnRowDblClick? Could you not script this as an if-then statement within the mechanism that you have for the user to delete the record?

[gaby_h]

Re: Prevent row delete in emb browse

Hello Mike:
Just native mechanisms: Ctrl-D or right click + Delete or from the menu Records -> Delete.

[Tom Cone Jr]

Re: Prevent row delete in emb browse

Gaby, whether the field rule record event will work depends upon where the calc field and the Max_Amount fields exist. Are they fields in the same table displayed in the browse? Are they fields in other tables? Is the calc a simple calc display field existing only in the form layout?

[gaby_h]

Re: Prevent row delete in emb browse

Hi Tom:
The calc field and max amount are layout based, more precisely: I have a parent-child-G.child. I want to prevent deletion of record/row in 1st emb browse (child table) if sum of a field in 2nd emb browse (G. child table ) exceeds say $100 (the sum is layout based calc field).

[Tom Cone Jr]

Re: Prevent row delete in emb browse

Hi Gaby,

I'd try writing a script in the CanDeleteRecord event in Field rules. The script would determine if your form is open. If so it would check object values in the layout to determine whether to "cancel" the delete or not.

If the script can't "see" the form it won't be able to pull object values from the layout. In this case you might use tablesum() to compute the sum of the desired grandchild records and then determine if the delete should be cancelled or not.

Later on ...

Yes, the first approach will work fine. Here's an example using the Invoice_items table in Alpha Sports to read text from an object in the Invoice form.

if is_object(":Invoice") then 
	pointer = obj(":Invoice")  'get pointer to the open form
	msgbox("","Sales rep is " + pointer:Sales_rep.text) 'retrieve object text and display it
	cancel()
else
	cancel()
end if

[Davidk]

Re: Prevent row delete in emb browse

Since you can test on your value... what about this.

On the OnArrive and OnRowChange of Browse2

If :frmname:browse1:fieldname.value > 100 then
:frmname:browse2.restrict_delete = .t.
Else
:frmName:browse2.restrict_delete = .f.
end if

Restrict the deletion of records for the whole browse of the grandchild records if their parent tests true for your value.

Does that make sense?

David

[gaby_h]

Re: Prevent row delete in emb browse

Hi Tom:
Thank you for take the time. this will get me started.

I tried many times to use Events in FR but when using action scripting to create a script like (cancel script) I keep having the followinmg problems:
1) When I open the expression builder in a script (expl in cancel script) pressing F2 to display Tables & Fields always produces an error message saying "A5 cannot display field names because there is no table open"
2) When I create the script with its expression outside the FR (like in from events) and paste it in the Expression builder in FR, it always returns <invalid expression>; the same script works perfectly with Form events.

Hi David:
the .restrict_delete sounds great; was not aware a such function. I'll experiment with it. Thanks David.

[Davidk]

Re: Prevent row delete in emb browse

What I'm finding really helpful is... when in the code editor, I click on the Task List on the Menu bar and turn on the XBasic Explorer. I just pile through the list of methods and properties available for an object until I find something useful. I'm finding that A5 will almost always have something that will do for a task. Just not Bitmap1.rotate.... rats!