Do not let any software impress you!

Only let it convince your intellect.
Slider img 1
Do not look for a business paradise!

It is a waste of time.
Slider img 2
Only yourself can push you uphill.

There is no easy road to prizes.
Slider img 3
Productivity is the name of the game.

And you have to conquer it.
Slider img 4
As long as you understand it,

you will start to build your know-how.
Slider img 5
We can help with that.

We have the tools and the method.
Slider img 6

Form Events Handling using AutoScript



We place those procedures into the Form‘s AutoScript section.

       Form_Start ( form_id )


Call this procedure at the opening of the Form. All data has been load by default. The form_id is the handle of the Form.

       Form_End ( uvalue )


Call this procedure after the Form has been closed by saving the data (append, edit or delete). The uvalue contains the unique field‘s value after the posting of the Form.

       Form_AfterForward()


       Form_AfterStay()


       Form_Prepared()


Call this procedure when we want to put some AutoScript before the system displays the Form to the user.

       Form_OpenFK_[fieldname] ( fkvalue, fkform )


Call this procedure to change the default behavior of just opening the foreign key‘s Form by pressing the “related button.“ The fkvalue is the foreign key‘s value, and fkform is the Form of the related record (for which the foreign key is the “unique key.“

       [editboxname]_OnChange ( value )


Call this procedure just after the changing of the value of the editbox with name [editboxname]

       Form_Close()


       Form_Resize()


       Panels_Start()


       NotBk_OnTabClick[pageindex]()


       NotBk_OnTabClick_[pagename]()


       Lst_Click()


       [listname]_Click()


       Lst_DblClick()


       [listname]_DblClick()


       Form_DrawCell()


       Form_MultiSelectLoad_[fieldname]()


Use this procedure in forms that open in browsing mode. We use it to change the default list loading behavior in the filtering windows. The code below gives an example of its usage:

proc Form_MultiselectLoad_FIELD1()

       start_sql “*“ “KOSMOS“
         SELECT FIELD1 FROM TABLE1
       end_sql
       q = QueryByName()
       call TExecute(q)
       count = TRecordCount(q)
       call TFirst(q)
       for i = 1 to count
         val = TGetFld(q,“FIELD1“)
         call CbLoad(“FIELD1“,val)
         call TNext(q)
       next
       call FreeEmbSQL(q)
end

       Panel_[panelname]_BeforeLoad()


       Form_OnSelect()


       Select_[tablename]_Params()