lib

proc Form_Start()
     f = TopForm()

     mform = GetNewestForm()
     call CreateNestZones("TYPE=SINGLE;ORIENT=VERT;CNT=1;PAGERS1=1;HEIGHT1=50",mform)

     mode = __params[4]
     if (mode = "USER_MODE") then
        call SetCaption("Open Activities")
     else
        call SetCaption("Activities")
     endif

' filter = strcat(">=",crDate)
' call ApplyFilter("WEND",filter)

     call SetClass("grid","TStringGrid1")

     call CollapseNavBar()
end

proc Form_Prepared()

     p = PByName(f,"DATA")
  {   call StartFilter(f,p,"DDDDDDDDDDDDDDDDD")    }
end

{=============================== Form_Prepared ======================}

proc Form_Prepared()

     sch = GetControl("_SCHEDULER")
     p = PByName(f,"DATA")
     user_id = GetUserId()

     call SetScheduler(sch,"MODE=ACTIV_USER;DATA=",p,";USERID=",user_id,";VIEW=0;DAYS=31")
end

proc Panels_Start(FORM)

     mode = __params[4]

     if (mode = "USER_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_PROCESS.AGENT_NAME, AU_PROCESS.USER_OWNER,
         AU_PROCESS.AGENT_ID, AU_STEP.CU_DATE, AU_STEP.AU_MAIL, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_STEP.FINISHED_AT_DATE, AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME, AU_USER.UNAME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME,
         AU_PROCESS.PARENT_AGENT_ID, AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM ((((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D) LEFT JOIN (AU_ORGAN LEFT JOIN AU_USER
         ON AU_ORGAN.KUSER = AU_USER.AU_USER) ON AU_POS.AU_POS = AU_ORGAN.AU_POS) LEFT JOIN AU_BUSINESS
         ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS) LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT
         WHERE ((AU_STEP.UNAME = :U) OR (AU_USER.UNAME = :U))
         AND ((AU_STEP.FINISHED = 0) OR (AU_STEP.FINISHED IS NULL))
         ORDER BY AU_STEP.AU_STEP DESC
         end_sql
         q = QueryByName("DATA")
         user = GetUserName()
         call TSetParam(q;"U";user)

     elseif (mode = "AGENT_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_PROCESS.AGENT_NAME, AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID,
         AU_STEP.TOSTART_AT_DATE, AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_STEP.ASSIGNED_AT_DATE, AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_PROCESS.USER_OWNER, AU_PROCESS.AGENT_ID, AU_STEP.CU_DATE,
         AU_STEP.AU_MAIL, AU_STEP.FINISHED_AT_DATE, AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME,
         AU_PROCESS.PARENT_AGENT_ID, AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM (((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS) LEFT JOIN AU_POS
         ON AU_STEP.RNAME = AU_POS.POS_D) LEFT JOIN AU_BUSINESS
         ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS) LEFT JOIN AU_CONTACT
         ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT
         WHERE ((AU_PROCESS.AGENT_NAME=:AG) AND ((AU_STEP.FINISHED)=0))
         ORDER BY AU_STEP.ASSIGNED_AT_DATE DESC
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"AG",__params[5])

     elseif (mode = "USERPROCESS_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_PROCESS.AGENT_NAME, AU_PROCESS.USER_OWNER,
         AU_PROCESS.AGENT_ID, AU_STEP.CU_DATE, AU_STEP.AU_MAIL, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_STEP.FINISHED_AT_DATE, AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME, AU_USER.UNAME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME,
         AU_PROCESS.PARENT_AGENT_ID, AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM ((((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D) LEFT JOIN (AU_ORGAN LEFT JOIN AU_USER
         ON AU_ORGAN.KUSER = AU_USER.AU_USER) ON AU_POS.AU_POS = AU_ORGAN.AU_POS) LEFT JOIN AU_BUSINESS
         ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS) LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT
         WHERE ((((AU_USER.UNAME) Is Null) AND ((AU_STEP.UNAME)=:U) AND ((AU_STEP.FINISHED)=0))
         OR (((AU_USER.UNAME)=:U) AND ((AU_STEP.UNAME)=AU_USER.UNAME)
         AND ((AU_STEP.FINISHED)=0)) OR (((AU_USER.UNAME)=:U)
         AND ((AU_STEP.UNAME) Is Null Or (AU_STEP.UNAME)='') AND ((AU_STEP.FINISHED)=0)))
         AND (AU_STEP.AU_PROCESS = :P)
         end_sql
         q = QueryByName("DATA")
         user = GetUserName()
         call TSetParam(q;"U";user)
         call TSetParam(q;"P";__params[5])

     elseif (mode = "BUSINESS_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT DISTINCT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_PROCESS.AGENT_NAME, AU_PROCESS.USER_OWNER,
         AU_PROCESS.AGENT_ID, AU_STEP.CU_DATE, AU_STEP.AU_MAIL, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_STEP.FINISHED_AT_DATE, AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME,
         AU_PROCESS.PARENT_AGENT_ID, AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM ((((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D) LEFT JOIN (AU_ORGAN LEFT JOIN AU_USER
         ON AU_ORGAN.KUSER = AU_USER.AU_USER) ON AU_POS.AU_POS = AU_ORGAN.AU_POS) LEFT JOIN AU_BUSINESS
         ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS) LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT
         WHERE (AU_STEP.AU_BUSINESS = :B)
         ORDER BY AU_STEP.ASSIGNED_AT_DATE DESC
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"B",__params[5])

     elseif (mode = "GOOD_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_PROCESS.AGENT_NAME, AU_PROCESS.USER_OWNER,
         AU_PROCESS.AGENT_ID, AU_STEP.CU_DATE, AU_STEP.AU_MAIL, AU_STEP.FINISHED_AT_DATE, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME, AU_USER.UNAME, AU_STEP.UNAME AS STEP_UNAME,
         AU_STEP.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME, AU_PROCESS.PARENT_AGENT_ID,
         AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_CONTACT.DISP_NAME, AU_BUSINESS.TITLE
         FROM ((((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D) LEFT JOIN (AU_ORGAN
         LEFT JOIN AU_USER ON AU_ORGAN.KUSER = AU_USER.AU_USER) ON AU_POS.AU_POS = AU_ORGAN.AU_POS)
         LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT)
         LEFT JOIN AU_BUSINESS ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
         WHERE (AU_STEP.AU_GOOD = :G)
         ORDER BY AU_STEP.ASSIGNED_AT_DATE DESC
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"G",__params[5])

     elseif (mode = "CONTACT_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_PROCESS.AGENT_NAME, AU_PROCESS.USER_OWNER,
         AU_PROCESS.AGENT_ID, AU_STEP.CU_DATE, AU_STEP.AU_MAIL, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_STEP.FINISHED_AT_DATE, AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME, AU_USER.UNAME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME,
         AU_PROCESS.PARENT_AGENT_ID, AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM ((((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D) LEFT JOIN (AU_ORGAN LEFT JOIN AU_USER
         ON AU_ORGAN.KUSER = AU_USER.AU_USER) ON AU_POS.AU_POS = AU_ORGAN.AU_POS) LEFT JOIN AU_BUSINESS
         ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS) LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT
         WHERE (AU_STEP.AU_CONTACT = :C)
         ORDER BY AU_STEP.ASSIGNED_AT_DATE DESC
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"C",__params[5])

     elseif (mode = "CONTACT_PROCESS_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG, AU_STEP.CU_DATE,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_PROCESS.AGENT_NAME, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_PROCESS.USER_OWNER, AU_PROCESS.AGENT_ID, AU_STEP.AU_MAIL,
         AU_STEP.FINISHED_AT_DATE, AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME, AU_USER.UNAME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM, AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME,
         AU_PROCESS.PARENT_AGENT_ID, AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM ((((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D) LEFT JOIN (AU_ORGAN LEFT JOIN AU_USER
         ON AU_ORGAN.KUSER = AU_USER.AU_USER) ON AU_POS.AU_POS = AU_ORGAN.AU_POS) LEFT JOIN AU_BUSINESS
         ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS) LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT
         WHERE ((((AU_USER.UNAME) Is Null) AND ((AU_STEP.UNAME)=:U) AND ((AU_STEP.FINISHED)=0))
         OR (((AU_USER.UNAME)=:U) AND ((AU_STEP.UNAME)=AU_USER.UNAME)
         AND ((AU_STEP.FINISHED)=0)) OR (((AU_USER.UNAME)=:U)
         AND ((AU_STEP.UNAME) Is Null Or (AU_STEP.UNAME)='')
         AND ((AU_STEP.FINISHED)=0)))
         AND (AU_STEP.AU_CONTACT > 0) AND (AU_STEP.AU_PROCESS = :P)
         ORDER BY AU_STEP.ASSIGNED_AT_DATE DESC
         end_sql
         q = QueryByName("DATA")
         user = GetUserName()
         call TSetParam(q,"U",user)
         call TSetParam(q,"P",__params[5])

     elseif (mode = "ROLE_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_STEP.AU_MAIL, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_PROCESS.AGENT_NAME, AU_PROCESS.USER_OWNER, AU_PROCESS.AGENT_ID, AU_STEP.FINISHED_AT_DATE, AU_STEP.CU_DATE,
         AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM,
         AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME, AU_PROCESS.PARENT_AGENT_ID,
         AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM (((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_BUSINESS ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS)
         LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D
         WHERE (AU_POS.AU_POS=:R)
         ORDER BY AU_STEP.ASSIGNED_AT_DATE DESC
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"R",__params[5])

     elseif (mode = "ALL_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_STEP.STEP_DESCR, AU_STEP.STEP_CODE, AU_STEP.AU_STEP, AU_STEP.STEP_ID, AU_STEP.TOSTART_AT_DATE,
         AU_STEP.TOSTART_AT_TIME, AU_STEP.TO_FINISH_AT_DATE, AU_STEP.BRANCH_ID, AU_STEP.ASSIGNED_AT_DATE,
         AU_STEP.ASSIGNED_AT_TIME, AU_STEP.STEP_INFO, AU_STEP.PRIORITY, AU_STEP.CONTACT_ANSW_FLAG,
         AU_STEP.AU_CONTACT, AU_STEP.AU_BUSINESS, AU_STEP.AU_MAIL, AU_PROCESS.EXPRET_ACTV_FLAG,
         AU_PROCESS.AGENT_NAME, AU_PROCESS.USER_OWNER, AU_PROCESS.AGENT_ID, AU_STEP.FINISHED_AT_DATE, AU_STEP.CU_DATE,
         AU_STEP.FIRST_VIEWED_AT_DATE, AU_STEP.FINISHED_AT_TIME,
         AU_STEP.UNAME AS STEP_UNAME, AU_STEP.COMM,
         AU_STEP.FINISHED, AU_STEP.AU_PROCESS, AU_STEP.RNAME, AU_PROCESS.PARENT_AGENT_ID,
         AU_STEP.ACTIVITY, AU_STEP.AU_CHAT, AU_BUSINESS.TITLE, AU_CONTACT.DISP_NAME
         FROM ((AU_STEP LEFT JOIN AU_PROCESS ON AU_STEP.AU_PROCESS = AU_PROCESS.AU_PROCESS)
         LEFT JOIN AU_BUSINESS ON AU_STEP.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS)
         LEFT JOIN AU_CONTACT ON AU_STEP.AU_CONTACT = AU_CONTACT.AU_CONTACT
         ORDER BY AU_STEP.ASSIGNED_AT_DATE DESC;
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"R",__params[5])

     endif

     call TPrepare(q)
end

{===================================== Form_DrawCell =====================================}

proc Form_DrawCell1111 ( grid, fname, fval, q )

     viewed = TGetFld(q,"FIRST_VIEWED_AT_DATE")
     process = TGetFld(q,"AU_PROCESS")
     step_code = TGetFld(q,"STEP_CODE")
     cont_ans = TGetFld(q,"CONTACT_ANSW_FLAG")
     cont_id = TGetFld(q,"AU_CONTACT")

     if (viewed = "") then
       grid.Canvas.Font.Style = "[fsBold]"
        grid.Canvas.Font.Color = "clBlack"
     endif
     if (process = "") then
        grid.Canvas.Font.Color = "clRed"
        if (step_code = "_CHAT") then
         grid.Canvas.Font.Color = "clGreen"
        endif
     endif
     if (cont_id > 0) and (cont_ans = 0) then
        grid.Canvas.Font.Color = "clGreen"
     endif
     if (cont_id > 0) and (cont_ans = 1) then
        grid.Canvas.Font.Color = "clRed"
     endif
end

 {===================================== Form_DrawCell =====================================}

proc Form_DrawCell ( grid, fname, fval, q )

     viewed = TGetFld(q,"FIRST_VIEWED_AT_DATE")
     process = TGetFld(q,"AU_PROCESS")
     step_code = TGetFld(q,"STEP_CODE")
     cont_ans = TGetFld(q,"CONTACT_ANSW_FLAG")
     cont_id = TGetFld(q,"AU_CONTACT")

     __cssStyle = "" {global variable must nil else it concatenates the strings}

     if (clientType = "web") then
        if (viewed = "") then
         __cssStyle = "font-weight:bold;"
        endif
     endif

     if (clientType = "exe") then
         if (viewed = "") then
         grid.Canvas.Font.Style = "[fsBold]"
         grid.Canvas.Font.Color = "clBlack"
         endif
         if (process = "") then
         grid.Canvas.Font.Color = "clRed"
         if (step_code = "_CHAT") then
         grid.Canvas.Font.Color = "clGreen"
         endif
         endif
         if (cont_id > 0) and (cont_ans = 0) then
         grid.Canvas.Font.Color = "clGreen"
         endif
         if (cont_id > 0) and (cont_ans = 1) then
         grid.Canvas.Font.Color = "clRed"
         endif
     endif
end

{======================================= Lst_DblClick ===============================}

proc Lst_DblClick()

     step_id = TGetFld(q,"AU_STEP")
     step_code = TGetFld(q,"STEP_CODE")
     if (step_id > 0) then
        call OnOpenForm_NestPager("ZONE_FIRSTEMTPY",mform)
        call OpenBPMStep("assignee",step_id,step_code)
     endif
end

proc grid_DISP_NAME_DblClick()

     cont_id = TGetFld(q,"AU_CONTACT")
     if (cont_id > ) then
        expr = strcat(cont_id,"=AU_CONTACT")
        call OpenFormTop("ptEdit","AU_CONTACT_E.FM","WORK.AU_CONTACT",1,expr)
     endif

end

proc grid_TITLE_DblClick()

     bus_id = TGetFld(q,"AU_BUSINESS")
     if (bus_id > 0) then
        expr = strcat(bus_id,"=AU_BUSINESS")
        call OpenFormTop("ptEdit","AU_BUSINESS_E.FM","WORK.AU_BUSINESS",1,expr)
     endif

end
proc grid_PRIORITY_DblClick()

     priority = TGetFld(q,"PRIORITY")
     if (priority = 39) then
        mail_id = TGetFld(q,"AU_MAIL")
        call OpenNewMailForm("","","",1,"",mail_id)
     endif
     if (priority = 19) or (priority = 40) or (priority = 35) or (priority = 20) or (priority = 41) then
        mail_id = TGetFld(q,"AU_MAIL")
        call OpenMailFormCenter(mail_id)
     endif

end

proc grid_STEP_INFO_DblClick()

     step_id = TGetFld(q,"AU_STEP")
     call OpenSchedActivities(step_id)
return
     priority = TGetFld(q,"PRIORITY")
     if (priority = 39) then
        mail_id = TGetFld(q,"AU_MAIL")
        call OpenNewMailForm("","","",1,"",mail_id)
     endif
     if (priority = 19) or (priority = 40) or (priority = 35) or (priority = 20) or (priority = 41) then
        mail_id = TGetFld(q,"AU_MAIL")
        call OpenMailFormCenter(mail_id)
     endif

end

{======================================= historiko =======================================}

proc historiko()

     process = TGetFld(q,"AU_PROCESS")
     call OpenFormTop("ptBrowse";"AU_PROOD.FM";"QRY.DATA",process)

end

{===================================== status ============================================}

proc status()

     process = TGetFld(q,"AU_PROCESS")
     call OpenFormTop("ptBrowse";"AU_PROC_CLIST1.FM";"QRY.DATA",process)

end

{==================================== Sched_ViewApplForms ====================================}

proc Sched_ViewApplForms ( sched_id )

     step_id = SelectFrom("SELECT AU_STEP FROM AU_STEP_SCHED WHERE (AU_STEP_SCHED=",sched_id,")")
     step_code = SelectFrom("SELECT STEP_CODE FROM AU_STEP WHERE (AU_STEP=",step_id,")")
     call OpenBPMStep("assignee",step_id,step_code)

end

{==================================== Sched_AfterFinishActivity ====================================}

proc Sched_AfterFinishActivity ( step_id, sched_id, quant1, date0 )

     step_code = SelectFrom("SELECT STEP_CODE FROM AU_STEP WHERE (AU_STEP=",step_id,")")
     call OpenBPMStep("assignee",step_id,step_code)

end