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

P/L No Classification Status Issue Description Turnover Package No Responsible Party
666 A Problem
667 A OPEN Another Problem
668 B OPEN Pipe is leaking
669 B OPEN Cable is expossed
670 A OPEN Stair is loose
671 A OPEN Door is unpainded
672 A OPEN Tap without water
673 B OPEN Floor is sleeping
674 B OPEN A Third problem
675
10:1-10

Title : Bill Of Materials

Toolbars

call append()
call Lst_DblClick()
call delete()
call rfq()
call CreateSheet()
call PrintGrid()
call BrowseFilter()
call cost()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.PLNO)
 (.CLASSIFICATION)
 (.STATUS)
 (.ISSUEDESCR)
 (.TURNOVERPACKAGENO)
 (.RESPONSIBLEPARTY)
 (.PLNO)
 (.CLASSIFICATION)
 (.STATUS)
 (.ISSUEDESCR)
 (.TURNOVERPACKAGENO)
 (.RESPONSIBLEPARTY)


AutoScript

lib

proc Lst_DblClick()

     call OpenFormTop("ptEdit";"AU_PUNCHITEM_E.FM";"WORK.AU_PUNCHITEM";1;"?=AU_PUNCHITEM")

end

proc Form_Start()

     call CollapseNavBar()
     call SetCaption("Punch Items")

end

proc Panels_Start()

     mode = __params[4]

     if (mode = "ALL_MODE") then

        start_sql "DATA" "KOSMOS"
         SELECT * FROM AU_PUNCHITEM
        end_sql
        q = QueryByName("DATA")

     endif
     if (mode = "SOFFER_MODE") then

        start_sql "DATA" "KOSMOS"
         SELECT * FROM AU_PROD_FORM
         WHERE (AU_EVENT = :PO)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"PO",__params[5])

     endif
     if (mode = "SELONGOOD_MODE") then

        start_sql "DATA" "KOSMOS"
         SELECT * FROM AU_PROD_FORM
         WHERE (AU_GOOD = :PO)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"PO",__params[5])

     endif

     call TPrepare(q)

end

proc append()

     call OpenFormTop("ptAppend";"AU_PUNCHITEM_E.FM";"WORK.AU_PUNCHITEM";1;"?=AU_PUNCHITEM")

end