lib

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

proc Panels_Start()

     mode = __params[4]

     if (mode = "ALL_MODE") then
         start_sql "DATA" "KOSMOS"
         SELECT AU_RESOURCE.RTITLE, AU_RESOURCE.AU_RESOURCE, AU_RESOURCE_COST.COMM, AU_RESOURCE_COST.AU_RESOURCE_COST,
         AU_RESOURCE_COST.RCOST0, AU_RESOURCE_COST.RCOST1, AU_RESOURCE_COST.IS_VALID,
         AU_RESOURCE_COST.AU_CURRENCY, AU_CURRENCY.CCODE, AU_UNITMEAS.CODE, AU_RESOURCE.RNAME,
         AU_BUSINESS.TITLE, AU_RESOURCE_COST_TYPE.AU_RESOURCE_COST_TYPE_D
         FROM ((((AU_RESOURCE LEFT JOIN AU_RESOURCE_COST ON AU_RESOURCE.AU_RESOURCE = AU_RESOURCE_COST.AU_RESOURCE)
         LEFT JOIN AU_CURRENCY ON AU_RESOURCE_COST.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY)
         LEFT JOIN AU_UNITMEAS ON AU_RESOURCE_COST.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS)
         LEFT JOIN AU_BUSINESS ON AU_RESOURCE_COST.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS)
         LEFT JOIN AU_RESOURCE_COST_TYPE
         ON AU_RESOURCE_COST.AU_RESOURCE_COST_TYPE = AU_RESOURCE_COST_TYPE.AU_RESOURCE_COST_TYPE
         end_sql
         q = QueryByName("DATA")
     endif
     if (mode = "EVENT_MODE") then
         start_sql "DATA" "KOSMOS"
         SELECT AU_RESOURCE.RTITLE, AU_RESOURCE.AU_RESOURCE, AU_RESOURCE_COST.COMM, AU_RESOURCE_COST.AU_RESOURCE_COST,
         AU_RESOURCE_COST.RCOST0, AU_RESOURCE_COST.RCOST1, AU_RESOURCE_COST.IS_VALID,
         AU_RESOURCE_COST.AU_CURRENCY, AU_CURRENCY.CCODE, AU_UNITMEAS.CODE, AU_RESOURCE.RNAME, AU_BUSINESS.TITLE, AU_COST.AU_EVENT
         FROM AU_COST LEFT JOIN ((((AU_RESOURCE LEFT JOIN AU_RESOURCE_COST ON
         AU_RESOURCE.AU_RESOURCE = AU_RESOURCE_COST.AU_RESOURCE) LEFT JOIN AU_CURRENCY ON
         AU_RESOURCE_COST.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY) LEFT JOIN AU_UNITMEAS ON
         AU_RESOURCE_COST.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS) LEFT JOIN AU_BUSINESS ON
         AU_RESOURCE_COST.AU_BUSINESS = AU_BUSINESS.AU_BUSINESS) ON
         AU_COST.AU_RESOURCE = AU_RESOURCE.AU_RESOURCE
         WHERE (AU_COST.AU_EVENT = :EV)
         AND (AU_RESOURCE.AU_RESOURCE Is Not Null)
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"EV",__params[5])
     endif
     call TPrepare(q)

end

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

proc Form_Start()

     call SetCaption("Resources Cost")

end

{============================= Lst_DblClick ===============================}

proc Lst_DblClick()

     call OpenFormTop("ptEdit","AU_RESOURCE_COST_E.FM","WORK.AU_RESOURCE_COST",1,"?=AU_RESOURCE_COST")

end

{============================= new_item ===============================}

proc new_item()

   res_id = TGetFld(q,"AU_RESOURCE")
   call OpenFormTop("ptAppend","AU_RESOURCE_COST_E.FM","WORK.AU_RESOURCE_COST",1,"?=AU_RESOURCE_COST",res_id)

end