Enter Value in Activity System Form

37 Views

Hi All,

I want to enter a value from UDO to Activity System Form (cardcode).

I try the following code but no success.

If (pVal.ItemUID = "activity") And (pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK) And (pVal.Before_Action = False) Then

Dim f As SAPbouiCOM.Form

f = SBO_Application.Forms.Item(FormUID)

Dim oEditCardcode As SAPbouiCOM.EditText 'Card Code

'get the cardcode

Dim strCardcode As String 'Cardcode

oEditCardcode = f.Items.Item("txtcode").Specific

strCardcode = oEditCardcode.Value

SBO_Application.Menus.Item("2563").Activate()

Dim fActiv As SAPbouiCOM.Form

Dim mCrdCode As SAPbouiCOM.ComboBox

fActiv = SBO_Application.Forms.Item(FormUID)

mCrdCode = fActiv.Items.Item("9").Specific

mCrdCode.Value = strCardcode

End If

Any idea?

Best Regards,

Vangelis