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

Member Code Owner ID Members System Owner ID
13 / AU_SMALLTASK Procedure Directory 4 4
60 / AU_PUNCHITEM Procedure Directory 4 4
1 / AU_PROJECT_FSM_AGENT Procedure Directory 4 4
2 / AU_TASK_ONE_COORDINATOR Procedure Directory 4 4
3 / AU_PURCHASE_COORDINATOR Procedure Directory 4 4
4 / AU_TECH_PROBLEM_COORDINATOR Procedure Directory 4 4
5 / AU_COMPLAINT_COORDINATOR Procedure Directory 4 4
6 / AU_PREV_CORR_COORDINATOR Procedure Directory 4 4
14 / AU_TASK_COORDINATOR Procedure Directory 4 4
16 / AU_CHATTING_FSM_AGENT Procedure Directory 4 4
35:1-35

Title : Categories

Toolbars

call BrowseFilter()
call CreateSheet()
call PrintGrid()
call BrowseFilter()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.DESCR2)
 (.AU_RELAT_D)
 (.ID1)
 (.CNT)
 (.SYSTEM_FLAG)
 (.ID1)
 (.DESCR2)
 (.AU_RELAT_D)
 (.ID1)
 (.CNT)
 (.SYSTEM_FLAG)
 (.ID1)


AutoScript

lib

proc Form_Start()

     f = TopForm()
     p = PByName(f,"DATA")

     call SetCaption("Collections Members")

end

proc Lst_DblClick()


end

proc Panels_Start()

     mode = __params[4]
     if (mode = "ALL_MODE") then
        start_sql "DATA" "KOSMOS"
         SELECT AU_RELAT.AU_RELAT, AU_RELAT.AU_RELAT_D, AU_RELAT.AU_RELAT_C,
         AU_RELAT.TNAME1, AU_RELAT.TNAME2, AU_RELAT_ITM.ID1, AU_RELAT_ITM.ID2,
         AU_RELAT_ITM.DESCR1, AU_RELAT_ITM.DESCR2
         FROM AU_RELAT LEFT JOIN AU_RELAT_ITM ON AU_RELAT.AU_RELAT = AU_RELAT_ITM.AU_RELAT
        end_sql
        q = QueryByName("DATA")
     endif
     if (mode = "MEMBER_MODE") then
        start_sql "DATA" "KOSMOS"
         SELECT AU_RELAT.AU_RELAT, AU_RELAT.AU_RELAT_D, AU_RELAT.AU_RELAT_C,
         AU_RELAT.TNAME1, AU_RELAT.TNAME2, AU_RELAT_ITM.ID1, AU_RELAT_ITM.ID2,
         AU_RELAT_ITM.DESCR1, AU_RELAT_ITM.DESCR2
         FROM AU_RELAT LEFT JOIN AU_RELAT_ITM ON AU_RELAT.AU_RELAT = AU_RELAT_ITM.AU_RELAT
         WHERE (AU_RELAT.TNAME1=:T) AND (AU_RELAT_ITM.ID1 = :R)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"T",__params[5])
        call TSetParam(q,"R",__params[6])
     endif
     if (mode = "REC_MODE") then
        start_sql "DATA" "KOSMOS"
         SELECT AU_RELAT.AU_RELAT, AU_RELAT.AU_RELAT_D, AU_RELAT.AU_RELAT_C,
         AU_RELAT.TNAME1, AU_RELAT.TNAME2, AU_RELAT_ITM.ID1, AU_RELAT_ITM.ID2,
         AU_RELAT_ITM.DESCR1, AU_RELAT_ITM.DESCR2
         FROM AU_RELAT LEFT JOIN AU_RELAT_ITM ON AU_RELAT.AU_RELAT = AU_RELAT_ITM.AU_RELAT
         WHERE (AU_RELAT.TNAME2=:T) AND (AU_RELAT_ITM.ID2 = :R)
        end_sql
        q = QueryByName("DATA")
        call TSetParam(q,"T",__params[5])
        call TSetParam(q,"R",__params[6])
     endif
     call TPrepare(q)

end