lib

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

proc Form_Start()

     f = TopForm()
     call SetCaption("Drafts")
     call CollapseNavBar()

     call SetClass("grid","TStringGrid1")

     call SetEditableFields(f, "FAIL_FLAG", "SDATE", "SHOUR")

end

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

proc Panels_Start()

     mode = __params[4]

     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.SDATE, AU_MAIL.SHOUR, AU_MAIL.FAIL_FLAG,
         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
         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 'Drafts')) OR (((AU_ORGAN.KUSER) Is Null)
         AND ((AU_MAIL.AU_USER)=:U) AND ((AU_MAIL.MFOLDER) Like 'Drafts')))
         AND ((AU_MAIL_ADDR.MTYPE = 'TO') OR (AU_MAIL_ADDR.MTYPE = 'CC'))
         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.SDATE, AU_MAIL.SHOUR, AU_MAIL.FAIL_FLAG,
         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
         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 'Drafts')
         AND ((AU_MAIL_ADDR.MTYPE = 'TO') OR (AU_MAIL_ADDR.MTYPE = 'CC'))
         end_sql
         q = QueryByName("DATA")
     endif

     call TPrepare(q)

end

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

proc Lst_DblClick()

     doc_id = TGetFld(q,"AU_DOC")
     call OpenNewMailForm("",False,doc_id,"1")

end

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

proc compose_mail()

     call OpenNewMailForm("","",0)

end

{================================ delete ==================================}

proc delete()

     mail_id = TGetFld(q,"AU_MAIL")
     call DeleteMail(mail_id,1)
     call Refresh(f)
     call PlaySound("MailBeep")

end

{================================= send ==============================}

proc send()

     doc_id = TGetFld(q,"AU_DOC")

     call mail_senddraft(doc_id)
    { call BrowseFilter()}
     call Sleep(2000)
     call Refresh(f)
     call PlaySound("MailBeep")

end


{=========================================== update ==================================}

proc update()

     call InputClear ("Schedule")
     call InputItem ("Set Date", "" )
     call InputItem ("Set Hour", "" )

     flag = InputShow()

     if (flag = 0) then
        return
     endif

     date = InputGet ( "Set Date" )
     hour = InputGet ( "Set Hour" )

     count = TRecordCount(q)
     call TFirst(q)
     for i = 1 to count

         id = TGetFld(q,"AU_MAIL")

         call UpdateField ( "AU_MAIL", id, "SDATE", date, "SHOUR", hour, "" )

         call TNext(q)
     next

     call BrowseFilter()      {...reload}

     call message("Done!")

end