Title : Process Status
Toolbars
call BrowseEditInsert()
call BrowseEditDoVKUp(fld_id,fld_val,key)
call BrowseEditDoVKDown(fld_id,fld_val,key)
call BrowseEditDelete()
call CloseForm(True)
call CloseForm(False)
Buttons
Fields
EST_TIME (AU_PROCESS.EST_TIME)
FINAL_TIME (AU_PROCESS.FINAL_TIME)
To Finish at Date (AU_PROCESS.TO_FINISH_AT_DATE)
(AU_STEP.STEP_DESCR)
(AU_STEP.COMM)
(AU_STEP.AU_STEP)
(AU_STEP.ISTEP)
(AU_STEP.FINISHED)
ATITLE (AU_ACTION.ATITLE)
Parent Process (AU_PROCESS.PARENT_PROCESS)
Code (AU_PROCESS.PCODE)
Level (AU_PROCESS.PLEVEL)
Child Count (AU_PROCESS.CHILD_COUNT)
Parent Agent (AU_PROCESS.PARENT_AGENT_NAME)
Parent Agent ID (AU_PROCESS.PARENT_AGENT_ID)
Agent Name (AU_PROCESS.AGENT_NAME)
Agent Id (AU_PROCESS.AGENT_ID)
Started at Date (AU_PROCESS.STARTED_AT_DATE)
Started at Time (AU_PROCESS.STARTED_AT_TIME)
Finished at Date (AU_PROCESS.FINISHED_AT_DATE)
Finished at Time (AU_PROCESS.FINISHED_AT_TIME)
Assosiate Owner (AU_PROCESS.USER_OWNER)
Role Owner (AU_PROCESS.ROLE_OWNER)
Comment (AU_PROCESS.COMM)
Finished (AU_PROCESS.FINISHED)
PARENT_AGENT_ID (AU_PROCESS.PARENT_AGENT_ID)
Business Partener (AU_BUSINESS.TITLE)
Expert Flag (AU_PROCESS.EXPRET_ACTV_FLAG)
AutoScript
lib
'================================ Form_Start =================================
proc Form_Start()
admin = IsAdmin()
if (admin = 0) then
call OnOpenForm_DisableAllFields()
call OnOpenForm_EnableField("EST_TIME")
endif
end
'============================= Form_BeforeClose ===============================
fun Form_BeforeClose()
result = 1
f = TopForm()
t = PByName(f,"AU_PROCESS")
t = TByName(t,"AU_PROCESS")
time = TGetFld(t,"EST_TIME")
d1 = TGetFld(t,"STARTED_AT_DATE")
if (time > 0) then
d1 = DateToNum(d1)
d2 = d1 + time
d2 = NumToDate(d2)
call TEdit(t)
call TSetFld(t,"TO_FINISH_AT_DATE",d2)
call TPost(t)
endif
end
