Docentry in UI API

[Former Member]

Hi,

I need docentry when i post sale order document through UI API

[kothandaraman_nagarajan]

Hi,

Please repost above discussion at SDK forum.

Thanks & Regards,

Nagarajan

[Former Member]

Private Sub SBO_Application_FormDataEvent(ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, ByRef BubbleEvent As Boolean) Handles SBO_Application.FormDataEvent

        Try

            Select Case BusinessObjectInfo.FormTypeEx

                Case "139"

                    Select Case BusinessObjectInfo.EventType

                        Case SAPbouiCOM.BoEventTypes.et_FORM_DATA_UPDATE

                            'If BusinessObjectInfo.BeforeAction = False Then

                            '    oForm = SBO_Application.Forms.ActiveForm

                            '    oForm.Items.Item("tab_RData").Visible = False

                            'ElseIf BusinessObjectInfo.BeforeAction = False And BusinessObjectInfo.ActionSuccess = True Then

                            'End If

                            'Case SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD

                            '    oForm = SBO_Application.Forms.ActiveForm

                            '    oForm.Items.Item("tab_RData").Visible = False

                        Case SAPbouiCOM.BoEventTypes.et_FORM_DATA_LOAD

                            If BusinessObjectInfo.BeforeAction = False Then

                                docentry = oForm.DataSources.DBDataSources.Item(0).GetValue("DocEntry", 0) ' Convert.ToInt32(oForm.DataSources.DBDataSources.Item(0).GetValue("DocEntry", 0))

                                Call FRDCheck(docentry, oForm.TypeEx)

                            End If

                        Case SAPbouiCOM.BoEventTypes.et_FORM_DATA_ADD And BusinessObjectInfo.ActionSuccess = True

                            oForm = SBO_Application.Forms.Item(BusinessObjectInfo.FormUID)

                            Dim soDocEntry As String

                            Dim odbds As SAPbouiCOM.DBDataSource = CType(oForm.DataSources.DBDataSources.Item(0), SAPbouiCOM.DBDataSource)

                            Dim oSaleOrder As SAPbobsCOM.Documents

                            oSaleOrder = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oOrders)

                            soDocEntry = odbds.GetValue("DocEntry", odbds.Offset).Trim

                    End Select

            End Select

        Catch ex As Exception

            SBO_Application.StatusBar.SetText(ex.Message, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)

            BubbleEvent = False

            Exit Sub

        End Try

    End Sub

[kothandaraman_nagarajan]

Hi,

Please post at SDK forum not in this forum.

Thanks & Regards,

Nagarajan

[former_member188586]

hi

  please check bellow thread

Thanks & regards

    AKR

[Former Member]

Hi AKR,

When i user that code i got lot of error.

[Former Member]

Hi,

maybe this may help you

regards alessandro