start_agent_info
AgentName = "AU_EQUIPMENT_CHECK"
AgentDescr = "Equipment Check"
PR_FNAME = "AU_CHECK_AREA_E.FM"
PR_TNAME = "AU_CHECK_AREA"
end_agent_info
start_bpm_activity "Checking"
start_bpm_subactivity "Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_CHECK_AREA"
)
call OpenFormTop
("ptEdit"
,"
AU_CHECK_AREA_E.FM"
,"WORK.AU_CHECK_AREA"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Understanding and Dispaching"
start_bpm_subactivity "Equipment"
rec = __params[2]
expr = strcat
(rec
,"=AU_CHECK_AREA_EQ"
)
call OpenFormTop
("ptEdit"
,"
AU_CHECK_AREA_EQ_E.FM"
,"WORK.AU_CHECK_AREA_EQ"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Checked Area"
rec = __params[1]
expr = strcat
(rec
,"=AU_CHECK_AREA"
)
call OpenFormTop
("ptEdit"
,"
AU_CHECK_AREA_E.FM"
,"WORK.AU_CHECK_AREA"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
resp_role = LookUpId
("AU_CHECK_AREA_EQ"
,__params[2]
,"RESP_POS"
)
resp_user = LookUpId
("AU_CHECK_AREA_EQ"
,__params[2]
,"RESP_USER"
)
resp_role = val
(resp_role
)
resp_user = val
(resp_user
)
if (resp_user = 0
) and
(resp_role = 0
) then
call message
("You must define a Role or Associate!"
)
result = 0
endif
if (resp_user > 0
) and
(resp_role > 0
) then
call message
("You must define only Role or Associate!"
)
result = 0
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Repairing"
start_bpm_subactivity "Asset"
rec = __params[2]
expr = strcat
(rec
,"=AU_CHECK_AREA_EQ"
)
call OpenFormTop
("ptEdit"
,"
AU_CHECK_AREA_EQ_E.FM"
,"WORK.AU_CHECK_AREA_EQ"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Checked Area"
rec = __params[1]
expr = strcat
(rec
,"=AU_CHECK_AREA"
)
call OpenFormTop
("ptEdit"
,"
AU_CHECK_AREA_E.FM"
,"WORK.AU_CHECK_AREA"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
result = 1
ok_flag = LookUpId
("AU_CHECK_AREA_EQ"
,__params[2]
,"OK_FLAG"
)
ok_flag = val
(ok_flag
)
if (ok_flag = 0
) then
call message
("You must check the OK flag!"
)
result = 0
endif
end_bpm_validation
end_bpm_activity
start_bpm_activity "Repair Confirmation"
start_bpm_subactivity "Asset"
rec = __params[2]
expr = strcat
(rec
,"=AU_CHECK_AREA_EQ"
)
call OpenFormTop
("ptEdit"
,"
AU_CHECK_AREA_EQ_E.FM"
,"WORK.AU_CHECK_AREA_EQ"
,1
,expr
)
end_bpm_subactivity
start_bpm_subactivity "Checked Area"
rec = __params[1]
expr = strcat
(rec
,"=AU_CHECK_AREA"
)
call OpenFormTop
("ptEdit"
,"
AU_CHECK_AREA_E.FM"
,"WORK.AU_CHECK_AREA"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_action
rec_id = __params[1]
comm = LookUpId
("AU_CHECK_AREA"
,rec_id
,"CMODE"
)
topo_id = LookUpId
("AU_CHECK_AREA"
,rec_id
,"AU_TOPO"
)
tdescr = LookUpId
("AU_TOPO"
,topo_id
,"TITLE"
)
comm = strcat
(tdescr
," / "
,comm
)
call bpm_setprocedurecomment
(comm
)
call bpm_setprocedureowner
(__activation_user
)
{.......................................recording of problematic equipment}
callwait bpm_assign_job
( "Checking"
, ""
, "Workshop Floor Staff"
, 0
, rec_id
)
{.......................................get problematic equipment}
start_sql "*" "KOSMOS"
SELECT AU_GOOD.TITLE
, AU_CHECK_AREA_EQ.AU_CHECK_AREA_EQ
FROM AU_GOOD INNER
JOIN AU_CHECK_AREA_EQ
ON AU_GOOD.AU_GOOD = AU_CHECK_AREA_EQ.AU_GOOD
WHERE (AU_CHECK_AREA_EQ.AU_CHECK_AREA = :A
)
end_sql
q = QueryByName
()
call TSetParam
(q
,"A"
,rec_id
)
call TExecute
(q
)
count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to count
ids[i] = TGetFld
(q
,"AU_CHECK_AREA_EQ"
)
comments[i] = TGetFld
(q
,"TITLE"
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
split_
for i = 1
to count
call bpm_setstepcomment
(comments[i]
)
callwait bpm_assign_job
( "Understanding and Dispaching"
, ""
, "Chief of Tech Support"
, 0
, rec_id
, ids[i]
)
resp_ass[i] = LookUpId
("AU_CHECK_AREA_EQ"
,ids[i]
,"RESP_USER"
)
resp_ass[i] = LookUpId
("AU_USER"
,resp_ass[i]
,"UNAME"
)
resp_pos[i] = LookUpId
("AU_CHECK_AREA_EQ"
,ids[i]
,"RESP_POS"
)
resp_pos[i] = LookUpId
("AU_POS"
,resp_pos[i]
,"POS_D"
)
call bpm_setstepcomment
(comments[i]
)
callwait bpm_assign_job
( "Repairing"
, resp_ass[i]
, resp_pos[i]
, 0
, rec_id
, ids[i]
)
call bpm_setstepcomment
(comments[i]
)
callwait bpm_assign_job
( "Repair Confirmation"
, ""
, "Chief of Tech Support"
, 0
, rec_id
, ids[i]
)
next_branch
end_action
