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

Start Date Closed Date Process Name Comments Closed
23/6/2014 23/6/2014 AU_PREV_CORR_COORDINATOR Always attempt the in-home visit Image
3/11/2014 AU_PRODUCTION_MASS_COORDINATOR NOVEMBER
26/10/2016 AU_PRODUCTION_MASS_COORDINATOR November 1/15
15/2/2017 AU_PURCHASE_COORDINATOR2 Purchase Order
12/3/2017 AU_PURCHASE_COORDINATOR2 Health America
12/3/2017 AU_PURCHASE_COORDINATOR2 Health America
13/3/2017 AU_PURCHASE_COORDINATOR2 American Healthcare
13/3/2017 AU_PURCHASE_COORDINATOR2 American Healthcare
15/3/2017 AU_PURCHASE_COORDINATOR2 American Healthcare
26/3/2017 AU_PURCHASE_COORDINATOR2 American Healthcare
36:1-36

Title : Entity's Processes

Toolbars

call BrowseFilter()
call PrintGrid()
call CreateSheet()

Buttons

Fields


 (.STARTED_AT_DATE)
 (.FINISHED_AT_DATE)
 (.AGENT_NAME)
 (.COMM)
 (.FINISHED)
 (.STARTED_AT_DATE)
 (.FINISHED_AT_DATE)
 (.AGENT_NAME)
 (.COMM)
 (.FINISHED)


AutoScript

lib

proc Panels_Start()

     tname = __params[4]
     rid = __params[5]

     start_sql "DATA" "KOSMOS"
       SELECT AU_STEP.AU_PROCESS, AU_PROCESS.STARTED_AT_DATE, AU_PROCESS.FINISHED_AT_DATE,
       AU_PROCESS.AGENT_NAME, AU_PROCESS.COMM, AU_PROCESS.FINISHED
       FROM ((AU_BPM_REL INNER JOIN AU_JOB ON AU_BPM_REL.AU_JOB = AU_JOB.AU_JOB)
       INNER JOIN AU_STEP ON AU_JOB.AU_STEP = AU_STEP.AU_STEP) INNER JOIN AU_PROCESS
       ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
       WHERE ((AU_BPM_REL.REC_NAME=:T) AND (AU_BPM_REL.REC_ID=:R))
       GROUP BY AU_STEP.AU_PROCESS, AU_PROCESS.STARTED_AT_DATE, AU_PROCESS.FINISHED_AT_DATE,
       AU_PROCESS.AGENT_NAME, AU_PROCESS.COMM, AU_PROCESS.FINISHED
       ORDER BY AU_PROCESS.STARTED_AT_DATE
     end_sql
     q = QueryByName("DATA")
     call TSetParam(q,"T",tname)
     call TSetParam(q,"R",rid)
     call SetFetchRowCount(q,100)
     call TPrepare(q)

end

proc Form_Start()

     call SetCaption("Processes for the Entity")

end

proc Lst_DblClick()

     process_id = TGetFld(q,"AU_PROCESS")
     if (process_id > 0) then
        call OpenFormTop("ptBrowse","AU_PROOD.FM","QRY.DATA",process_id)
     endif

end