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

Code
Title
Applied Filters
System
Published
Title
Default

Title : Browser SQL Code

Toolbars

call CloseForm(True)
call CloseForm(False)

Buttons

Fields


Code (AU_FORM_BR_SQL.ACODE)
Title (AU_FORM_BR_SQL.FTITLE)
Applied Filters (AU_FORM_BR_SQL.FCODE)
System (AU_FORM_BR_SQL.SYSTEM_FLAG)
Published (AU_FORM_BR_SQL.PUBLISH_FLAG)
Title (AU_FORM_BR_SQL.FRMNAME)
Default (AU_FORM_BR_SQL.DEFAULT_FLAG)


AutoScript


lib

proc Form_Start()

     pivot_flag = False
     f = TopForm()
     task = FormTask(f)
     fp = FindComponent(_app,"PivotCubeForm")

     if (fp > 0) then
        pivot_flag = True
        call OnOpenForm_HideField("FCODE")
     else
        fp = PreviousForm()
     endif

     if (task = ptAppend) then

        call get_sql()

     endif

end

proc get_sql()

     f = TopForm()
     fp = PreviousForm(f)

     p = PByName(f,"AU_FORM_BR_SQL")
     t = TByName(p,"AU_FORM_BR_SQL")

     sql = get_form_sql(fp)

     nl = Escape(13,10,-1)
     text = TGetFld(t,"FCODE")
     text = strcat(text,nl,nl,sql)

     call TEdit(t)
     call TSetFld(t,"FCODE",text)
     call TPost(t)

     call ReLoadEditFields(f)
end