You could use a script to get a handle to the BM_ReportBillSelection_bus object and write the records into the table.

The primary key consists of the BillNo+Revision+BillOption1+BillOption2+BillOption3+BillOption4+BillOption5+BillOption6+BillO
ption7+BillOption8+BillOption9.

You can either use SetKey with every part of the key (except the last part) padded to the full length of the field or use SetKeyValue for each field individually followed by a SetKey.

Then use SetValue on the other fields in the table like QuantityRequired, BillFormat, ComponentWarehouseCode, etc.

Finally use Write to write the record to the table.

This link has more details on the rest of the fields in the table.

http://help-sage100.na.sage.com/2019/FLOR/#File_Layouts/Bill_of_Materials/BM_ComponentReportSelection.htm

thetechguy1 David Speck I am wondering if you ever got this to work. After a successful login I tried the following snippet which is not working. Everything up to the first SetKeyValue works. All the SetKeyValue's fail (retVal=0) then the SetKey returns a null (retVal = ).

Set oScript = CreateObject("ProvideX.Script"
oScript.Init(MASInitPath)
Set oSS = oScript.NewObject("SY_Session")

retVal = oSS.nSetDate("B/M",ModuleDate)
retVal = oSS.nSetModule("B/M")

retVal = oSS.nSetProgram(oSS.nLookupTask("BM_ComponentReqrmntReport_ui"))
Set oBusCompReqRpt = oScript.NewObject("BM_ReportBillSelection_bus",oSS)

retVal = oBusCompReqRpt.nSetKeyValue("BillNo$", sBillNo) 
retVal = oBusCompReqRpt.nSetKeyValue("Revision$", "000")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption1$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption2$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption3$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption4$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption5$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption6$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption7$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption8$", "")
retVal = oBusCompReqRpt.nSetKey()

thetechguy1 David Speck I am wondering if you ever got this to work. After a successful login I tried the following snippet which is not working. Everything up to the first SetKeyValue works. All the SetKeyValue's fail (retVal=0) then the SetKey returns a null (retVal = ).

Set oScript = CreateObject("ProvideX.Script"
oScript.Init(MASInitPath)
Set oSS = oScript.NewObject("SY_Session")

retVal = oSS.nSetDate("B/M",ModuleDate)
retVal = oSS.nSetModule("B/M")

retVal = oSS.nSetProgram(oSS.nLookupTask("BM_ComponentReqrmntReport_ui"))
Set oBusCompReqRpt = oScript.NewObject("BM_ReportBillSelection_bus",oSS)

retVal = oBusCompReqRpt.nSetKeyValue("BillNo$", sBillNo) 
retVal = oBusCompReqRpt.nSetKeyValue("Revision$", "000")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption1$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption2$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption3$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption4$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption5$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption6$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption7$", "")
retVal = oBusCompReqRpt.nSetKeyValue("BillOption8$", "")
retVal = oBusCompReqRpt.nSetKey()

what does oBusCompReqRpt.sLastErrorMsg say?

Sorry, after each oBusCompReqRpt.nSetKeyValue it says "The column is not part of the key."

Odd, i just stepped through this using the command window with the report task open, and was able to set the key value on every field and SetKey returned 2.

I wonder if when getting a handle to BM_ReportBillSelection_bus, it expects another parameter to identify the report type since there are three reports that share the selection table.

Does setting the program to the lookup task for "BM_ComponentReqrmntReport_ui" establish the report? Also, I am unable to to a nMoveFirst, nGetKey, nClear or nAddline on the object after setting it with NewObject("BM_ComponentReqrmntReport_ui",oSS). I guess there could be another parameter, but I don't have the source, only the object reference.

That sets the security object but i'm wondering if the NewObject/GetObject need additional parameters the way the CM_UDT_Svc and CM_UDTMaint_Bus classes need the additional parameter to specify the UDT name.

Well i think i'm on to something but also don't have source.

Using this snippet, GetTable returns "*SKIP*".

Yet using GetTable from the command window of the report yields BM_ComponentReportSelection.

i'm going to test what happens if the new object is actually the RPT class and then try to get the handle to the selection bus object from that.

Got it figured out. You need the following added between after setting the object and before calling any table related methods, like SetKeyValue, MoveFirst, etc. You do not need any additional arguments in the NewObject/GetObject and you do not have to use the _rpt class, i tested this using the _bus class.

oBusCompReqRpt.nSetSelectionInfo "BM_ComponentReportSelection"

Adding that statement was like the dam breaking and most everything started working. I was able to add lines with BeillNo's. Thank you David! Very much appreciated. Any idea why a SetValue to QuantityRequired would return a 1, but not change that field? (I verified it was invoked with values other than the default 1)

retVal = oBusCompReqRpt.nSetValue("QuantityRequired", nQuantityRequired)

Not sure off the bat, i didn't test any further beyond verifying the SetKey succeeded. I don't see any typos so only thing obvious to ask it that are you sure your variable contains a valid numeric value greater than 0?

Can you clear sLastErrorMsg prior, then check it after setting the quantity required?

Also, are you setting all the fields prior in the correct order according to file layout?

https://help-sage100.na.sage.com/2020/FLOR/index.htm#File_Layouts/Bill_of_Materials/BM_ComponentReportSelection.htm%3FTocPath%3DFile%2520Layouts%7CBill%2520of%2520Materials%7C_____16