start_agent_info
AgentName = "AU_BSC_EXPERT"
AgentDescr = "Balanced Scorecard"
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
user_mode = __params[1]
call trace
("here = "
,__params[1]
)
if (user_mode = "NORMAL"
) then
call trace
("here into"
)
caption = "Assosiates"
field_count = 5
letter_row_flag = True
box_margin = 10
box_width = 300
box_height = 200
caption_height = 20
field_top = 30
field_left = 5
field_height = 20
field_width = 200
start_sql "*" "KOSMOS"
SELECT AU_METRIC.UCODE
, AU_METRIC.DESCR
, AU_METRIC_PART.WEIGHT_VAL
, AU_METRIC.SYS_METRIC
,
AU_METRIC.AU_METRIC
, AU_METRIC_1.DESCR
, AU_METRIC_1.AU_METRIC
FROM (AU_METRIC INNER
JOIN AU_METRIC_PART
ON AU_METRIC.AU_METRIC = AU_METRIC_PART.AU_METRIC
)
INNER
JOIN AU_METRIC
AS AU_METRIC_1
ON AU_METRIC_PART.METRIC_PART = AU_METRIC_1.AU_METRIC
WHERE (AU_METRIC.UCODE = "AU_MAIN_BSC"
)
end_sql
q = QueryByName
()
call TExecute
(q
)
box_count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to box_count
uvalue[i] = TGetFld
(q
,"AU_USER"
)
caption[i] = TGetFld
(q
,"UNAME"
)
field1[i] = TGetFld
(q
,"UNAME"
)
field2[i] = TGetFld
(q
,"AU_USER"
)
field3[i] = TGetFld
(q
,"TEL_INT"
)
field4[i] = TGetFld
(q
,"EMAIL"
)
field5[i] = TGetFld
(q
,"MYSTATUS"
)
field6[i] = TGetFld
(q
,"DENYCALLS"
)
field7[i] = TGetFld
(q
,"DENYVISITS"
)
field8[i] = TGetFld
(q
,"DENYCHAT"
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
image_count = 3
image_top = 120
image_left = 5
image_height = 32
image_width = 32
image_name1 = "[RESOURCE]\bbclose.bmp"
image_name2 = "[RESOURCE]\bbhelp.bmp"
image_name3 = "[RESOURCE]\bbcancel.bmp"
button_top = 150
button_left = 5
button_height = 40
button_width = 40
button_count = 4
button_caption1 = "G"
button_caption2 = "L"
button_caption3 = "P"
button_caption4 = "A"
button_hint1 = "Assosiate's Picture at a glance!"
button_hint2 = "Loggin
to Assosiate's Workstation"
button_hint3 = "User's Profile"
button_hint4 = "User's Activities"
start_autoscript "button_onclick1"
user_id = __params[1]
user_name = SelectFrom
("
SELECT UNAME
FROM AU_USER
WHERE (AU_USER="
,user_id
,"
)"
)
call OpenMetrics
("AU_ATAGLANCE_EXPERT"
,user_name
)
end_autoscript
start_autoscript "button_onclick2"
user_id = __params[1]
call ChangeTerminalUser
(user_id
)
end_autoscript
start_autoscript "button_onclick3"
user_id = __params[1]
expr = strcat
(user_id
,"=AU_USER"
)
call OpenFormTop
("ptEdit"
,"
AU_USER_E01.FM"
,"WORK.AU_USER"
,1
,expr
)
end_autoscript
start_autoscript "button_onclick4"
user_id = __params[1]
user_name = SelectFrom
("
SELECT UNAME
FROM AU_USER
WHERE (AU_USER="
,user_id
,"
)"
)
call OpenFormTop
("ptBrowse"
,"
AU_BPM_JOBS1.FM"
,"QRY.DATA"
,"SHOW"
,user_name
)
end_autoscript
result = "ok"
return
endif
if (user_mode = "BIGGEST_ACTIVITY_COUNT"
) then
start_sql "*" "KOSMOS"
SELECT Count
(AU_PROCESS_STATS.FIN_U
) AS CNT
, AU_PROCESS_STATS.FIN_U
AS UNAME
,
AU_USER.AU_USER
, AU_USER.TEL_INT
, AU_USER.EMAIL
FROM AU_PROCESS_STATS INNER
JOIN AU_USER
ON AU_PROCESS_STATS.FIN_U = AU_USER.UNAME
WHERE (((AU_PROCESS_STATS.ETYPE
)='FIN_ACTIV'
))
GROUP BY AU_PROCESS_STATS.FIN_U
, AU_USER.AU_USER
, AU_USER.TEL_INT
, AU_USER.EMAIL
ORDER BY Count
(AU_PROCESS_STATS.FIN_U
) DESC
end_sql
q = QueryByName
()
call TExecute
(q
)
user_count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to user_count
field1[i] = TGetFld
(q
,"UNAME"
)
field2[i] = TGetFld
(q
,"AU_USER"
)
field3[i] = TGetFld
(q
,"TEL_INT"
)
field4[i] = TGetFld
(q
,"EMAIL"
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
result = "ok"
return
endif
end_action
