lib

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
         SELECT AU_PROC_CLIST_LST.*, AU_USER.UNAME
         FROM AU_PROC_CLIST_LST LEFT JOIN AU_USER ON AU_PROC_CLIST_LST.CUSER = AU_USER.AU_USER
         WHERE (AU_PROC_CLIST_LST.AU_PROC_CLIST = :A)
     end_sql
     q = QueryByName("DATA")
     if (__params[4] > 0) then
        process_id = __params[4]
        agent_id = LookUpId("AU_PROCESS",process_id,"AGENT_ID")
        sql = strcat("SELECT AU_PROC_CLIST FROM AU_PROC_CLIST WHERE (AGID = '",agent_id,"')")
        val = SelectFrom(sql)
     else
        val = getfprevfield("AU_PROC_CLIST")
        if (val = "") then         {..............called from Status}
         step_id = getfprevfield("AU_STEP")
         process_id = LookUpId("AU_STEP",step_id,"AU_PROCESS")
         agent_id = LookUpId("AU_PROCESS",process_id,"AGENT_ID")
         sql = strcat("SELECT AU_PROC_CLIST FROM AU_PROC_CLIST WHERE (AGID = '",agent_id,"')")
         val = SelectFrom(sql)
        endif
     endif
     call TSetParam(q,"A",val)
     call TPrepare(q)

end

proc Form_Start()

     call SetCaption("Procedure Check Sheet")

   is_admin = IsAdmin()
   if (is_admin = 0) then
      OnOpenForm_HideControl("PROC_EDIT_BTN")
   endif

end

proc edit()

     call OpenFormTop("ptEdit","AU_PROC_CLIST_LST_E.FM","WORK.AU_PROC_CLIST_LST",1,"?=AU_PROC_CLIST_LST")

end