Date: 17 July 2011
The Finder is a pop-up window that displays records in a column format for a view. Records are displayed in one of two formats, selected by the user. The user can also select the order for record display. If desired, the caller can provide a filter to restrict the records displayed by the Finder.
Uses of the Finder
The Finder can be used for:
Inquiry In this case, the Finder provides a detailed list of items. The user can select the fields to be displayed by the Finder.
Searching In this case, the user chooses the Finder button to initiate the search for a specific item. The selection is placed in a buffer and the Finder is terminated. For this purpose, the Finder should be started modally by the calling program, so that no further work can be done by the caller until a selection has been made.
Selection In this case, the Finder selects an item to be operated on by another object. After the item has been selected, an object is started, and the selection is passed to it. After the object has been started, the Finder can either remain or terminate. If the Finder remains, the object started by the Finder is modeless. Subsequent Finder selections can be made and further instances of the object started. The objects started can be either peers or children of the Finder. If an object started is a peer, the user can terminate the Finder, but any other objects started by the Finder will not be terminated. If an object started is a child of the Finder, terminating the Finder causes all the Finder’s children to also be terminated.
If the Finder terminates after starting an object, the object obviously must have been started as a peer. The Finder provides the primary key for the selected item in the key area of the object that is started. It is also possible for the caller to provide a user area to be passed to the object started by the Finder.
Following is the code to call the finder that will show the item form ICITEM table in Accpac
Private Sub Cmditemfrm_Click()
Dim fnd As AccpacFinder.ViewFinder
Set fnd = New AccpacFinder.ViewFinder
fnd.Session = AccpacSession
fnd.ViewID = “IC0310”
fnd.DisplayFieldIDs = Array(7, 3, 5, 1, 8 )
fnd.ReturnFieldIDs = Array(7, 3)
fnd.Filter = “” ‘condition here
fnd.InitKeyType = USER_PASSING_INIT_KEY
fnd.AutoTabAway = False
If fnd.Finder = True Then