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 Item Item Code System Publish Category Code Parent Item Code
ROLE TYPES ROLE TYPES AU_ROLETYPES Image Image AU_ROLE TYPES
ROLE TYPES RELATIVES AU_RELATIVES Image Image AU_ROLE TYPES AU_ROLETYPES
ROLE TYPES Strangers AU_STRANGERS Image Image AU_ROLE TYPES AU_ROLETYPES
ROLE TYPES Close One AU_CLOSEONE Image Image AU_ROLE TYPES AU_RELATIVES
ROLE TYPES Distand One
BUSINESS TYPES BUSINESS TYPES AU_BUSINESSTYPES Image Image AU_BUSINESSTYPES
BUSINESS TYPES Supplier AU_SUPPLIER Image Image AU_BUSINESSTYPES AU_BUSINESSTYPES
BUSINESS TYPES Manufacturer AU_MANUFACTURER Image Image AU_BUSINESSTYPES AU_BUSINESSTYPES
BUSINESS TYPES Customer
GOOD TYPES GOOD TYPES AU_GOODTYPES Image Image AU_GOODTYPES
14:1-14

Title : Categories

Toolbars

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

Buttons

Fields


 (.TITLE0)
 (.TITLE)
 (.IACODE)
 (.ISYS)
 (.IPUB)
 (.C_ACODE)
 (.P_ACODE)
 ()
 ()
 ()
 (.TITLE0)
 (.TITLE)
 (.IACODE)
 (.ISYS)
 (.IPUB)
 (.C_ACODE)
 (.P_ACODE)
 ()
 ()
 ()


AutoScript

lib

proc Form_Start()

     call SetCaption("Categories Items")

end

proc Lst_DblClick()

     call OpenFormTop("ptEdit";"AU_CATEGORY_ITM_E.FM";"WORK.AU_CATEGORY_ITEM";1;"?=AU_CATEGORY_ITEM")

end

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
        SELECT AU_CATEGORY.TITLE0, AU_CATEGORY.ACODE AS CACODE, AU_CATEGORY_ITEM.TITLE,
        AU_CATEGORY_ITEM.ACODE AS IACODE,AU_CATEGORY_ITEM.SYSTEM_FLAG AS ISYS,
        AU_CATEGORY_ITEM.PUBLISH_FLAG AS IPUB, AU_CATEGORY.SYSTEM_FLAG AS CSYS,
        AU_CATEGORY.PUBLISH_FLAG AS CPUB, AU_CATEGORY_ITEM.C_ACODE, AU_CATEGORY_ITEM.P_ACODE,
        AU_CATEGORY_ITEM.AU_CATEGORY_ITEM, AU_CATEGORY.AU_CATEGORY
        FROM AU_CATEGORY_ITEM INNER JOIN AU_CATEGORY ON AU_CATEGORY_ITEM.AU_CATEGORY = AU_CATEGORY.AU_CATEGORY
     end_sql
     q = QueryByName("DATA")
     call TPrepare(q)

end