start_agent_info
AgentName = "AU_ACCCYCLE_COORDINATOR"
AgentDescr = "Account Cycle"
PR_FNAME = "AU_ACCCYCLE_E.FM"
PR_TNAME = "AU_ACCOUNT_CYCLE"
AgentLanguage = ""
__timer_interval = {....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_bpm_activity "First Task Name"
start_bpm_subactivity "Subactivity Name To Change"
{.....a sample snipet of code is the following
(CHANGE IT!
)}
{.....you can add as many
(start_bpm_activity...
end_bpm_subactivity
) sections you want}
rec = __params[1] {...usualy the rec_id passed
to bpm_assign_job}
expr = strcat
(rec
,"=SOME_UNIQUE_FIELD_NAME"
)
call OpenFormTop
("ptEdit"
,"
THE_FORM_NAME_FOR_EDITING.FM"
,"WORK.THE_TABLE_NAME"
,1
,expr
)
end_bpm_subactivity
start_bpm_validation
{.....you can ommit this section
if result is always
(1
) i.e. valid!}
result = 1
end_bpm_validation
end_bpm_activity
start_bpm_activity "New Account Cycle"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Recording in the Journals"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Posting
to the Ledger"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Unadjusted Trial Balance"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Adjusting Entries"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Adjusted Trial Balance"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Financial Statements"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Closing Entries"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_bpm_activity "Post-Closing Trial Balance"
start_bpm_subactivity "Process Form"
rec = __params[1]
expr = strcat
(rec
,"=AU_ACCOUNT_CYCLE"
)
call OpenFormTop
("ptEdit"
,"
AU_ACCCYCLE_E.FM"
,"WORK.AU_ACCOUNT_CYCLE"
,1
,expr
)
end_bpm_subactivity
end_bpm_activity
start_action
rec_id = __params[1]
comm = LookUpId
("AU_ACCOUNT_CYCLE"
,rec_id
,"SUBJECT"
)
call bpm_setprocedurecomment
(comm
) {.....set the procedures comment}
call bpm_setprocedureowner
(__activation_user
) {.....set the procedure owner}
call bpm_openatonce
()
callwait bpm_assign_job
( "New Account Cycle"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Recording in the Journals"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Posting
to the Ledger"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Unadjusted Trial Balance"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Adjusting Entries"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Adjusted Trial Balance"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Financial Statements"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Closing Entries"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
callwait bpm_assign_job
( "Post-Closing Trial Balance"
, __activation_user
, "BOOKKEEPER"
, 0
, rec_id
)
end_action
