Hello,
I have the following code:
This finder is referencing one specific view - 'IC0310'.
How would I be able to incorporate a second view in this finder. More specifically, how can I add one specific optional field with the above fields.
Overall, I want the finder to display the desired Item Fields with one optional field, say with the name 'Size'.
I believe the view would be 'IC0313' for the Item optional fields that I would be referencing.
Thank you for your assistance.
I have the following code:
Code:
Dim ICITEM As ACCPACXAPILib.xapiView
Set ICITEM = apfSess.OpenView("IC0310", "IC")
Set FieldFinder = New Finder
With FieldFinder
.FinderCaption = apfSess.Company & " - Sage Accpac Items"
.SetFinderView apfSess, ICITEM, "ZZZZZZZZZZZZ", 0
.AddFinderCol "ITEMNO", 0, 0, 1
.AddFinderCol "FMTITEMNO", 1, 1500, 1
.AddFinderCol "DESC", 2, 3000, 1
.AddFinderCol "INACTIVE", 3, 1000, 1
.AddFinderCol "ITEMBRKID", 4, 1000, 1
.AddFinderCol "CATEGORY", 5, 1000, 1
.AddFinderCol "STOCKUNIT", 6, 2000, 1
.AddFinderCol "DEFPRICLST", 7, 2000, 1
.AddFinderCol "PICKINGSEQ", 8, 2000, 1
.AddFinderCol "COMMENT1", 9, 2500, 1
.AddFinderCol "COMMENT2", 10, 2500, 1
.AddFinderCol "COMMENT3", 11, 2500, 1
.AddFinderCol "COMMENT4", 12, 2500, 1
.FinderPrepare = "INACTIVE=0"
.ResultField1 = 0
.ResultField2 = 1
.SkipFirst = True
.ModVersion = AP_ModuleVersion("IC")
.ShowFinder
If Len(.FinderResult1) > 0 Then Result1 = Trim$(.FinderResult1)
If Len(.FinderResult2) > 0 Then Result2 = Trim$(.FinderResult2)
End With
ICITEM.Close
Set ICITEM = Nothing
Set FieldFinder = Nothing
This finder is referencing one specific view - 'IC0310'.
How would I be able to incorporate a second view in this finder. More specifically, how can I add one specific optional field with the above fields.
Overall, I want the finder to display the desired Item Fields with one optional field, say with the name 'Size'.
I believe the view would be 'IC0313' for the Item optional fields that I would be referencing.
Thank you for your assistance.