Do not let any software impress you!

Only let it convince your intellect.
Slider img 1
Do not look for a business paradise!

It is a waste of time.
Slider img 2
Only yourself can push you uphill.

There is no easy road to prizes.
Slider img 3
Productivity is the name of the game.

And you have to conquer it.
Slider img 4
As long as you understand it,

you will start to build your know-how.
Slider img 5
We can help with that.

We have the tools and the method.
Slider img 6

Date of Request Requested Import Date Actual Import Date Product Requested Qty Remaining Qty Unit Scheduled Supplier Delivery Done Supplier Status Source Department ID Demand ID Estimated Price Final Price Estimated Amount Final Amount
15/3/2017 5/4/2017 5/4/2017 CoilSheet 1018 2650 2650 Pc
14/7/2019 24/7/2019 24/7/2019 CoilSheet 101 650 650 Pc
13/3/2017 8/8/2017 8/8/2017 product 3456 10 10 Piece Image Image Wait for Products
15/3/2017 5/4/2017 5/4/2017 CoilSheet 101 650 650 Pc
14/7/2019 24/7/2019 24/7/2019 CoilSheet 102 150 150 Pc
13/3/2017 6/6/2017 6/6/2017 product 5678 20 20 Piece Image Approved Purchase Order
7/4/2017 1/1/2017 1/1/2017 product 5678 1111 1111 Piece Image Wait for Products
14/7/2019 24/7/2019 24/7/2019 CoilSheet 1018 2650 2650 Pc
15/10/2017 25/10/2017 25/10/2017 CoilSheet 1018 2650 2650 Pc
14/3/2017 7/7/2017 7/7/2017 product 3456 888 888 Piece Image Wait for Products
24:1-24

Title : Purchase Quantities

Toolbars

call append()
call Lst_DblClick()
call BrowseFilter()
call CreateSheet()
call PrintGrid()
call reupdate()
call BrowseFilter()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.SDATE1)
 (.SDATE2)
 (.SDATE2)
 (.GTITLE)
 (.QUANT)
 (.QUANT2)
 (.UCODE)
 (.SCHEDULED_FLAG)
 (.COMMENT)
 (.DONE_FLAG)
 (.BTITLE)
 (.STAT)
 (.RSOURCE)
 (.AU_POS)
 (.AU_PURCH_DEMAND)
 (.PRICE_EST)
 (.PRICE_FIN)
 (.AMOUNT_EST)
 (.AMOUNT_FIN)
 (.SDATE1)
 (.SDATE2)
 (.SDATE2)
 (.GTITLE)
 (.QUANT)
 (.QUANT2)
 (.UCODE)
 (.SCHEDULED_FLAG)
 (.COMMENT)
 (.DONE_FLAG)
 (.BTITLE)
 (.STAT)
 (.RSOURCE)
 (.AU_POS)
 (.AU_PURCH_DEMAND)
 (.PRICE_EST)
 (.PRICE_FIN)
 (.AMOUNT_EST)
 (.AMOUNT_FIN)


AutoScript

lib

proc Form_Start()

     f = TopForm()

     mode = __params[4]

     if (mode = "ALL_MODE") then
        call SetCaption("Purchase Quantities")
     elseif (mode = "EVENT_MODE") then
        str = strcat("Purchase Quantities for Schedule : ",__params[5])
        call SetCaption(str)
     endif

     call SetEditableFields(f,"PDATE0")

end

proc Lst_DblClick()

    call OpenFormTop("ptEdit";"AU_EVENT_PURCH_E.FM";"WORK.AU_EVENT_PURCH";1;"?=AU_EVENT_PURCH")

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_USER.UNAME, 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_EVENT_PURCH.DONE_FLAG, AU_EVENT_PURCH.RSOURCE,
         AU_EVENT_PURCH.AU_POS, AU_EVENT_PURCH.AU_PURCH_DEMAND, AU_EVENT_PURCH.PRICE_EST,
         AU_EVENT_PURCH.PRICE_FIN, AU_EVENT_PURCH.AMOUNT_EST, AU_EVENT_PURCH.AMOUNT_FIN
         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_USER ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
         WHERE (AU_KE_GOOD.CR_NAME='AU_EVENT_PURCH') OR (AU_KE_GOOD.CR_NAME Is Null)
         ORDER BY AU_EVENT_PURCH.SDATE1 DESC
        end_sql
        q = QueryByName("DATA")

     endif
     if (mode = "OPEN_PURCH_ORDERS") 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_USER.UNAME, 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_EVENT_PURCH.DONE_FLAG, AU_EVENT_PURCH.RSOURCE,
         AU_EVENT_PURCH.AU_POS, AU_EVENT_PURCH.AU_PURCH_DEMAND, AU_EVENT_PURCH.PRICE_EST,
         AU_EVENT_PURCH.PRICE_FIN, AU_EVENT_PURCH.AMOUNT_EST, AU_EVENT_PURCH.AMOUNT_FIN
         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_USER ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
         WHERE ((AU_KE_GOOD.CR_NAME='AU_EVENT_PURCH') OR (AU_KE_GOOD.CR_NAME Is Null))
         AND ((AU_EVENT_PURCH.DONE_FLAG = '0') OR (AU_EVENT_PURCH.DONE_FLAG IS NULL))
         AND (AU_EVENT_PURCH.QUANT > 0)
        end_sql
        q = QueryByName("DATA")

     endif
     if (mode = "PRODOPEN_PURCH_ORDERS") 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_USER.UNAME, 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_EVENT_PURCH.DONE_FLAG, AU_EVENT_PURCH.RSOURCE,
         AU_EVENT_PURCH.AU_POS, AU_EVENT_PURCH.AU_PURCH_DEMAND, AU_EVENT_PURCH.PRICE_EST,
         AU_EVENT_PURCH.PRICE_FIN, AU_EVENT_PURCH.AMOUNT_EST, AU_EVENT_PURCH.AMOUNT_FIN
         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_USER ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
         WHERE ((AU_KE_GOOD.CR_NAME='AU_EVENT_PURCH') OR (AU_KE_GOOD.CR_NAME Is Null))
         AND (AU_GOOD.AU_GOOD = :G)
         ORDER BY AU_EVENT_PURCH.SDATE1 DESC
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"G",__params[5])

     endif
     if (mode = "EVENT_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_USER.UNAME, 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_EVENT_PURCH.DONE_FLAG, AU_EVENT_PURCH.RSOURCE,
         AU_EVENT_PURCH.AU_POS, AU_EVENT_PURCH.AU_PURCH_DEMAND, AU_EVENT_PURCH.PRICE_EST,
         AU_EVENT_PURCH.PRICE_FIN, AU_EVENT_PURCH.AMOUNT_EST, AU_EVENT_PURCH.AMOUNT_FIN
         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_USER ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
         WHERE ((AU_KE_GOOD.CR_NAME='AU_EVENT_PURCH') OR (AU_KE_GOOD.CR_NAME Is Null))
         AND (AU_EVENT_PURCH.AU_EVENT = :EV)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"EV",__params[5]

     endif

     if (mode = "DEMAND_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_USER.UNAME, 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_EVENT_PURCH.DONE_FLAG, AU_EVENT_PURCH.RSOURCE,
         AU_EVENT_PURCH.AU_POS, AU_EVENT_PURCH.AU_PURCH_DEMAND, AU_EVENT_PURCH.PRICE_EST,
         AU_EVENT_PURCH.PRICE_FIN, AU_EVENT_PURCH.AMOUNT_EST, AU_EVENT_PURCH.AMOUNT_FIN
         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_USER ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
         WHERE (AU_EVENT_PURCH.AU_PURCH_DEMAND = :D)
         ORDER BY AU_EVENT_PURCH.SDATE1 DESC
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"D",__params[5]

     endif

     if (mode = "DEMAND_DEPART_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_USER.UNAME, 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_EVENT_PURCH.DONE_FLAG, AU_EVENT_PURCH.RSOURCE,
         AU_EVENT_PURCH.AU_POS, AU_EVENT_PURCH.AU_PURCH_DEMAND, AU_EVENT_PURCH.PRICE_EST,
         AU_EVENT_PURCH.PRICE_FIN, AU_EVENT_PURCH.AMOUNT_EST, AU_EVENT_PURCH.AMOUNT_FIN
         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_USER ON AU_EVENT_PURCH.PURCHSMAN = AU_USER.AU_USER)
         LEFT JOIN AU_KE_GOOD ON AU_EVENT_PURCH.AU_EVENT_PURCH = AU_KE_GOOD.CR_ID
         WHERE (AU_EVENT_PURCH.AU_PURCH_DEMAND = :D)
         AND (AU_EVENT_PURCH.AU_POS = :P)
         ORDER BY AU_EVENT_PURCH.SDATE1 DESC
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"D",__params[5]
        call TSetParam(q,"P",__params[6]

     endif

     call TPrepare(q)

end

proc append()

     if (mode = "EVENT_MODE") then

         call OpenFormTop("ptAppend";"AU_EVENT_PURCH_E.FM";"WORK.AU_EVENT_PURCH";1;"?=AU_EVENT_PURCH",mode,__params[5])

     elseif (mode = "DEMAND_DEPART_MODE") then                                                                                                                                                                 TH

         demand_id = __params[5]
         depart_id = __params[6]
         call OpenFormTop("ptAppend";"AU_EVENT_PURCH_E.FM";"WORK.AU_EVENT_PURCH";1;"?=AU_EVENT_PURCH","DEMAND_DEPART_MODE",demand_id,depart_id)

     elseif (mode = "DEMAND_ALL_MODE") then

         call message("The specific action is not allowed!")

     else

         bus_id = TGetFld(q,"AU_BUSINESS")
         btitle = TGetFld(q,"BTITLE")
         call OpenFormTop("ptAppend";"AU_EVENT_PURCH_E.FM";"WORK.AU_EVENT_PURCH";1;"?=AU_EVENT_PURCH","SUPPLIER_MODE",bus_id,btitle)

     endif

end

proc reupdate()

     id = TGetFld(q,"AU_EVENT_PURCH")
     call ReupdateRecord("AU_EVENT_PURCH",id)
     call Refresh(f)

end