如何在SAP Business One UDO中动态更改网格中的ObjType?

2020-09-21 13:22发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)大家好, 问候!!! ...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


大家好,

问候!!!

我正在开发一个在折叠级别为1的网格的单列中包含ItemCode/CardCode的加载项。我想动态地更改该列的ObjectType。ieForItem Code我要将ObjType设置为" 4",并且 卡代码" 2"。

加载表格时有可能吗?

感谢和问候,

Mahendrakumar

2条回答
SAP砖家
2020-09-21 14:06

大家好,

使用另一个选项与SAP R/3正向导航相同,我得到了如下的临时解决方案-它可以工作。但是我想给他们链接功能。 任何建议将不胜感激。

如果pVal.BeforeAction然后
           其他
             选择案例pVal.EventType
                 案例SAPbouiCOM.BoEventTypes.et_DOUBLE_CLICK
                     Dim Objtype As String =""
                     Dim strCode As String =""
                     GOD_Form = GOD_Main.GOD_Application.Forms.GetForm(" frmCSSer",pVal.FormTypeCount)
                     GOD_Grid = GOD_Form.Items.Item(" GrdCSS")。特定
                     尝试
                         如果pVal.ItemUID =" GrdCSS"和pVal.ColUID =" Code",则
                             GOD_EditColumn = GOD_Grid.Columns.Item(3)
                             对象类型=修剪(GOD_EditColumn.GetText(pVal.Row))
                             GOD_EditColumn = GOD_Grid.Columns.Item(1)
                             strCode =修剪(GOD_EditColumn.GetText(pVal.Row))
                             如果Objtype =" 2",则
                                 GOD_Main.GOD_Application.ActivateMenuItem(" 2561")
                                 GOD_LinkedMasterForm = GOD_Main.GOD_Application.Forms.ActiveForm
                                 GOD_LinkedMasterForm.Items.Item(" 5")。Specific.Value = strCode
                                 GOD_LinkedMasterForm.Items.Item(" 1")。Click(SAPbouiCOM.BoCellClickType.ct_Regular)
                             ElseIf Objtype =" 4"然后
                                 GOD_Main.GOD_Application.ActivateMenuItem(" 3073")
                                 GOD_LinkedMasterForm = GOD_Main.GOD_Application.Forms.ActiveForm
                                 GOD_LinkedMasterForm.Items.Item(" 5")。Specific.Value = strCode
                                 GOD_LinkedMasterForm.Items.Item(" 1")。Click(SAPbouiCOM.BoCellClickType.ct_Regular)
                             万一
                         万一
                     异常捕获
                         GOD_Main.GOD_Application.MessageBox(例如消息)
                     结束尝试
 结束选择
 Endif 

一周热门 更多>