` Stopping confirm delete message (C4) (Wim Nijland) - Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Icetips Article

Back to article list   Search Articles     Add Comment     Printer friendly     Direct link  

ABC: Stopping confirm delete message (C4)
1998-08-19 -- Wim Nijland
 
Newsgroups: topspeed.products.c4 >I'm looking into deleting records without the confirmation dialog. I >found the DeleteAction property of the WindowManager class, and the >description appears to be what I want. When I tried to use Delete:Auto >it did not work as expected. Ok, granted I'm not David, but I think the result of CHOOSE(SELF.DeleteAction=Delete:Warn) becomes 1 if DeleteAction=Delete:Warn or 0 otherwise. And this is correct. What I did to avoid getting the confirmation dialog is the following: In Global Embeds, goto Hide:Relate:File, Then insert in method Delete PROCEDURE(Byte Query=1), BEFORE the Parent Call ! Override of standard Delete ! No questions asked on delete of record Query = 0 This takes care of it, being a bit rude, because the question will never be asked again. It does work if you have a browse WITH an update procedure, but does work the way you describe if the UPDATE procedure is not available, Am I right? >I was looking through the source code in Abwindow.clw and found the >following. > >WindowManager.PrimeUpdate PROCEDURE > CASE SELF.Request > of SELF.DeleteAction > CASE SELF.DeleteAction > OF Delete:Warn OROF Delete:Auto > SELF.Response = >SELF.Primary.Delete(CHOOSE(SELF.DeleteAction=Delete:Warn)) > SELF.Response = >CHOOSE(SELF.Response=Level:Benign,RequestCompleted,RequestCancelled) > RVal = Level:Fatal > END > >I'm guessing that Delete:Auto doesn't work because the Case Statement >doesn't distinguish between Delete:Warn and Delete:Auto. I think the >first Choose statement isn't complete. Should the statement read: > > SELF.Response = >SELF.Primary.Delete(CHOOSE(SELF.DeleteAction=Delete:Warn, Delete:Warn, >Delete:Auto)) > >? > >If I'm missing something else, please let me know..... > >This is my last problem in my first C4 ABC app.


Today is April 27, 2024, 2:55 pm
This article has been viewed 35117 times.
Google search has resulted in 59 hits on this article since January 25, 2004.



Back to article list   Search Articles   Add Comment   Printer friendly

Login

User Name:

Password: