AutoScript
start_agent_info
AgentName = "AU_AEDASHBOARD_EXPERT"
AgentDescr = "AU_AEDASHBOARD_EXPERT"
AgentLanguage = ""
__timer_interval = 0 {....define (in seconds) the timer interval for the wake up}
__delete_on_termination = 0 {....1=the agent frees itself when terminates its task}
end_agent_info
start_action
function = __params[1]
shift_day_id = __params[2]
{........................................SUMMARY..................................}
if (function = "SUMMARY") then
window_caption = "Activities Executor Dashboard"
id = 0
{--------------------------------- total human hours ----------------------------}
id = id + 1
lab_caption[id] = "Total Human Hours"
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS FTIME_SUM
FROM AU_RESOURCE_LOG
WHERE (AU_RESOURCE_LOG.AU_POS_SHIFT_DAY = :S)
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
val_caption[id] = TGetFld(q,"FTIME_SUM")
val_caption[id] = format("%8.1f",val_caption[id])
call FreeEmbSQL(q)
expand_collapse[id] = True
expanded[id] = False
expand_height[id] = 500
agent_function[id] = "GET_HUMMAN_HOURS_SUM"
expand_to_window[id]= False
{--------------------------------- total human hours in products --------------------------}
id = id + 1
lab_caption[id] = "Total Human Hours in Products"
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS FTIME_SUM
FROM AU_RESOURCE_LOG
WHERE (AU_RESOURCE_LOG.AU_POS_SHIFT_DAY = :S)
AND (AU_RESOURCE_LOG.AU_STEP > 0)
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
val_caption[id] = TGetFld(q,"FTIME_SUM")
val_caption[id] = format("%8.1f",val_caption[id])
call FreeEmbSQL(q)
expand_collapse[id] = True
expanded[id] = False
expand_height[id] = 500
agent_function[id] = "GET_HUMMAN_HOURS_STEP_SUM"
expand_to_window[id]= False
{--------------------------------- Total Human Hours in Operation Interruption --------------------------}
id = id + 1
lab_caption[id] = "Total Human Hours in Operation Interruption"
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS FTIME_SUM
FROM AU_RESOURCE_LOG
WHERE (AU_RESOURCE_LOG.AU_POS_SHIFT_DAY = :S)
AND (AU_RESOURCE_LOG.AU_STEP > 0)
AND (AU_RESOURCE_LOG.STAT = 'ON_INTERRUPT')
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
val_caption[id] = TGetFld(q,"FTIME_SUM")
val_caption[id] = format("%8.1f",val_caption[id])
call FreeEmbSQL(q)
expand_collapse[id] = True
expanded[id] = False
expand_height[id] = 200
agent_function[id] = "GET_HUMMAN_HOURS_STEP_INTERRUPT_SUM"
expand_to_window[id]= False
{--------------------------------- Total Human Hours in various Workings (not Products) --------------------------}
id = id + 1
lab_caption[id] = "Total Human Hours in various Workings (not Products)"
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS FTIME_SUM
FROM AU_RESOURCE_LOG
WHERE (AU_RESOURCE_LOG.AU_POS_SHIFT_DAY = :S)
AND (AU_RESOURCE_LOG.AU_STEP IS NULL)
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
val_caption[id] = TGetFld(q,"FTIME_SUM")
val_caption[id] = format("%8.1f",val_caption[id])
call FreeEmbSQL(q)
expand_collapse[id] = True
expanded[id] = False
expand_height[id] = 500
agent_function[id] = "GET_HUMMAN_HOURS_NO_STEP_SUM"
expand_to_window[id]= False
lab_count = id
return
endif
{.......................................GET_HUMMAN_HOURS_NO_STEP_SUM..........................}
if (function = "GET_HUMMAN_HOURS_NO_STEP_SUM") then
pie_series = True
title = "Human Hours in various Workings (not Products)"
draw_type = "CHART"
y_count = 1
show_legend = True
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS SUM1, AU_RESOURCE_GROUP.GTITLE AS TIT
FROM AU_RESOURCE_LOG INNER JOIN AU_RESOURCE_GROUP
ON AU_RESOURCE_LOG.AU_RESOURCE_GROUP = AU_RESOURCE_GROUP.AU_RESOURCE_GROUP
WHERE (((AU_RESOURCE_LOG.AU_POS_SHIFT_DAY)=:S)) AND (AU_RESOURCE_LOG.AU_STEP IS NULL)
GROUP BY AU_RESOURCE_GROUP.GTITLE
HAVING (((Sum(AU_RESOURCE_LOG.FTIME))>0))
UNION ALL
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS SUM1, AU_POS_RGROUP_SPEC.SDESCR + "/" + AU_RESOURCE_LOG.SPEC_JOB AS TIT
FROM AU_RESOURCE_LOG INNER JOIN AU_POS_RGROUP_SPEC
ON AU_RESOURCE_LOG.AU_POS_RGROUP_SPEC = AU_POS_RGROUP_SPEC.AU_POS_RGROUP_SPEC
WHERE (((AU_RESOURCE_LOG.AU_POS_SHIFT_DAY)=:S))
GROUP BY AU_POS_RGROUP_SPEC.SDESCR, AU_POS_RGROUP_SPEC.SDESCR + "/" + AU_RESOURCE_LOG.SPEC_JOB
HAVING (((Sum(AU_RESOURCE_LOG.FTIME))>0))
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
count = TRecordCount(q)
call TLast(q)
for i = 1 to count
x[i] = TGetFld(q,"TIT")
y1[i] = TGetFld(q,"SUM1")
call TPrior(q)
next
call FreeEmbSQL(q)
return
endif
{.......................................GET_HUMMAN_HOURS_SUM..........................}
if (function = "GET_HUMMAN_HOURS_SUM") then
pie_series = True
title = "Human Hours per Position/Activity"
draw_type = "CHART"
y_count = 1
show_legend = True
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS SUM1, AU_RESOURCE_GROUP.GTITLE AS TIT
FROM AU_RESOURCE_LOG INNER JOIN AU_RESOURCE_GROUP
ON AU_RESOURCE_LOG.AU_RESOURCE_GROUP = AU_RESOURCE_GROUP.AU_RESOURCE_GROUP
WHERE (((AU_RESOURCE_LOG.AU_POS_SHIFT_DAY)=:S))
GROUP BY AU_RESOURCE_GROUP.GTITLE
HAVING (((Sum(AU_RESOURCE_LOG.FTIME))>0))
UNION ALL
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS SUM1, AU_POS_RGROUP_SPEC.SDESCR AS TIT
FROM AU_RESOURCE_LOG INNER JOIN AU_POS_RGROUP_SPEC
ON AU_RESOURCE_LOG.AU_POS_RGROUP_SPEC = AU_POS_RGROUP_SPEC.AU_POS_RGROUP_SPEC
WHERE (((AU_RESOURCE_LOG.AU_POS_SHIFT_DAY)=:S))
GROUP BY AU_POS_RGROUP_SPEC.SDESCR
HAVING (((Sum(AU_RESOURCE_LOG.FTIME))>0))
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
count = TRecordCount(q)
call TLast(q)
for i = 1 to count
x[i] = TGetFld(q,"TIT")
y1[i] = TGetFld(q,"SUM1")
call TPrior(q)
next
call FreeEmbSQL(q)
return
endif
{.......................................GET_HUMMAN_HOURS_STEP_SUM..........................}
if (function = "GET_HUMMAN_HOURS_STEP_SUM") then
pie_series = True
title = "Total Human Hours in Products"
draw_type = "CHART"
y_count = 1
show_legend = False
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS SUM1, AU_STEP.COMM
FROM AU_RESOURCE_LOG INNER JOIN AU_STEP ON AU_RESOURCE_LOG.AU_STEP = AU_STEP.AU_STEP
WHERE (AU_RESOURCE_LOG.AU_POS_SHIFT_DAY = :S)
GROUP BY AU_STEP.COMM
ORDER BY AU_STEP.COMM
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
count = TRecordCount(q)
call TLast(q)
for i = 1 to count
x[i] = TGetFld(q,"COMM")
y1[i] = TGetFld(q,"SUM1")
call TPrior(q)
next
call FreeEmbSQL(q)
return
endif
{.......................................GET_HUMMAN_HOURS_STEP_SUM..........................}
if (function = "GET_HUMMAN_HOURS_STEP_SUM1111") then
hbar_series = True
title = "Total Human Hours in Products"
draw_type = "CHART"
y_count = 1
show_legend = False
start_sql "*" "KOSMOS"
SELECT Sum(AU_RESOURCE_LOG.FTIME) AS SUM1, AU_STEP.COMM
FROM AU_RESOURCE_LOG INNER JOIN AU_STEP ON AU_RESOURCE_LOG.AU_STEP = AU_STEP.AU_STEP
WHERE (AU_RESOURCE_LOG.AU_POS_SHIFT_DAY = :S)
GROUP BY AU_STEP.COMM
ORDER BY AU_STEP.COMM
end_sql
q = QueryByName()
call TSetParam(q,"S",shift_day_id)
call TExecute(q)
msg = error_message(q)
count = TRecordCount(q)
call TLast(q)
for i = 1 to count
x[i] = TGetFld(q,"COMM")
y1[i] = TGetFld(q,"SUM1")
call TPrior(q)
next
call FreeEmbSQL(q)
return
endif
end_action
