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

C_ACODE
Category
P_ACODE
TITLE
ACODE
CCODE
SYSTEM_FLAG
PUBLISH_FLAG
AU_CATEGORY_ITEM_PARENT
AU_CATEGORY
CHILD_COUNT
CLEVEL
Parent Item

Title : Category Item

Toolbars

call CloseForm(True)
call CloseForm(False)

Buttons

Fields


C_ACODE (AU_CATEGORY_ITEM.C_ACODE)
Category (AU_CATEGORY.TITLE0)
P_ACODE (AU_CATEGORY_ITEM.P_ACODE)
TITLE (AU_CATEGORY_ITEM.TITLE)
ACODE (AU_CATEGORY_ITEM.ACODE)
CCODE (AU_CATEGORY_ITEM.CCODE)
SYSTEM_FLAG (AU_CATEGORY_ITEM.SYSTEM_FLAG)
PUBLISH_FLAG (AU_CATEGORY_ITEM.PUBLISH_FLAG)
AU_CATEGORY_ITEM_PARENT (AU_CATEGORY_ITEM.AU_CATEGORY_ITEM_PARENT)
AU_CATEGORY (AU_CATEGORY_ITEM.AU_CATEGORY)
CHILD_COUNT (AU_CATEGORY_ITEM.CHILD_COUNT)
CLEVEL (AU_CATEGORY_ITEM.CLEVEL)
Parent Item (AU_CATEGORY_ITEM.TITLE)


AutoScript

lib

fun Form_BeforeClose()

    result = 1

    f = TopForm()
    p = PByName(f,"AU_CATEGORY_ITEM")
    t = TByName(p,"AU_CATEGORY_ITEM")

    ccode = LookUpId("AU_CATEGORY",AU_CATEGORY_ITEM!AU_CATEGORY,"ACODE")
    pcode = LookUpId("AU_CATEGORY_ITEM",AU_CATEGORY_ITEM!AU_CATEGORY_ITEM_PARENT,"ACODE")

    call TEdit(t)
    call TSetFld(t,"C_ACODE",ccode)
    call TSetFld(t,"P_ACODE",pcode)
    call TPost(t)

end