Drawer

The TOKOPEN_DRAWER object defines the properties of each drawer. The most commonly used property is the Structure which determines what index fields have been defined for a drawer.

TOKOPEN_DRAWER

Structure As TOKOPEN_CRITERIALIST
     Used to determine the indices for the drawer.

AccessList As TOKOPEN_ACLLIST
     Used to determine which users / groups have access to the Drawer.

Workflows As TOKOPEN_WORKFLOWS
     Lists the workflow definitions for the drawer.

AppendImages As Boolean
     True if pages are to be appended to existing images, False to create new Docs.

InUsersViewList As Boolean
     Determines if the drawer is one of the users perferred drawers.

Drawerid As Long
     Indicates the unique drawer number used by TokOpen in the Database.

DrawerName As String
     Indicates the name of the Drawer, i.e. 'Accounts'

AllowedAccess As Boolean
     True if current logged in user has access to the drawer.

Hidden As Boolean
     Indicates if drawer should be hidden from the user interface (Batches / Deleted drawers).

See Also:-

TOKOPEN_DRAWERLIST

Example Code :-

Dim afield as String Dim fldnum as Long For fldnum = 1 To .structure.Count 'variable number of fields in each drawer afield = .structure(fldnum).fieldtitle + vbTab Select Case .structure(fldnum).fieldtype Case TOKOPEN_FIELDTYPE.isaBoolean afield = afield + "Yes/No" + vbTab Case TOKOPEN_FIELDTYPE.isaCharacter afield = afield + "Text " + vbTab + Format(.structure(fldnum).MaxLength) + vbTab Case TOKOPEN_FIELDTYPE.isaCurrency afield = afield + "Decimal" + vbTab Case TOKOPEN_FIELDTYPE.isaDate afield = afield + "Date" + vbTab Case TOKOPEN_FIELDTYPE.isaNumber afield = afield + "Numeric" + vbTab Case TOKOPEN_FIELDTYPE.isaSelection afield = afield + "List" + vbTab End Select afield = afield + .structure(fldnum).Format + vbTab If .structure(fldnum).IsRequired Then afield = afield + "Required" Else afield = afield + "Optional" End If fieldlist.AddItem afield fieldlist.ItemData(fieldlist.NewIndex) = .structure(fldnum).fieldname Next fldnum