Set UOM Default Group as “Manual” to Overcome Error Message “UoM (null) is not assigned to item” While Updating UOM Default Group From DTW

Hello All,

Set UOM Default Group as “Manual” to Overcome Error Message

1. Open Item Master Data Form in OK Mode
2. Click On Foreign Name Field
3. All Default UOM Group will be set as Manual Using the Following Code

Public Sub ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles GOD_Application.ItemEvent Select Case pVal.FormTypeEx Case "150" If pVal.ItemUID = "44" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK And pVal.BeforeAction = True Then Dim GOD_Rec As SAPbobsCOM.Recordset Dim GOD_Form As SAPbouiCOM.Form GOD_Rec = GOD_Main.GOD_Company.GetBusinessGODect(BoGODectTypes.BoRecordset) GOD_Rec.DoQuery("SELECT ItemCode FROM OITM WHERE UgpEntry <> -1") For i As Integer = 1 To GOD_Rec.RecordCount Dim iRet As Long = 0 Dim strErr As String = "" Dim GOD_ItemMasterForm As SAPbouiCOM.Form Dim GOD_ComboBox As SAPbouiCOM.ComboBox GOD_ItemMasterForm = GOD_Main.GOD_Application.Forms.GetFormByTypeAndCount("150", 1) GOD_ItemMasterForm.Select() GOD_Main.GOD_Application.ActivateMenuItem("1281") GOD_ItemMasterForm.Items.Item("5").Specific.value = GOD_Rec.Fields.Item("ItemCode").Value GOD_ItemMasterForm.Items.Item("1").Click(SAPbouiCOM.BoCellClickType.ct_Regular) GOD_ComboBox = GOD_ItemMasterForm.Items.Item("10002056").Specific GOD_ComboBox.Select("Manual", SAPbouiCOM.BoSearchKey.psk_ByDescription) GOD_ItemMasterForm.Update() GOD_Form = GOD_Main.GOD_Application.Forms.GetForm("0", pVal.FormTypeCount) GOD_Form.Items.Item("1").Click(SAPbouiCOM.BoCellClickType.ct_Regular) System.Windows.Forms.SendKeys.SendWait("{ENTER}") If GOD_ItemMasterForm.Mode = SAPbouiCOM.BoFormMode.fm_UPDATE_MODE Then GOD_ItemMasterForm.Items.Item("1").Click(SAPbouiCOM.BoCellClickType.ct_Regular) End If GOD_Rec.MoveNext() Next End If End Select End Sub

Thanks and Regards,

Mahendrakumar