How can access multiple form value using SDK

[Former Member]

Hi,

Iam Using SAB B1 2005 PL : 5

How can access multiple form value using sdk pl send some sample code

Regards

Jambu

[Former Member]

Hi ,

Iam Using SAP B1 2005 Pl : 5. I Need some help

Items are managed by serial Number.In A/R Invoice Form i enter the

itemno and qty after entering Press CTRL + TAB Serial Number Transaction

form is opened i select two serial numbers. That selected Serial Number should be

set in A/R Invoice form Free Text Field i tried using SDK but i cant proceed

in some level. Pl help me out.

I Capture the selected Serial Number in serial Number Transaction Form

and set the value in Temporarly Find Field (Form Number - 25 , Item

Number - 22 )using et_DOUBLE_CLICK Event. Here after i dont know how

to proceed.

This Capture Value should be set in A/R Invoice form in Free Text Field .I

dont know how to set the value in Free Text.

As per the code Open A/R Invoice Form and enter the Item No and

Quantity in Item section press ctrl + Tab in qty field serial Number

Transaction form is open and select the serial number.After selecting in

find field Double click it shown the capture value.

Declaration Part

Private oMatrix As SAPbouiCOM.Matrix

Private RowNum As Integer

Private oColumns As SAPbouiCOM.Columns

Private oColumn As SAPbouiCOM.Column

Dim oTest As SAPbouiCOM.EditText ' Item Code text edit

Dim oVal As SAPbouiCOM.EditText ' Item Code text edit

Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef

pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles

SBO_Application.ItemEvent

If pVal.FormType = "-25" Or pVal.FormType = 25 Then

If pVal.ItemUID ="22" And pVal.EventType =

SAPbouiCOM.BoEventTypes.et_DOUBLE_CLICK Then

If pVal.BeforeAction = False Then

oMatrix = SBO_Application.Forms.Item(FormUID).Items.Item

("55").Specific

Dim tt As String

Dim t1 As String

Dim T2 As String

Dim Row As Integer

Row = 1

For Row = 1 To 100

oTest = SBO_Application.Forms.Item(FormUID).Items.Item

("22").Specific

oVal = oMatrix.Columns.Item("24").Cells.Item(Row).Specific

tt = oVal.Value

T2 = oTest.Value + "," + tt

If oTest.Value = "" Then

oTest.Value = tt

Else

oTest.Value = T2

End If

Next

End If

End If

End If

End Sub

Pl correct it and send to me

Regards

Jambu

[former_member185703]

Hi Jambu,

Sorry, but I don't understand fully:

What do you mean by "multiple form value "?

Regards,

Frank