Re: Creating UDO with child table

Dim oUserObjectMD As SAPbobsCOM.UserObjectsMD

Dim oUDOFind As SAPbobsCOM.UserObjectMD_FindColumns

Dim oUDOForm As SAPbobsCOM.UserObjectMD_FormColumns

Dim oUDOEnhancedForm As SAPbobsCOM.UserObjectMD_EnhancedFormColumns

Set oUserObjectMD = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserObjectsMD)

Set oUDOFind = oUserObjectMD.FindColumns

Set oUDOForm = oUserObjectMD.FormColumns

Set oUDOEnhancedForm = oUserObjectMD.EnhancedFormColumns

oUserObjectMD.Code = "UDO"

oUserObjectMD.Name = "Header"

oUserObjectMD.TableName = "HEADER"

oUserObjectMD.ChildTables.TableName = "LINES"

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 = 2048

oUserObjectMD.MenuCaption = "UDO"

oUserObjectMD.MenuUID = "UDO"

oUserObjectMD.Position = 1

oUserObjectMD.CanLog = SAPbobsCOM.BoYesNoEnum.tNO

oUserObjectMD.UseUniqueFormType = SAPbobsCOM.BoYesNoEnum.tYES

'===========================================================================================

oUDOFind.ColumnAlias = "DocEntry"

oUDOFind.ColumnDescription = "DocEntry"

oUDOFind.Add

oUDOFind.ColumnAlias = "DocNum"

oUDOFind.ColumnDescription = "DocNum"

oUDOFind.Add

oUDOFind.ColumnAlias = "CreateDate"

oUDOFind.ColumnDescription = "CreateDate"

oUDOFind.Add

oUDOFind.ColumnAlias = "UpdateDate"

oUDOFind.ColumnDescription = "UpdateDate"

oUDOFind.Add

oUDOFind.ColumnAlias = "U_cardcode"

oUDOFind.ColumnDescription = "cardcode"

oUDOFind.Add

oUDOFind.ColumnAlias = "U_ShipTo"

oUDOFind.ColumnDescription = "ShipTo"

oUDOFind.Add

oUDOFind.ColumnAlias = "U_BillTo"

oUDOFind.ColumnDescription = "BillTo"

'===========================================================================================

oUDOForm.FormColumnAlias = "DocEntry"

oUDOForm.FormColumnDescription = "DocEntry"

oUDOForm.Add

oUDOForm.FormColumnAlias = "U_cardcode"

oUDOForm.FormColumnDescription = "cardcode"

oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES

oUDOForm.Add

oUDOForm.FormColumnAlias = "U_ShipTo"

oUDOForm.FormColumnDescription = "ShipTo"

oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES

oUDOForm.Add

oUDOForm.FormColumnAlias = "U_BillTo"

oUDOForm.FormColumnDescription = "BillTo"

oUDOForm.Editable = SAPbobsCOM.BoYesNoEnum.tYES

oUDOForm.Add

'===========================================================================================

oUDOEnhancedForm.ColumnAlias = "LineId"

oUDOEnhancedForm.ColumnDescription = "LineId"

oUDOEnhancedForm.ColumnIsUsed = SAPbobsCOM.BoYesNoEnum.tYES

oUDOEnhancedForm.ColumnNumber = 1

oUDOEnhancedForm.ChildNumber = 1

oUDOEnhancedForm.Add

oUDOEnhancedForm.ColumnAlias = "U_itemcode"

oUDOEnhancedForm.ColumnDescription = "itemcode"

oUDOEnhancedForm.ColumnIsUsed = SAPbobsCOM.BoYesNoEnum.tYES

oUDOEnhancedForm.ColumnNumber = 2

oUDOEnhancedForm.ChildNumber = 1

oUDOEnhancedForm.Add

oUDOEnhancedForm.ColumnAlias = "U_itemname"

oUDOEnhancedForm.ColumnDescription = "itemname"

oUDOEnhancedForm.ColumnIsUsed = SAPbobsCOM.BoYesNoEnum.tYES

oUDOEnhancedForm.ColumnNumber = 3

oUDOEnhancedForm.ChildNumber = 1

oUDOEnhancedForm.Add

oUDOEnhancedForm.ColumnAlias = "U_quantity"

oUDOEnhancedForm.ColumnDescription = "quantity"

oUDOEnhancedForm.ColumnIsUsed = SAPbobsCOM.BoYesNoEnum.tYES

oUDOEnhancedForm.ColumnNumber = 4

oUDOEnhancedForm.ChildNumber = 1

oUDOEnhancedForm.Add

oUDOEnhancedForm.ColumnAlias = "U_price"

oUDOEnhancedForm.ColumnDescription = "price"

oUDOEnhancedForm.ColumnIsUsed = SAPbobsCOM.BoYesNoEnum.tYES

oUDOEnhancedForm.ColumnNumber = 5

oUDOEnhancedForm.ChildNumber = 1

oUDOEnhancedForm.Add

oUDOEnhancedForm.ColumnAlias = "U_discount"

oUDOEnhancedForm.ColumnDescription = "discount"

oUDOEnhancedForm.ColumnIsUsed = SAPbobsCOM.BoYesNoEnum.tYES

oUDOEnhancedForm.ColumnNumber = 6

oUDOEnhancedForm.ChildNumber = 1

oUDOEnhancedForm.Add

If oUserObjectMD.Add <> 0 Then

'oCompany.GetLastError(lErrCode, sErrMsg)

'MessageBox.Show (lErrCode & ": " & sErrMsg)

Debug.Print oCompany.GetLastErrorDescription

Else

Debug.Print "Ok"

End If

Regards