SBO_Application.Forms.ActiveForm.TypeEx -9875

Dear all,
i have done with some code in the menu event.
Case "1282"
If (pVal.BeforeAction = False And SBO_Application.Forms.ActiveForm.TypeEx = "SHIFT1") Then
                        oForm = SBO_Application.Forms.ActiveForm
                        oForm.Items.Item("4").Enabled = True
                        'Dim FroupcodeAct As SAPbouiCOM.CheckBox
                        'FroupcodeAct = oForm.Items.Item("9").Specific
                        'FroupcodeAct.Checked = True
                    End If
end case
but the problem is when i press the ctrl+ A at that time the SBO_Application.Forms.ActiveForm.TypeEx -9875 is genarated but when i press it on the SAP menu at that time its working fine..
what i need to check for this probm please help me
thanks in advance

Hi,
Try This........
Case "1282"
If (pVal.BeforeAction = False And sbo_application.Forms.ActiveForm.UniqueID = "SHIFT1") Then
                        oForm = SBO_Application.Forms.ActiveForm
                        oForm.Items.Item("4").Enabled = True
                        'Dim FroupcodeAct As SAPbouiCOM.CheckBox
                        'FroupcodeAct = oForm.Items.Item("9").Specific
                        'FroupcodeAct.Checked = True
                    End If
end case
Thanks
Shafi

Similar Messages

SBO_Application.Forms.ActiveForm is Sales Order but in fact it isn't

Hi,
I have the Sales Order form opened and I did a mistake when entering the CardCode so this causes SAP to pop the List of Business Partners but doing so it goes nuts in one of my validation in ItemEvent and when I do Cancel on the List of Business Partners, the form reappears and I turn around like this indifinitely
So I'm wondering why I cannot check if this is form 100001 witch is the List Of Business Partner form but the
SBO_Application.Forms.ActiveForm reports I'm on the Sales Order form but I'm not.
So I don't know what do to do avoid checking all my conditions in ItemEvent if this form is present
I have a couple of scenarios of course but I just want to ear from you guys what you suggest.
Thank you

My question seems too complicated and was never answered so I close it until my problem comes back then I will ask at that time with a simpliest question.

Which form's typeex property is 38?

Which form's typeex property is 38?
thanks in advance!

"Settings - User Defined Fields"
Accessible from Tools / User Defined Fields / Settings, when a UDF window is being displayed.
John.

Call specfic file in CHM file

Hi All,
I have created .chm file. Now I want to open specific htm file on press of F1 on the form. How do I give the path ? I am using following code to call chm file:
If pVal.MenuUID = "275" And pVal.BeforeAction = True Then
                If SBO_Application.Forms.ActiveForm.TypeEx = "ChkRdo" Then
                    Dim psi As New ProcessStartInfo()
                    psi.UseShellExecute = True
                    psi.FileName = "C:\Documents and Settings\Harish Patil\Desktop\Checkbox and Option button\ChkOpt\ChkOpt\New_HTML_Help.chm"
                    Process.Start(psi)
                    BubbleEvent = False
                End If
            End If
This works fine but call the main chm file. How do I call specific file?
Thanks & Regards

Hi Sheetal,
If u want to open a different file depending on the Form Type and if u dont have many different form types the i guess u can use the following code snippet.
If pVal.MenuUID = "275" And pVal.BeforeAction = True Then
If SBO_Application.Forms.ActiveForm.TypeEx = "ChkRdo" Then
Dim psi As New ProcessStartInfo()
psi.UseShellExecute = True
psi.FileName = "C:\Documents and Settings\Harish Patil\Desktop\Checkbox and Option button\ChkOpt\ChkOpt\New_HTML_Help.chm"
Process.Start(psi)
BubbleEvent = False
ElseIf SBO_Application.Forms.ActiveForm.TypeEx = "ChkRdo" Then
'Past the above same code with a different file name
End If
End If
like that u can open different files, or if u have name different files and forms.. then its better to use the Case statement instead of the If clause.
Hope it helps.
Regards,
Vasu Natari.

DataTable in a grid make flicker in the first dataload

Hi experts,
I have a form with a Grid, in this grid i have a datatable (with query).
I open my form in create mode, if i click to the next button i have the following problem :
                                   - when i open the form for the first time, data are loaded 1 time,
                                   - when i open the form the second time, data are loaded 2 times
                                   - when i open the form the third time, data are loaded 3 times.....
After this first load, if i use next/previous, or change folder i have no problem, data are reloaded just 1 time..
Have you any solution to my problem ?
Regards

Hi gordon,
I put a part of my code because he is long.
this is parts regarding form load, next/previous event and dataload/update. (The datatable is creating in screenpainter as manual).
    Private Sub LoadForm()
        Dim creationPackage As SAPbouiCOM.FormCreationParams
        Dim oXML As Xml.XmlDocument = New Xml.XmlDocument
        Try
            'Create the FormCreationParams object
            creationPackage = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
            oXML.Load(". ormulaireGSN00002.srf")
            creationPackage.XmlData = oXML.InnerXml
            ' Add the form to the SBO application
            Dim oForm As SAPbouiCOM.Form
            oForm = SBO_Application.Forms.AddEx(creationPackage)
            oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE
            oForm.PaneLevel = 1
            oForm.DataSources.DBDataSources.Add("OPRJ")
            oForm.DataBrowser.BrowseBy = "PrjCode"
            AddReFin(oForm, 0)
            oForm.Visible = True
            oForm.Update()
        Catch
            SBO_Application.MessageBox(Err.Description)
        End Try
    End Sub
       Private Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.MenuEvent
        If ((pVal.MenuUID = "1288") Or (pVal.MenuUID = "1289") Or (pVal.MenuUID = "1290") Or (pVal.MenuUID = "1291")) Then
            If SBO_Application.Forms.ActiveForm.TypeEx = "GSN00002" Then
                If (pVal.BeforeAction = False) Then
                    Dim cCode As SAPbouiCOM.EditText
                    Dim oForm As SAPbouiCOM.Form
                    Dim oPaneLevel As Integer
                    Dim oitemedit As SAPbouiCOM.EditText
                    Try
                        oForm = SBO_Application.Forms.ActiveForm
                        oPaneLevel = oForm.PaneLevel
                        cCode = oForm.Items.Item("EdPrC0").Specific
                        oitemedit = oForm.Items.Item("PrjCode").Specific
                        cpAndRes(cCode.Value, oForm)
                        Select Case oPaneLevel
                            Case "1"
                                 AddReFin(oForm, 1)
                            Case "2"
                                 AddOppor(oForm, 1)
                            Case "3"
                                 AddAchat(oForm, 1)
                            Case "4"
                                 AddVente(oForm, 1)
                        End Select
                        oForm.Freeze(False)
                    Catch
                        SBO_Application.MessageBox(Err.Description)
                    End Try
                Else
                    Dim oForm As SAPbouiCOM.Form
                    Try
                        oForm = SBO_Application.Forms.ActiveForm
                        oForm.Freeze(True)
                    Catch
                    End Try
                End If
            End If
        End If
    End Sub
      Private Sub AddReFin(ByVal oform As SAPbouiCOM.Form, ByVal oType As Integer)
        Dim oitem As SAPbouiCOM.Item
        Dim oitemSpeGr As SAPbouiCOM.Grid
        Dim oQuery As MyQueries
        Dim oitemedit As SAPbouiCOM.EditText
        Try
            oitemedit = oform.Items.Item("PrjCode").Specific
            oQuery = New MyQueries("Généralités", oitemedit.Value)
            oitem = oform.Items.Item("GdPrRf")
            oitemSpeGr = oitem.Specific
            oform.DataSources.DataTables.Item("RefFin").Clear()
            oform.DataSources.DataTables.Item("RefFin").ExecuteQuery(oQuery.oMyQuery)
            If oType = 0 Then
                'Affectation des données au grid
                oitemSpeGr.DataTable = oform.DataSources.DataTables.Item("RefFin")
            End If
        Catch
            SBO_Application.MessageBox("Erreur lors de l'ajout des données dans le tableau des résultats financiers" & Err.Description)
        End Try
    End Sub

Regarding Help File

Hi All,
I used the following code for showing the help of user form. Means when i run user form through .Net it shows in SAP and when i will press F1 then it shows help of that user form. It works fine.
But in my .CHM help file i have two or more form information in that file. I want suppose i wil open first form i want display help of that perticular form from that file and when i wil open second i want to desplay help of second form from that file. How i show help of perticular form from .CHM file.
If pVal.MenuUID = "275" And pVal.BeforeAction = True Then
                If SBO_Application.Forms.ActiveForm.TypeEx = "ChkRdo" Then
                    Dim psi As New ProcessStartInfo()
                    psi.UseShellExecute = True
                    psi.FileName = "C:\Documents and Settings\Harish Patil\Desktop\Checkbox and Option button\ChkOpt\ChkOpt\New HTML Help.chm"
                    Process.Start(psi)
                    BubbleEvent = False
                End If
            End If
Thanks and Regards,

check call specfic file in CHM file
The trick is load the chm file with parameters.

Making Visible-False to Business Partner's Tabs

Dear ALL
I Would like to disable some tabs in Business Partner ,how ever am able to do it but when i navigate ,disabled fields are blinking and showing and finally it comes to disabled position but how ever i have put freeze(False),Please provide a solution ASAP
Regards
Zubair

HI,
itemevent and menuevent can handle this
itemevent
        If pVal.FormTypeEx = "134" Then
            If pVal.EventType = BoEventTypes.et_FORM_LOAD And pVal.BeforeAction = False Then
                Dim oBpForm As SAPbouiCOM.Form = sbo_application.Forms.GetForm(pVal.FormTypeEx, pVal.FormTypeCount)
                oBpForm.Items.Item("4").visible = false
            End If
        End If
menuevent
        If pVal.BeforeAction = False Then
            If sbo_application.Forms.ActiveForm.TypeEx = "134" Then
                Dim oBpForm As SAPbouiCOM.Form = sbo_application.Forms.ActiveForm
                oBpForm.Items.Item("4").Visible = False
            End If
        End If
it is always works....
regards,
J.

"Form - Invalid Form" with ActiveForm in Menu Event

Hi all,
I have this error when i try to getr the active form in the SBO_Application_MenuEvent() when i duplicate line in matrix.
SAPbouiCOM.Form oForm = null;
oForm = SBO_Application.Forms.ActiveForm;
How can i try to solve this ?
Thanks for your response.
Best regards,
Michael

Hi Diego,
This is th code i'm use :
case "1293":
                        try
                            oForm = SBO_Application.Forms.ActiveForm;
                            if (oForm.TypeEx == GESTION_AFFAIRE)
                                if (lstdeleteLigne[oForm.TypeCount] == false)
                                    lstdeleteLigne[oForm.TypeCount] = true;
                                else
                                    BubbleEvent = false;
                        catch (Exception ex)
                            TraceInFile.Trace_Error_In_File("MenuUID: " + pVal.MenuUID + "\r\n" + "Before Action: " + pVal.BeforeAction + "\r\n" + "Form: Form_GestionAffaires" + "\r\n" + "Message : " + ex.Message);
                        break;
This error appears sometime. I reaaly don't understand thsi problem.
Thanks for your help.
Best regards,
Michael

ChooseFromList - This form is in invalid for ChooseFromList opertaions

i have created code for creating the CFL on the matrix..
but some time its giveing error like this
ex = {"ChooseFromList - This form is in invalid for ChooseFromList opertaions [66000-122]"}
but some times working very fine
can you tell me what is the exact problm
Public Sub AddChooseFromListForCharecterStics()
        Try
            Dim oForm As SAPbouiCOM.Form
            oForm = SBO_Application.Forms.ActiveForm
            Dim oCFLs As SAPbouiCOM.ChooseFromListCollection
            oCFLs = oForm.ChooseFromLists
            Dim oCFL As SAPbouiCOM.ChooseFromList
            Dim oCFLCreationParams As SAPbouiCOM.ChooseFromListCreationParams
            oCFLCreationParams = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_ChooseFromListCreationParams)
            oCFLCreationParams.MultiSelection = False
            oCFLCreationParams.ObjectType = "CharacteristicMaster"
            oCFLCreationParams.UniqueID = "CFL_CharecterStics"
            'oCFLCreationParams.MultiSelection = True
            Try
                oCFL = oCFLs.Add(oCFLCreationParams)
            Catch ex As Exception
            End Try
            Dim oCons As SAPbouiCOM.Conditions
            Dim oCon As SAPbouiCOM.Condition '''''''''
            Dim oEdit As SAPbouiCOM.EditText
            oCFL = oCFLs.Item("CFL_CharecterStics")
            'oCons = oCFL.GetConditions()
            ''oCFL = oCFLs.Item("Item_Cfl")
            'oCon = oCons.Add()
            'oCFL.SetConditions(oCons)
            oCFL = oCFLs.Item("CFL_CharecterStics")
            oCons = oCFL.GetConditions()
            oCFL = oCFLs.Item("CFL_CharecterStics")
            oCon = oCons.Add()
            'oEdit = oForm.Items.Item("8").Specific
            'oEdit.ChooseFromListUID = "CFL_CharTypeMaster"
            'oEdit.ChooseFromListAlias = "Name"
            If oForm.TypeEx = "MINSPL2" Then
                oMatrix = oForm.Items.Item("5").Specific
                oMatrix.Columns.Item("V_11").ChooseFromListUID = "CFL_CharecterStics"
                oMatrix.Columns.Item("V_11").ChooseFromListAlias = "Code"
            ElseIf oForm.TypeEx = "TINSP" Then
                oMatrix = oForm.Items.Item("27").Specific
                oMatrix.Columns.Item("V_6").ChooseFromListUID = "CFL_CharecterStics"
                oMatrix.Columns.Item("V_6").ChooseFromListAlias = "Code"
            End If
        Catch ex As Exception
            ' SBO_Application.MessageBox(ex.Message)
        End Try
    End Sub
thnaks in advance

Hi Dulce,
That is a standard behaviour of SBO. Try for example in the A/R invoice form to use the choosefromlist for BP. It won't work.
The way to use the find mode is just to fill all the data where you can filter your info and press the button Find.
e.g. in the A/R invoice put * in Customer and when you press find the choosefromlist pops up.
Hope this helps,
Ian

Refresh data in a system form

Hi all,
i have the following scenario:
i developed an addon to enable the user to modify the invoice billing address after the invoice has been created.
to achieve it i used a UDF with a text edit field.
everythings seems to works fine but i'd like to refresh the system invoice form (form 133 - item 6) with the new value submited in the UDF when i go back to the main form.
i already tried to use refresh and update form method without success.
can someone help me?
thanks in advance.
best regards
Andrea

something like
Dim oform As SAPbouiCOM.Form
            Dim docnum As String
            Dim edit As SAPbouiCOM.EditText
            oform = SBO_Application.Forms.ActiveForm
            edit = oform.Items.Item("8")
            docnum = edit.Value
            SBO_Application.Menus.Item("1281").Activate()
            edit.Value = docnum
            oform.Items.Item("1").Click(SAPbouiCOM.BoCellClickType.ct_Regular)

Copy data from a UDO form to Goods Receipt PO using UI API

Hi, all
I tried to copy data from a UDO form to Goods Receipt PO using UI API through following codes.
It works fine while copying to a Item-type Goods Receipt PO.
But when the doctype is set to service, I got errors.
I use for-loop to copy two items, Description and LineTotal, into the matrix of Goods Receipt PO form, but both failed.
any suggestion?
Edited by: Chao-Yi Wu on Aug 25, 2009 5:50 AM

Hi Chao-Yi Wu ,
SBO_Application.ActivateMenuItem("2306")
Dim oFormGR As SAPbouiCOM.Form = SBO_Application.Forms.ActiveForm
Dim omtxIQC, omtxGR As SAPbouiCOM.Matrix
Dim oedIQC, oedGR, oed As SAPbouiCOM.EditText
Dim ocbIQC, ocbGR As SAPbouiCOM.ComboBox
oFormGR.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE
oedIQC = oFormIQC.Items.Item("13").Specific
oedGR = oFormGR.Items.Item("4").Specific
oedGR.Value = oedIQC.Value
oedIQC = oFormIQC.Items.Item("21").Specific
oedGR = oFormGR.Items.Item("24").Specific
oedGR.Value = oedIQC.Value
oedIQC = oFormIQC.Items.Item("edComments").Specific
oedGR = oFormGR.Items.Item("16").Specific
oed = oFormIQC.Items.Item("3").Specific
oedGR.Value = oedIQC.Value + ", Goods Recript PO:" + oed.Value
ocbIQC = oFormIQC.Items.Item("cbDocType").Specific
ocbGR = oFormGR.Items.Item("3").Specific
If ocbIQC.Selected.Value = "I" Then
     ocbGR.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
Else
     ocbGR.Select(1, SAPbouiCOM.BoSearchKey.psk_Index)
End If
omtxIQC = oFormIQC.Items.Item("mtx_0").Specific
For i As Integer = 1 To omtxIQC.RowCount
omtxGR = oFormGR.Items.Item("38").Specific
       If ocbIQC.Selected.Value = "I" Then
            oedIQC = omtxIQC.Columns.Item("c_ItemCode").Cells.Item(i).Specific
            oedGR = omtxGR.Columns.Item("1").Cells.Item(i).Specific
            oedGR.String = oedIQC.String
            oedIQC = omtxIQC.Columns.Item("c_AQty").Cells.Item(i).Specific
            oedGR = omtxGR.Columns.Item("11").Cells.Item(i).Specific
            oedGR.String = oedIQC.String
            oedIQC = omtxIQC.Columns.Item("col_19").Cells.Item(i).Specific
            oedGR = omtxGR.Columns.Item("14").Cells.Item(i).Specific
            oedGR.String = oedIQC.String
   Else
omtxGR = oFormGR.Items.Item("39").Specific
           oedIQC = omtxIQC.Columns.Item("c_Descrp").Cells.Item(i).Specific
           oedGR = omtxGR.Columns.Item("1").Cells.Item(i).Specific
           oedGR.String = oedIQC.String
           oedIQC = omtxIQC.Columns.Item("col_16").Cells.Item(i).Specific
           oedGR = omtxGR.Columns.Item("12").Cells.Item(i).Specific
           oedGR.String = oedIQC.String
End If
            Next
for items the matrix is 38 and for service the matrix is 39
Rgds
Micheal

Pop up new form(Purchase Order) with current data

Dear All,
i have created a COPY TO button in my addon form. Now my quiry is that when ever i press the COPY TO button the purchase order form will open with my addon form data. Kindly suggest me the code.
Thanx
Sanjoy Paul

Hi...
         use this code...
Try
SBO_Application.ActivateMenuItem("2305")
       oForm = SBO_Application.Forms.ActiveForm
            OItem = oForm.Items.Item("4")
            Oedit = OItem.Specific
            Oedit.Value = vendor.ToString()
            rs1 = Nothing
            rs1 = OCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
            'rs1.DoQuery(" Select Ur Table")
            'OItem = OPOForm.Items.Item("aaa")
            'Oedit = OItem.Specific
            'Oedit.Value = rs1.Fields.Item("Ur - Field").Value & ""
            OItem = OPOForm.Items.Item("bbb")
            Oedit = OItem.Specific
            Oedit.Value = rs1.Fields.Item("Ur - Field").Value & ""
        Catch ex As Exception
            SBO_Application.MessageBox(ex.Message)
        End Try
REM Matrix
OItem = oForm.Items.Item("38")
        oMatrix = OItem.Specific
        oCols = oPoMat.Columns REM Columns
Oedit = oCols.Item("1").Cells.Item(1).Specific 'item no
            Oedit.Value = itmcd.ToString()
It Will Work...
Regards...
Billa 2007

UI API issue, clicking base document on sales order does not set ActiveForm

I have a sales order window open with a sales order loaded. When I right click and click on base document, the sales quotation window shows up properly, however in code when I get the ActiveForm, it is the sales order form and not the sales quotation form!
Private Sub SBO_Application_FormDataEvent(ByRef BusinessObjectInfo As SAPbouiCOM.BusinessObjectInfo, ByRef BubbleEvent As Boolean) Handles SBO_Application.FormDataEvent
    If BusinessObjectInfo.Type = bo_type.SALES_QUOTATION And BusinessObjectInfo.BeforeAction = False And    BusinessObjectInfo.EventType = BoEventTypes.et_FORM_DATA_LOAD
        SBO_Application.MessageBox(SBO_Application.Forms.ActiveForm.Type) 'shows 139 instead of 149?
    End If
End Sub
If quotation data is loaded using the next/prev/first/last buttons on the menu bar, the activeform .Type is 149.
If quotation data is laoded using the Base Document shortcut on the sales order, the activeform.Type is 139.
Is that suppose to be correct? If so, how do I get the new sales quotation form that is created by using the base document shortcut?
Edited by: Dung Nguyen on Aug 24, 2011 2:12 AM

János Nagy wrote:
Hi Dung,
>
> Formdataevent is handling trhe data events, not GUI events. In form data load means that the form is data is loaded, not that the form is activated.
>
> You must handle menuevent, and in menuevent before_action = false case the active form will be the sales quotation (or child/parent in the document flow).
>
> You may use an SDN tool to determine the events. You can download it from:
> http://www.sdn.sap.com/irj/scn/businessone-tools
>
>
> Regards
>
> János
The problem with form activated is that it is triggered everytime the window is "activated'. Meaning that if a user clicks out of the form and clicks back in, the form activated event is triggered.
I need to perform an operation only on the first time the form and data is loaded and/or activated.

System form UDF

i want to catch an event on click on udf in a system form.
how i will catch...
how i will get item id for udf in system form.
oForm = SBO_Application.Forms.ActiveForm
                 oedit2 = oForm.Items.Item("U_EmpCode").Specific() <---- Error
or simply i want to assign value in udf... but i got error.
Regard,
Avijit

If pVal.FormType = "-60100" And pVal.BeforeAction = False And pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD Then
            Try
                Dim oedit2 As SAPbouiCOM.EditText
                oForm = SBO_Application.Forms.ActiveForm
                oedit2 = oForm.Items.Item("U_EmpCode").Specific() <----
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            ' oedit2 = oForm.Items.Item("U_EmpCode").Specific()
        End If
petr ,
i have udf in employee master date.
but still it is through error....

The simplest accounting flexfield form item

Hi guys
I'm trying to understand how to code a field/item to capture an account combination.
I want to build a form with a single item. When I click on it, the accounting key flexfield window should pop up.
(I have the DESC and ID fields in the form too)
Currently I have a WHEN-MOUSE-DOWN trigger on the item with the following code:
BEGIN
FND_KEY_FLEX.DEFINE(
BLOCK=>'BLOCK1',
FIELD=>'ITEM1',
ID=>'ID',
DESCRIPTION=>'DESC',
APPL_SHORT_NAME=>'SQLGL',
CODE=>'GL#',
NUM=>'101',
REQUIRED=>'N');
EXCEPTION
          WHEN OTHERS THEN
               message('Error: ' || SQLERRM || SQLCODE);
END;
The problem is that the form just opens and closes immediately. When I comment out the code or replace with a message it works. Can somone please point me in the right direction of how to get this working?

HI,
Did you tried to bring the combobox into the foreground?
If not, try the following from your add-on:
1. Click the accouting tab
2. select the value in combo box
            Dim oPoForm As SAPbouiCOM.Form = sbo_application.Forms.ActiveForm
            oPoForm.Items.Item("138").Click(BoCellClickType.ct_Regular)
            Dim objComboBox As SAPbouiCOM.ComboBox = oPoForm.Items.Item("157").Specific
            objComboBox.Select(strProj, SAPbouiCOM.BoSearchKey.psk_ByDescription)
or
1.Set the panelevel of combo box into the current panelevel
2. select now value
            Dim oPoForm As SAPbouiCOM.Form = sbo_application.Forms.ActiveForm
            Static oldFromPane As Integer = oPoForm.Items.Item("157").FromPane
            oPoForm.Items.Item("157").FromPane = oPoForm.PaneLevel
            Dim objComboBox As SAPbouiCOM.ComboBox = oPoForm.Items.Item("157").Specific
            objComboBox.Select(strProj, SAPbouiCOM.BoSearchKey.psk_ByDescription)
            oPoForm.Items.Item("157").FromPane = oldFromPane
Regards
J.
Ps: if the asnwer correct, please close this thread....

SBO_Application.Forms.ActiveForm.TypeEx -9875

Similar Messages

Maybe you are looking for