- SAP Community
- Products and Technology
- Enterprise Resource Planning
- ERP Q&A
- UDO not Creating
- Subscribe to RSS Feed
- Mark Question as New
- Mark Question as Read
- Bookmark
- Subscribe
- Printer Friendly Page
- Report Inappropriate Content
UDO not Creating
- Subscribe to RSS Feed
- Mark Question as New
- Mark Question as Read
- Bookmark
- Subscribe
- Printer Friendly Page
- Report Inappropriate Content
on 06-28-2016 7:07 AM
Hi All,
I am using below code , But it does not work , why?
Private Function CreateUDOForm() As Boolean
Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD = Nothing
Dim oUDOFind As SAPbobsCOM.UserObjectMD_FindColumns = Nothing
Try
Dim index As Integer = GetSubMenuId("4352") + 1
oUserObjectMD = DirectCast(oApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD), SAPbobsCOM.UserObjectsMD)
oUserObjectMD.Code = "Hex"
oUserObjectMD.Name = "Hex Trip Details"
oUserObjectMD.TableName = "EAMIN_HTRIP1"
oUserObjectMD.ObjectType = SAPbobsCOM.BoUDOObjType.boud_Document
oUserObjectMD.CanFind = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanDelete = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanCancel = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanClose = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanYearTransfer = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanLog = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.ManageSeries = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanCreateDefaultForm = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.EnableEnhancedForm = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.MenuItem = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FatherMenuID = 4352
oUserObjectMD.MenuCaption = "Hex Trip"
oUserObjectMD.MenuUID = "Hex"
oUserObjectMD.Position = index
oUserObjectMD.FindColumns.ColumnAlias = "DocEntry"
oUserObjectMD.FindColumns.ColumnDescription = "DocEntry"
oUserObjectMD.FindColumns.Add()
oUserObjectMD.FindColumns.ColumnAlias = "U_PostingDate"
oUserObjectMD.FindColumns.ColumnDescription = "Posting Date"
oUserObjectMD.FindColumns.Add()
oUserObjectMD.FindColumns.ColumnAlias = "U_PrjCode"
oUserObjectMD.FindColumns.ColumnDescription = "Project Code"
oUserObjectMD.FindColumns.Add()
oUserObjectMD.FindColumns.ColumnAlias = "U_PrjName"
oUserObjectMD.FindColumns.ColumnDescription = "Project Name"
oUserObjectMD.FindColumns.Add()
oUserObjectMD.FindColumns.ColumnAlias = "U_ShfCode"
oUserObjectMD.FindColumns.ColumnDescription = "Shift Code"
oUserObjectMD.FindColumns.Add()
oUserObjectMD.FindColumns.ColumnAlias = "U_MacId"
oUserObjectMD.FindColumns.ColumnDescription = "Machine Code"
oUserObjectMD.FindColumns.Add()
oUserObjectMD.ChildTables.TableName = "EAMIN_HTRIPd1"
oUserObjectMD.FormColumns.SetCurrentLine(0)
oUserObjectMD.FormColumns.FormColumnAlias = "U_StartTime"
'ChildTable ColumnAlias
oUserObjectMD.FormColumns.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FormColumns.FormColumnDescription = "Start Time"
'ChildTable ColumnDescription
oUserObjectMD.FormColumns.SonNumber = 1
' ChildTable SonNumber
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.FormColumnAlias = "U_EndTime"
'ChildTable ColumnAlias
oUserObjectMD.FormColumns.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FormColumns.FormColumnDescription = "End Time"
'ChildTable ColumnDescription
oUserObjectMD.FormColumns.SonNumber = 1
' ChildTable SonNumber
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.FormColumnAlias = "U_ValAdd"
'ChildTable ColumnAlias
oUserObjectMD.FormColumns.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FormColumns.FormColumnDescription = "Value Added"
'ChildTable ColumnDescription
oUserObjectMD.FormColumns.SonNumber = 1
' ChildTable SonNumber
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.FormColumnAlias = "U_TruId"
'ChildTable ColumnAlias
oUserObjectMD.FormColumns.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FormColumns.FormColumnDescription = "truck Id"
'ChildTable ColumnDescription
oUserObjectMD.FormColumns.SonNumber = 1
' ChildTable SonNumber
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.FormColumnAlias = "U_TruNo"
'ChildTable ColumnAlias
oUserObjectMD.FormColumns.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FormColumns.FormColumnDescription = "Trip No"
'ChildTable ColumnDescription
oUserObjectMD.FormColumns.SonNumber = 1
' ChildTable SonNumber
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.FormColumnAlias = "U_Reason"
'ChildTable ColumnAlias
oUserObjectMD.FormColumns.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FormColumns.FormColumnDescription = "Reason"
'ChildTable ColumnDescription
oUserObjectMD.FormColumns.SonNumber = 1
' ChildTable SonNumber
oUserObjectMD.FormColumns.Add()
oUserObjectMD.FormColumns.FormColumnAlias = "U_Remarks"
'ChildTable ColumnAlias
oUserObjectMD.FormColumns.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FormColumns.FormColumnDescription = "Remarks"
'ChildTable ColumnDescription
oUserObjectMD.FormColumns.SonNumber = 1
' ChildTable SonNumber
oUserObjectMD.FormColumns.Add()
If oUserObjectMD.Add() <> 0 Then
' Throw New Exception(oApplication.Company.GetLastErrorDescription)
End If
Catch ex As Exception
'Throw ex
Finally
System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
oUserObjectMD = Nothing
GC.WaitForPendingFinalizers()
GC.Collect()
End Try
Return True
End Function
- SAP Managed Tags:
- SAP Business One Extensibility
Accepted Solutions (0)
Answers (2)
Answers (2)
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
hi Evangelos D. Plagianos,
I tried it , but The UDO form is not open after REOPEN SAP Business One.
this is my Code
Private Sub CreateUDO()
Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD = Nothing
Dim oUDOFind As SAPbobsCOM.UserObjectMD_FindColumns = Nothing
Dim oUDOForm As SAPbobsCOM.UserObjectMD_FormColumns = Nothing
Try
'Dim index As Integer = GetSubMenuId("43525") + 2
oUserObjectMD = DirectCast(oApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD), SAPbobsCOM.UserObjectsMD)
oUDOFind = oUserObjectMD.FindColumns
oUDOForm = oUserObjectMD.FormColumns
oUserObjectMD.Code = "EAHex"
oUserObjectMD.Name = "Header"
oUserObjectMD.TableName = "EAMIN_HTRIP2"
oUserObjectMD.ObjectType = SAPbobsCOM.BoUDOObjType.boud_Document
oUserObjectMD.CanCreateDefaultForm = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.EnableEnhancedForm = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.RebuildEnhancedForm = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanFind = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanDelete = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanCancel = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanClose = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanLog = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.MenuItem = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FatherMenuID = 43525
oUserObjectMD.MenuCaption = "Hex Trip Details"
oUserObjectMD.MenuUID = "TeHEX"
oUserObjectMD.Position = 13
oUserObjectMD.UseUniqueFormType = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanYearTransfer = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.ManageSeries = SAPbobsCOM.BoYesNoEnum.tNO
'' FORM FIELDS
oUDOForm.Add()
oUDOForm.FormColumnAlias = "DocEntry"
oUDOForm.FormColumnDescription = "DocEntry"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.Add()
oUDOForm.FormColumnAlias = "U_PostingDate"
oUDOForm.FormColumnDescription = "Posting Date"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.Add()
oUDOForm.FormColumnAlias = "U_PrjCode"
oUDOForm.FormColumnDescription = "Project Code"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.Add()
oUDOForm.FormColumnAlias = "U_PrjName"
oUDOForm.FormColumnDescription = "Project Name"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.Add()
oUDOForm.FormColumnAlias = "U_ShfCode"
oUDOForm.FormColumnDescription = "Shift Code"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.Add()
oUDOForm.FormColumnAlias = "U_MacId"
oUDOForm.FormColumnDescription = "Machine Code"
oUDOForm.Add()
'' FIND COLUMNS
oUDOFind.ColumnAlias = "DocEntry"
oUDOFind.ColumnDescription = "DocEntry"
oUDOFind.Add()
oUDOFind.ColumnAlias = "U_PostingDate"
oUDOFind.ColumnDescription = "Posting Date"
oUDOFind.Add()
oUDOFind.ColumnAlias = "U_PrjCode"
oUDOFind.ColumnDescription = "Project Code"
oUDOFind.Add()
oUDOFind.ColumnAlias = "U_PrjName"
oUDOFind.ColumnDescription = "Project Name"
oUDOFind.Add()
oUDOFind.ColumnAlias = "U_ShfCode"
oUDOFind.ColumnDescription = "Shift Code"
oUDOFind.Add()
oUDOFind.ColumnAlias = "U_MacId"
oUDOFind.ColumnDescription = "Machine Code"
oUDOFind.Add()
'' Child Table
oUserObjectMD.ChildTables.TableName = "EAMIN_HTRIPd2"
oUDOForm.Add()
oUDOForm.SetCurrentLine(0)
oUDOForm.FormColumnAlias = "U_StartTime"
oUDOForm.FormColumnDescription = "Start Time"
oUDOForm.SonNumber = 1
oUserObjectMD.FormColumns.Add()
oUDOForm.Add()
oUDOForm.SetCurrentLine(1)
oUDOForm.FormColumnAlias = "U_EndTime"
oUDOForm.FormColumnDescription = "End Time"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUserObjectMD.FormColumns.Add()
oUDOForm.Add()
oUDOForm.SetCurrentLine(2)
oUDOForm.FormColumnAlias = "U_ValAdd"
oUDOForm.FormColumnDescription = "Value Added"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUserObjectMD.FormColumns.Add()
oUDOForm.Add()
oUDOForm.SetCurrentLine(3)
oUDOForm.FormColumnAlias = "U_TruId"
oUDOForm.FormColumnDescription = "Truck Id"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUserObjectMD.FormColumns.Add()
oUDOForm.Add()
oUDOForm.SetCurrentLine(4)
oUDOForm.FormColumnAlias = "U_TruNo"
oUDOForm.FormColumnDescription = "Trip No"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUserObjectMD.FormColumns.Add()
oUDOForm.Add()
oUDOForm.SetCurrentLine(5)
oUDOForm.FormColumnAlias = "U_Reason"
oUDOForm.FormColumnDescription = "Reason"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUserObjectMD.FormColumns.Add()
oUDOForm.Add()
oUDOForm.SetCurrentLine(6)
oUDOForm.FormColumnAlias = "U_Remarks"
oUDOForm.FormColumnDescription = "Remarks"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUserObjectMD.FormColumns.Add()
oUDOForm.Add()
If oUserObjectMD.Add() <> 0 Then
' Throw New Exception(oApplication.Company.GetLastErrorDescription)
End If
Catch ex As Exception
' Throw ex
Finally
System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
oUserObjectMD = Nothing
GC.WaitForPendingFinalizers()
GC.Collect()
End Try
End Sub
Code runs successfully.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
Hi Lakshmi,
It looks fine but you have to post the errorcode and the error description.
A silly question... the tables have the proper type? eg table EAMIN_HTRIP1 have to be MasterData or Document and the table EAMIN_HTRIPd1 have to Master Data Lines or Document lines
Kind Regards
Evangelos D. Plagianos
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
Hi Lakshmi,
try to place the UDO under 43525 menu (Administration -> Setup) with the menu name "TestHEX" instead of Hex that you coded before.
If it will work that means that the function GetSubMenuId have issue.
In any case after the creation make a logoff from the company, and search the menu using the Enterprise Search (for menus)
King Regards,
Evangelos D. Plagianos
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
Hi,
Thanks for your reply. I did it. It works. Menu name displays after close SAP B1. But when Click UDO Menu , The Form is not open. I am using below Code. it did not get any error .
Private Sub CreateUDO()
Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD = Nothing
Dim oUDOFind As SAPbobsCOM.UserObjectMD_FindColumns = Nothing
Dim oUDOForm As SAPbobsCOM.UserObjectMD_FormColumns = Nothing
Try
Dim index As Integer = GetSubMenuId("43525") + 2
oUserObjectMD = DirectCast(oApplication.Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD), SAPbobsCOM.UserObjectsMD)
oUDOFind = oUserObjectMD.FindColumns
oUDOForm = oUserObjectMD.FormColumns
oUserObjectMD.Code = "EA_Hex"
oUserObjectMD.Name = "Header"
oUserObjectMD.TableName = "EAMIN_HTRIP2"
oUserObjectMD.ObjectType = SAPbobsCOM.BoUDOObjType.boud_Document
oUserObjectMD.CanFind = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanDelete = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanCancel = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanClose = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.CanYearTransfer = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanLog = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.ManageSeries = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.CanCreateDefaultForm = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.EnableEnhancedForm = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.MenuItem = SAPbobsCOM.BoYesNoEnum.tYES
oUserObjectMD.FatherMenuID = 43525
oUserObjectMD.MenuCaption = "Hex Trip Details"
oUserObjectMD.MenuUID = "TestHEX"
oUserObjectMD.Position = index
oUserObjectMD.CanLog = SAPbobsCOM.BoYesNoEnum.tNO
oUserObjectMD.UseUniqueFormType = SAPbobsCOM.BoYesNoEnum.tYES
oUDOFind.ColumnAlias = "DocEntry"
oUDOFind.ColumnDescription = "DocEntry"
oUDOFind.Add()
oUDOForm.FormColumnAlias = "DocEntry"
oUDOForm.FormColumnDescription = "DocEntry"
oUDOForm.Add()
oUDOFind.ColumnAlias = "U_PostingDate"
oUDOFind.ColumnDescription = "Posting Date"
oUDOFind.Add()
oUDOForm.FormColumnAlias = "U_PostingDate"
oUDOForm.FormColumnDescription = "Posting Date"
oUDOForm.Add()
oUDOFind.ColumnAlias = "U_PrjCode"
oUDOFind.ColumnDescription = "Project Code"
oUDOFind.Add()
oUDOForm.FormColumnAlias = "U_PrjCode"
oUDOForm.FormColumnDescription = "Project Code"
oUDOForm.Add()
oUDOFind.ColumnAlias = "U_PrjName"
oUDOFind.ColumnDescription = "Project Name"
oUDOFind.Add()
oUDOForm.FormColumnAlias = "U_PrjName"
oUDOForm.FormColumnDescription = "Project Name"
oUDOForm.Add()
oUDOFind.ColumnAlias = "U_ShfCode"
oUDOFind.ColumnDescription = "Shift Code"
oUDOFind.Add()
oUDOForm.FormColumnAlias = "U_ShfCode"
oUDOForm.FormColumnDescription = "Shift Code"
oUDOForm.Add()
oUDOFind.ColumnAlias = "U_MacId"
oUDOFind.ColumnDescription = "Machine Code"
oUDOFind.Add()
oUDOForm.FormColumnAlias = "U_MacId"
oUDOForm.FormColumnDescription = "Machine Code"
oUDOForm.Add()
oUserObjectMD.ChildTables.TableName = "EAMIN_HTRIPd2"
oUDOForm.Add()
oUDOForm.SetCurrentLine(0)
oUDOForm.FormColumnAlias = "U_StartTime"
oUDOForm.FormColumnDescription = "Start Time"
oUDOForm.SonNumber = 1
oUDOForm.Add()
oUDOForm.SetCurrentLine(1)
oUDOForm.FormColumnAlias = "U_EndTime"
oUDOForm.FormColumnDescription = "End Time"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUDOForm.Add()
oUDOForm.SetCurrentLine(2)
oUDOForm.FormColumnAlias = "U_ValAdd"
oUDOForm.FormColumnDescription = "Value Added"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUDOForm.Add()
oUDOForm.SetCurrentLine(3)
oUDOForm.FormColumnAlias = "U_TruId"
oUDOForm.FormColumnDescription = "Truck Id"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUDOForm.Add()
oUDOForm.SetCurrentLine(4)
oUDOForm.FormColumnAlias = "U_TruNo"
oUDOForm.FormColumnDescription = "Trip No"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUDOForm.Add()
oUDOForm.SetCurrentLine(5)
oUDOForm.FormColumnAlias = "U_Reason"
oUDOForm.FormColumnDescription = "Reason"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUDOForm.Add()
oUDOForm.SetCurrentLine(6)
oUDOForm.FormColumnAlias = "U_Remarks"
oUDOForm.FormColumnDescription = "Remarks"
oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES
oUDOForm.SonNumber = 1
oUDOForm.Add()
If oUserObjectMD.Add() <> 0 Then
' Throw New Exception(oApplication.Company.GetLastErrorDescription)
End If
Catch ex As Exception
' Throw ex
Finally
System.Runtime.InteropServices.Marshal.ReleaseComObject(oUserObjectMD)
oUserObjectMD = Nothing
GC.WaitForPendingFinalizers()
GC.Collect()
End Try
End Sub
Where is the error? How can i achieve it?
- Mark as New
- Bookmark
- Subscribe
- Subscribe to RSS Feed
- Report Inappropriate Content
- PIR date at start of month in Enterprise Resource Planning Q&A
- Re - create bill of exchange presentation in Enterprise Resource Planning Q&A
- Message_Type_X error when using BAPI in Enterprise Resource Planning Q&A
- ABS_ATT_TYPE_NOT_FOUND runtimr error in CAT2 time entry in Enterprise Resource Planning Q&A
- How create a session timeout with a countdown timer in SAPUI5 app that interacts with ABAP backend? in Enterprise Resource Planning Q&A
| User | Count |
|---|---|
| 98 | |
| 12 | |
| 10 | |
| 6 | |
| 6 | |
| 4 | |
| 3 | |
| 3 | |
| 3 | |
| 3 |
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.