lib

proc Form_Start()

     call CollapseNavBar()
     if (mode = "ALL_MODE") then
        call SetCaption("All Stock in Details")
     else
        call SetCaption("Details")
     endif
end

proc Panels_Start()

     mode = __params[4]
     if (mode = "ALL_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_GOOD.CODE AS GCODE, AU_GOOD.TITLE, AU_WAREHOUSE.DESCR, AU_STOCK.QUANT,
         AU_UNITMEAS.CODE, AU_STOCK.AU_STOCK, AU_USER.UNAME, AU_CURRENCY.CCODE,
         AU_STOCK.SDATE,
         AU_STOCK.AU_GOOD, AU_STOCK.DETAIL_FLAG, AU_STOCK.UCOST, AU_STOCK.TCOST
         FROM (AU_USER RIGHT JOIN (((AU_GOOD INNER JOIN AU_STOCK ON AU_GOOD.AU_GOOD = AU_STOCK.AU_GOOD)
         LEFT JOIN AU_WAREHOUSE ON AU_STOCK.AU_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE)
         INNER JOIN AU_UNITMEAS ON AU_STOCK.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS)
         ON AU_USER.AU_USER = AU_STOCK.AU_USER) LEFT JOIN AU_CURRENCY
         ON AU_STOCK.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
         WHERE (AU_STOCK.DETAIL_FLAG = '1')
         end_sql
         q = QueryByName("DATA")

     endif
     if (mode = "DETAIL_MODE") then

         start_sql "DATA" "KOSMOS"
         SELECT AU_GOOD.CODE AS GCODE, AU_GOOD.TITLE, AU_WAREHOUSE.DESCR, AU_STOCK.QUANT,
         AU_UNITMEAS.CODE, AU_STOCK.AU_STOCK, AU_USER.UNAME, AU_CURRENCY.CCODE,
         AU_STOCK.SDATE,
         AU_STOCK.AU_GOOD, AU_STOCK.DETAIL_FLAG, AU_STOCK.UCOST, AU_STOCK.TCOST
         FROM (AU_USER RIGHT JOIN (((AU_GOOD INNER JOIN AU_STOCK ON AU_GOOD.AU_GOOD = AU_STOCK.AU_GOOD)
         LEFT JOIN AU_WAREHOUSE ON AU_STOCK.AU_WAREHOUSE = AU_WAREHOUSE.AU_WAREHOUSE)
         INNER JOIN AU_UNITMEAS ON AU_STOCK.AU_UNITMEAS = AU_UNITMEAS.AU_UNITMEAS)
         ON AU_USER.AU_USER = AU_STOCK.AU_USER) LEFT JOIN AU_CURRENCY
         ON AU_STOCK.AU_CURRENCY = AU_CURRENCY.AU_CURRENCY
         WHERE (AU_STOCK.DETAIL_FLAG = '1')
         AND (AU_STOCK.DETAIL_PARENT = :S)
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"S",__params[5])

     endif
     call TPrepare(q)
end