Skip to Content

Hello All,

Greetings !!!

  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

 

To report this post you need to login first.

Be the first to leave a comment

You must be Logged on to comment or reply to a post.

Leave a Reply