` Printed Icetips Article

Icetips Article



ABC: Apply button for forms
1998-08-30 -- Jerry Norman
 
Newsgroups: comp.lang.clarion

>I want to save the info on the form but keep the same record active.
>I will then do some adding of child records and other stuff.  Thus I
>want a button to do this in addition to the OK button.  Once the user
>is finished they will then press the OK button and go back to the
>browse but I need an APPLY button to save the record before leaving
>the form.

I'm jumping in here without seeing your initial post so this may be
wide of the mark. I code an Apply button in my apps as a way to save the
record and enable the child record tabs (i.e., the child tabs are disabled
until the parent is saved). I am using C4 ABC. Here's the code in the Apply
button's Accept embed:

CASE Self.Request
OF ChangeRecord
    Access:business.Update()
OF InsertRecord
    IF NOT Access:Business.Insert()
      Self.Request = ChangeRecord
      DO EnableChildren
    ELSE
      CYCLE
    END
END
SELF.Saved = SELF.Primary.Me.SaveBuffer()
?btApply{Prop:Disable}=True


I renable btApply button if a field value in the primary record is changed.



Printed May 8, 2024, 7:58 pm
This article has been viewed/printed 35115 times.
Google search has resulted in 11 hits on this article since January 25, 2004.