lib

proc Form_Start()

     call SetCaption("Contact Data Collectors")

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_CONTACT.DISP_NAME
         FROM AU_CONTACT INNER JOIN (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)
         ON AU_CONTACT.AU_CONTACT = AU_DATACOLLECT.AU_CONTACT
        end_sql
        q = QueryByName("DATA")
     endif
     if (mode = "PROCESS_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_CONTACT.DISP_NAME
         FROM AU_CONTACT INNER JOIN (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)
         ON AU_CONTACT.AU_CONTACT = AU_DATACOLLECT.AU_CONTACT
         WHERE (AU_DATACOLLECT.AU_PROCESS = :P)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"P",__params[5])
     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