lib

proc Form_Start()

     f = TopForm()
     task = FormTask(f)
     p = PByName(f,"AU_MAILCAMP")
     t = TByName(p,"AU_MAILCAMP")

     if (task = ptAppend) and (__params[6] = "FROM_CONTACT") then

        tc = __params[7]
        tm = __params[8]
        cmail = TGetFld(tm,"F_AU_MAILADDRESS_MADDRESS")
        cont_id = TGetFld(tc,"AU_CONTACT")
        cont_name = TGetFld(tc,"DISP_NAME")
        bus_id = TGetFld(tm,"AU_BUSINESS")
        bus_name = TGetFld(tm,"F_AU_BUSINESS_TITLE")

        call TEdit(t)
        call TSetFld(t,"AU_CONTACT",cont_id)
        call TSetFld(t,"F_AU_CONTACT_DISP_NAME",cont_name)
        call TSetFld(t,"AU_BUSINESS",bus_id)
        call TSetFld(t,"F_AU_BUSINESS_TITLE",bus_name)
        call TSetFld(t,"CMAIL",cmail)
        call TSetFld(t,"DRAFT_FLAG",1)
        call TPost(t)
        call ReLoadEditFields(f)

     endif

     {........load serving mail}
     start_sql "*" "KOSMOS"
         SELECT AU_MAIL_POP3.SMTP_USER
         FROM AU_MAIL_POP3 LEFT JOIN AU_ORGAN ON AU_MAIL_POP3.AU_POS = AU_ORGAN.AU_POS
         WHERE (((AU_ORGAN.KUSER)=:U) AND ((AU_MAIL_POP3.SMTP_USER) Is Not Null And (AU_MAIL_POP3.SMTP_USER)<>""))
         OR (((AU_MAIL_POP3.AU_USER)=:U) AND ((AU_MAIL_POP3.SMTP_USER) Is Not Null And (AU_MAIL_POP3.SMTP_USER)<>""))
         ORDER BY AU_MAIL_POP3.SMTP_USER
     end_sql
     q = QueryByName()
     uid = GetUserId()
     call TSetParam(q,"U",uid)
     call TExecute(q)
     count = TRecordCount(q)
     call TFirst(q)
     for i = 1 to count
         smail = TGetFld(q,"SMTP_USER")
         call CbLoad("SMAIL",smail)
         call TNext(q)
     next
     call FreeEmbSQL(q)

     start_sql "CONTACT_SEL" "KOSMOS"
       SELECT AU_CONTACT.DISP_NAME, AU_MAILADDRESS.MADDRESS,
       AU_MAILADDRESS.AU_MAILADDRESS, AU_CONTACT.AU_CONTACT
       FROM (AU_CONTACT INNER JOIN AU_CONTACT_MAILADDR
       ON AU_CONTACT.AU_CONTACT = AU_CONTACT_MAILADDR.AU_CONTACT)
       INNER JOIN AU_MAILADDRESS ON AU_CONTACT_MAILADDR.AU_MAILADDRESS = AU_MAILADDRESS.AU_MAILADDRESS
       WHERE (AU_CONTACT.DISP_NAME LIKE :E & '%')
       ORDER BY AU_CONTACT.DISP_NAME
     end_sql

     call CbLoad ("COLL_TYPE","NONE")
     call CbLoad ("COLL_TYPE","CONTACT_FIELDS")
     call CbLoad ("COLL_TYPE","BUSINESS_FIELDS")
     call CbLoad ("COLL_TYPE","PRESENTATION_FIELDS")

end

{============================== Query Parameters ===================}

proc Select_CONTACT_SEL_Params()

   s = GetEditedText()
   call ParamsEmbSQL("CONTACT_SEL",s)

end

{ =================================== Form_BeforeClose ===========================}

fun Form_BeforeClose()

    result = 1

    resend_flag = TGetFld(t,"RESEND_FLAG")

end


{============================ Form_OnSelect ===========================}

proc Form_OnSelect (tname, fldname, str, tt, oldstr, sq )

     if (tname = "AU_CONTACT") then

        mail_add = TGetFld(sq,"MADDRESS")

        call TEdit(t)
        call TSetFld(t,"CMAIL",mail_add)
        call TPost(t)

        call ReLoadEditFields(f)

     endif
end

{=================================== Form_End ===========================}

proc Form_End ( uvalue )

     if (task = ptAppend) then

        ag = agent_askexpert("AU_MAIL_CAMPAIN_FSM_AGENT","SEND_MAIL_AND_WAIT",uvalue,0,resend_flag)

     endif

end