Define New breakpoint

I would like to set a breakpoint by defining it as conditional upon the value of a local variable in my procedure. Does anyone know how to do this? The dialog box is not clear - ie, is this a method or watchpoint type? I am running a PL/SQL procedure, so there is no ostensible "class" for this breakpoint....
Any help would be appreciated!!

Don't know what dialog you mean there, but anyway - right click on the breakpoint, edit breakpoint, conditions tab, and define your condition in the condition box as "localvar=value". Is that what you meant by a conditional breakpoint?

Similar Messages

Defining New product type in CRM 5.0

Hi Guys,
Can anyone tell me how to define new Product Type for CRM(Standalone Products) like material, Service, warranty, financing .
Thanks in advance
amar

Hi Kovela,
I haven't come across any IMG activity which allows to create a new product type in CRM. Why do you want to have a separate product type. It is not so easy to create a product type because you also need to create additional attributes and set types. In general all existing product types are stored to table COMC_PR_TYPE. Also you need to maintain a separate structure (COMT_PROD_MAT_MAINTAIN_API) for each product type.
Why don;t you enhance the existing product type by creating new attributes and set types as per your requirement.
<b>Do not forget to reward if it helps,
</b>
Regards,
Paul Kondaveeti

How to define new item category for mm purchasing document

Hi,
pls let me know the path for defining new item categories for MM Purchasing document
thanks,

Hi,
Item category you are talking abt , you won't be able to create that as it controls the below item level items of your PO tcode screen .
Thanks
Dipak

"Define New" feature for the UDF

I have created UDFs in Item master data.
I want to load each of my UDFs with the data from a Database field from an UDT.
For e.g, my UDF's name is U_Size.
My UDT has the following structure:
Code - Name -U_Size.
I want to display the values of U_Size (of user defined table) in my UDF combobox, which also should have Define New feature.
Please help me with this!

Following gives the detailed explanation of the problem:
For implementing the Define New feature, I did the following:
1) Created a user defined table : (TableX)
Code - Name - FieldX
2) Created UDF(FieldX) in OITM, and set the Linked Table to be my user defined table(TableX.)
Now, I can get the Define New added in the UDF (combobox).
But, the Combobox has only Code-Name values loaded into it.
for example, if the user defined table(tableX) has the following values:
Code - Name - FieldX
1-1-USA
2-2-Canada
The UDF combo shows
1-1
2-2
Is there any way to show like the following?
USA
Canada
(or)
1 - USA
2 - Canada

How to define new host in catalog?

Hi guys,
I have migrate 9R2 database to new host location and i wanted to run backup using same script which worked on old host but i get error :
Wed Dec 8 13:59:13 CET 2010
Recovery Manager: Release 9.2.0.4.0 - Production
Copyright (c) 1995, 2002, Oracle Corporation. All rights reserved.
RMAN> #
2> # Full Backup
3> #
4> # Recovery Manager script
5> #
6>
7> #connect target sys/xxxyyy@dev;
8> connect target "/";
9> connect CATALOG rman/catalog@oemrep;
10>
11> run {
12> backup database plus archivelog delete input ;
13> report obsolete;
14> delete obsolete;
15> crosscheck backup;
16> delete noprompt expired backup;
17> }
18>
19> exit;
connected to target database: DEV (DBID=1703379406)
RMAN-00571: ===========================================================
RMAN-00569: =============== ERROR MESSAGE STACK FOLLOWS ===============
RMAN-00571: ===========================================================
RMAN-04004: error from recovery catalog database: ORA-12154: TNS:could not resolve service name
Recovery Manager complete.
Is this means that i need to define new host location in RMAN CATALOG or what?

You are right!
But still i receive this
Wed Dec 8 14:49:47 CET 2010
Recovery Manager: Release 9.2.0.4.0 - Production
Copyright (c) 1995, 2002, Oracle Corporation. All rights reserved.
RMAN> #
2> # Full Backup
3> #
4> # Recovery Manager script
5> #
6>
7> #connect target sys/xxxyyy@ssl21dev;
8> connect target "/";
9> connect CATALOG rman/catalog@oemrep;
10>
11> run {
12> backup database plus archivelog delete input ;
13> report obsolete;
14> delete obsolete;
15> crosscheck backup;
16> delete noprompt expired backup;
17> }
18>
19> exit;
connected to target database: SSL21DEV (DBID=1703379406)
connected to recovery catalog database
Starting backup at 08-DEC-10
current log archived
RMAN-00571: ===========================================================
RMAN-00569: =============== ERROR MESSAGE STACK FOLLOWS ===============
RMAN-00571: ===========================================================
RMAN-03002: failure of backup command at 12/08/2010 14:49:48
RMAN-06004: ORACLE error from recovery catalog database: RMAN-20001: target database not found in recovery catalog
Recovery Manager complete.
So prorbably old host database has different DBID defined in RAN catalog?

Hai , How to create 'Define New ' ?

hai,
How to create 'Define New ' in Combo box and then Enter the value in the user defined table how to get the value from the database table and display combo box ?

Hi.
I used this example for the matrix column. It's work and open a form for defining new values.
Your need to add an event to refresh values in combobox.
Think I help you.
Best regards
Sierdna S.
P.S. How to proceed.
1) Fill the combobox with valid values:
Try
' Add first value to combobox
oCombo.ValidValues.Add("", "")
Dim oRS As SAPbobsCOM.Recordset
oRS = SBO_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
Dim sSql As String = "SELECT Code, Name FROM [@" & sLinkedTable & "]"
oRS.DoQuery(sSql)
oRS.MoveFirst()
While oRS.EoF = False
      oCombo.ValidValues.Add(oRS.Fields.Item("Code").Value, oRS.Fields.Item("Name").Value)
      oRS.MoveNext()
End While
' Last value
oCombo.ValidValues.Add("Define","Define")
If Not oRS Is Nothing Then
      System.Runtime.InteropServices.Marshal.ReleaseComObject(oRS)
      oRS = Nothing
End If
System.GC.Collect() 'Release the handle to the table
Catch ex As Exception
' log exception
Finally
oCombo = Nothing
End Try
2) In Item event handler
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT _
And pVal.FormUID = sFormUID _
And pVal.ItemUID = sMatrixUID _
And pVal.ColUID = sColUID _
And pVal.BeforeAction = False _
And pVal.ItemChanged = True _
Then
Try
    Dim oMatrix As SAPbouiCOM.Matrix
    oMatrix = oForm.Items.Item(MatrixID).Specific
    If oMatrix Is Nothing Then Throw New Exception("ERROR: matrix object is nothing"))
    Try
      Dim oCombo As SAPbouiCOM.ComboBox
      Dim sValue As String = ""
      oCombo = oMatrix.Columns.Item(sColUID).Cells.Item(pVal.Row).Specific
      sValue = oCombo.Selected.Value
      If sValue.Equals("Define") Then
        Try
            oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
            oForm.Refresh()
        Catch ex As Exception
        ' log exception
        End Try
        SBO_Application.Menus.Item("<menu id to activate>").Activate()
      End If
      BubbleEvent = False
    Catch ex1 As Exception
      ' log exception
    End Try
Catch ex As Exception
    ' log exception
End Try
End If

"Define New" in Combo Box

Hello,
I would like to implement the "define new" feature for combo boxes that I am using in my UDO, as it is for some of the combo boxes of SAP. I have noticed that when I add a linked table to my user defined field, this option doesn't appear in the UDO forms, so I believe it must be implemented by code. How can this be done?
Thanks.
Ralph

Hi.
I haven`t try this, but mayby You can make Value in combo with description "Define new", and if this value is set, open form whith You want ?
This is my sugestion.
Hope it helps.
Regards
Kamil Wydra
I found that this topic was answered in the past.
Here:
SAP Business One SDK
Message was edited by: Kamil Wydra

Define New Partner Types

Hi,
Where and how do we define new Partner Types (e.g., KU - Customer, WK - Plant etc.) ?
Regards,
Piyush

Hi Piyush,
You can go to the following path.
SPROSDBFPartner determinationSet up partner determination---Set up Partner determination for Customer master (or for any other transaction too)
Here you can see that partner types are also defined along with the partner functions we use. We can copy the partner type and create a new one.
Whenever we create a new Partner Function, the function has to be assigned to one of the partner types so that the partner function can behave as the partner type. For example if a partner function is assigned to partner type KU, then a partner of that PF can behave like a partner type.
Reward if it helps.

Define new User exit screen for LM51 -- Please take as much time as you need. No hurry.

Hi gurus ,
I am trying to define new User exit screen for LM51. I have developed new screen assigned as,
logical == 9151 variant=9 actual screen = 2151
assighned in lrfmd with variant = 9
Even In Lm51 its not calling the subscreen 9151.i am not getting reson,
kindly help me
Edited by: Matt on Dec 17, 2008 10:05 AM - Please read the Rules of Engagement. "urjt" not allowed.

Hi,
Did you try with these exits???
MWMMOB01            Enhancement for Verification Field in the Warehouse Master
MWMMOB02            Extension for Barcode Translation
MWMRFSRT            ENHANCEMENT FOR TO SORTING
Thanks

Define new Item cetogories in purchasing

Hi All
i want to define new item cetogories in purchase document.
that is we are having the item cetogories like D - Service , L- Subcontracting.
Where SAP is defined and what is the t - code.
Regards
M S K

Hi,
"Please note that the table of item categories is an SAP system table.
Its content must not be changed by customers.
Even in change mode, you can only display the characteristics of the item categories."
You may read this note in SPRO node MM >> Purchasing >> Define External Representation of Item Categories
However you can change the external representation in the above node
for example standard setting for Service is "D".... you can change to any other single letter alphabet of your choice (excluding the ones that are already used).
Regards,

Business Partner Contacts Define new is blank when addon runs

version 2007 PL 15
When my addon is running the business partner contacts tab is missing the "Define New" option and contacts cannot be added.
When the addon is stopped then the businness partner contacts tab functions normally.
There is nothing in the addon that affects or references the business partner form, and the event filters have been set carefully to exclude any unnecessary events.
Has anyone had this strange problem or does anyone have any ideas?
Thanks,
Mel

Mel,
the problem must be in your addon. I think that you dont catch correctly the events or you work on incorrect form. For solution I recomend to find out the item no in BP contact (its 13) and search through your code where is the 13 and check if is it correct. Maybe the problem is, that contacts in BP are only in ok form mode - check if have somewhere in code changing of formmode for BP form.
Petr

How to define new colors for the form?(Finish)

Hello! Everyone!
I want to define new colors for the new form.
But I don't find where I can define it.
How to define new color for the form?
Thanks in advance!

You have to set the Canvas color or as I said earlier you need to use one of the available color schemas on the OAS or Builder runtime.
If you want to use user defined colors in the builder, then you need to create a new color palette and use it.
I personally haven't tried it, but there is a section in the online help that describes how to do this.
Tony

Reg: Unable to define new payment types in AP

Hi Consultants,
We have requirement to define new payment type. i tried to add new lookup code at Oracle Payable Lookups window but it is not allowing us to add new line.
actaully i am technical developer i dont know how to define a new paymnet type we are using the 11.5.9.
any one please advice me on this.
Thanks,
Anu

Hello Anu.
The PAYMENT TYPE lookup code is System access level so you cannot create a new one. What is the bussiness requirement? I believe the existing payment methods can cover any bussiness requirement.
Octavio

Define new

Hi.
When i click Define New in the combo box the datas that i enter should be displayed in the combo.but it is not displayed.how to do it

Hi try this one
CREATE FORM SUB
Public Sub CreateForm(...)
If oMatrix.RowCount > 0 Then
    Call InitializeMatrixCombo(oForm, _
                               MatrixID, _
                               "DSU_Linked", _ ' Combobox Column
                               "@LINKED_TABLE", _
                               "<Default_Value>" _
End If
End Sub
InitComboBox sub when we initializing combobox to combobox values we add also 2 new values:
- "","" : NULL value, if database column accept null value
- "Redefine","Redefine" : When selected with ItemEvent we activating menu with form uid where are we can define new values.
Public Sub InitializeMatrixCombo( _
    ByRef oForm As SAPbouiCOM.Form, _
    ByVal sMatrixID As String, _
    ByVal sComboColumnName As String, _
    ByVal sLinkedTable As String, _
    Optional ByVal sDefaultValue As String = "" _
Try
    oForm.Freeze(True)
    If SBO_Company.Connect Then
      ' Matrix
      Dim oMatrix As SAPbouiCOM.Matrix
      oMatrix = oForm.Items.Item(sMatrixID).Specific
      If oMatrix Is Nothing Then Throw New Exception("ERROR: matrix object is nothing"))
      ' Matrix column
      Dim oColumn As SAPbouiCOM.Column
      oColumn = oMatrix.Columns.Item(sComboColumnName)
      ' Matrix column cell
      Dim oCell As SAPbouiCOM.Cell
      oCell = oColumn.Cells.Item(oMatrix.VisualRowCount)
      ' Matrix column cell combo
      Dim oCombo As SAPbouiCOM.ComboBox
      oCombo = oCell.Specific
      If ClearCombo(oCombo) Then
        Try
          ' Add 1-st value if database field accept NULL
          oCombo.ValidValues.Add("", "")
          Dim oRS As SAPbobsCOM.Recordset
          oRS = SBO_Company.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
          Dim sSql As String = "SELECT Code, Name FROM [@" & sLinkedTable & "] ORDER BY 1"
          oRS.DoQuery(sSql)
          oRS.MoveFirst()
          While oRS.EoF = False
            oCombo.ValidValues.Add(oRS.Fields.Item("Code").Value, _
            oRS.Fields.Item("Name").Value)
            oRS.MoveNext()
          End While
          ' Add DEFINE NEW value +++++++++++++++++++++++++++++++
          ' Note: Code can have length up to 8 caracters
          oCombo.ValidValues.Add("Redefine", "Redefine")
          If Not oRS Is Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(oRS)
            oRS = Nothing
          End If
          System.GC.Collect() 'Release the handle to the table
          ' Select dafault value if not null
          If Not sDefaultValue.Equals("") Then
            If oCombo.ValidValues.Count > 0 Then
              oCombo.Select(sDefaultValue, SAPbouiCOM.BoSearchKey.psk_ByValue)
            End If
          Else
            If oCombo.ValidValues.Count >= 1 Then
              oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
            End If
          End If
        Catch ex As Exception
          ' log exception
        Finally
          oCombo = Nothing
          oCell = Nothing
          oColumn = Nothing
          oMatrix = Nothing
        End Try
      End If
    End If
Catch ex As Exception
    ' log exception
Finally
    oForm.Freeze(False)
    System.GC.Collect() 'Release the handle to the table
End Try
End Sub
Item Event to handle selection of "Redefine" voice in combobox.
Private Sub SBO_Application_ItemEvent( _
      ByVal FormUID As String, _
      ByRef pVal As SAPbouiCOM.ItemEvent, _
      ByRef BubbleEvent As Boolean _
) Handles SBO_Application.ItemEvent
Dim oForm As SAPbouiCOM.Form
oForm = SBO_Application.Forms.Item(FormUID)
If pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT _
And pVal.FormUID = sgloFormUID _
And pVal.ItemUID = MatrixID _
And pVal.ColUID = "DSU_Linked" _
And pVal.BeforeAction = False _
And pVal.ItemChanged = True _
Then
    Try
      Dim oMatrix As SAPbouiCOM.Matrix
      oMatrix = oForm.Items.Item(MatrixID).Specific
      If oMatrix Is Nothing Then Throw New Exception("ERROR: matrix object is nothing")
      Try
        Dim oCombo As SAPbouiCOM.ComboBox
        Dim sValue As String = ""
        oCombo = oMatrix.Columns.Item("DSU_Linked").Cells.Item(pVal.Row).Specific
        sValue = oCombo.Selected.Value
        If sValue.Equals("Redefine") Then
          Try
            oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
            oForm.Refresh()
          Catch ex As Exception
           ' log exception
          End Try
          ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
          ' Here place your menu uid to call the form for adding new value
          ' +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
          SBO_Application.Menus.Item("51207").Activate()
        End If
        BubbleEvent = False
      Catch ex1 As Exception
        ' log exception
      End Try
    Catch ex As Exception
      ' log exception
    End Try
End If
' Other events +++
End Sub

How to create define new?

i have taken combo box in form . i want to select define new option in combo box.
is it possible....?

Imports SAPbobsCOM
Imports SAPbouiCOM
Public Class Class1
    '// At the begining of every UI API project we should first
    '// establish connection with a running SBO application.
    Private WithEvents SBO_Application As SAPbouiCOM.Application
    Private oForm As SAPbouiCOM.Form
    Dim oButton As SAPbouiCOM.Button
    Dim oOptionBtn As SAPbouiCOM.OptionBtn
    Dim oCheckBox As SAPbouiCOM.CheckBox
    Dim oComboBox As SAPbouiCOM.ComboBox
    Dim oItem As SAPbouiCOM.Item
    Dim oStatic As SAPbouiCOM.StaticText
    Dim oEdittext As SAPbouiCOM.EditText
    Dim oEditItem As SAPbouiCOM.EditText
    Dim oFolder As SAPbouiCOM.Folder
    Private oMatrix As SAPbouiCOM.Matrix
    Private Matrix2 As SAPbouiCOM.Matrix
    Private oLink As SAPbouiCOM.LinkedButton
    Private oColumns As SAPbouiCOM.Columns
    Private oColumn As SAPbouiCOM.Column
    Private sPath As String
    Private oDBDataSource As SAPbouiCOM.DBDataSource
    Private oCompany As SAPbobsCOM.Company
    Private rs As SAPbobsCOM.Recordset
    Private oLineRec As SAPbobsCOM.Recordset
    Private rs1 As SAPbobsCOM.Recordset
    '// declaring a User data source for the "Remarks" Column
    Private oUserDataSource As SAPbouiCOM.UserDataSource
    Public sErrMsg As String
    Public lErrCode As Long
    Public lRetCode As Long
    Private Sub SetApplication()
        '// Use an SboGuiApi object to establish connection
        '// with the SAP Business One application and return an
        '// initialized appliction object
        Dim SboGuiApi As SAPbouiCOM.SboGuiApi
        Dim sConnectionString As String
        SboGuiApi = New SAPbouiCOM.SboGuiApi
        '// by following the steps specified above, the following
        '// statment should be suficient for either development or run mode
        'sConnectionString = Environment.GetCommandLineArgs.GetValue(1)
        sConnectionString = "0030002C0030002C00530041005000420044005F00440061007400650076002C0050004C006F006D0056004900490056" 'Environment.GetCommandLineArgs.GetValue(1)'
        Try
            SboGuiApi.Connect(sConnectionString)
            '// connect to a running SBO Application
            '// get an initialized application object
            SBO_Application = SboGuiApi.GetApplication()
        Catch ex As Exception
            MsgBox("Make Sure That SAP Business One Application is running!!! ", MsgBoxStyle.Information)
            Exit Sub
        End Try
    End Sub
    Private Function ConnectToCompany() As Integer
        '// Make sure you're not already connected.
        If oCompany.Connected = True Then
            oCompany.Disconnect()
        End If
        '// Establish the connection to the company database.
        ConnectToCompany = oCompany.Connect
    End Function
    Private Function SetConnectionContext() As Integer
        Dim sCookie As String
        Dim sConnectionContext As String
        ' Dim lRetCode As Integer
        '// First initialize the Company object
        oCompany = New SAPbobsCOM.Company
        '// Acquire the connection context cookie from the DI API.
        sCookie = oCompany.GetContextCookie
        '// Retrieve the connection context string from the UI API using the
        '// acquired cookie.
        sConnectionContext = SBO_Application.Company.GetConnectionContext(sCookie)
        '// before setting the SBO Login Context make sure the company is not
        '// connected
        If oCompany.Connected = True Then
            oCompany.Disconnect()
        End If
        '// Set the connection context information to the DI API.
        SetConnectionContext = oCompany.SetSboLoginContext(sConnectionContext)
    End Function
    Public Sub New()
        MyBase.New()
        Try
            SetApplication()
            ' Set The Connection Context
            If Not SetConnectionContext() = 0 Then
                SBO_Application.MessageBox("Failed setting a connection to DI API")
                End ' Terminating the Add-On Application
            End If
            If Not ConnectToCompany() = 0 Then
                SBO_Application.MessageBox("Failed connecting to the company's Data Base")
                End ' Terminating the Add-On Application
            End If
            'SBO_Application.MessageBox("DI Connected To: " & oCompany.CompanyName)
        Catch
            System.Windows.Forms.MessageBox.Show("SBO application not found")
        End Try
        diplay_DNEWform()
    End Sub
    Private Sub diplay_DNEWform()
        Dim oForm As SAPbouiCOM.Form
        Try
            oForm = SBO_Application.Forms.Item("SM_DNFM")
            SBO_Application.MessageBox("Form Already Open")
        Catch ex As Exception
            Dim fcp As SAPbouiCOM.FormCreationParams
            fcp = SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_FormCreationParams)
            fcp.BorderStyle = SAPbouiCOM.BoFormBorderStyle.fbs_Fixed
            fcp.FormType = "SM_DNFM"
            fcp.ObjectType = "SM_DNEW"
            fcp.UniqueID = "SM_DNFM"
            oForm = SBO_Application.Forms.AddEx(fcp)
            oForm.AutoManaged = False
            DrawDNEWForm(oForm)
        End Try
        oForm.Visible = True
    End Sub
    Public Sub DrawDNEWForm(ByVal oform As SAPbouiCOM.Form)
        Dim oItem As SAPbouiCOM.Item
        Dim oButton As SAPbouiCOM.Button
        ''Form specifications
        oform.Title = "define new"
        oform.Left = 335 '340
        oform.ClientWidth = 550 '350
        oform.Top = 55
        oform.ClientHeight = 200 '500
        'oForm.Mode = SAPbouiCOM.BoFormMode.fm_ADD_MODE
        ShowAllItems(oform)
        '// Adding a OK button
        oItem = oform.Items.Add("1", SAPbouiCOM.BoFormItemTypes.it_BUTTON)
        oItem.Left = 27
        oItem.Width = 65
        oItem.Top = 175 '300
        oItem.Height = 20
        oButton = oItem.Specific
        '// Adding a Cancel button
        oItem = oform.Items.Add("2", SAPbouiCOM.BoFormItemTypes.it_BUTTON)
        oItem.Left = 101
        oItem.Width = 65
        oItem.Top = 176 '300
        oItem.Height = 20
        oButton = oItem.Specific
    End Sub
    Private Sub ShowAllItems(ByVal oForm)
        oDBDataSource = oForm.DataSources.DBDataSources.Add("@TESTDNEW")
        Dim oEditordr As SAPbouiCOM.ComboBox
        oItem = oForm.Items.Add("amtTxt", SAPbouiCOM.BoFormItemTypes.it_STATIC)
        oItem.Left = 5
        oItem.Width = 100
        oItem.Top = 10
        ' oItem.AffectsFormMode = False
        oItem.LinkTo = "amtVal" '"Vndval"
        oStatic = oItem.Specific
        oStatic.Caption = "location"
        oItem = oForm.Items.Add("amtVal", SAPbouiCOM.BoFormItemTypes.it_COMBO_BOX)
        oItem.Left = 110
        oItem.Width = 160
        oItem.Top = 10
        ' oItem.LinkTo = "OrdrTxt"
        oItem.AffectsFormMode = True
        oEditordr = oItem.Specific
        '' Adding Choose From List
        oEditordr.DataBind.SetBound(True, "@TESTDNEW", "U_name")
        Dim scombo As String = "Define New"
        Call InitializeMCombo(oForm, scombo, "@TEST_TABLE", "<Default_Value>")
    End Sub
    Public Sub InitializeMCombo( _
        ByRef oForm As SAPbouiCOM.Form, _
        ByVal sCombo As String, _
        ByVal sLinkedTable As String, _
        Optional ByVal sDefaultValue As String = "" _
        Try
            oForm.Freeze(True)
            Dim oCombo As SAPbouiCOM.ComboBox
            oCombo = oForm.Items.Item(sCombo).Specific
            Try
                ' Add 1-st value if database field accept NULL
                oCombo.ValidValues.Add("", "")
                Dim oRS As SAPbobsCOM.Recordset
                oRS = oCompany.GetBusinessObject(SAPbobsCOM.BoObjectTypes.BoRecordset)
                Dim sSql As String = "SELECT Code, Name FROM [@" & sLinkedTable & "] ORDER BY 1"
                oRS.DoQuery(sSql)
                oRS.MoveFirst()
                While oRS.EoF = False
                    oCombo.ValidValues.Add(oRS.Fields.Item("Code").Value, _
                    oRS.Fields.Item("Name").Value)
                    oRS.MoveNext()
                End While
                ' Add DEFINE NEW value +++++++++++++++++++++++++++++++
                ' Note: Code can have length up to 8 caracters
                oCombo.ValidValues.Add("Redefine", "Redefine")
                If Not oRS Is Nothing Then
                    System.Runtime.InteropServices.Marshal.ReleaseComObject(oRS)
                    oRS = Nothing
                End If
                System.GC.Collect() 'Release the handle to the table
                ' Select dafault value if not null
                If Not sDefaultValue.Equals("") Then
                    If oCombo.ValidValues.Count > 0 Then
                        oCombo.Select(sDefaultValue, SAPbouiCOM.BoSearchKey.psk_ByValue)
                    End If
                Else
                    If oCombo.ValidValues.Count >= 1 Then
                        oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
                    End If
                End If
            Catch ex As Exception
                ' log exception
            Finally
                oCombo = Nothing
            End Try
        Catch ex As Exception
        Finally
            oForm.Freeze(False)
            System.GC.Collect()
        End Try
    End Sub
    Private Sub SBO_Application_ItemEvent( _
          ByVal FormUID As String, _
          ByRef pVal As SAPbouiCOM.ItemEvent, _
          ByRef BubbleEvent As Boolean _
    ) Handles SBO_Application.ItemEvent
        Dim oForm As SAPbouiCOM.Form
        oForm = SBO_Application.Forms.Item(FormUID)
        If pVal.EventType = SAPbouiCOM.BoEventTypes.et_COMBO_SELECT _
        And pVal.FormUID = "SM_DNFM" _
        And pVal.ItemUID = "amtval" _
        And pVal.BeforeAction = False _
        And pVal.ItemChanged = True _
        Then
            SBO_Application.MessageBox("30")
            Try
                Try
                    Dim oCombo As SAPbouiCOM.ComboBox
                    Dim sValue As String = ""
                    oCombo = oForm.Items.Item("amtval").Specific
                    sValue = oCombo.Selected.Value
                    If sValue.Equals("Redefine") Then
                        Try
                            oCombo.Select(0, SAPbouiCOM.BoSearchKey.psk_Index)
                            oForm.Refresh()
                        Catch ex As Exception
                            'log exception
                        End Try
                        SBO_Application.Menus.Item("51207").Activate()
                    End If
                    BubbleEvent = False
                Catch ex1 As Exception
                    ' log exception
                End Try
            Catch ex As Exception
                ' log exception
            End Try
        End If
        ' Other events +++
    End Sub
End Class
its not working ,   please check it why this is hapening.
please help me.....

Define New breakpoint

Similar Messages

Maybe you are looking for