start_agent_info
AgentName = "AU_EQUIPMENT_CHECK_PLANNER"
AgentDescr = "Equipment Check Planner"
end_agent_info
start_bpm_activity "Mail Attachements Characterization"
start_bpm_subactivity "Mail Attachment"
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Mail Attachments Characterization"
start_bpm_subactivity "Mail Attachments"
mail = __params[1]
date = __params[2]
call OpenFormTop
("ptBrowse"
,"
AU_DOCREL2_B.FM"
,"QRY.DATA"
,"ACTIVITY_MODE"
,mail
,date
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Bounced Mail Manipulation"
start_bpm_subactivity "Bounced Mail"
mail = __params[1]
date = __params[2]
call OpenFormTop
("ptBrowse"
,"
AU_MAIL_BOUNCED_B.FM"
,"QRY.DATA"
,"ACTIVITY_MODE"
,mail
,date
)
end_bpm_subactivity
end_bpm_activity
start_action
call trace
("AU_EQUIPMENT_CHECK_PLANNER planner agent - out - _TraversingHour="
,_TraversingHour
)
call trace
("_CurrentDate_Num="
,_CurrentDate_Num
," fired_date="
,fired_date
)
{........................................................PROCESS STARTING FOR EQUIPMENT INSPECTION}
when ( _TraversingHour = 6
) and
((_CurrentDate_Num > fired_date
) or
(fired_date = 0
)) do
start_sql "*" "KOSMOS"
SELECT AU_TOPO.AU_TOPO
, AU_TOPO.TITLE
, Count
(AU_GOOD.AU_GOOD
) AS CNT
FROM AU_TOPO INNER
JOIN AU_GOOD
ON AU_TOPO.AU_TOPO = AU_GOOD.AU_TOPO
GROUP BY AU_TOPO.AU_TOPO
, AU_TOPO.TITLE
end_sql
q = QueryByName
()
call TExecute
(q
)
count = TRecordCount
(q
)
call TFirst
(q
)
for i = 1
to count
topo_id = TGetFld
(q
,"AU_TOPO"
)
start_sql "*" "KOSMOS"
INSERT INTO AU_CHECK_AREA
end_sql
q1 = QueryByName
()
call TSetFld
(q1
,"AU_TOPO"
,"Float"
,topo_id
)
call TSetFld
(q1
,"CMODE"
,"String"
,"EQUIPMENT STATUS"
)
call TExecute
(q1
)
call FreeEmbSQL
(q1
)
id = SelectIdentity
()
call bpm_startcoordinator
( "AU_EQUIPMENT_CHECK"
, id
)
call TNext
(q
)
next
call FreeEmbSQL
(q
)
endwhen
end_action
