lib

proc Form_Start()

     f = TopForm()
     task = FormTask(f)
     p = PByName(f,"AU_DATACOLLECT")
     t = TByName(p,"AU_DATACOLLECT")
     p = PByName(f,"AU_DATACOLLECT_ITM")
     ti = TByName(p,"AU_DATACOLLECT_ITM")

     if (task = ptAppend) then
        call OnOpenForm_ShowControl("LAB1")
        call OnOpenForm_ShowControl("LAB2")
        call OnOpenForm_ShowControl("LAB3")
     else
        call OnOpenForm_HideControl("LAB1")
        call OnOpenForm_HideControl("LAB2")
        call OnOpenForm_HideControl("LAB3")
     endif

     if (task = ptAppend) then

        call TEdit(t)
        call TSetFld(t,"SELECT_STAGE_FLAG","1")
        call TPost(t)
        call ReLoadEditFields(f)

     endif

     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
     start_sql "MAIL_SEL" "KOSMOS"
       SELECT AU_MAILADDRESS.MADDRESS, AU_CONTACT.DISP_NAME, AU_MAILADDRESS.AU_MAILADDRESS
       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.AU_CONTACT = :C)
       AND (AU_MAILADDRESS.MADDRESS LIKE :E & '%')
       ORDER BY AU_CONTACT.DISP_NAME
     end_sql

end

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

proc Select_CONTACT_SEL_Params()

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

end

proc Select_MAIL_SEL_Params()

   s = GetEditedText()
   c = TGetFld(ti,"AU_CONTACT")
   call ParamsEmbSQL("MAIL_SEL",c,s)

end

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

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

     if (tname = "AU_CONTACT") then

        mai_id = TGetFld(sq,"AU_MAILADDRESS")
        mail_add = TGetFld(sq,"MADDRESS")

        call TEdit(tt)
        call TSetFld(tt,"AU_MAILADDRESS",mai_id)
        call TSetFld(tt,"F_AU_MAILADDRESS_MADDRESS",mail_add)
        call TPost(tt)

        call ReLoadEditFields(f)

     endif
end

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

fun Form_BeforeClose()

    result = 1

    comm = TGetFld(t,"SUBJECT")
    comm = Copy(comm,1,80)

    {...................................check main record.....}
    user_id = TGetFld(t,"AU_USER")
    pos_id = TGetFld(t,"AU_POS")
    con_id = TGetFld(t,"AU_CONTACT")
    mail_id = TGetFld(t,"AU_MAILADDRESS")

    sum = 0
    if (user_id > 0) then
       sum = sum + 1
    endif
    if (pos_id > 0) then
       sum = sum + 1
    endif
    if (con_id > 0) then
       sum = sum + 1
    endif

    if (sum > 1) then
       call message("You must define only one supplier of data item (Associate, Role or Contact)")
       result = 0
       return
    endif

    count = TRecordCount(ti)

    if (sum = 1) then    {.........give values to detail}

       call TFirst(ti)
       for i = 1 to count

         call TEdit(ti)
         call TSetFld(ti,"AU_USER",user_id)
         call TSetFld(ti,"AU_POS",pos_id)
         call TSetFld(ti,"AU_CONTACT",con_id)
         call TSetFld(ti,"AU_MAILADDRESS",mail_id)
         call TPost(ti)

         call TNext(ti)
       next
       call ReLoadEditFields(f)

    endif

    {..........................check for detail valitity..}
    call TFirst(ti)
    for i = 1 to count
        user_id = TGetFld(ti,"AU_USER")
        pos_id = TGetFld(ti,"AU_POS")
        con_id = TGetFld(ti,"AU_CONTACT")

        sum = 0
        if (user_id > 0) then
         sum = sum + 1
        endif
        if (pos_id > 0) then
         sum = sum + 1
        endif
        if (con_id > 0) then
         sum = sum + 1
        endif

        if (sum = 0) then
         call message("You must define one supplier of data item (Associate, Role or Contact) in line ",i)
         result = 0
         return
        endif
        if (sum > 1) then
         call message("You must define only one supplier of data item (Associate, Role or Contact) in line ",i)
         result = 0
         return
        endif

        call TNext(ti)
    next

end

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

proc Form_End ( uvalue )

     if (task = ptAppend) then

        call bpm_startcoordinator ( "AU_DATACOLLECTOR_COORDINATOR", uvalue )

     else

        call bpm_clientchangescomments(f,comm)

     endif

end