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 Assignment Activity Comments Role
23/6/2014 6:50:05 μμ 23/6/2014 6:50:05 μμ Prev Corr Action First time visit to customer QUALITY ASSURANCE MANAGER
23/6/2014 7:06:32 μμ 23/6/2014 7:06:32 μμ Peventive and Corrective Action Always attempt the in-home visit
23/6/2014 7:08:31 μμ 23/6/2014 7:08:31 μμ Approvals for the Correcive Actions Always attempt the in-home visit QUALITY ASSURANCE MANAGER
23/6/2014 7:09:02 μμ 23/6/2014 7:09:02 μμ Approval/Rejection of Corrective Actions Always attempt the in-home visit
23/6/2014 7:10:18 μμ 23/6/2014 7:10:18 μμ Corrective Action Always attempt the in-home visit
3/11/2014 9:10:53 πμ 3/11/2014 9:05:59 πμ New Mass Production Order NOVEMBER
3/11/2014 9:10:53 πμ 3/11/2014 9:10:53 πμ Define Production Quantities NOVEMBER
3/11/2014 9:11:22 πμ 3/11/2014 9:11:22 πμ Plan Mass Production NOVEMBER
24/8/2015 10:49:19 πμ 24/8/2015 10:49:19 πμ Setup Associates First Time Accosiates Setup
26/10/2016 8:42:24 μμ 26/10/2016 8:42:24 μμ New Mass Production Order November 1/15
1874:1-60

Title : Jobs to deliver

Toolbars

call OpenFormTop("ptBrowse";"AU_PROOD.FM";"QRY.DATA")
call BrowseFilter()
call CreateSheet()
call PrintGrid()
call BrowseFilter()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.TOSTART_AT_DATE)
 (.TOSTART_AT_TIME)
 (.ASSIGNED_AT_DATE)
 (.ASSIGNED_AT_TIME)
 (.ACTIVITY)
 (.COMM)
 (.RNAME)
 (.TOSTART_AT_DATE)
 (.TOSTART_AT_TIME)
 (.ASSIGNED_AT_DATE)
 (.ASSIGNED_AT_TIME)
 (.ACTIVITY)
 (.COMM)
 (.RNAME)


AutoScript

lib

proc Lst_DblClick()

     call OpenFormTop("ptBrowse";"AU_PROOD.FM";"QRY.DATA")

end

proc Form_Start()
     f = TopForm()

     str = strcat("Activities that will be/or could be executed by ";role)
     call SetCaption(str)
end

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
      SELECT
         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.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.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME,
         AU_PROCESS.PARENT_AGENT_ID, AU_STEP.ACTIVITY
      FROM
         AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
      WHERE
         (((AU_STEP.FINISHED)=0) AND ((AU_STEP.RNAME)=:R)) AND (AU_STEP.ISTEP = 0)
     end_sql

     q = QueryByName("DATA")
     role = getfprevfield("POS_D")
     call TSetParam(q;"R";role)
     call TPrepare(q)
end