lib

{=============================== Form_Start =================================}

proc Form_Start()

     mform = GetNewestForm()
     call SetCaption("Sent Items")
     call CollapseNavBar()

     call SetClass("grid","TStringGrid1")

     crdat = DateToNum(crDate)
     crdat = crdat - 1
     crdat = NumToDate(crdat)
     if (DBModel = "MSACCESS") then
        filter = strcat("(AU_MAIL.MDATE >= CDATE('",crdat,"'))")
     elseif (DBModel = "MSSQLSERVER") then
        filter = strcat("(AU_MAIL.MDATE >= ",crdat,")")
     endif

     call BrowseFilter(filter)

     call SetEditableFields(mform, "BOUNCED_FLAG")
end

{=============================== Panels_Start =================================}

proc Panels_Start()

     mode = __params[4]
     if (mode = "") then
        mode = "ALL_MODE"
     endif

     if (mode = "USER_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_ORGAN.KUSER, AU_MAIL.AU_USER, AU_MAIL.MDATE, AU_MAIL.READ_FLAG, AU_MAIL.IN_FLAG,
         AU_MAIL.OUT_FLAG, AU_MAIL.SUBJECT, AU_MAIL.MAIL_FROM, AU_BUSINESS.TITLE, AU_MAIL.AU_DOC,
         AU_MAIL.AU_MAIL_POP3_MBOX, AU_MAIL.MTIME, AU_MAIL.ATT_FLAG, AU_MAIL.SENDER_FLAG,
         AU_CONTACT.DISP_NAME, AU_USER.UNAME, AU_MAIL.MSGID, AU_MAIL.AU_MAIL, AU_MAILADDRESS.MADDRESS,
         AU_MAIL.BOUNCED_FLAG
         FROM (((((AU_MAIL LEFT JOIN AU_ORGAN ON AU_MAIL.AU_POS = AU_ORGAN.AU_POS)
         LEFT JOIN AU_USER ON AU_MAIL.AU_USER = AU_USER.AU_USER) LEFT JOIN AU_MAIL_ADDR
         ON AU_MAIL.AU_MAIL = AU_MAIL_ADDR.AU_MAIL) LEFT JOIN AU_MAILADDRESS
         ON AU_MAIL_ADDR.AU_MAILADDRESS = AU_MAILADDRESS.AU_MAILADDRESS)
         LEFT JOIN (AU_CONTACT_MAILADDR LEFT JOIN AU_CONTACT
         ON AU_CONTACT_MAILADDR.AU_CONTACT = AU_CONTACT.AU_CONTACT)
         ON AU_MAILADDRESS.AU_MAILADDRESS = AU_CONTACT_MAILADDR.AU_MAILADDRESS)
         LEFT JOIN AU_BUSINESS ON AU_CONTACT_MAILADDR.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
         WHERE (((AU_ORGAN.KUSER=:U) AND (AU_MAIL.AU_USER Is Null) AND (AU_MAIL.MFOLDER Like 'Send Items'))
         OR ((AU_ORGAN.KUSER Is Null) AND (AU_MAIL.AU_USER=:U) AND (AU_MAIL.MFOLDER Like 'Send Items')))
         AND ((AU_MAIL_ADDR.MTYPE = 'TO') OR (AU_MAIL_ADDR.MTYPE = 'CC'))
         ORDER BY AU_MAIL.MDATE DESC
         end_sql
         q = QueryByName("DATA")
         userid = GetUserId()
         call TSetParam(q,"U",userid)
     endif
     if (mode = "ALL_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_ORGAN.KUSER, AU_MAIL.AU_USER, AU_MAIL.MDATE, AU_MAIL.READ_FLAG, AU_MAIL.IN_FLAG,
         AU_MAIL.OUT_FLAG, AU_MAIL.SUBJECT, AU_MAIL.MAIL_FROM, AU_BUSINESS.TITLE, AU_MAIL.AU_DOC,
         AU_MAIL.AU_MAIL_POP3_MBOX, AU_MAIL.MTIME, AU_MAIL.ATT_FLAG, AU_MAIL.SENDER_FLAG,
         AU_CONTACT.DISP_NAME, AU_USER.UNAME, AU_MAIL.MSGID, AU_MAIL.AU_MAIL, AU_MAILADDRESS.MADDRESS,
         AU_MAIL.BOUNCED_FLAG
         FROM (((((AU_MAIL LEFT JOIN AU_ORGAN ON AU_MAIL.AU_POS = AU_ORGAN.AU_POS)
         LEFT JOIN AU_USER ON AU_MAIL.AU_USER = AU_USER.AU_USER) LEFT JOIN AU_MAIL_ADDR
         ON AU_MAIL.AU_MAIL = AU_MAIL_ADDR.AU_MAIL) LEFT JOIN AU_MAILADDRESS
         ON AU_MAIL_ADDR.AU_MAILADDRESS = AU_MAILADDRESS.AU_MAILADDRESS)
         LEFT JOIN (AU_CONTACT_MAILADDR LEFT JOIN AU_CONTACT
         ON AU_CONTACT_MAILADDR.AU_CONTACT = AU_CONTACT.AU_CONTACT)
         ON AU_MAILADDRESS.AU_MAILADDRESS = AU_CONTACT_MAILADDR.AU_MAILADDRESS)
         LEFT JOIN AU_BUSINESS ON AU_CONTACT_MAILADDR.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS
         WHERE (AU_MAIL.MFOLDER Like 'Send Items')
         AND ((AU_MAIL_ADDR.MTYPE = 'TO') OR (AU_MAIL_ADDR.MTYPE = 'CC'))
         ORDER BY AU_MAIL.MDATE DESC
         end_sql
         q = QueryByName("DATA")
     endif

     call TPrepare(q)

end

{=============================== Lst_Click =================================}

proc Lst_DblClick()

     mail_id = TGetFld(q,"AU_MAIL")
     doc_id = TGetFld(q,"AU_DOC")
     readed = TGetFld(q,"READED")
     pp      = PByName(mform,"DATA")
     sfn      = TGetFld(q,"STORED_FILE_NAME")
     if (mail_id > 0) then
        call OpenMailForm(mail_id, doc_id, readed, pp, sfn)
     endif

end

{============================ compose_mail ====================================}

proc compose_mail()

     call OpenNewMailForm("","",0)

end