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

Fixed Costed Process Activity System Publish Role Role Localize
AU_PROJECT_FSM_AGENT Project Task Image Image owner
AU_TASK_ONE_COORDINATOR Define Task Assignment Image Image
AU_PURCHASE_COORDINATOR New Purchase Order Image Image
AU_PURCHASE_COORDINATOR Purchase Approval 3 Image Image appr_name
AU_PURCHASE_COORDINATOR Send Order to supplier Image Image
AU_PURCHASE_COORDINATOR Purchase Order Image Image Cashier
AU_PURCHASE_COORDINATOR Prices Control Image Image Prices Control Department
AU_TECH_PROBLEM_COORDINATOR New Tech Problem Image Image
AU_TECH_PROBLEM_COORDINATOR Understanding and Dispaching Image Image Techical Office
AU_COMPLAINT_COORDINATOR New Customer Complaint Image Image
397:1-60

Title : Activities Directory

Toolbars

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

Buttons

Fields


 (.FIXED_FLAG)
 (.COSTED_FLAG)
 (.APROC)
 (.ATITLE)
 (.SYSTEM_FLAG)
 (.PUBLISH_FLAG)
 (.RNAME)
 (.POS_D)
 (.FIXED_FLAG)
 (.COSTED_FLAG)
 (.APROC)
 (.ATITLE)
 (.SYSTEM_FLAG)
 (.PUBLISH_FLAG)
 (.RNAME)
 (.POS_D)


AutoScript

lib

proc Lst_DblClick()

       call OpenFormTop("ptEdit";"AU_ACTIVITY_LABTRACE_E.FM";"WORK.AU_ACTIVITY";1;"?=AU_ACTIVITY")

end

proc Form_Start()

     call CollapseNavBar()
     call SetCaption("Activities Lab Tracing")

end

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
         SELECT AU_ACTIVITY.*, AU_POS.POS_D
         FROM AU_ACTIVITY LEFT JOIN AU_POS ON AU_ACTIVITY.AUX_POS = AU_POS.AU_POS
     end_sql
     q = QueryByName("DATA")
     call TPrepare(q)
end