lib

proc Form_Start()

     f = TopForm()

     mode = __params[4]

     call SetCaption("Purchase Activities")
end

proc Panels_Start()

     mode = __params[4]

     if (mode = "ALL_MODE") then

        start_sql "DATA" "KOSMOS"
         SELECT AU_KE_GOOD.COMMENT, AU_GOOD.TITLE AS GTITLE, AU_EVENT_PURCH.AU_EVENT_PURCH,
         AU_EVENT_PURCH.QUANT, AU_UNITMEAS.CODE AS UCODE, AU_EVENT_PURCH.QUANT1,
         AU_EVENT_PURCH.QUANT2, AU_EVENT_PURCH.STAT, AU_EVENT_PURCH.SDATE1,
         AU_EVENT_PURCH.SCOLOR, AU_EVENT_PURCH.AU_BUSINESS, AU_BUSINESS.TITLE AS BTITLE,
         AU_EVENT_PURCH.AU_PROCESS, AU_GOOD.AU_GOOD, AU_EVENT_PURCH.PURCHSMAN,
         AU_EVENT_PURCH.SDATE2, AU_EVENT_PURCH.SDATE3, AU_EVENT_PURCH.ORDER_EVENT,
         AU_EVENT_PURCH.SCHEDULED_FLAG, AU_EVENT_PURCH.CANCELED_FLAG, AU_STEP.AU_STEP,
         AU_EVENT_PURCH.DONE_FLAG, AU_STEP.UNAME, AU_STEP.RNAME, AU_STEP.STEP_CODE
         FROM ((((AU_EVENT_PURCH LEFT JOIN AU_GOOD ON AU_EVENT_PURCH.AU_GOOD = AU_GOOD.AU_GOOD) LEFT
         JOIN AU_UNITMEAS ON AU_EVENT_PURCH.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS)
         LEFT JOIN AU_BUSINESS ON AU_EVENT_PURCH.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID)
         LEFT JOIN AU_STEP ON AU_EVENT_PURCH.AU_PROCESS = AU_STEP.AU_PROCESS
         WHERE (((AU_KE_GOOD.CR_NAME)='AU_EVENT_PURCH' Or (AU_KE_GOOD.CR_NAME) Is Null))
        end_sql
        q = QueryByName("DATA")

     endif
     if (mode = "USER_MODE") then

        start_sql "DATA" "KOSMOS"
         SELECT AU_KE_GOOD.COMMENT, AU_GOOD.TITLE AS GTITLE, AU_EVENT_PURCH.AU_EVENT_PURCH,
         AU_EVENT_PURCH.QUANT, AU_UNITMEAS.CODE AS UCODE, AU_EVENT_PURCH.QUANT1,
         AU_EVENT_PURCH.QUANT2, AU_EVENT_PURCH.STAT, AU_EVENT_PURCH.SDATE1,
         AU_EVENT_PURCH.SCOLOR, AU_EVENT_PURCH.AU_BUSINESS, AU_BUSINESS.TITLE AS BTITLE,
         AU_EVENT_PURCH.AU_PROCESS, AU_GOOD.AU_GOOD, AU_EVENT_PURCH.PURCHSMAN,
         AU_EVENT_PURCH.SDATE2, AU_EVENT_PURCH.SDATE3, AU_EVENT_PURCH.ORDER_EVENT,
         AU_EVENT_PURCH.SCHEDULED_FLAG, AU_EVENT_PURCH.CANCELED_FLAG, AU_STEP.AU_STEP,
         AU_EVENT_PURCH.DONE_FLAG, AU_STEP.UNAME, AU_STEP.RNAME, AU_STEP.STEP_CODE
         FROM (((((((AU_EVENT_PURCH LEFT JOIN AU_GOOD ON AU_EVENT_PURCH.AU_GOOD = AU_GOOD.AU_GOOD)
         LEFT JOIN AU_UNITMEAS ON AU_EVENT_PURCH.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS)
         LEFT JOIN AU_BUSINESS ON AU_EVENT_PURCH.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID)
         LEFT JOIN AU_STEP ON AU_EVENT_PURCH.AU_PROCESS = AU_STEP.AU_PROCESS)
         LEFT JOIN AU_POS ON AU_STEP.RNAME = AU_POS.POS_D)
         LEFT JOIN AU_ORGAN ON AU_POS.AU_POS = AU_ORGAN.AU_POS)
         LEFT JOIN AU_USER ON AU_ORGAN.KUSER = AU_USER.AU_USER
         WHERE ((((AU_KE_GOOD.CR_NAME)='AU_EVENT_PURCH' Or (AU_KE_GOOD.CR_NAME) Is Null)))
         AND ((AU_STEP.UNAME = :U) OR (AU_USER.UNAME = :U))
         AND ((AU_STEP.FINISHED = 0) OR (AU_STEP.FINISHED IS NULL))
         end_sql
         q = QueryByName("DATA")
         user = GetUserName()
         call TSetParam(q;"U";user)

     endif
     call TPrepare(q)

end

{======================================= historiko =======================================}

proc historiko()

     process = TGetFld(q,"AU_PROCESS")
     call OpenFormTop("ptBrowse";"AU_PROOD.FM";"QRY.DATA",process)

end

{===================================== status ============================================}

proc status()

     process = TGetFld(q,"AU_PROCESS")
     call OpenFormTop("ptBrowse";"AU_PROC_CLIST1.FM";"QRY.DATA",process)

end

proc Lst_DblClick()

     step_id = TGetFld(q,"AU_STEP")
     step_code = TGetFld(q,"STEP_CODE")
     if (step_id > 0) then
        call OnOpenForm_NestPager("ZONE_FIRSTEMTPY",mform)
        call OpenBPMStep("assignee",step_id,step_code)
     endif
end