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

Security No Cover Date Type Obligee Lender
0:1-0

Title : Securities

Toolbars

call BrowseFirst()
call BrowsePrior()
call BrowseNext()
call BrowseLast()
call OpenFormTop("ptAppend","AU_SECUR_E.FM","WORK.AU_SECUR",1,"?=AU_SECUR")
call OpenFormTop("ptEdit","AU_SECUR_E.FM","WORK.AU_SECUR",1,"?=AU_SECUR")
call BrowseFilter()
call PrintGrid()
call CreateSheet()

Buttons

Fields


 (.NUMBER)
 (.FINAL_DATE)
 (.AU_SECUR_TYPE_D)
 (.AU_BUSINESS.TITLE)
 (.AU_BUSINESS_1.TITLE)
 (.NUMBER)
 (.FINAL_DATE)
 (.AU_SECUR_TYPE_D)
 (.AU_BUSINESS.TITLE)
 (.AU_BUSINESS_1.TITLE)


AutoScript

lib

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
       SELECT AU_SECUR.NUMBER, AU_BUSINESS.TITLE, AU_SECUR.FINAL_DATE, AU_SECUR.AU_SECUR,
       AU_BUSINESS_1.TITLE, AU_SECUR_TYPE.AU_SECUR_TYPE_D
       FROM (AU_BUSINESS AS AU_BUSINESS_1 INNER JOIN (AU_SECUR INNER JOIN AU_BUSINESS
       ON AU_SECUR.BUSINESS1 = AU_BUSINESS.AU_BUSINESS) ON AU_BUSINESS_1.AU_BUSINESS = AU_SECUR.BUSINESS2)
       INNER JOIN AU_SECUR_TYPE ON AU_SECUR.AU_SECUR_TYPE = AU_SECUR_TYPE.AU_SECUR_TYPE
     end_sql
     q = QueryByName("DATA")
     call SetFetchRowCount(q,100)
     call TPrepare(q)

end

proc Form_Start()

     call SetCaption("Securities")

end

proc Lst_DblClick()

     call OpenFormTop("ptEdit","AU_SECUR_E.FM","WORK.AU_SECUR",1,"?=AU_SECUR")

end