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

Shift Code
3X8 SHIFT 5
3X8 SHIFT 6
2X8 SHIFT 5
3:1-3

Title : Warehouses

Toolbars

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

Buttons

Fields


 (.AU_SHIFT_D)
 (.CODE)
 (.AU_SHIFT_D)
 (.CODE)


AutoScript

lib

proc Lst_DblClick()

       call OpenFormTop("ptEdit";"AU_SHIFT_E.FM";"WORK.AU_SHIFT";1;"?=AU_SHIFT")

end

proc Form_Start()

     call CollapseNavBar()
     call SetCaption("Shift Patterns")
end

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
       SELECT * FROM AU_SHIFT
     end_sql
     q = QueryByName("DATA")
     call TPrepare(q)
end

proc append()

     call OpenFormTop("ptAppend";"AU_SHIFT_E.FM";"WORK.AU_SHIFT";1;"?=AU_SHIFT")

end