Re: Project field

Hello Pedro,

Sorry that I put wrong syntax.

Public Sub ItemEvent_Handler_JournalEntry(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean)

        If pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_ACTIVATE Then

            If pVal.BeforeAction = False And pVal.ActionSuccess = True Then

                If T_IsFrReconcile = True Then

                    Dim oForm As SAPbouiCOM.Form

                    Dim oProjectCode As SAPbouiCOM.ChooseFromList

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

                    oForm.Freeze(True)

                   oProjectCode = CType(oForm.Items.Item("26").Specific, SAPbouiCOM.ChooseFromList)

                                        If oProjectCode.Selected.Value <> M_ProjectReconcile Then

                        oProjectCode.Select(M_ProjectReconcile, SAPbouiCOM.BoSearchKey.psk_ByValue)

                    End If

                    M_IsFrReconcile = False

                    oForm.Freeze(False)

                End If

    End Sub

The above syntax is using to copy a project code in a journal entry that we want to reconcile by adjustment. So, after clicking Adjustment button in the internal reconciliation, the journal entry for the adjustment appears. The user want that the project code field in the header is copied from the journal entry that want to adjust in the internal reconciliation form

The above syntax is not failed and can't be used. Please help to solve this issue.

THanks,

Steve