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

Title
20 And 60 Days
30 And 70 Days
2:1-2

Title : Cover Scenario

Toolbars

call OpenFormTop("ptAppend";"AU_COVER_SCEN_E.FM";"WORK.AU_COVER_SCEN";1;"?=AU_COVER_SCEN")
call OpenFormTop("ptEdit";"AU_COVER_SCEN_E.FM";"WORK.AU_COVER_SCEN";1;"?=AU_COVER_SCEN")
call OpenFormTop("ptDelete";"AU_COVER_SCEN_E.FM";"WORK.AU_COVER_SCEN";1;"?=AU_COVER_SCEN")
call CreateSheet()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.DESCR)
 (.DESCR)


AutoScript

lib

proc Lst_DblClick()

    call OpenFormTop("ptEdit";"AU_COVER_SCEN_E.FM";"WORK.AU_COVER_SCEN";1;"?=AU_COVER_SCEN")

end

proc Form_Start()

     call CollapseNavBar()
     call SetCaption("Payment Scenarios")
end

proc Panels_Start()

     mode = __params[4]

     if (mode = "SORDER_MODE") then
        start_sql "DATA" "KOSMOS"
         SELECT * FROM AU_COVER_SCEN
         WHERE (AU_EVENT = :EV)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"EV",__params[5])
     endif
     if (mode = "ALL_MODE") then
        start_sql "DATA" "KOSMOS"
         SELECT * FROM AU_COVER_SCEN
        end_sql
        q = QueryByName("DATA")
     endif
     call TPrepare(q)
end