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

Category Selection Code
ROLE TYPES Close One 1-2-5
BUSINESS TYPES Manufacturer 2-9
GOOD TYPES New Category2 3-12
BUSINESS TYPES SUPPL THES 2-8-15
GOOD TYPES New Category2 3-12
GOOD TYPES New Category1 3-13
BUSINESS TYPES Manufacturer 2-9
GOOD TYPES New Category1 3-13
GOOD TYPES New Category1 3-13
9:1-9

Title : Categories

Toolbars

call append()
call edit()
call OpenFormTop("ptDelete";"AU_CATEGORY_ENT_E.FM";"WORK.AU_CATEGORY_ENT";1;"?=AU_CATEGORY_ENT")
call setup()
call BrowseFilter()
call CreateSheet()
call PrintGrid()
call BrowseFilter()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.TITLE0)
 (.TITLE)
 (.CCODE)
 (.TITLE0)
 (.TITLE)
 (.CCODE)


AutoScript

lib

proc Form_Start()

     call SetCaption("Categories")

end

proc Lst_DblClick()

     call OpenFormTop("ptEdit";"AU_CATEGORY_ENT_E.FM";"WORK.AU_CATEGORY_ENT";1;"?=AU_CATEGORY_ENT",tname,recid)

end

proc append()

     tname = __params[4]
     recid = __params[5]

     call OpenFormTop("ptAppend";"AU_CATEGORY_ENT_E.FM";"WORK.AU_CATEGORY_ENT";1;"?=AU_CATEGORY_ENT",tname,recid)
end

proc edit()

     tname = __params[4]
     recid = __params[5]

     call OpenFormTop("ptEdit";"AU_CATEGORY_ENT_E.FM";"WORK.AU_CATEGORY_ENT";1;"?=AU_CATEGORY_ENT",tname,recid)
end

proc Panels_Start()

     tname = __params[4]
     recid = __params[5]

     start_sql "DATA" "KOSMOS"
       SELECT AU_CATEGORY.TITLE0, AU_CATEGORY_ITEM.TITLE, AU_CATEGORY_ITEM.CCODE,
       AU_CATEGORY_ENT.AU_CATEGORY_ENT, AU_CATEGORY.AU_CATEGORY
       FROM (AU_CATEGORY_ENT INNER JOIN AU_CATEGORY_ITEM ON AU_CATEGORY_ENT.AU_CATEGORY_ITEM = AU_CATEGORY_ITEM.AU_CATEGORY_ITEM)
       INNER JOIN AU_CATEGORY ON AU_CATEGORY_ITEM.AU_CATEGORY = AU_CATEGORY.AU_CATEGORY
       WHERE ((AU_CATEGORY_ENT.TNAME=:T) AND (AU_CATEGORY_ENT.RID=:R))
     end_sql
     q = QueryByName("DATA")
     call TSetParam(q,"T",tname)
     call TSetParam(q,"R",recid)
     call TPrepare(q)

end

proc setup()

     id = TGetFld(q,"AU_CATEGORY")
     call OpenCategoryDraw("setup",id)

end