lib

proc Lst_DblClick()

       call OpenFormTop("ptEdit";"AU_STOCK_E.FM";"WORK.AU_STOCK";1;"?=AU_STOCK")

end

proc Form_Start()

     call CollapseNavBar()
     if (mode = "ALL_MODE") then
        call SetCaption("All Stock")
     else
        call SetCaption("Stock")
     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.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 = '0')
         end_sql
         q = QueryByName("DATA")

     endif
     if (mode = "WAREHOUSE_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.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.AU_WAREHOUSE = :W)
         AND (AU_STOCK.DETAIL_FLAG = '0')
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"W",__params[5])

     endif
     if (mode = "GOOD_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.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.AU_GOOD = :G)
         AND (AU_STOCK.DETAIL_FLAG = '0')
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"G",__params[5])

     endif
     if (mode = "ACC_YEAR_BEGING_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.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.AU_ACCOUNT_YEAR = :Y)
         AND (AU_STOCK.SMODE = 'BEGINING_STOCK')
         AND (AU_STOCK.DETAIL_FLAG = '0')
         end_sql
         q = QueryByName("DATA")
         call TSetParam(q,"Y",__params[5])

     endif
     call TPrepare(q)
end