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

Type Description Special Type Code Format
The first Type PRODUCT
Metallic Sheet
Metal Pipe
Metal Sheet PRODUCT 30-00-######
Metal Door PRODUCT 30-01-######
Contrcact CONTRACT 20-00-##########
Boiler PRODUCT 50-00-########
Pump ASSET 30-12-######
Plate PRODUCT 30-01-######
Flange PRODUCT 30-02-######
13:1-13

Title : Good Types

Toolbars

call OpenFormTop("ptAppend";"AU_GOOD_TYPE_E.FM";"WORK.AU_GOOD_TYPE";1;"?=AU_GOOD_TYPE")
call Lst_DblClick()
call BrowseFilter()
call CreateSheet()
call PrintGrid()
call BrowseFilter()
call PrintGrid()
call CreateSheet()
call CloseForm(False)

Buttons

Fields


 (.AU_GOOD_TYPE_D)
 (.STYPE)
 (.CODE_FORMAT)
 (.AU_GOOD_TYPE_D)
 (.STYPE)
 (.CODE_FORMAT)


AutoScript

lib

proc Form_Start()

     call SetCaption("Good Types")

end

proc Lst_DblClick()

     call OpenFormTop("ptEdit";"AU_GOOD_TYPE_E.FM";"WORK.AU_GOOD_TYPE";1;"?=AU_GOOD_TYPE")

end

proc Panels_Start()

     start_sql "DATA" "KOSMOS"
        SELECT * FROM AU_GOOD_TYPE
     end_sql
     q = QueryByName("DATA")
     call TPrepare(q)

end