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

Project Assigned Date Activity Comments To User To Position Finished
MediGold / Prospective for MediGold / Provider No Show 23/6/2014 Prev Corr Action First time visit to customer admin QUALITY ASSURANCE MANAGER Image
Always attempt the in-home visit 23/6/2014 Peventive and Corrective Action Always attempt the in-home visit admin Image
Always attempt the in-home visit 23/6/2014 Approvals for the Correcive Actions Always attempt the in-home visit admin QUALITY ASSURANCE MANAGER Image
Always attempt the in-home visit 23/6/2014 Approval/Rejection of Corrective Actions Always attempt the in-home visit admin Image
Always attempt the in-home visit 23/6/2014 Corrective Action Always attempt the in-home visit John Image
NOVEMBER 3/11/2014 New Mass Production Order NOVEMBER admin Image
NOVEMBER 3/11/2014 Define Production Quantities NOVEMBER admin Image
NOVEMBER 3/11/2014 Plan Mass Production NOVEMBER admin
First Time Accosiates Setup 24/8/2015 Setup Associates First Time Accosiates Setup admin
November 1/15 26/10/2016 New Mass Production Order November 1/15 admin Image
1872:1-60

Title : Activities in progress

Toolbars

call history()
call BrowseFilter()
call CreateSheet()
call PrintGrid()
call BrowseFilter()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.COMM0)
 (.ASSIGNED_AT_DATE)
 (.ACTIVITY)
 (.COMM)
 (.UNAME)
 (.RNAME)
 (.FINISHED)
 (.COMM0)
 (.ASSIGNED_AT_DATE)
 (.ACTIVITY)
 (.COMM)
 (.UNAME)
 (.RNAME)
 (.FINISHED)


AutoScript

lib

proc Lst_DblClick()

     code = TGetFld(q,"STEP_CODE")
     step_id = TGetFld(q,"AU_STEP")

     call OpenBPMStep("history",step_id,code)

end

proc Form_Start()
     f = TopForm()

     call SetCaption("Project Activities")

     call CollapseNavBar()
end

proc Panels_Start()

     mode = __params[4]

     if (mode = "ALL_MODE") then
         start_sql "DATA" "KOSMOS"
         SELECT AU_PROCESS.COMM AS COMM0, AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID,
         AU_STEP.TOSTART_AT_DATE, AU_STEP.TOSTART_AT_TIME, AU_STEP.AU_PROCESS, AU_STEP.BRANCH_ID,
         AU_STEP.ASSIGNED_AT_DATE, AU_STEP.ASSIGNED_AT_TIME, AU_PROCESS.AGENT_NAME, AU_PROCESS.AGENT_ID,
         AU_STEP.FINISHED_AT_DATE, AU_STEP.FINISHED_AT_TIME, AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM,
         AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME, AU_STEP.UNAME, AU_PROCESS.PARENT_AGENT_ID,
         AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_STEP.ISTEP
         FROM AU_PROCESS INNER JOIN AU_STEP ON AU_PROCESS.AU_PROCESS = AU_STEP.AU_PROCESS
         WHERE (((AU_PROCESS.IS_PROJECT)="1"))
         end_sql
         q = QueryByName("DATA")
     endif

     call TPrepare(q)
end

proc Flowchart()

     name = getfprevfield("AGENT_NAME")
     id = getfprevfield("AGENT_ID")
     fullname = strcat(name,".",id)
     call agent_flowchart(fullname)

end

proc history()
     process_id = TGetFld(q,"AU_PROCESS")
     call OpenFormTop("ptBrowse";"AU_PROOD.FM";"QRY.DATA",process_id)
end