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

Country Date Weekday Holiday
0:1-0

Title : Journal Types

Toolbars

call append()
call Lst_DblClick()
call delete()
call CreateSheet()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.CNAME)
 (.HDATE)
 (.HWEEKDAY_D)
 (.AU_HOLIDAYS_D)
 ()
 (.CNAME)
 (.HDATE)
 (.HWEEKDAY_D)
 (.AU_HOLIDAYS_D)
 ()


AutoScript

lib

proc Lst_DblClick()

       call OpenFormTop("ptEdit";"AU_HOLIDAYS_E.FM";"WORK.AU_HOLIDAYS";1;"?=AU_HOLIDAYS")

end

proc Form_Start()

     call CollapseNavBar()
     call SetCaption("Holidays")
end

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
        SELECT AU_HOLIDAYS.AU_HOLIDAYS, AU_COUNTRY.CCODE, AU_COUNTRY.CNAME,
        AU_HOLIDAYS.HDATE, AU_HOLIDAYS.HWEEKDAY_D, AU_HOLIDAYS.HWEEKDAY, AU_HOLIDAYS.AU_HOLIDAYS_D, AU_HOLIDAYS.HTYPE
        FROM AU_COUNTRY INNER JOIN AU_HOLIDAYS ON AU_COUNTRY.AU_COUNTRY = AU_HOLIDAYS.AU_COUNTRY
     end_sql
     q = QueryByName("DATA")
     call TPrepare(q)
end

proc append()

       call OpenFormTop("ptAppend";"AU_HOLIDAYS_E.FM";"WORK.AU_HOLIDAYS";1;"?=AU_HOLIDAYS")

end

proc delete()

       call OpenFormTop("ptDelete";"AU_HOLIDAYS_E.FM";"WORK.AU_HOLIDAYS";1;"?=AU_HOLIDAYS")

end