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

Actual Value
Checked
Check Point
Proposed Value
Upper Value
Lower Value

Title : Activity Help Checks

Toolbars

call CloseForm(True)
call CloseForm(False)

Buttons

Fields


Actual Value (AU_STEP_HELP_CHK.ACTUAL_VALUE)
Checked (AU_STEP_HELP_CHK.IS_CHECKED)
Check Point (AU_STEP_HELP_CHK.COMM)
Proposed Value (AU_STEP_HELP_CHK.PROPOSED_VALUE)
Upper Value (AU_STEP_HELP_CHK.UPPER_VALUE)
Lower Value (AU_STEP_HELP_CHK.LOWER_VALUE)


AutoScript

lib

proc Form_Start()

     f = TopForm()
     p = PByName(f,"AU_STEP_HELP_CHK")
     t = TByName(p,"AU_STEP_HELP_CHK")

     mode = __params[6]

     if (mode = "STEP_MODE") then

        call TEdit(t)
        call TSetFld(t,"AU_STEP",__params[7])
        call TSetFld(t,"AU_ACTIVITY",__params[8])
        call TPost(t)

     endif

end