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

Filter Title Form Code ID Default System Publish
GOODS AU_ACTMAP.FM 8
Sent Mail AU_MAIL_INBOX_B.FM AU_MAILINBOXSENDMAIL 9 Image Image
Important AU_MAIL_INBOX_B.FM AU_MAILINBOXIMPORTANT 10 Image Image Image
Starred AU_MAIL_INBOX_B.FM AU_MAILINBOXSTARED 11 Image Image
Chat AU_MAIL_INBOX_B.FM AU_MAILINBOXCHAT 12 Image Image
In Help AU_ACTMAP.FM 15
6:1-6

Title : Access Control Catalog

Toolbars

call new_item()
call delete()
call BrowseFilter()
call PrintGrid()
call CreateSheet()

Buttons

Fields


 (.FTITLE)
 (.FRMNAME)
 (.ACODE)
 (.AU_FORM_BR_SQL)
 (.DEFAULT_FLAG)
 (.SYSTEM_FLAG)
 (.PUBLISH_FLAG)
 (.FTITLE)
 (.FRMNAME)
 (.ACODE)
 (.AU_FORM_BR_SQL)
 (.DEFAULT_FLAG)
 (.SYSTEM_FLAG)
 (.PUBLISH_FLAG)


AutoScript

lib

proc Panels_Start(FORM)

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

end

proc Form_Start()

     call SetCaption("Browsers Filters")

end

proc Lst_DblClick()

     call OpenFormTop("ptEdit";"AU_FORM_BR_SQL_E.FM";"WORK.AU_FORM_BR_SQL",1,"?=AU_FORM_BR_SQL")
end

proc delete()

     call OpenFormTop("ptDelete";"AU_FORM_BR_SQL_E.FM";"WORK.AU_FORM_BR_SQL",1,"?=AU_FORM_BR_SQL")
end

proc activate()

     {.........action_flag }
     {.........info_flag }
     {.........form_flag }
     {.........task }
     {.........automatic completion of the above }

     cmd = TGetFld(q,"ACOMMAND")
     cmd1 = TGetFld(q,"ACOMMAND1")
     if (cmd1 <> "") then
        call Exec(cmd1)
     else
        call Exec(cmd)
     endif

end

{============================= new_item ===============================}

proc new_item()

   acode = TGetFld(q,"ACODE")
   call OpenFormTop("ptAppend";"AU_FORM_BR_SQL_E.FM";"WORK.AU_FORM_BR_SQL",1,"?=AU_FORM_BR_SQL")

end