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

Checked Check Point Actual Value Proposed Value Upper Value Lower Value Activity Process
Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint 1,2 Project Task AU_PROJECT_FSM_AGENT
Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint 2,3 Project Task AU_PROJECT_FSM_AGENT
Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 10 11 Project Task AU_PROJECT_FSM_AGENT
Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Project Task AU_PROJECT_FSM_AGENT
Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Project Task AU_PROJECT_FSM_AGENT
Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 10 11 Project Task AU_PROJECT_FSM_AGENT
Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Inspect Complaint Project Task AU_PROJECT_FSM_AGENT
Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Respond Customer for Complaint Project Task AU_PROJECT_FSM_AGENT
Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 Inspect Complaint 2 10 11 Project Task AU_PROJECT_FSM_AGENT
Check Item No 1 Task Execution AU_TASK_COORDINATOR
10:1-10

Title : Activities Help Checks

Toolbars

call append()
call modify()
call delete()
call BrowseFilter()
call CreateSheet()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.IS_CHECKED)
 (.COMM)
 (.ACTUAL_VALUE)
 (.PROPOSED_VALUE)
 (.UPPER_VALUE)
 (.LOWER_VALUE)
 (.STEP_CODE)
 (.AGENT_NAME)
 (.IS_CHECKED)
 (.COMM)
 (.ACTUAL_VALUE)
 (.PROPOSED_VALUE)
 (.UPPER_VALUE)
 (.LOWER_VALUE)
 (.STEP_CODE)
 (.AGENT_NAME)


AutoScript

lib

proc Lst_DblClick()

     call modify()

end

proc Form_Start()
     call SetCaption("Activities Check List")

     f = TopForm()
     call SetEditableFields(f,"ACTUAL_VALUE")

end

proc Panels_Start()

     mode = __params[4]

     if (mode = "ALL_MODE") then
         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.ACTIVITY, AU_STEP.STEP_CODE, AU_STEP_HELP_CHK.*, AU_PROCESS.AGENT_NAME
         FROM (AU_STEP INNER JOIN AU_STEP_HELP_CHK ON AU_STEP.AU_STEP = AU_STEP_HELP_CHK.AU_STEP)
         INNER JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
         end_sql
         q = QueryByName("DATA")
     endif
     if (mode = "STEP_MODE") then
         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.ACTIVITY, AU_STEP.STEP_CODE, AU_STEP_HELP_CHK.*, AU_PROCESS.AGENT_NAME
         FROM (AU_STEP INNER JOIN AU_STEP_HELP_CHK ON AU_STEP.AU_STEP = AU_STEP_HELP_CHK.AU_STEP)
         INNER JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS
         WHERE (AU_STEP.AU_STEP = :S)
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"S",__params[5])
     endif
     call TPrepare(q)

end

proc append()

     if (mode = "STEP_MODE") then
        call OnOpenForm_HideField("PROPOSED_VALUE")
        call OnOpenForm_HideField("UPPER_VALUE")
        call OnOpenForm_HideField("LOWER_VALUE")
        call OpenFormTop("ptAppend";"AU_STEPHELPCHECK_E.FM";"WORK.AU_STEP_HELP_CHK";1;"?=AU_STEP_HELP_CHK","STEP_MODE",__params[5],__params[6])
     endif
end

proc modify()

     if (mode = "STEP_MODE") then
        call OnOpenForm_HideField("PROPOSED_VALUE")
        call OnOpenForm_HideField("UPPER_VALUE")
        call OnOpenForm_HideField("LOWER_VALUE")
        call OnOpenForm_DisableField("COMM")
        call OpenFormTop("ptEdit";"AU_STEPHELPCHECK_E.FM";"WORK.AU_STEP_HELP_CHK";1;"?=AU_STEP_HELP_CHK","STEP_MODE",__params[5],__params[6])
     endif
end

proc delete()

     call OpenFormTop("ptDelete";"AU_STEPHELPCHECK_E.FM";"WORK.AU_STEP_HELP_CHK";1;"?=AU_STEP_HELP_CHK")

end