Import into the BM_ComponentReportSelection.M4T!!!!

Question

Is there any way to populate the BM_ComponentReportSelection.M4T without manually keying it in the Gross Requirements Report? It is not an available table to import into for Bill of Materials. https://solitaire.onl/ https://9apps.ooo/ https://bluestacks.vip/

David Speck · Accepted Answer

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

connex · Answer

Thanks again David. I had forgotten to convert the quantity from a CSV to a number. It seems odd that it SetValue would return 'successful' if it was unable to store the text into a number field. Here's the essential working snippet: retVal = oSS.nSetModule("B/M")
retVal = oSS.nSetDate("B/M",ModuleDate)
 
'Handle security and the business object
retVal = oSS.nSetProgram(oSS.nLookupTask("BM_ComponentReqrmntReport_ui"))
Set oBusCompReqRpt = oScript.NewObject("BM_ReportBillSelection_bus",oSS)
 
'Identify the selection grid
retVal = oBusCompReqRpt.nSetSelectionInfo("BM_ComponentReportSelection")
retVal = oBusCompReqRpt.nDeleteAllRows()

'Create a new entry
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()

'Loop for each Bill
retVal = oBusCompReqRpt.nSetValue("BillFormat$", "1")
retVal = oBusCompReqRpt.nSetValue("EffectiveDate$", ModuleDate)
retVal = oBusCompReqRpt.nSetValue("ComponentWarehouseCode$", "000") 
retVal = oBusCompReqRpt.nSetValue("QuantityRequired", nQuantityRequired)
retVal = oBusCompReqRpt.nWrite()
 
oBusCompReqRpt.DropObject()
Set oBusCompReqRpt = Nothing

Sage 100

Import into the BM_ComponentReportSelection.M4T!!!!

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING