lib

proc Form_Start()

     call SetCaption("Data Collector")

end

proc Lst_DblClick()

     command = TGetFld(q,"OPN_COMMAND")

     if (command <> "") then
        id = TGetFld(q,"AU_DATACOLLECT")
        call OnOpenForm_DisableAllFields()
        call OnOpenForm_DataCollect(id)
        call Exec(command)
     endif

end

proc Panels_Start()

     mode = __params[4]

     if (mode = "ALL_MODE") then
        start_sql "DATA" "KOSMOS"
         SELECT AU_USER.UNAME, AU_DATACOLLECT.AU_DATACOLLECT, AU_DATACOLLECT.SUBJECT, AU_DATACOLLECT_ITM.OPN_COMMAND,
         AU_DATACOLLECT_ITM.FLD_PROMPT, AU_DATACOLLECT_ITM.FLD_NAME, AU_DATACOLLECT_ITM.FLD_VALUE,
         AU_DATACOLLECT_ITM.REC_NAME, AU_DATACOLLECT_ITM.REC_ID, AU_DATACOLLECT_ITM.DONE_FLAG,
         AU_DATACOLLECT_ITM.CDATE
         FROM AU_DATACOLLECT_ITM INNER JOIN (AU_DATACOLLECT LEFT
         JOIN AU_USER ON AU_DATACOLLECT.REQUESTER = AU_USER.AU_USER)
         ON AU_DATACOLLECT_ITM.AU_DATACOLLECT = AU_DATACOLLECT.AU_DATACOLLECT
        end_sql
        q = QueryByName("DATA")
     endif
     if (mode = "COLLECT_MODE") then
        rec_id = __params[5]
        uname = __params[6]
        rname = __params[7]
        if (uname <> "") then
         start_sql "DATA" "KOSMOS"
         SELECT AU_USER.UNAME, AU_DATACOLLECT.AU_DATACOLLECT, AU_DATACOLLECT.SUBJECT, AU_DATACOLLECT_ITM.OPN_COMMAND,
         AU_DATACOLLECT_ITM.FLD_PROMPT, AU_DATACOLLECT_ITM.FLD_NAME, AU_DATACOLLECT_ITM.FLD_VALUE,
         AU_DATACOLLECT_ITM.REC_NAME, AU_DATACOLLECT_ITM.REC_ID, AU_DATACOLLECT_ITM.DONE_FLAG,
         AU_DATACOLLECT_ITM.CDATE
         FROM AU_DATACOLLECT_ITM INNER JOIN (AU_DATACOLLECT LEFT
         JOIN AU_USER ON AU_DATACOLLECT.REQUESTER = AU_USER.AU_USER)
         ON AU_DATACOLLECT_ITM.AU_DATACOLLECT = AU_DATACOLLECT.AU_DATACOLLECT
         WHERE (AU_DATACOLLECT_ITM.AU_USER = :U)
         AND (AU_DATACOLLECT.AU_DATACOLLECT = :D)
         end_sql
         q = QueryByName("DATA")
         user_id = SelectFrom("SELECT AU_USER FROM AU_USER WHERE (UNAME='",uname,"')")
         call TSetParam(q,"U",user_id)
         call TSetParam(q,"D",rec_id)
        endif
        if (rname <> "") then
         start_sql "DATA" "KOSMOS"
         SELECT AU_USER.UNAME, AU_DATACOLLECT.AU_DATACOLLECT, AU_DATACOLLECT.SUBJECT, AU_DATACOLLECT_ITM.OPN_COMMAND,
         AU_DATACOLLECT_ITM.FLD_PROMPT, AU_DATACOLLECT_ITM.FLD_NAME, AU_DATACOLLECT_ITM.FLD_VALUE,
         AU_DATACOLLECT_ITM.REC_NAME, AU_DATACOLLECT_ITM.REC_ID, AU_DATACOLLECT_ITM.DONE_FLAG,
         AU_DATACOLLECT_ITM.CDATE
         FROM AU_DATACOLLECT_ITM INNER JOIN (AU_DATACOLLECT LEFT
         JOIN AU_USER ON AU_DATACOLLECT.REQUESTER = AU_USER.AU_USER)
         ON AU_DATACOLLECT_ITM.AU_DATACOLLECT = AU_DATACOLLECT.AU_DATACOLLECT
         WHERE (AU_DATACOLLECT_ITM.AU_POS = :R)
         AND (AU_DATACOLLECT.AU_DATACOLLECT = :D)
         end_sql
         q = QueryByName("DATA")
         pos_id = SelectFrom("SELECT AU_POS FROM AU_POS WHERE (POS_D='",rname,"')")
         call TSetParam(q,"R",pos_id)
         call TSetParam(q,"D",rec_id)
        endif
     endif
     if (mode = "INSPECT_MODE") then
        rec_id = __params[5]
        start_sql "DATA" "KOSMOS"
         SELECT AU_USER.UNAME, AU_DATACOLLECT.AU_DATACOLLECT, AU_DATACOLLECT.SUBJECT, AU_DATACOLLECT_ITM.OPN_COMMAND,
         AU_DATACOLLECT_ITM.FLD_PROMPT, AU_DATACOLLECT_ITM.FLD_NAME, AU_DATACOLLECT_ITM.FLD_VALUE,
         AU_DATACOLLECT_ITM.REC_NAME, AU_DATACOLLECT_ITM.REC_ID, AU_DATACOLLECT_ITM.DONE_FLAG,
         AU_DATACOLLECT_ITM.CDATE
         FROM AU_DATACOLLECT_ITM INNER JOIN (AU_DATACOLLECT LEFT
         JOIN AU_USER ON AU_DATACOLLECT.REQUESTER = AU_USER.AU_USER)
         ON AU_DATACOLLECT_ITM.AU_DATACOLLECT = AU_DATACOLLECT.AU_DATACOLLECT
         WHERE (AU_DATACOLLECT.AU_DATACOLLECT = :D)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"D",rec_id)
     endif

     call TPrepare(q)

end

proc collector()

    id = TGetFld(q,"AU_DATACOLLECT")
    expr = strcat(id,"=AU_DATACOLLECT")
    call OpenForm("ptEdit","AU_DATACOLLECT_E.FM","WORK.AU_DATACOLLECT",1,expr)

end